hg/stx-libtool: AbstractSettingsApplication.st@b90f27b8dfd4 (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
10698 61d63b339b4e allowAssignmentToPoolVariable Claus Gittinger <cg@exept.de> parents: 10582 diff changeset	44	allowExtendedBinarySelectors warnAboutMissingMethodComment
61d63b339b4e allowAssignmentToPoolVariable Claus Gittinger <cg@exept.de> parents: 10582 diff changeset	45	allowAssignmentToPoolVariable'
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	46	classVariableNames:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	47	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	48	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	49	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	50
9610 64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	51	AbstractSettingsApplication subclass:#ChangeFileSettingsAppl
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	52	instanceVariableNames:'classInfos vmInfo vmErrors displayErrors logDoits updChanges
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	53	changeFileName beepForInfoDialog beepForWarningDialog
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	54	beepForErrorDialog flyByHelp beepEnabled beepInEditor'
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	55	classVariableNames:''
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	56	poolDictionaries:''
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	57	privateIn:AbstractSettingsApplication
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	58	!
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	59
9187 fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	60	AbstractSettingsApplication subclass:#CodeGeneratorSettingsAppl
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	61	instanceVariableNames:'generateComments generateCommentsForGetters
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	62	generateCommentsForSetters'
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	63	classVariableNames:''
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	64	poolDictionaries:''
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	65	privateIn:AbstractSettingsApplication
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	66	!
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	67
9277 c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	68	AbstractSettingsApplication subclass:#CommunicationLoggingSettingsAppl
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	69	instanceVariableNames:'logHTTPRequests logSOAPRequests'
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	70	classVariableNames:''
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	71	poolDictionaries:''
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	72	privateIn:AbstractSettingsApplication
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	73	!
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	74
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	75	AbstractSettingsApplication subclass:#DebuggerSettingsAppl
8149 d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	76	instanceVariableNames:'showErrorNotifier verboseBacktraceInDebugger
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	77	allowSendMailFromDebugger useNewLayoutInDebugger'
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	78	classVariableNames:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	79	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	80	privateIn:AbstractSettingsApplication
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	81	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	82
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	83	AbstractSettingsApplication subclass:#DisplaySettingsAppl
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	84	instanceVariableNames:'isColorMonitor useFixGrayPaletteLabel useFixPalette sizeY
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	85	clipEncodingListSelection sizeX monitorList ditherList
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	86	clipEncodingList ditherListSelection deepIcons monitorSelection
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	87	useFixPaletteLabel visualIsPseudoColor ditherSymsNotNil
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	88	useFixGrayPalette sizeInfos screen ditherStyles ditherSyms
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	89	screenDepthVisualLabelHolder maxCopyBufferSize'
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	90	classVariableNames:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	91	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	92	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	93	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	94
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	95	AbstractSettingsApplication subclass:#EditSettingsAppl
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	96	instanceVariableNames:'st80EditingMode tabsIs4 st80DoubleClickSelectMode
7580 4580c0a025ff underline in word-select setting Claus Gittinger <cg@exept.de> parents: 7557 diff changeset	97	searchDialogIsModal startTextDragWithControl
8682 01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	98	extendedWordSelectMode whitespaceWordSelectMode
01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	99	enforceContentsDropForFiles'
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	100	classVariableNames:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	101	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	102	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	103	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	104
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	105	AbstractSettingsApplication subclass:#FontSettingsAppl
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	106	instanceVariableNames:'filter allOfThem labelDef buttonDef listDef menuDef textDef
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	107	allFontLabelHolder buttonsFontLabelHolder textFontLabelHolder
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	108	labelsFontLabelHolder listsFontLabelHolder menusFontLabelHolder
7954 24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	109	allLabel buttonsLabel textLabel labelLabel listsLabel menuLabel
10792 135ac419296e Added linux font workaround checkbox. vrany parents: 10778 diff changeset	110	inputFieldLabel inputFieldDef inputFieldFontLabelHolder
135ac419296e Added linux font workaround checkbox. vrany parents: 10778 diff changeset	111	linuxFontWorkaround'
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	112	classVariableNames:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	113	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	114	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	115	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	116
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	117	AbstractSettingsApplication subclass:#GeneralCompilerSettingsAppl
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	118	instanceVariableNames:'st80EditingMode tabsIs4 st80DoubleClickSelectMode
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	119	searchDialogIsModal startTextDragWithControl catchClassRedefs
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	120	fullHistoryUpdate historyLines keepSourceSelection keepSource
9531 fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	121	hasHistoryManager canLoadBinaries loadBinaries catchMethodRedefs
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	122	userNameInHistoryHolder'
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	123	classVariableNames:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	124	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	125	privateIn:AbstractSettingsApplication
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	126	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	127
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	128	AbstractSettingsApplication subclass:#HTTPStartServerSettingsApplication
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	129	instanceVariableNames:'portNumberChannel informationLabel hasNoCreatedServerChannel
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	130	hasCreatedServerChannel useFcgiHolder'
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	131	classVariableNames:'CreatedServers'
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	132	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	133	privateIn:AbstractSettingsApplication
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	134	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	135
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	136	AbstractSettingsApplication subclass:#KbdMappingSettingsAppl
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	137	instanceVariableNames:'selectedRawKey macroTextHolder selectedFunctionKey
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	138	labelTextHolder functionKeyList rawKeyList mappings'
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	139	classVariableNames:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	140	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	141	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	142	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	143
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	144	AbstractSettingsApplication subclass:#LanguageSettingsAppl
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	145	instanceVariableNames:'languageHolder languageIndexHolder languageList
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	146	languageListHolder listOfLanguages translatedLanguages
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	147	noticeLabelHolder currentFlagAndLanguageChannel
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	148	currentLanguageLabel perLanguageResources'
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	149	classVariableNames:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	150	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	151	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	152	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	153
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	154	AbstractSettingsApplication subclass:#MemorySettingsAppl
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	155	instanceVariableNames:'newSpaceSize maxOldSpace fastMoreLimit warningLabelHolder
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	156	codeTrigger codeLimit oldIncr compressLimit igcFreeLimit igcLimit
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	157	igcFreeAmount stackLimit supportsJustInTimeCompilation
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	158	methodCodeSizeLimit'
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	159	classVariableNames:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	160	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	161	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	162	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	163
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	164	AbstractSettingsApplication subclass:#MiscCommunicationSettingsAppl
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	165	instanceVariableNames:'remoteBrowsingEnabled windowMigrationEnabled
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	166	windowMigrationPassword windowMigrationAuthenticate
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	167	enablePasswordCheck smallTeamServerEnabled selectedSmallTeamHost
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	168	listOfSmallTeamHosts smallTeamHostEntry addHostEnabled
8145 3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	169	removeHostEnabled acceptChannel smtpServerName
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	170	dotNetBridgeVerbose dotNetBridgeRunsInIDE'
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	171	classVariableNames:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	172	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	173	privateIn:AbstractSettingsApplication
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	174	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	175
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	176	AbstractSettingsApplication subclass:#MiscDisplay2SettingsAppl
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	177	instanceVariableNames:'nativeWidgets nativeDialogs shadows opaqueVariablePanelResize
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	178	opaqueTableColumnResize lowerOnRightClickInTitle
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	179	lowerOnShiftClickInTitle displaySupportsNativeFileDialogs
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	180	nativeFileDialogs'
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	181	classVariableNames:''
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	182	poolDictionaries:''
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	183	privateIn:AbstractSettingsApplication
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	184	!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	185
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	186	AbstractSettingsApplication subclass:#MiscDisplaySettingsAppl
8550 6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	187	instanceVariableNames:'returnFocus focusFollowsMouse mouseWheelFocusFollowsMouse
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	188	beepEnabled takeFocus activateOnClick
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	189	formatHostNameinWindowLabels hostNameInLabelHolder
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	190	showAccelerators newWindowLabelFormat formatHostNameWindowLabel
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	191	selectOnRightClick popUpMenuOnRelease
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	192	showRightButtonMenuOnRelease formatHostNameWindowLabel1
9592 417dcf26fdbe force on monitor Claus Gittinger <cg@exept.de> parents: 9566 diff changeset	193	formatHostNameWindowLabel2 allowMouseWheelZoom
417dcf26fdbe force on monitor Claus Gittinger <cg@exept.de> parents: 9566 diff changeset	194	forceWindowsIntoMonitorBounds'
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	195	classVariableNames:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	196	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	197	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	198	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	199
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	200	AbstractSettingsApplication subclass:#OsiSettingsAppl
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	201	instanceVariableNames:'osiACSEConnectionLogging osiROSEErrorLogging osiCMISEErrorLogging
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	202	osiACSEErrorLogging osiROSEPresent osiCMISEPresent
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	203	osiCMISEMessageLogging osiACSEDataLogging
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	204	osiROSEInvokationLogging osiACSEPresent osiROSEResponseLogging'
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	205	classVariableNames:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	206	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	207	privateIn:AbstractSettingsApplication
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	208	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	209
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	210	AbstractSettingsApplication subclass:#PrinterSettingsAppl
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	211	instanceVariableNames:'selectedUnit supportsColor topMargin rightMargin bottomMargin
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	212	landscape pageFormatList pageFormat unitList leftMargin
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	213	possiblePrinters printerType printerTypeSelection
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	214	printCommandList commandList printCommand printFilename
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	215	enableFormat enablelandscape enableMargins enableColorBox
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	216	printerIsDrivenByCommand printerSupportsPrintingToFile
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	217	supportsPageFormatSetting supportsMarginSetting
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	218	supportsColorSetting'
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	219	classVariableNames:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	220	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	221	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	222	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	223
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	224	AbstractSettingsApplication subclass:#ProcessorSchedulerSettingsAppl
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	225	instanceVariableNames:'dynamicPrios preemptive'
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	226	classVariableNames:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	227	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	228	privateIn:AbstractSettingsApplication
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	229	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	230
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	231	AbstractSettingsApplication subclass:#RDoItServerSettingsAppl
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	232	instanceVariableNames:'rDoitLogging rDoitsEnabled rDoitErrorLogging hasRDoitServer
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	233	rDoitErrorDebugging rDoitServerPortOrPath
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	234	rDoitEnabledOnlyViaLocalConnection scriptingEnabled
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	235	scriptingEnabledOnlyViaLocalConnection scriptingErrorDebugging
8740 bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	236	scriptingErrorLogging scriptingLogging scriptingServerPortOrPath'
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	237	classVariableNames:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	238	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	239	privateIn:AbstractSettingsApplication
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	240	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	241
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	242	AbstractSettingsApplication subclass:#SQLServerSettingsAppl
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	243	instanceVariableNames:'sqlServerEnabled sqlSmalltalkServerEnabled sqlLogging
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	244	sqlDataLogging sqlErrorLogging hasSQLServer sqlErrorDebugging
8279 f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	245	sqlServerPort sqlStatementLogging'
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	246	classVariableNames:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	247	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	248	privateIn:AbstractSettingsApplication
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	249	!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	250
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	251	AbstractSettingsApplication subclass:#STCCompilerSettingsAppl
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	252	instanceVariableNames:'cc ccOptions stcIncludes linkCommand stc linkArgs linkSharedArgs
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	253	canLoadBinaries stcDefines stcLibraries stcOptions stcLibraryPath
10711 20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	254	stcCompilationSelection stcCompilationList makeCommand
20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	255	stcKeepCIntermediate'
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	256	classVariableNames:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	257	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	258	privateIn:AbstractSettingsApplication
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	259	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	260
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	261	AbstractSettingsApplication subclass:#SourceCodeFormatSettingsAppl
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	262	instanceVariableNames:'spaceAfterKeywordSelector emptyLineAfterTemporaries tabIndent
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	263	autoFormat cStyleBlocks editorText maxLengthForSingleLineBlocks
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	264	blockArgumentsOnNewLine spaceAfterReturnToken
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	265	spaceAroundTemporaries spaceAfterBlockStart spaceBeforeBlockEnd
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	266	oldUserPreferences reformatLocked'
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	267	classVariableNames:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	268	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	269	privateIn:AbstractSettingsApplication
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	270	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	271
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	272	AbstractSettingsApplication subclass:#SourceCodeManagementSettingsAppl
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	273	instanceVariableNames:'sourceCacheDir useManager availableManagers condenseSourceCache
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	274	setupSourceCodeManager checkClassesWhenCheckingIn
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	275	formattingConfiguration flushSourceCache localSourceFirst
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	276	repositoryHolder manager repository listOfModules
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	277	managerTypePerModule addPerModuleRoot removeEnabled
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	278	perModuleRootModule acceptChannel removePerModuleRoot
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	279	perModuleRoot selectedPerModuleRoot rootsPerModule
7331 b8986149fdfd use CVSExecutable instead of CVSBindir Claus Gittinger <cg@exept.de> parents: 7326 diff changeset	280	selectedManagerTypeIndexHolder managerIsCVSSourceCodeManager
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	281	managerIsStoreSourceCodeManager perModuleFieldsEnableHolder
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	282	managerIsSmallTeamSourceCodeManager verboseSourceCodeAccess
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	283	keepMethodSource packageToAddHolder managerTypeIndexToAddHolder
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	284	managerTypeToAddHolder managerPerMatchingModule
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	285	selectedManagerPerMatchingModuleHolder'
7494 6f26553bcc80 * empty log message * Claus Gittinger <cg@exept.de> parents: 7493 diff changeset	286	classVariableNames:'RecentlyUsedCVSRoots RecentlyUsedStoreHosts
6f26553bcc80 * empty log message * Claus Gittinger <cg@exept.de> parents: 7493 diff changeset	287	RecentlyUsedSmallTeamHosts LastStoreHost LastStoreUser
6f26553bcc80 * empty log message * Claus Gittinger <cg@exept.de> parents: 7493 diff changeset	288	LastStorePassword'
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	289	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	290	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	291	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	292
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	293	SimpleDialog subclass:#PerModuleManagerSettingDialog
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	294	instanceVariableNames:'packageHolder managerNameHolder availableManagers'
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	295	classVariableNames:''
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	296	poolDictionaries:''
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	297	privateIn:AbstractSettingsApplication::SourceCodeManagementSettingsAppl
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	298	!
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	299
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	300	AbstractSettingsApplication subclass:#StyleSettingsAppl
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	301	instanceVariableNames:'showStandardStylesOnly styleList selectedStyle
9163 431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	302	styleDirectoryContents infoLabelHolder noticeLabelHolder
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	303	previewVisibleHolder'
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	304	classVariableNames:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	305	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	306	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	307	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	308
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	309	AbstractSettingsApplication subclass:#SyntaxColorSettingsAppl
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	310	instanceVariableNames:'coloredText syntaxColor syntaxColors resetList resetListSelection
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	311	fullSelectorCheck syntaxColoring oldUserPreferences
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	312	syntaxFontSelector syntaxFonts syntaxElementList
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	313	syntaxElementSelection syntaxEmphasisList syntaxEmphasisSelection
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	314	emphasisDictionary resetListDictionary'
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	315	classVariableNames:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	316	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	317	privateIn:AbstractSettingsApplication
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	318	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	319
7819 30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	320	AbstractSettingsApplication subclass:#SystemBrowserSettingsAppl
10124 5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	321	instanceVariableNames:'showAcceptCancelBarInBrowser useSearchBarInBrowser
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	322	showMethodTemplate useCodeView2InTools
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	323	showEmbeddedTestRunnerInBrowser showBookmarkBar
10241 0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	324	webBrowserLikeLayout sortAndIndentClassesByInheritance
10778 c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	325	showLocalHistory showGlobalHistory useInPlaceSearchInBrowserLists
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	326	sourceCodeManagementMenuLayout'
7819 30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	327	classVariableNames:''
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	328	poolDictionaries:''
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	329	privateIn:AbstractSettingsApplication
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	330	!
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	331
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	332	AbstractSettingsApplication subclass:#SystemMessageSettingsAppl
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	333	instanceVariableNames:'classInfos vmInfo vmErrors displayErrors logDoits updChanges
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	334	changeFileName beepForInfoDialog beepForWarningDialog
9627 a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	335	beepForErrorDialog flyByHelp beepEnabled beepInEditor
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	336	toolTipAutoHideDelay'
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	337	classVariableNames:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	338	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	339	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	340	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	341
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	342	AbstractSettingsApplication subclass:#ToolsSettingsAppl
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	343	instanceVariableNames:'useNewVersionDiffBrowser transcriptBufferSize useNewInspector
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	344	showClockInLauncher useNewChangesBrowser useNewFileBrowser
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	345	useNewSystemBrowser useNewFileDialog useNewSettingsApplication
10191 500c830c6bed +useTestRunner2 Claus Gittinger <cg@exept.de> parents: 10125 diff changeset	346	useProcessMonitorV2 useSmalltalkDocumentViewer useTestRunner2
10294 123b913079b4 eclipseStyleMenus Claus Gittinger <cg@exept.de> parents: 10279 diff changeset	347	showTipOfTheDayAtStartup autoRaiseTranscript eclipseStyleMenus'
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	348	classVariableNames:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	349	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	350	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	351	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	352
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	353	!AbstractSettingsApplication class methodsFor:'documentation'!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	354
5140 36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	355	copyright
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	356	"
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	357	COPYRIGHT (c) 2002 by eXept Software AG
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	358	All Rights Reserved
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	359
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	360	This software is furnished under a license and may be used
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	361	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	362	inclusion of the above copyright notice. This software may not
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	363	be provided or otherwise made available to, or used by, any
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	364	other person. No title to or ownership of the software is
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	365	hereby transferred.
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	366	"
7557 c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	367	!
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	368
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	369	documentation
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	This is an abstract framework for settings applications.
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	372	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	373	(as an example, see SettingsDialog)
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	374	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	375	(as an example, see NewLauncher class>>defaultSettingsApplicationList)
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	typical use:
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	378
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	379	\|settingsList settingsApp\|
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	380
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	381	settingsList := NewLauncher settingsList.
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	382
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	383	settingsApp := SettingsDialog new.
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	384	'settingsApp requestor:requestingApplication'.
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	385	settingsApp installSettingsEntries:settingsList.
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	386	settingsApp allButOpen.
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	387	settingsApp window label:('ST/X Settings').
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	388	settingsApp openWindow.
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	389
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	390	"
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	391	! !
4226 44e2f83cc526 initial checkin penk parents: diff changeset	392
4292 68504047f229 * empty log message * penk parents: 4286 diff changeset	393	!AbstractSettingsApplication class methodsFor:'defaults'!
68504047f229 * empty log message * penk parents: 4286 diff changeset	394
68504047f229 * empty log message * penk parents: 4286 diff changeset	395	classResources
68504047f229 * empty log message * penk parents: 4286 diff changeset	396
68504047f229 * empty log message * penk parents: 4286 diff changeset	397	^ AbstractLauncherApplication classResources
5563 5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	398	!
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	399
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	400	resourcePackName
7872 d35c66ad7c8f comment Claus Gittinger <cg@exept.de> parents: 7846 diff changeset	401	"return the name which is used as the fileNameBase of my resource file.
d35c66ad7c8f comment Claus Gittinger <cg@exept.de> parents: 7846 diff changeset	402	Here, use the same resources as the Launcher"
d35c66ad7c8f comment Claus Gittinger <cg@exept.de> parents: 7846 diff changeset	403
5563 5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	404	^ AbstractLauncherApplication resourcePackName
9595 e4e29683ecc2 added: #subEntryRawSettingsList Claus Gittinger <cg@exept.de> parents: 9592 diff changeset	405	!
e4e29683ecc2 added: #subEntryRawSettingsList Claus Gittinger <cg@exept.de> parents: 9592 diff changeset	406
e4e29683ecc2 added: #subEntryRawSettingsList Claus Gittinger <cg@exept.de> parents: 9592 diff changeset	407	subEntryRawSettingsList
10893 b90f27b8dfd4 changed: #subEntryRawSettingsList Claus Gittinger <cg@exept.de> parents: 10811 diff changeset	408	"redefine if I have sub-settings entries"
b90f27b8dfd4 changed: #subEntryRawSettingsList Claus Gittinger <cg@exept.de> parents: 10811 diff changeset	409
9595 e4e29683ecc2 added: #subEntryRawSettingsList Claus Gittinger <cg@exept.de> parents: 9592 diff changeset	410	^ #()
e4e29683ecc2 added: #subEntryRawSettingsList Claus Gittinger <cg@exept.de> parents: 9592 diff changeset	411
e4e29683ecc2 added: #subEntryRawSettingsList Claus Gittinger <cg@exept.de> parents: 9592 diff changeset	412	"Created: / 25-10-2010 / 09:37:21 / cg"
4292 68504047f229 * empty log message * penk parents: 4286 diff changeset	413	! !
68504047f229 * empty log message * penk parents: 4286 diff changeset	414
5283 9264c15059e7 category change penk parents: 5280 diff changeset	415	!AbstractSettingsApplication class methodsFor:'interface specs'!
9264c15059e7 category change penk parents: 5280 diff changeset	416
9264c15059e7 category change penk parents: 5280 diff changeset	417	windowSpec
9264c15059e7 category change penk parents: 5280 diff changeset	418	self subclassResponsibility
9264c15059e7 category change penk parents: 5280 diff changeset	419	! !
9264c15059e7 category change penk parents: 5280 diff changeset	420
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	421	!AbstractSettingsApplication class methodsFor:'queries'!
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	422
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	423	isVisualStartable
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	424	"return true, if this application can be started via #open.
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	425	(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	426
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	427	(self == AbstractSettingsApplication) ifTrue:[^ false "I am abstract"].
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	428	^ super isVisualStartable
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	429	! !
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	430
4705 16cfb945d591 * empty log message * penk parents: 4675 diff changeset	431	!AbstractSettingsApplication methodsFor:'accessing'!
16cfb945d591 * empty log message * penk parents: 4675 diff changeset	432
9484 206c09792b80 : Claus Gittinger <cg@exept.de> parents: 9477 diff changeset	433	requestor:anotherApplication
206c09792b80 : Claus Gittinger <cg@exept.de> parents: 9477 diff changeset	434	requestor := anotherApplication.
206c09792b80 : Claus Gittinger <cg@exept.de> parents: 9477 diff changeset	435
206c09792b80 : Claus Gittinger <cg@exept.de> parents: 9477 diff changeset	436	"Modified: / 12-05-2010 / 17:16:37 / cg"
5031 86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	437	!
86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	438
86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	439	settingsDialog
86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	440	^ settingsDialog
86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	441	!
86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	442
9484 206c09792b80 : Claus Gittinger <cg@exept.de> parents: 9477 diff changeset	443	settingsDialog:aSettingsDialog
206c09792b80 : Claus Gittinger <cg@exept.de> parents: 9477 diff changeset	444	settingsDialog := aSettingsDialog.
206c09792b80 : Claus Gittinger <cg@exept.de> parents: 9477 diff changeset	445
206c09792b80 : Claus Gittinger <cg@exept.de> parents: 9477 diff changeset	446	"Modified: / 12-05-2010 / 18:44:09 / cg"
4705 16cfb945d591 * empty log message * penk parents: 4675 diff changeset	447	! !
16cfb945d591 * empty log message * penk parents: 4675 diff changeset	448
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	449	!AbstractSettingsApplication methodsFor:'actions'!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	450
4598 330907eab7e0 * empty log message * penk parents: 4581 diff changeset	451	evaluateModified
8553 0e83301fc922 Mark obsolete methods Stefan Vogel <sv@exept.de> parents: 8550 diff changeset	452	<resource: #obsolete>
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	453	self obsoleteMethodWarning.
c72e35116b13 instable state penk parents: 5040 diff changeset	454	^ self updateModifiedChannel.
4598 330907eab7e0 * empty log message * penk parents: 4581 diff changeset	455	!
330907eab7e0 * empty log message * penk parents: 4581 diff changeset	456
6782 8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	457	readSettings
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	458	self basicReadSettings.
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	459
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	460	self modifiedChannel value:false.
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	461	!
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	462
6029 40b96dc2621d * empty log message * ca parents: 6025 diff changeset	463	reopenToolsAfterChangedViewStyleSetting
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	464	\|app transcript\|
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	465
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	466	DebugView newDebugger.
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	467	transcript := Transcript current.
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	468	(transcript notNil and:[transcript isExternalStream not]) ifTrue:[
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	469	app := transcript topView application.
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	470	(app respondsTo:#reopenLauncher) ifTrue:[
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	471	app reopenLauncher.
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	472	].
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	473	].
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	474	!
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	475
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	476	saveRequest
4944 fce7d52d36da * empty log message * Claus Gittinger <cg@exept.de> parents: 4941 diff changeset	477	^ self saveRequestAsking:self askForChangeOnRelease
4941 42d9b274824d askForSaving fixed Claus Gittinger <cg@exept.de> parents: 4899 diff changeset	478	!
42d9b274824d askForSaving fixed Claus Gittinger <cg@exept.de> parents: 4899 diff changeset	479
42d9b274824d askForSaving fixed Claus Gittinger <cg@exept.de> parents: 4899 diff changeset	480	saveRequestAsking:askForChangeOnRelease
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	481	\|result\|
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	482
6383 62aec07a7f42 * empty log message * Claus Gittinger <cg@exept.de> parents: 6358 diff changeset	483	self hasUnsavedChanges ifTrue:[
4941 42d9b274824d askForSaving fixed Claus Gittinger <cg@exept.de> parents: 4899 diff changeset	484	askForChangeOnRelease ifTrue:[
8036 0c53d7d1d2cf * empty log message * Claus Gittinger <cg@exept.de> parents: 8031 diff changeset	485	result := self confirmWithCancel:(self resources
0c53d7d1d2cf * empty log message * Claus Gittinger <cg@exept.de> parents: 8031 diff changeset	486	string:'Apply changes made in %1 ?'
0c53d7d1d2cf * empty log message * Claus Gittinger <cg@exept.de> parents: 8031 diff changeset	487	with:(resources string:settingsString) allBold).
4825 97ccd5a946f4 next step penk parents: 4813 diff changeset	488	] ifFalse:[
97ccd5a946f4 next step penk parents: 4813 diff changeset	489	result := true.
97ccd5a946f4 next step penk parents: 4813 diff changeset	490	].
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	491
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	492	result isNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	493	^ false
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	494	].
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	495	result ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	496	self saveSettings
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	497	] ifFalse:[
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	498	"/ reload current settings to show the right thing when re-entering.
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	499	self readSettings
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	500	]
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	501	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	502	^ true
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	503
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	504	"Modified: / 20-09-2006 / 23:56:25 / cg"
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	505	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	506
6782 8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	507	saveSettings
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	508	self basicSaveSettings.
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	509
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	510	self modifiedChannel value:false.
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	511	!
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	512
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	513	saveSettingsIfUnsavedChangesArePresent
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	514	self hasUnsavedChanges ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	515	self saveSettings.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	516	self modifiedChannel value:false
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	517	].
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	518	!
c72e35116b13 instable state penk parents: 5040 diff changeset	519
c72e35116b13 instable state penk parents: 5040 diff changeset	520	updateModifiedChannel
c72e35116b13 instable state penk parents: 5040 diff changeset	521	self modifiedChannel value:self hasUnsavedChanges
4574 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
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	524	!AbstractSettingsApplication methodsFor:'aspects'!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	525
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	526	modifiedChannel
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	527
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	528	modifiedChannel isNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	529	modifiedChannel := false asValue.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	530	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	531	^ modifiedChannel
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	532	! !
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	533
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	534	!AbstractSettingsApplication methodsFor:'helpers'!
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	535
6782 8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	536	hasChangedAspectIn:aListOfAspects asComparedTo:anAspectProvider
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	537	"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	538	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	539	as ParserFlags.
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	540	Using this, and a list of aspect selectors replaces code like:
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	541	someone aspect1 ~= (self aspect1 value) ifTrue:[^ true].
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	542	someone aspect2 ~= (self aspect2 value) ifTrue:[^ true].
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	543	...
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	544	someone aspectN ~= (self aspectN value) ifTrue:[^ true].
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	Prerequisite:
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	547	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	548	"
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	549
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	550	aListOfAspects do:[:eachAspectSymbol \|
9797 76995c67487f comment/format in: #hasChangedAspectIn:asComparedTo: Claus Gittinger <cg@exept.de> parents: 9792 diff changeset	551	(self perform:eachAspectSymbol) value ~= (anAspectProvider perform:eachAspectSymbol) ifTrue:[
76995c67487f comment/format in: #hasChangedAspectIn:asComparedTo: Claus Gittinger <cg@exept.de> parents: 9792 diff changeset	552	"/Transcript showCR:'different: ',eachAspectSymbol.
76995c67487f comment/format in: #hasChangedAspectIn:asComparedTo: Claus Gittinger <cg@exept.de> parents: 9792 diff changeset	553	"/Transcript showCR:'here: ',(self perform:eachAspectSymbol) value.
76995c67487f comment/format in: #hasChangedAspectIn:asComparedTo: Claus Gittinger <cg@exept.de> parents: 9792 diff changeset	554	"/Transcript showCR:'there: ',(anAspectProvider perform:eachAspectSymbol) value.
76995c67487f comment/format in: #hasChangedAspectIn:asComparedTo: Claus Gittinger <cg@exept.de> parents: 9792 diff changeset	555	^ true
76995c67487f comment/format in: #hasChangedAspectIn:asComparedTo: Claus Gittinger <cg@exept.de> parents: 9792 diff changeset	556	].
6782 8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	557	].
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	558	^ false
9797 76995c67487f comment/format in: #hasChangedAspectIn:asComparedTo: Claus Gittinger <cg@exept.de> parents: 9792 diff changeset	559
76995c67487f comment/format in: #hasChangedAspectIn:asComparedTo: Claus Gittinger <cg@exept.de> parents: 9792 diff changeset	560	"Modified: / 23-03-2011 / 15:45:11 / cg"
6782 8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	561	!
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	562
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	563	readAspects:aListOfAspects from:anAspectProvider
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	564	"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	565	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	566	as ParserFlags.
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	567	Using this, and a list of aspect selectors replaces code like:
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	568	self aspect1 value:(someone aspect1).
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	569	self aspect2 value:(someone aspect2).
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	570	...
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	571	self aspectN value:(someone aspectN).
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	572	Prerequisite:
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	573	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	574	"
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	575
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	576	aListOfAspects do:[:eachAspectSymbol \|
9738 7dd722970a40 changed: #readAspects:from: Claus Gittinger <cg@exept.de> parents: 9657 diff changeset	577	(self perform:eachAspectSymbol)
7dd722970a40 changed: #readAspects:from: Claus Gittinger <cg@exept.de> parents: 9657 diff changeset	578	value:(anAspectProvider perform:eachAspectSymbol)
7dd722970a40 changed: #readAspects:from: Claus Gittinger <cg@exept.de> parents: 9657 diff changeset	579	withoutNotifying:self
7dd722970a40 changed: #readAspects:from: Claus Gittinger <cg@exept.de> parents: 9657 diff changeset	580	].
7dd722970a40 changed: #readAspects:from: Claus Gittinger <cg@exept.de> parents: 9657 diff changeset	581
7dd722970a40 changed: #readAspects:from: Claus Gittinger <cg@exept.de> parents: 9657 diff changeset	582	"Modified: / 08-02-2011 / 09:11:03 / cg"
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	583	!
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	584
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	585	writeAspects:aListOfAspects to:anAspectProvider
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	586	"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	587	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	588	as ParserFlags.
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	589	Using this, and a list of aspect selectors replaces code like:
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	590	someone aspect1:(self aspect1 value).
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	591	someone aspect2:(self aspect2 value).
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	592	...
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	593	someone aspectN:(self aspectN value).
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	594	Prerequisite:
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	595	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	596	"
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	597
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	598	aListOfAspects do:[:eachAspectSymbol \|
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	599	anAspectProvider perform:(eachAspectSymbol,':')asSymbol with:(self perform:eachAspectSymbol) value
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	600	].
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	601
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	602	"Modified: / 24-08-2010 / 16:52:42 / sr"
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	603	! !
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	604
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	605	!AbstractSettingsApplication methodsFor:'initialization'!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	606
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	607	initialize
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	608	super initialize.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	609	resources := self class classResources.
9484 206c09792b80 : Claus Gittinger <cg@exept.de> parents: 9477 diff changeset	610	currentUserPrefs isNil ifTrue:[ self initializeCurrentUserPreferences ].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	611	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	612	"/ self readSettings.
9484 206c09792b80 : Claus Gittinger <cg@exept.de> parents: 9477 diff changeset	613
206c09792b80 : Claus Gittinger <cg@exept.de> parents: 9477 diff changeset	614	"Modified: / 12-05-2010 / 17:27:44 / cg"
6125 09320e47ccb2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6108 diff changeset	615	!
09320e47ccb2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6108 diff changeset	616
09320e47ccb2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6108 diff changeset	617	initializeCurrentUserPreferences
09320e47ccb2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6108 diff changeset	618	currentUserPrefs := UserPreferences current.
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	619	! !
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	620
5078 9fafc6b058bc new middleButtonMenu for remove service in SettingsDialog penk parents: 5076 diff changeset	621	!AbstractSettingsApplication methodsFor:'menu'!
9fafc6b058bc new middleButtonMenu for remove service in SettingsDialog penk parents: 5076 diff changeset	622
5080 9c9736712295 middleButtonMenu fix penk parents: 5078 diff changeset	623	settingsDialogPopUpMenu
5078 9fafc6b058bc new middleButtonMenu for remove service in SettingsDialog penk parents: 5076 diff changeset	624	^ nil
9fafc6b058bc new middleButtonMenu for remove service in SettingsDialog penk parents: 5076 diff changeset	625	! !
9fafc6b058bc new middleButtonMenu for remove service in SettingsDialog penk parents: 5076 diff changeset	626
4324 289972d3e455 * empty log message * penk parents: 4319 diff changeset	627	!AbstractSettingsApplication methodsFor:'protocol'!
289972d3e455 * empty log message * penk parents: 4319 diff changeset	628
4873 3ffb8a8812ec * empty log message * penk parents: 4851 diff changeset	629	askForChangeOnRelease
5011 42d7fed9da6a ask for changes Claus Gittinger <cg@exept.de> parents: 4986 diff changeset	630	^ true "/ false
4825 97ccd5a946f4 next step penk parents: 4813 diff changeset	631	!
97ccd5a946f4 next step penk parents: 4813 diff changeset	632
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	633	basicReadSettings
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	634	self subclassResponsibility
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	635	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	636
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	637	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	638
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	639	self subclassResponsibility.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	640	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	641
4324 289972d3e455 * empty log message * penk parents: 4319 diff changeset	642	help
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	643	\|filename\|
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	644
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	645	filename := self helpFilename.
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	646	filename isNil ifTrue:[
8031 ba64e63d66ae national language strings Claus Gittinger <cg@exept.de> parents: 8009 diff changeset	647	self warn:(self resources string:'Sorry - no Help available here.').
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	648	^ self.
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	649	].
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	650	self withWaitCursorDo:[
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	651	HTMLDocumentView openFullOnHelpFile:filename
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	652	].
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	653	!
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	654
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	655	helpFilename
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	656	"subclasses must return the relative name of a helpFile
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	657	in the doc/online/<language>/help directory.
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	658	Or nil, if no help is available."
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	659
8031 ba64e63d66ae national language strings Claus Gittinger <cg@exept.de> parents: 8009 diff changeset	660	Smalltalk isStandAloneApp ifFalse:[
ba64e63d66ae national language strings Claus Gittinger <cg@exept.de> parents: 8009 diff changeset	661	self subclassResponsibility.
ba64e63d66ae national language strings Claus Gittinger <cg@exept.de> parents: 8009 diff changeset	662	].
ba64e63d66ae national language strings Claus Gittinger <cg@exept.de> parents: 8009 diff changeset	663	^ nil.
4226 44e2f83cc526 initial checkin penk parents: diff changeset	664	! !
44e2f83cc526 initial checkin penk parents: diff changeset	665
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	666	!AbstractSettingsApplication methodsFor:'queries'!
1bde09704293 * empty log message * penk parents: 4893 diff changeset	667
6358 582d839d5b93 * empty log message * Claus Gittinger <cg@exept.de> parents: 6346 diff changeset	668	hasUnsavedChanges
582d839d5b93 * empty log message * Claus Gittinger <cg@exept.de> parents: 6346 diff changeset	669
582d839d5b93 * empty log message * Claus Gittinger <cg@exept.de> parents: 6346 diff changeset	670	^ self subclassResponsibility
582d839d5b93 * empty log message * Claus Gittinger <cg@exept.de> parents: 6346 diff changeset	671	!
582d839d5b93 * empty log message * Claus Gittinger <cg@exept.de> parents: 6346 diff changeset	672
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	673	isEnabledInSettingsDialog:aSettingsDialog
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	674	^ true
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	675
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	676	"Created: / 25-01-2007 / 16:47:45 / cg"
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	677	!
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	678
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	679	itemPathName
6389 9f4010737320 code cleanup Claus Gittinger <cg@exept.de> parents: 6383 diff changeset	680	^ settingsDialog getNameOfApplication:self.
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	681	! !
1bde09704293 * empty log message * penk parents: 4893 diff changeset	682
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	683	!AbstractSettingsApplication::BuildSettingsAppl class methodsFor:'image specs'!
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	684
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	685	defaultIcon
7838 dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	686	<resource: #programImage>
dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	687
9803 ca480beae977 set icon resource Stefan Vogel <sv@exept.de> parents: 9797 diff changeset	688	^ AbstractSettingsApplication::ByteCodeCompilerSettingsAppl defaultIcon
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	689
7838 dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	690	"Modified: / 17-09-2007 / 11:35:02 / cg"
7173 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	!AbstractSettingsApplication::BuildSettingsAppl class methodsFor:'interface specs'!
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	windowSpec
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	696	"This resource specification was automatically generated
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	697	by the UIPainter of ST/X."
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	698
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	699	"Do not manually edit this!! If it is corrupted,
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	700	the UIPainter may not be able to read the specification."
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	701
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	702	"
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	703	UIPainter new openOnClass:AbstractSettingsApplication::BuildSettingsAppl andSelector:#windowSpec
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	704	AbstractSettingsApplication::BuildSettingsAppl new openInterface:#windowSpec
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	705	AbstractSettingsApplication::BuildSettingsAppl open
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	706	"
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	707
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	708	<resource: #canvas>
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	709
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	710	^
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	711	#(FullSpec
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	712	name: windowSpec
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	713	window:
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	714	(WindowSpec
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	715	label: 'Build Settings'
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	716	name: 'Build Settings'
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	717	min: (Point 10 10)
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	718	bounds: (Rectangle 0 0 659 551)
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	719	)
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	720	component:
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	721	(SpecCollection
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	722	collection: (
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	723	(VerticalPanelViewSpec
8296 34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	724	name: 'VerticalPanel3'
8947 d70205e7b1cc * empty log message * Claus Gittinger <cg@exept.de> parents: 8922 diff changeset	725	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	726	horizontalLayout: fit
8296 34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	727	verticalLayout: top
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	728	horizontalSpace: 3
8296 34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	729	verticalSpace: 4
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	730	component:
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	731	(SpecCollection
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	732	collection: (
8296 34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	733	(FramedBoxSpec
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	734	label: 'Build Directory'
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	735	name: 'FramedBox1'
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	736	labelPosition: topLeft
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	737	translateLabel: true
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	738	component:
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	739	(SpecCollection
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	740	collection: (
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	741	(ViewSpec
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	742	name: 'Build Directory'
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	743	layout: (LayoutFrame 0 0 0 0 0 1 30 0)
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	744	component:
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	745	(SpecCollection
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	746	collection: (
8296 34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	747	(LabelSpec
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	748	label: 'Build Directory:'
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	749	name: 'BuildDirDirLabel'
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	750	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	751	translateLabel: true
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	752	adjust: right
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	753	)
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	754	(FilenameInputFieldSpec
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	755	name: 'FilenameEntryField1'
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	756	layout: (LayoutFrame 221 0 0 0 0 1 22 0)
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	757	enableChannel: localBuild
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	758	model: buildDirectory
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	759	acceptOnReturn: true
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	760	acceptOnTab: true
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	761	acceptOnLostFocus: true
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	762	acceptOnPointerLeave: true
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	763	viewClassName: FilenameWidgetWithHistory
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	764	postBuildCallback: postBuildDirectoryField:
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	765	)
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	766	)
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	767
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	768	)
8296 34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	769	)
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	770	(HorizontalPanelViewSpec
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	771	name: 'ActionsHorizontalPanel'
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	772	layout: (LayoutFrame 62 0.25 27 0 0 1 56 0)
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	773	horizontalLayout: fitSpace
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	774	verticalLayout: center
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	775	horizontalSpace: 3
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	776	verticalSpace: 3
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	777	component:
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	778	(SpecCollection
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	779	collection: (
8296 34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	780	(ActionButtonSpec
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	781	label: 'Cleanup Build Directory'
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	782	name: 'CleanupBuildDirectoryButton'
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	783	translateLabel: true
8296 34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	784	tabable: true
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	785	model: cleanupBuildDirectory
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	786	extent: (Point 401 22)
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	787	)
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	788	)
7720 a15569db7548 tabability Claus Gittinger <cg@exept.de> parents: 7608 diff changeset	789
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	790	)
8296 34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	791	)
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	792	)
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	793
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	extent: (Point 659 91)
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	(ViewSpec
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	798	name: 'LocalBuild'
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	799	component:
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	800	(SpecCollection
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	801	collection: (
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	802	(CheckBoxSpec
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	803	label: 'Local Build (Do not use Repository)'
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	804	name: 'CheckBox4'
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	805	layout: (LayoutFrame 2 0 5 0 -5 1 27 0)
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	806	enableChannel: hasSourceCodeManager
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	807	model: localBuild
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	808	translateLabel: true
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	809	)
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	810	)
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	811
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	812	)
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	813	extent: (Point 659 25)
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	814	)
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	815	)
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	816
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	817	)
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	818	)
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	819	)
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	)
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	823	! !
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	824
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	825	!AbstractSettingsApplication::BuildSettingsAppl methodsFor:'actions'!
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	826
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	827	basicReadSettings
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	828	self
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	829	readAspects:
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	830	#(
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	831	buildDirectory
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	832	localBuild
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	833	)
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	834	from:currentUserPrefs.
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	835	!
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	836
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	837	basicSaveSettings
7962 ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	838	\|buildDir\|
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	839
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	840	buildDir := buildDirectory value.
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	841	buildDir notEmptyOrNil ifTrue:[
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	842	buildDir := buildDir asFilename.
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	843	buildDir isDirectory ifFalse:[
8208 8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	844	(Dialog confirm:(resources
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	845	stringWithCRs:'Build directory %1 does not exist.\\Create?'
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	846	with:buildDir pathName allBold))
7962 ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	847	ifTrue:[
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	848	buildDir makeDirectory.
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	].
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	851	].
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	852
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	853	self
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	854	writeAspects:
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	855	#(
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	856	buildDirectory
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	857	localBuild
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	858	)
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	859	to:currentUserPrefs.
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
7962 ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	862	cleanupBuildDirectory
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	863	\|buildDir\|
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	864
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	865	buildDir := buildDirectory value.
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	866	buildDir isEmptyOrNil ifTrue:[
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	867	^ self.
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	868	].
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	869	buildDir := buildDir asFilename.
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	870	(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	871	buildDir recursiveRemove.
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	872	buildDir makeDirectory.
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	873	].
7173 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
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	876	!AbstractSettingsApplication::BuildSettingsAppl methodsFor:'aspects'!
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	877
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	878	buildDirectory
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	879	buildDirectory isNil ifTrue:[
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	880	buildDirectory := ValueHolder new.
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	881	buildDirectory onChangeSend:#updateModifiedChannel to:self
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	882	].
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	883	^ buildDirectory.
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	884	!
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	885
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	886	hasSourceCodeManager
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	887	^ SourceCodeManager notNil
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	888	!
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	889
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	890	localBuild
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	891	localBuild isNil ifTrue:[
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	892	localBuild := UserPreferences current localBuild asValue.
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	893	localBuild onChangeSend:#updateModifiedChannel to:self
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	894	].
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	895	^ localBuild.
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	896	! !
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	897
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	898	!AbstractSettingsApplication::BuildSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	899
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	900	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	901	^ 'Launcher/buildSetup.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	902	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	903
8208 8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	904	!AbstractSettingsApplication::BuildSettingsAppl methodsFor:'initialization'!
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	905
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	906	postBuildDirectoryField:aField
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	907	aField historyList value:(Array
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	908	with:(OperatingSystem getHomeDirectory asFilename construct:'stx_build') pathName
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	909	with:(Filename currentDirectory construct:'stx_build') pathName)
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	910	! !
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	911
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	912	!AbstractSettingsApplication::BuildSettingsAppl methodsFor:'queries'!
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	913
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	914	hasUnsavedChanges
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	915	(self
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	916	hasChangedAspectIn:
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	917	#(
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	918	buildDirectory
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	919	localBuild
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	920	)
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	921	asComparedTo:currentUserPrefs) ifTrue:[^ true].
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	922
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	923	^ false
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	924	! !
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	925
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	926	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class methodsFor:'defaults'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	927
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	928	constantFoldingOptions
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	929
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	930	^ #( nil #level1 #level2 #full )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	931	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	932
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	933	constantFoldingStrings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	934
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	935	^ #('disabled' 'level1 (always safe)' 'level2 (usually safe)' 'full')
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	936	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	937
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	938	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class methodsFor:'image specs'!
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	939
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	940	defaultIcon
7838 dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	941	<resource: #programImage>
dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	942
8208 8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	943	^ self defaultIcon5
7838 dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	944
dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	945	"Modified: / 17-09-2007 / 11:35:05 / cg"
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	946	!
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	947
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	948	defaultIcon1
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	949	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	950	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	951
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	952	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	953	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	954
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	955	"
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	956	self defaultIcon1 inspect
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	957	ImageEditor openOnClass:self andSelector:#defaultIcon1
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	958	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	959	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	960
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	961	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	962
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	963	^Icon
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	964	constantNamed:#'AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class defaultIcon1'
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	965	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	966	@@@@@@@@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	967	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	968	!
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	defaultIcon2
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	971	"This resource specification was automatically generated
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	972	by the ImageEditor of ST/X."
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	973
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	974	"Do not manually edit this!! If it is corrupted,
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	975	the ImageEditor may not be able to read the specification."
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	976
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	977	"
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	978	self defaultIcon2 inspect
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	979	ImageEditor openOnClass:self andSelector:#defaultIcon2
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	980	Icon flushCachedIcons
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
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	983	<resource: #image>
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	984
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	985	^Icon
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	986	constantNamed:#'AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class defaultIcon2'
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	987	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	988	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	989	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	990	@@@@@@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	991	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	992	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	993	@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	994	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	995	!
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	996
8208 8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	997	defaultIcon5
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	998	"This resource specification was automatically generated
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	999	by the ImageEditor of ST/X."
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	1000
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	1001	"Do not manually edit this!! If it is corrupted,
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	1002	the ImageEditor may not be able to read the specification."
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	1003
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	1004	"
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	1005	self defaultIcon5 inspect
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	1006	ImageEditor openOnClass:self andSelector:#defaultIcon5
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	1007	Icon flushCachedIcons
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	1008	"
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	1009
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	1010	<resource: #image>
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	1011
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	1012	^Icon
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	1013	constantNamed:'AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class defaultIcon5'
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	1014	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	1015	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	1016	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	1017	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	1018	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	1019	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	1020	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	1021	@@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	1022	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1023
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1024	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class methodsFor:'interface specs'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1025
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1026	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1027	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1028	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1029
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1030	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1031	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1032
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1033	"
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1034	UIPainter new openOnClass:AbstractSettingsApplication::ByteCodeCompilerSettingsAppl andSelector:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1035	AbstractSettingsApplication::ByteCodeCompilerSettingsAppl new openInterface:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1036	AbstractSettingsApplication::ByteCodeCompilerSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1037	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1038
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1039	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1040
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1041	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1042	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1043	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1044	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1045	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1046	label: 'Byte Code Compiler Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1047	name: 'Byte Code Compiler Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1048	min: (Point 10 10)
8972 6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	1049	bounds: (Rectangle 0 0 665 706)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1050	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1051	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1052	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1053	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1054	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1055	name: 'VerticalPanel1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1056	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	1057	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1058	verticalLayout: top
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1059	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1060	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1061	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1062	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1063	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1064	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1065	label: 'Just in Time Compilation to Machine Code'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1066	name: 'JustInTimeCompilation'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1067	model: justInTimeCompilation
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1068	translateLabel: true
6473 d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	1069	extent: (Point 665 25)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1070	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1071	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1072	name: 'Separator3'
6473 d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	1073	extent: (Point 665 3)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1074	)
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1075	(ViewSpec
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1076	name: 'Box1'
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1077	component:
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1078	(SpecCollection
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1079	collection: (
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1080	(VerticalPanelViewSpec
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1081	name: 'VerticalPanel1_1'
8972 6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	1082	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	1083	horizontalLayout: fit
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1084	verticalLayout: top
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1085	horizontalSpace: 3
8376 63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	1086	verticalSpace: 0
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1087	component:
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1088	(SpecCollection
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1089	collection: (
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1090	(CheckBoxSpec
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1091	label: 'Allow Underscore in Identifiers'
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1092	name: 'AllowUnderscoreInIdentifiers'
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1093	model: allowUnderscoreInIdentifier
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1094	translateLabel: true
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1095	extent: (Point 313 22)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1096	)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1097	(CheckBoxSpec
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1098	label: 'Allow Dollar in Identifiers'
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1099	name: 'AllowDollarInIdentifiers'
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1100	model: allowDollarInIdentifier
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1101	translateLabel: true
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1102	extent: (Point 313 22)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1103	)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1104	(CheckBoxSpec
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1105	label: 'Allow VW3 QualifiedNames'
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1106	name: 'AllowVW3QualifiedNames'
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1107	model: allowQualifiedNames
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1108	translateLabel: true
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1109	extent: (Point 313 22)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1110	)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1111	(CheckBoxSpec
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1112	label: 'Allow OldStyle Assignment (_)'
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1113	name: 'AllowOldStyleAssignment'
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1114	model: allowOldStyleAssignment
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1115	translateLabel: true
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1116	extent: (Point 313 22)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1117	)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1118	(CheckBoxSpec
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1119	label: 'Allow Reserved Words as Selector (self)'
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1120	name: 'AllowReservedWordsAsSelector'
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1121	model: allowReservedWordsAsSelectors
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1122	translateLabel: true
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1123	extent: (Point 313 22)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1124	)
8972 6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	1125	(CheckBoxSpec
6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	1126	label: 'Allow Extended Binary Selectors'
6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	1127	name: 'CheckBox4'
6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	1128	model: allowExtendedBinarySelectors
6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	1129	translateLabel: true
6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	1130	extent: (Point 313 22)
6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	1131	)
10698 61d63b339b4e allowAssignmentToPoolVariable Claus Gittinger <cg@exept.de> parents: 10582 diff changeset	1132	(CheckBoxSpec
61d63b339b4e allowAssignmentToPoolVariable Claus Gittinger <cg@exept.de> parents: 10582 diff changeset	1133	label: 'Allow Assignment to Pool Variable'
61d63b339b4e allowAssignmentToPoolVariable Claus Gittinger <cg@exept.de> parents: 10582 diff changeset	1134	name: 'CheckBox6'
61d63b339b4e allowAssignmentToPoolVariable Claus Gittinger <cg@exept.de> parents: 10582 diff changeset	1135	model: allowAssignmentToPoolVariable
61d63b339b4e allowAssignmentToPoolVariable Claus Gittinger <cg@exept.de> parents: 10582 diff changeset	1136	translateLabel: true
61d63b339b4e allowAssignmentToPoolVariable Claus Gittinger <cg@exept.de> parents: 10582 diff changeset	1137	extent: (Point 313 22)
61d63b339b4e allowAssignmentToPoolVariable Claus Gittinger <cg@exept.de> parents: 10582 diff changeset	1138	)
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1139	)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1140
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1141	)
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	(VerticalPanelViewSpec
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1144	name: 'VerticalPanel1_2'
8972 6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	1145	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	1146	horizontalLayout: left
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1147	verticalLayout: top
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1148	horizontalSpace: 3
8376 63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	1149	verticalSpace: 0
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1150	component:
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1151	(SpecCollection
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1152	collection: (
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1153	(CheckBoxSpec
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1154	label: 'Allow Squeak Extensions'
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1155	name: 'AllowSqueakExtensions'
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1156	model: allowSqueakExtensions
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1157	translateLabel: true
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1158	extent: (Point 665 22)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1159	)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1160	(CheckBoxSpec
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1161	label: 'Allow Dolphin Extensions'
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1162	name: 'AllowDolphinExtensions'
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1163	model: allowDolphinExtensions
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1164	translateLabel: true
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1165	extent: (Point 665 22)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1166	)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1167	(CheckBoxSpec
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1168	label: 'Allow VisualAge ES-Symbols'
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1169	name: 'AllowVisualAgeESSymbolLiterals'
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1170	model: allowVisualAgeESSymbolLiterals
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1171	translateLabel: true
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1172	extent: (Point 665 22)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1173	)
6578 560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	1174	(CheckBoxSpec
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	1175	label: 'Allow FixedPoint-Number Literals'
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	1176	name: 'AllowFixedPointLiterals'
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	1177	model: allowFixedPointLiterals
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	1178	translateLabel: true
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	1179	extent: (Point 665 22)
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	1180	)
7532 835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1181	(CheckBoxSpec
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1182	label: 'Allow Empty Statements'
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1183	name: 'AllowEmptyStatements'
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1184	model: allowEmptyStatements
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1185	translateLabel: true
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1186	extent: (Point 665 22)
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1187	)
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1188	)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1189
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1190	)
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	)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1193
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1194	)
10698 61d63b339b4e allowAssignmentToPoolVariable Claus Gittinger <cg@exept.de> parents: 10582 diff changeset	1195	extent: (Point 665 157)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1196	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1197	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1198	name: 'Separator4'
7979 2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	1199	extent: (Point 665 1)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1200	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1201	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1202	label: 'Warnings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1203	name: 'Warnings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1204	model: warnings
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1205	translateLabel: true
6473 d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	1206	extent: (Point 665 22)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1207	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1208	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1209	name: 'Box2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1210	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1211	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1212	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1213	(VerticalPanelViewSpec
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1214	name: 'VerticalPanel2_1'
8972 6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	1215	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	1216	horizontalLayout: fit
6497 a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1217	verticalLayout: top
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1218	horizontalSpace: 3
8376 63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	1219	verticalSpace: 0
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1220	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1221	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1222	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1223	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1224	label: 'ST/X Extensions'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1225	name: 'STXExtensions'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1226	enableChannel: warnings
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1227	model: warnSTXSpecials
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1228	translateLabel: true
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1229	extent: (Point 313 22)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1230	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1231	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1232	label: 'Underscores in Identifiers'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1233	name: 'UnderscoresInIdentifiers'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1234	enableChannel: enableUnderscore
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1235	model: warnUnderscoreInIdentifier
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1236	translateLabel: true
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1237	extent: (Point 313 22)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1238	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1239	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1240	label: 'Dollars in Identifiers'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1241	name: 'DollarsInIdentifiers'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1242	enableChannel: enableDollar
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1243	model: warnDollarInIdentifier
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1244	translateLabel: true
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1245	extent: (Point 313 22)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1246	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1247	(CheckBoxSpec
6497 a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1248	label: 'OldStyle Assignment'
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1249	name: 'OldStyleAssignment'
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1250	enableChannel: warnings
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1251	model: warnOldStyleAssignment
6497 a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1252	translateLabel: true
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1253	extent: (Point 313 22)
6497 a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1254	)
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1255	(CheckBoxSpec
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1256	label: 'Possible Incompatibilities'
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1257	name: 'PossibleIncompatibilities'
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1258	enableChannel: warnings
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1259	model: warnPossibleIncompatibilities
6497 a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1260	translateLabel: true
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1261	extent: (Point 313 22)
6497 a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1262	)
7532 835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1263	(CheckBoxSpec
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1264	label: 'Possible STC Compilation Problems'
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1265	name: 'PossibleSTCCompilationProblems'
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1266	enableChannel: warnings
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1267	model: warnAboutPossibleSTCCompilationProblems
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1268	translateLabel: true
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1269	extent: (Point 313 22)
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1270	)
7979 2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	1271	(CheckBoxSpec
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	1272	label: 'Reference to Private Class'
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	1273	name: 'CheckBox1'
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	1274	enableChannel: warnings
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	1275	model: warnAboutReferenceToPrivateClass
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	1276	translateLabel: true
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	1277	extent: (Point 313 22)
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	1278	)
8376 63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	1279	(CheckBoxSpec
63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	1280	label: 'Possibly Unimplemented Selectors'
63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	1281	name: 'CheckBox3'
63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	1282	enableChannel: warnings
63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	1283	model: warnAboutPossiblyUnimplementedSelectors
63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	1284	translateLabel: true
63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	1285	extent: (Point 313 22)
63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	1286	)
6497 a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1287	)
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1288
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1289	)
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1290	)
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1291	(VerticalPanelViewSpec
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1292	name: 'VerticalPanel2_2'
8972 6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	1293	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	1294	horizontalLayout: left
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1295	verticalLayout: top
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1296	horizontalSpace: 3
8376 63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	1297	verticalSpace: 0
6497 a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1298	component:
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1299	(SpecCollection
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1300	collection: (
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1301	(CheckBoxSpec
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1302	label: 'Unused Method Variables'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1303	name: 'UnusedMethodVariables'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1304	enableChannel: warnings
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1305	model: warnUnusedVars
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1306	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1307	extent: (Point 600 22)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1308	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1309	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1310	label: 'Common Mistakes'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1311	name: 'CommonMistakes'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1312	enableChannel: warnings
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1313	model: warnCommonMistakes
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1314	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1315	extent: (Point 600 22)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1316	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1317	(CheckBoxSpec
6497 a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1318	label: 'Bad (non-English) Variable Names'
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1319	name: 'BadVariableNames'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1320	enableChannel: warnings
6497 a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1321	model: warnAboutWrongVariableNames
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1322	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1323	extent: (Point 600 22)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1324	)
6473 d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	1325	(CheckBoxSpec
7440 dd060c4f1071 * empty log message * Claus Gittinger <cg@exept.de> parents: 7430 diff changeset	1326	label: 'Bad (Non-Lowercase) Local Variable Names'
6769 4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	1327	name: 'BadLocalVariableNames'
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	1328	enableChannel: warnings
7440 dd060c4f1071 * empty log message * Claus Gittinger <cg@exept.de> parents: 7430 diff changeset	1329	model: warnAboutNonLowercaseLocalVariableNames
6769 4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	1330	translateLabel: true
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	1331	extent: (Point 600 22)
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	1332	)
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	1333	(CheckBoxSpec
8009 f8f508ce1dbb +warnAboutShortVariableNames Claus Gittinger <cg@exept.de> parents: 8007 diff changeset	1334	label: 'Bad (Short) Local Variable Names'
f8f508ce1dbb +warnAboutShortVariableNames Claus Gittinger <cg@exept.de> parents: 8007 diff changeset	1335	name: 'CheckBox2'
f8f508ce1dbb +warnAboutShortVariableNames Claus Gittinger <cg@exept.de> parents: 8007 diff changeset	1336	enableChannel: warnings
f8f508ce1dbb +warnAboutShortVariableNames Claus Gittinger <cg@exept.de> parents: 8007 diff changeset	1337	model: warnAboutShortLocalVariableNames
f8f508ce1dbb +warnAboutShortVariableNames Claus Gittinger <cg@exept.de> parents: 8007 diff changeset	1338	translateLabel: true
f8f508ce1dbb +warnAboutShortVariableNames Claus Gittinger <cg@exept.de> parents: 8007 diff changeset	1339	extent: (Point 600 22)
f8f508ce1dbb +warnAboutShortVariableNames Claus Gittinger <cg@exept.de> parents: 8007 diff changeset	1340	)
f8f508ce1dbb +warnAboutShortVariableNames Claus Gittinger <cg@exept.de> parents: 8007 diff changeset	1341	(CheckBoxSpec
6497 a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1342	label: 'Bad (empty) Comments'
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1343	name: 'BadComments'
6473 d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	1344	enableChannel: warnings
6497 a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1345	model: warnAboutBadComments
6473 d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	1346	translateLabel: true
d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	1347	extent: (Point 600 22)
d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	1348	)
6580 db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	1349	(CheckBoxSpec
9522 4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	1350	label: 'Method-Comment Missing '
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	1351	name: 'CheckBox5'
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	1352	enableChannel: warnings
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	1353	model: warnAboutMissingMethodComment
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	1354	translateLabel: true
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	1355	extent: (Point 600 22)
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	1356	)
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	1357	(CheckBoxSpec
6580 db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	1358	label: 'Inconsistent Return Values'
db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	1359	name: 'InconsistentReturnValues'
db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	1360	enableChannel: warnings
db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	1361	model: warnInconsistentReturnValues
db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	1362	translateLabel: true
db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	1363	extent: (Point 600 22)
db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	1364	)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1365	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1366
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1367	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1368	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1369	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1370
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1371	)
8376 63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	1372	extent: (Point 665 181)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1373	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1374	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1375	name: 'Separator5'
6473 d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	1376	extent: (Point 665 2)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1377	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1378	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1379	label: 'Literal Arrays are Immutable'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1380	name: 'LiteralArraysAreImmutable'
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1381	model: arraysAreImmutable
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1382	translateLabel: true
6473 d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	1383	extent: (Point 665 22)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1384	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1385	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1386	label: 'Full Debug Info'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1387	name: 'FullDebugInfo'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1388	model: fullDebugSupport
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1389	translateLabel: true
6473 d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	1390	extent: (Point 665 22)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1391	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1392	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1393	name: 'Separator6'
6473 d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	1394	extent: (Point 665 2)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1395	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1396	(ViewSpec
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1397	name: 'Box3'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1398	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1399	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1400	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1401	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1402	label: 'Constant Folding:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1403	name: 'ConstantFoldingLabel'
9522 4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	1404	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	1405	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1406	adjust: right
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1407	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1408	(PopUpListSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1409	label: 'PopUp List'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1410	name: 'ConstantFolding'
9522 4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	1411	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	1412	tabable: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1413	model: constantFoldingSelection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1414	menu: constantFolding
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1415	useIndex: true
4428 00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	1416	)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	1417	)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	1418
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	1419	)
6473 d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	1420	extent: (Point 665 22)
4428 00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	1421	)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1422	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1423
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1424	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1425	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1426	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1427
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1428	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1429	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1430	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1431
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1432	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'actions'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1433
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1434	basicReadSettings
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	1435	self
7532 835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1436	readAspects:(self simpleAspects)
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	1437	from:ParserFlags.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1438
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1439	self constantFoldingSelection
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1440	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	1441
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1442	self supportsJustInTimeCompilation ifTrue:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1443	self fullDebugSupport value:(ObjectMemory fullSingleStepSupport ? false)
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1444	] ifFalse:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1445	self fullDebugSupport value:(Compiler lineNumberInfo == #full)
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1446	].
9522 4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	1447
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1448	self supportsJustInTimeCompilation ifTrue:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1449	self justInTimeCompilation value:(ObjectMemory justInTimeCompilation ? false)
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1450	] ifFalse:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1451	self justInTimeCompilation value:false
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1452	].
7440 dd060c4f1071 * empty log message * Claus Gittinger <cg@exept.de> parents: 7430 diff changeset	1453
9522 4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	1454	self warnAboutMissingMethodComment value:(UserPreferences current enforceComment).
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	1455
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	1456	"Modified: / 17-07-2010 / 14:48:38 / cg"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1457	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1458
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1459	basicSaveSettings
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	1460	self
7532 835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1461	writeAspects:(self simpleAspects)
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	1462	to:ParserFlags.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1463
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1464	self fullDebugSupport value ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1465	Compiler lineNumberInfo:#full.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1466	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1467	Compiler lineNumberInfo:true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1468	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1469
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1470	Compiler foldConstants:(self class constantFoldingOptions at:self constantFoldingSelection value).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1471
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1472	self supportsJustInTimeCompilation ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1473	\| justInTime \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1474	justInTime := self justInTimeCompilation value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1475	justInTime ifTrue:[
6662 3deee4183f1d code cleanup: use new Smalltalk>>allMethodsDo: Claus Gittinger <cg@exept.de> parents: 6638 diff changeset	1476	Smalltalk allMethodsDo:[:m \| m checked:false].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1477	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1478	ObjectMemory justInTimeCompilation:justInTime.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1479	ObjectMemory fullSingleStepSupport:self fullDebugSupport value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1480	].
7440 dd060c4f1071 * empty log message * Claus Gittinger <cg@exept.de> parents: 7430 diff changeset	1481
9522 4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	1482	UserPreferences current enforceComment:(self warnAboutMissingMethodComment value).
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	1483
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	1484	"Modified: / 17-07-2010 / 14:48:57 / cg"
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1485	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1486
7532 835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1487	simpleAspects
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1488	^
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1489	#(
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1490	warnings
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1491	warnCommonMistakes
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1492	warnPossibleIncompatibilities
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1493	warnDollarInIdentifier
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1494	warnOldStyleAssignment
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1495	warnSTXSpecials
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1496	warnUnderscoreInIdentifier
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1497	warnUnusedVars
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1498	warnAboutWrongVariableNames
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1499	warnAboutBadComments
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1500	warnInconsistentReturnValues
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1501	warnAboutNonLowercaseLocalVariableNames
8009 f8f508ce1dbb +warnAboutShortVariableNames Claus Gittinger <cg@exept.de> parents: 8007 diff changeset	1502	warnAboutShortLocalVariableNames
7532 835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1503	warnAboutPossibleSTCCompilationProblems
7979 2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	1504	warnAboutReferenceToPrivateClass
8376 63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	1505	warnAboutPossiblyUnimplementedSelectors
7532 835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1506
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1507	allowDollarInIdentifier
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1508	allowDolphinExtensions
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1509	allowOldStyleAssignment
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1510	allowQualifiedNames
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1511	allowReservedWordsAsSelectors
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1512	allowSqueakExtensions
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1513	allowUnderscoreInIdentifier
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1514	allowVisualAgeESSymbolLiterals
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1515	allowFixedPointLiterals
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1516	allowEmptyStatements
8972 6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	1517	allowExtendedBinarySelectors
7532 835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1518
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1519	arraysAreImmutable
10698 61d63b339b4e allowAssignmentToPoolVariable Claus Gittinger <cg@exept.de> parents: 10582 diff changeset	1520	allowAssignmentToPoolVariable
7532 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
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1523	"Created: / 20-11-2006 / 22:37:17 / cg"
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1524	!
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1525
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1526	stcCompilerSettings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1527
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1528	AbstractLauncherApplication::LauncherDialogs stcCompilerSettings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1529	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1530
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1531	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'aspects'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1532
10698 61d63b339b4e allowAssignmentToPoolVariable Claus Gittinger <cg@exept.de> parents: 10582 diff changeset	1533	allowAssignmentToPoolVariable
61d63b339b4e allowAssignmentToPoolVariable Claus Gittinger <cg@exept.de> parents: 10582 diff changeset	1534
61d63b339b4e allowAssignmentToPoolVariable Claus Gittinger <cg@exept.de> parents: 10582 diff changeset	1535	allowAssignmentToPoolVariable isNil ifTrue:[
61d63b339b4e allowAssignmentToPoolVariable Claus Gittinger <cg@exept.de> parents: 10582 diff changeset	1536	allowAssignmentToPoolVariable := ParserFlags allowAssignmentToPoolVariable asValue.
61d63b339b4e allowAssignmentToPoolVariable Claus Gittinger <cg@exept.de> parents: 10582 diff changeset	1537	allowAssignmentToPoolVariable onChangeSend:#updateModifiedChannel to:self.
61d63b339b4e allowAssignmentToPoolVariable Claus Gittinger <cg@exept.de> parents: 10582 diff changeset	1538	].
61d63b339b4e allowAssignmentToPoolVariable Claus Gittinger <cg@exept.de> parents: 10582 diff changeset	1539	^ allowAssignmentToPoolVariable.
61d63b339b4e allowAssignmentToPoolVariable Claus Gittinger <cg@exept.de> parents: 10582 diff changeset	1540
61d63b339b4e allowAssignmentToPoolVariable Claus Gittinger <cg@exept.de> parents: 10582 diff changeset	1541	"Created: / 12-09-2011 / 17:26:01 / cg"
61d63b339b4e allowAssignmentToPoolVariable Claus Gittinger <cg@exept.de> parents: 10582 diff changeset	1542	!
61d63b339b4e allowAssignmentToPoolVariable Claus Gittinger <cg@exept.de> parents: 10582 diff changeset	1543
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1544	allowDollarInIdentifier
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1545
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1546	allowDollar isNil ifTrue:[
8793 d92d2f7bf232 * empty log message * Claus Gittinger <cg@exept.de> parents: 8740 diff changeset	1547	allowDollar := ParserFlags allowDollarInIdentifier asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1548	allowDollar onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1549	allowDollar addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1550	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1551	^ allowDollar.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1552	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1553
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1554	allowDolphinExtensions
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1555
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1556	allowDolphinExtensions isNil ifTrue:[
8793 d92d2f7bf232 * empty log message * Claus Gittinger <cg@exept.de> parents: 8740 diff changeset	1557	allowDolphinExtensions := ParserFlags allowDolphinExtensions asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1558	allowDolphinExtensions onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1559	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1560	^ allowDolphinExtensions.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1561	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1562
7532 835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1563	allowEmptyStatements
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1564
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1565	allowEmptyStatements isNil ifTrue:[
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1566	allowEmptyStatements := ParserFlags allowEmptyStatements asValue.
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1567	allowEmptyStatements onChangeSend:#updateModifiedChannel to:self.
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1568	"/ allowEmptyStatements addDependent:self.
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1569	].
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1570	^ allowEmptyStatements.
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1571
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1572	"Created: / 20-11-2006 / 22:35:10 / cg"
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1573	!
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1574
8972 6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	1575	allowExtendedBinarySelectors
6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	1576
6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	1577	allowExtendedBinarySelectors isNil ifTrue:[
6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	1578	allowExtendedBinarySelectors := (ParserFlags allowExtendedBinarySelectors ? false) asValue.
6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	1579	allowExtendedBinarySelectors onChangeSend:#updateModifiedChannel to:self.
6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	1580	].
6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	1581	^ allowExtendedBinarySelectors.
6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	1582	!
6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	1583
6578 560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	1584	allowFixedPointLiterals
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	1585
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	1586	allowFixedPointLiterals isNil ifTrue:[
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	1587	allowFixedPointLiterals := (ParserFlags allowFixedPointLiterals ? false) asValue.
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	1588	allowFixedPointLiterals onChangeSend:#updateModifiedChannel to:self.
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	1589	].
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	1590	^ allowFixedPointLiterals.
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	1591	!
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	1592
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1593	allowOldStyleAssignment
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1594
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1595	allowOldStyleAssignment isNil ifTrue:[
8793 d92d2f7bf232 * empty log message * Claus Gittinger <cg@exept.de> parents: 8740 diff changeset	1596	allowOldStyleAssignment := ParserFlags allowOldStyleAssignment asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1597	allowOldStyleAssignment onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1598	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1599	^ allowOldStyleAssignment.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1600	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1601
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1602	allowQualifiedNames
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1603
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1604	allowQualifiedNames isNil ifTrue:[
8793 d92d2f7bf232 * empty log message * Claus Gittinger <cg@exept.de> parents: 8740 diff changeset	1605	allowQualifiedNames := ParserFlags allowQualifiedNames asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1606	allowQualifiedNames onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1607	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1608	^ allowQualifiedNames.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1609	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1610
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1611	allowReservedWordsAsSelectors
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1612
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1613	allowReservedWordsAsSelectors isNil ifTrue:[
8793 d92d2f7bf232 * empty log message * Claus Gittinger <cg@exept.de> parents: 8740 diff changeset	1614	allowReservedWordsAsSelectors := ParserFlags allowReservedWordsAsSelectors asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1615	allowReservedWordsAsSelectors onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1616	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1617	^ allowReservedWordsAsSelectors.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1618	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1619
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1620	allowSqueakExtensions
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1621
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1622	allowSqueakExtensions isNil ifTrue:[
8793 d92d2f7bf232 * empty log message * Claus Gittinger <cg@exept.de> parents: 8740 diff changeset	1623	allowSqueakExtensions := ParserFlags allowSqueakExtensions asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1624	allowSqueakExtensions onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1625	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1626	^ allowSqueakExtensions.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1627	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1628
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1629	allowUnderscoreInIdentifier
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1630
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1631	allowUnderscore isNil ifTrue:[
8793 d92d2f7bf232 * empty log message * Claus Gittinger <cg@exept.de> parents: 8740 diff changeset	1632	allowUnderscore := ParserFlags allowUnderscoreInIdentifier asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1633	allowUnderscore onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1634	allowUnderscore addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1635	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1636	^ allowUnderscore.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1637	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1638
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1639	allowVisualAgeESSymbolLiterals
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1640
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1641	allowVisualAgeESSymbolLiterals isNil ifTrue:[
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1642	allowVisualAgeESSymbolLiterals := ParserFlags allowVisualAgeESSymbolLiterals asValue.
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1643	allowVisualAgeESSymbolLiterals onChangeSend:#updateModifiedChannel to:self.
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1644	].
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1645	^ allowVisualAgeESSymbolLiterals.
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1646	!
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1647
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1648	arraysAreImmutable
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1649
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1650	immutableArrays isNil ifTrue:[
8793 d92d2f7bf232 * empty log message * Claus Gittinger <cg@exept.de> parents: 8740 diff changeset	1651	immutableArrays := ParserFlags arraysAreImmutable asValue.
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1652	immutableArrays onChangeSend:#updateModifiedChannel to:self.
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1653	].
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1654	^ immutableArrays.
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1655	!
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1656
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1657	constantFolding
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1658
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1659	constantFolding isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1660	constantFolding := (resources array:(self class constantFoldingStrings)) asList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1661	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1662	^ constantFolding.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1663	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1664
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1665	constantFoldingOptions
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1666
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1667	constantFoldingOptions isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1668	constantFoldingOptions := self class constantFoldingOptions.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1669	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1670	^ constantFoldingOptions.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1671	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1672
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1673	constantFoldingSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1674
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1675	constantFoldingSelection isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1676	\| index \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1677	index := self class constantFoldingOptions indexOf:Compiler foldConstants ifAbsent:3.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1678	constantFoldingSelection := index asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1679	constantFoldingSelection onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1680	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1681	^ constantFoldingSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1682	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1683
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1684	enableDollar
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1685
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1686	enableDollar isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1687	enableDollar := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1688	enableDollar addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1689	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1690	^ enableDollar.
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	enableUnderscore
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1694	enableUnderscore isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1695	enableUnderscore := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1696	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1697	^ enableUnderscore.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1698	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1699
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1700	fullDebugSupport
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1701
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1702	fullDebugSupport isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1703	self supportsJustInTimeCompilation ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1704	fullDebugSupport := (ObjectMemory fullSingleStepSupport ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1705	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1706	fullDebugSupport := (Compiler lineNumberInfo == #full) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1707	].
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1708	fullDebugSupport onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1709	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1710	^ fullDebugSupport.
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	justInTimeCompilation
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1714
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1715	justInTimeCompilation isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1716	self supportsJustInTimeCompilation ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1717	justInTimeCompilation := (ObjectMemory justInTimeCompilation ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1718	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1719	justInTimeCompilation := false asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1720	].
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1721	justInTimeCompilation onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1722	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1723	^ justInTimeCompilation.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1724	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1725
6497 a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1726	warnAboutBadComments
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1727	warnAboutBadComments isNil ifTrue:[
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1728	warnAboutBadComments := ParserFlags warnAboutBadComments asValue.
6497 a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1729	warnAboutBadComments onChangeSend:#updateModifiedChannel to:self.
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1730	].
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1731	^ warnAboutBadComments.
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1732	!
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1733
9522 4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	1734	warnAboutMissingMethodComment
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	1735
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	1736	warnAboutMissingMethodComment isNil ifTrue:[
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	1737	warnAboutMissingMethodComment := UserPreferences current enforceComment asValue.
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	1738	warnAboutMissingMethodComment onChangeSend:#updateModifiedChannel to:self.
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	1739	].
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	1740	^ warnAboutMissingMethodComment.
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	1741
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	1742	"Created: / 17-07-2010 / 14:39:25 / cg"
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	1743	!
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	1744
7440 dd060c4f1071 * empty log message * Claus Gittinger <cg@exept.de> parents: 7430 diff changeset	1745	warnAboutNonLowercaseLocalVariableNames
dd060c4f1071 * empty log message * Claus Gittinger <cg@exept.de> parents: 7430 diff changeset	1746	warnAboutNonLowercaseLocalVariableNames isNil ifTrue:[
dd060c4f1071 * empty log message * Claus Gittinger <cg@exept.de> parents: 7430 diff changeset	1747	warnAboutNonLowercaseLocalVariableNames := ParserFlags warnAboutNonLowercaseLocalVariableNames asValue.
dd060c4f1071 * empty log message * Claus Gittinger <cg@exept.de> parents: 7430 diff changeset	1748	warnAboutNonLowercaseLocalVariableNames onChangeSend:#updateModifiedChannel to:self.
dd060c4f1071 * empty log message * Claus Gittinger <cg@exept.de> parents: 7430 diff changeset	1749	].
dd060c4f1071 * empty log message * Claus Gittinger <cg@exept.de> parents: 7430 diff changeset	1750	^ warnAboutNonLowercaseLocalVariableNames.
dd060c4f1071 * empty log message * Claus Gittinger <cg@exept.de> parents: 7430 diff changeset	1751
dd060c4f1071 * empty log message * Claus Gittinger <cg@exept.de> parents: 7430 diff changeset	1752	"Modified: / 22-10-2006 / 02:30:57 / cg"
6769 4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	1753	!
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	1754
7532 835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1755	warnAboutPossibleSTCCompilationProblems
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1756
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1757	warnAboutPossibleSTCCompilationProblems isNil ifTrue:[
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1758	warnAboutPossibleSTCCompilationProblems := ParserFlags warnAboutPossibleSTCCompilationProblems asValue.
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1759	warnAboutPossibleSTCCompilationProblems onChangeSend:#updateModifiedChannel to:self.
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1760	].
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1761	^ warnAboutPossibleSTCCompilationProblems.
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1762
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1763	"Created: / 20-11-2006 / 22:41:07 / cg"
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1764	!
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1765
8376 63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	1766	warnAboutPossiblyUnimplementedSelectors
63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	1767
63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	1768	warnAboutPossiblyUnimplementedSelectors isNil ifTrue:[
63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	1769	warnAboutPossiblyUnimplementedSelectors := ParserFlags warnAboutPossiblyUnimplementedSelectors asValue.
63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	1770	warnAboutPossiblyUnimplementedSelectors onChangeSend:#updateModifiedChannel to:self.
63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	1771	].
63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	1772	^ warnAboutPossiblyUnimplementedSelectors.
63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	1773
63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	1774	"Created: / 20-11-2006 / 22:41:07 / cg"
63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	1775	!
63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	1776
7979 2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	1777	warnAboutReferenceToPrivateClass
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	1778	warnAboutReferenceToPrivateClass isNil ifTrue:[
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	1779	warnAboutReferenceToPrivateClass := ParserFlags warnAboutReferenceToPrivateClass asValue.
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	1780	warnAboutReferenceToPrivateClass onChangeSend:#updateModifiedChannel to:self.
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	1781	].
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	1782	^ warnAboutReferenceToPrivateClass.
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	1783	!
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	1784
8009 f8f508ce1dbb +warnAboutShortVariableNames Claus Gittinger <cg@exept.de> parents: 8007 diff changeset	1785	warnAboutShortLocalVariableNames
f8f508ce1dbb +warnAboutShortVariableNames Claus Gittinger <cg@exept.de> parents: 8007 diff changeset	1786	warnAboutShortLocalVariableNames isNil ifTrue:[
f8f508ce1dbb +warnAboutShortVariableNames Claus Gittinger <cg@exept.de> parents: 8007 diff changeset	1787	warnAboutShortLocalVariableNames := ParserFlags warnAboutShortLocalVariableNames asValue.
f8f508ce1dbb +warnAboutShortVariableNames Claus Gittinger <cg@exept.de> parents: 8007 diff changeset	1788	warnAboutShortLocalVariableNames onChangeSend:#updateModifiedChannel to:self.
f8f508ce1dbb +warnAboutShortVariableNames Claus Gittinger <cg@exept.de> parents: 8007 diff changeset	1789	].
f8f508ce1dbb +warnAboutShortVariableNames Claus Gittinger <cg@exept.de> parents: 8007 diff changeset	1790	^ warnAboutShortLocalVariableNames.
f8f508ce1dbb +warnAboutShortVariableNames Claus Gittinger <cg@exept.de> parents: 8007 diff changeset	1791	!
f8f508ce1dbb +warnAboutShortVariableNames Claus Gittinger <cg@exept.de> parents: 8007 diff changeset	1792
6473 d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	1793	warnAboutWrongVariableNames
d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	1794	warnAboutWrongVariableNames isNil ifTrue:[
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1795	warnAboutWrongVariableNames := ParserFlags warnAboutWrongVariableNames asValue.
6473 d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	1796	warnAboutWrongVariableNames onChangeSend:#updateModifiedChannel to:self.
d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	1797	].
d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	1798	^ warnAboutWrongVariableNames.
d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	1799	!
d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	1800
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1801	warnCommonMistakes
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1802
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1803	warnCommonMistakes isNil ifTrue:[
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1804	warnCommonMistakes := ParserFlags warnCommonMistakes asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1805	warnCommonMistakes onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1806	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1807	^ warnCommonMistakes.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1808	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1809
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1810	warnDollarInIdentifier
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1811
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1812	warnDollar isNil ifTrue:[
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1813	warnDollar := ParserFlags warnDollarInIdentifier asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1814	warnDollar onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1815	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1816	^ warnDollar.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1817	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1818
6580 db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	1819	warnInconsistentReturnValues
db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	1820	warnInconsistentReturnValues isNil ifTrue:[
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1821	warnInconsistentReturnValues := ParserFlags warnInconsistentReturnValues asValue.
6580 db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	1822	warnInconsistentReturnValues onChangeSend:#updateModifiedChannel to:self.
db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	1823	].
db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	1824	^ warnInconsistentReturnValues.
db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	1825	!
db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	1826
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1827	warnOldStyleAssignment
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1828
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1829	warnOldStyle isNil ifTrue:[
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1830	warnOldStyle := ParserFlags warnOldStyleAssignment asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1831	warnOldStyle onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1832	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1833	^ warnOldStyle.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1834	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1835
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1836	warnPossibleIncompatibilities
7925 cabd467a8b04 comment Claus Gittinger <cg@exept.de> parents: 7906 diff changeset	1837	"holds true, if possible incompatibilities (with other ST systems)
cabd467a8b04 comment Claus Gittinger <cg@exept.de> parents: 7906 diff changeset	1838	are to be warned about"
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1839
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1840	warnCompatibility isNil ifTrue:[
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1841	warnCompatibility := ParserFlags warnPossibleIncompatibilities asValue.
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1842	warnCompatibility onChangeSend:#updateModifiedChannel to:self.
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1843	].
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1844	^ warnCompatibility.
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1845	!
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1846
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1847	warnSTXSpecials
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1848
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1849	warnSTX isNil ifTrue:[
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1850	warnSTX := ParserFlags warnSTXSpecials asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1851	warnSTX 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	^ warnSTX.
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	warnUnderscoreInIdentifier
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1857
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1858	warnUnderscore isNil ifTrue:[
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1859	warnUnderscore := ParserFlags warnUnderscoreInIdentifier asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1860	warnUnderscore onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1861	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1862	^ warnUnderscore.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1863	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1864
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1865	warnUnusedVars
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1866
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1867	warnUnusedVars isNil ifTrue:[
8793 d92d2f7bf232 * empty log message * Claus Gittinger <cg@exept.de> parents: 8740 diff changeset	1868	warnUnusedVars := ParserFlags warnUnusedVars asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1869	warnUnusedVars onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1870	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1871	^ warnUnusedVars.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1872	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1873
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1874	warnings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1875
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1876	warnings isNil ifTrue:[
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1877	warnings := ParserFlags warnings asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1878	warnings addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1879	warnings changed.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1880	warnings 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	^ warnings.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1883	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1884
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1885	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'change & update'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1886
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1887	update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1888	changedObject == self warnings ifTrue:[
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	1889	changedObject value ifTrue:[
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1890	self enableUnderscore value:self allowUnderscoreInIdentifier value.
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1891	self enableDollar value:self allowDollarInIdentifier value.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1892	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1893	self enableUnderscore value:false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1894	self enableDollar value:false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1895	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1896	^ self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1897	].
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1898	(changedObject == self allowDollarInIdentifier or:[changedObject == self allowUnderscoreInIdentifier]) ifTrue:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1899	self warnings changed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1900	^ self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1901	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1902
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1903	super update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1904	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1905
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	1906	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	1907
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	1908	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	1909	^ 'Launcher/compilerSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	1910	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	1911
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1912	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'queries'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1913
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1914	hasUnsavedChanges
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	1915	(self
7532 835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1916	hasChangedAspectIn:(self simpleAspects)
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	1917	asComparedTo:ParserFlags) ifTrue:[^ true].
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1918
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	1919	((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	1920	((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	1921	((ObjectMemory justInTimeCompilation ? false) ~= self justInTimeCompilation value) ifTrue:[^ true].
9522 4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	1922
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	1923	(UserPreferences current enforceComment ~= self warnAboutMissingMethodComment value) ifTrue:[^ true].
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	1924
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	1925	^ false
7440 dd060c4f1071 * empty log message * Claus Gittinger <cg@exept.de> parents: 7430 diff changeset	1926
9522 4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	1927	"Modified: / 17-07-2010 / 14:48:07 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1928	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1929
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1930	supportsJustInTimeCompilation
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1931
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1932	^ ObjectMemory supportsJustInTimeCompilation
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1933	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1934
9610 64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1935	!AbstractSettingsApplication::ChangeFileSettingsAppl class methodsFor:'image specs'!
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1936
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1937	defaultIcon
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1938	"This resource specification was automatically generated
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1939	by the ImageEditor of ST/X."
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1940
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1941	"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	1942	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	1943
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1944	"
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1945	self defaultIcon inspect
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1946	ImageEditor openOnClass:self andSelector:#defaultIcon
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1947	Icon flushCachedIcons
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1948	"
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1949
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1950	<resource: #image>
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1951
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1952	^Icon
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1953	constantNamed:'AbstractSettingsApplication::ChangeFileSettingsAppl class defaultIcon'
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1954	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	1955	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	1956	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	1957	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	1958	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	1959	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	1960	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	1961	! !
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1962
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1963	!AbstractSettingsApplication::ChangeFileSettingsAppl class methodsFor:'interface specs'!
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	windowSpec
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1966	"This resource specification was automatically generated
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1967	by the UIPainter of ST/X."
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	"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	1970	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	1971
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1972	"
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1973	UIPainter new openOnClass:AbstractSettingsApplication::ChangeFileSettingsAppl andSelector:#windowSpec
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1974	AbstractSettingsApplication::ChangeFileSettingsAppl new openInterface:#windowSpec
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1975	AbstractSettingsApplication::ChangeFileSettingsAppl open
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1976	"
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1977
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1978	<resource: #canvas>
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1979
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1980	^
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1981	#(FullSpec
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1982	name: windowSpec
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1983	window:
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1984	(WindowSpec
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1985	label: 'Changes Settings'
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1986	name: 'Changes Settings'
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1987	min: (Point 10 10)
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1988	bounds: (Rectangle 0 0 561 478)
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1989	)
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1990	component:
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1991	(SpecCollection
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1992	collection: (
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1993	(VerticalPanelViewSpec
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1994	name: 'VerticalPanel2'
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1995	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	1996	horizontalLayout: fitSpace
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1997	verticalLayout: topSpace
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1998	horizontalSpace: 5
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1999	verticalSpace: 5
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2000	component:
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2001	(SpecCollection
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2002	collection: (
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2003	(FramedBoxSpec
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2004	label: 'Change File'
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2005	name: 'FramedBox2'
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2006	labelPosition: topLeft
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2007	translateLabel: true
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2008	component:
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2009	(SpecCollection
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2010	collection: (
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2011	(CheckBoxSpec
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2012	label: 'Log compiles in Changefile'
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2013	name: 'CheckBox1'
9739 9e893e8e1ef6 size of checkbox Claus Gittinger <cg@exept.de> parents: 9738 diff changeset	2014	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	2015	model: updChanges
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2016	translateLabel: true
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2017	)
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2018	(CheckBoxSpec
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2019	label: 'Log doIts in Changefile'
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2020	name: 'CheckBox2'
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2021	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	2022	model: logDoits
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2023	translateLabel: true
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2024	)
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2025	(LabelSpec
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2026	label: 'Changefile Name:'
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2027	name: 'ChangefileNameLabel'
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2028	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	2029	translateLabel: true
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2030	adjust: right
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2031	)
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2032	(InputFieldSpec
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2033	name: 'ChangeFileNameEntryField'
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2034	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	2035	model: changeFileName
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2036	immediateAccept: true
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2037	acceptOnReturn: true
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2038	acceptOnTab: true
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2039	acceptOnLostFocus: true
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2040	acceptOnPointerLeave: true
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2041	)
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2042	)
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2043
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	extent: (Point 551 112)
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2046	)
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2047	)
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2048
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2049	)
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2050	)
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2051	)
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2052
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2053	)
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2054	)
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2055	! !
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2056
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2057	!AbstractSettingsApplication::ChangeFileSettingsAppl methodsFor:'actions'!
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2058
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2059	basicReadSettings
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2060	self changeFileName value:ObjectMemory nameForChanges.
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2061	self logDoits value:Smalltalk logDoits.
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2062	self updChanges value:Class updatingChanges.
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	"Modified: / 27-10-2010 / 10:16:48 / cg"
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2065	!
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	basicSaveSettings
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2068
9754 d237d1faea20 format Claus Gittinger <cg@exept.de> parents: 9739 diff changeset	2069	ObjectMemory nameForChanges:(self changeFileName value).
9610 64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2070	Smalltalk logDoits:self logDoits value.
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2071	Class updateChanges:self updChanges value.
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2072
9754 d237d1faea20 format Claus Gittinger <cg@exept.de> parents: 9739 diff changeset	2073	"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	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	!AbstractSettingsApplication::ChangeFileSettingsAppl methodsFor:'aspects'!
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2077
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2078	changeFileName
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2079
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2080	changeFileName isNil ifTrue:[
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2081	changeFileName := ObjectMemory nameForChanges asValue.
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2082	changeFileName onChangeSend:#updateModifiedChannel to:self
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	^ changeFileName.
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	logDoits
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2088
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2089	logDoits isNil ifTrue:[
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2090	logDoits := Smalltalk logDoits asValue.
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2091	logDoits onChangeSend:#updateModifiedChannel to:self
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2092	].
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2093	^ logDoits.
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	updChanges
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	updChanges isNil ifTrue:[
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2099	updChanges := Class updatingChanges asValue.
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2100	updChanges onChangeSend:#updateModifiedChannel to:self
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2101	].
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2102	^ updChanges.
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
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2105	!AbstractSettingsApplication::ChangeFileSettingsAppl methodsFor:'help'!
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	helpFilename
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2108	^ 'Launcher/messageSettings.html'
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2109	! !
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2110
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2111	!AbstractSettingsApplication::ChangeFileSettingsAppl methodsFor:'queries'!
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	hasUnsavedChanges
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2114	self logDoits value ~= Smalltalk logDoits ifTrue:[^ true].
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2115	self updChanges value ~= Class updatingChanges ifTrue:[^ true].
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2116	self changeFileName value ~= ObjectMemory nameForChanges ifTrue:[^ true].
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2117	^ false
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2118
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2119	"Modified: / 27-10-2010 / 10:17:21 / cg"
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2120	! !
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2121
9187 fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2122	!AbstractSettingsApplication::CodeGeneratorSettingsAppl class methodsFor:'image specs'!
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2123
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2124	defaultIcon
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2125	"This resource specification was automatically generated
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2126	by the ImageEditor of ST/X."
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2127
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2128	"Do not manually edit this!! If it is corrupted,
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2129	the ImageEditor may not be able to read the specification."
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2130
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2131	"
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2132	self defaultIcon inspect
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2133	ImageEditor openOnClass:self andSelector:#defaultIcon
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2134	Icon flushCachedIcons
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2135	"
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2136
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2137	<resource: #image>
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2138
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2139	^Icon
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2140	constantNamed:'AbstractSettingsApplication::CodeGeneratorSettingsAppl class defaultIcon'
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2141	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	2142	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	2143	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	2144	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	2145	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	2146	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	2147	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	2148	! !
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2149
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2150	!AbstractSettingsApplication::CodeGeneratorSettingsAppl class methodsFor:'interface specs'!
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	windowSpec
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2153	"This resource specification was automatically generated
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2154	by the UIPainter of ST/X."
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	"Do not manually edit this!! If it is corrupted,
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2157	the UIPainter may not be able to read the specification."
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	"
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2160	UIPainter new openOnClass:AbstractSettingsApplication::CodeGeneratorSettingsAppl andSelector:#windowSpec
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2161	AbstractSettingsApplication::CodeGeneratorSettingsAppl new openInterface:#windowSpec
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2162	AbstractSettingsApplication::CodeGeneratorSettingsAppl open
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2163	"
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2164
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2165	<resource: #canvas>
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2166
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2167	^
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2168	#(FullSpec
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2169	name: windowSpec
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2170	window:
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2171	(WindowSpec
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2172	label: 'Tool Settings'
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2173	name: 'Tool Settings'
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2174	min: (Point 10 10)
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2175	bounds: (Rectangle 0 0 607 786)
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2176	)
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2177	component:
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2178	(SpecCollection
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2179	collection: (
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2180	(VerticalPanelViewSpec
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2181	name: 'VerticalPanel2'
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2182	layout: (LayoutFrame 0 0.0 0 0 0 1.0 342 0)
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2183	horizontalLayout: fit
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2184	verticalLayout: top
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2185	horizontalSpace: 3
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2186	verticalSpace: 3
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2187	component:
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2188	(SpecCollection
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2189	collection: (
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2190	(CheckBoxSpec
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2191	label: 'Generate Comments'
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2192	name: 'GenerateComments'
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2193	activeHelpKey: generateComments
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2194	model: generateComments
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2195	translateLabel: true
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2196	extent: (Point 607 25)
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2197	)
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2198	(CheckBoxSpec
10125 8c08ad056878 language strings Claus Gittinger <cg@exept.de> parents: 10124 diff changeset	2199	label: 'Generate Comments in Getters'
9187 fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2200	name: 'GenerateCommentsInGetters'
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2201	activeHelpKey: generateCommentsInGetters
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2202	enableChannel: generateComments
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2203	model: generateCommentsInGetters
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2204	translateLabel: true
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2205	extent: (Point 607 25)
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2206	)
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2207	(CheckBoxSpec
10125 8c08ad056878 language strings Claus Gittinger <cg@exept.de> parents: 10124 diff changeset	2208	label: 'Generate Comments in Setters'
9187 fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2209	name: 'GenerateCommentsInSetters'
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2210	activeHelpKey: generateCommentsInSetters
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2211	enableChannel: generateComments
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2212	model: generateCommentsInSetters
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2213	translateLabel: true
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2214	extent: (Point 607 25)
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2215	)
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2216	)
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2217
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2218	)
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2219	)
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2220	)
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2221
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2222	)
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2223	)
10125 8c08ad056878 language strings Claus Gittinger <cg@exept.de> parents: 10124 diff changeset	2224
8c08ad056878 language strings Claus Gittinger <cg@exept.de> parents: 10124 diff changeset	2225	"Modified: / 04-07-2011 / 16:58:44 / cg"
9187 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
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2228	!AbstractSettingsApplication::CodeGeneratorSettingsAppl methodsFor:'actions'!
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2229
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2230	basicReadSettings
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2231	self
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2232	readAspects:(self aspectSelectors)
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2233	from:currentUserPrefs.
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2234	!
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2235
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2236	basicSaveSettings
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2237	self
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2238	writeAspects:(self aspectSelectors)
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2239	to:currentUserPrefs.
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	!AbstractSettingsApplication::CodeGeneratorSettingsAppl methodsFor:'aspects'!
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	aspectSelectors
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	generateComments
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2247	generateCommentsForGetters
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2248	generateCommentsForSetters
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2249	)
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2250	!
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2251
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2252	generateComments
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2253	generateComments isNil ifTrue:[
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2254	generateComments := UserPreferences current generateComments asValue.
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2255	generateComments onChangeSend:#updateModifiedChannel to:self
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2256	].
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2257	^ generateComments.
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	generateCommentsForGetters
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2261	generateCommentsForGetters isNil ifTrue:[
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2262	generateCommentsForGetters := UserPreferences current generateCommentsForGetters asValue.
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2263	generateCommentsForGetters onChangeSend:#updateModifiedChannel to:self
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2264	].
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2265	^ generateCommentsForGetters.
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2266	!
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	generateCommentsForSetters
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2269	generateCommentsForSetters isNil ifTrue:[
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2270	generateCommentsForSetters := UserPreferences current generateCommentsForSetters asValue.
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2271	generateCommentsForSetters onChangeSend:#updateModifiedChannel to:self
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2272	].
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2273	^ generateCommentsForSetters.
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
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2276	!AbstractSettingsApplication::CodeGeneratorSettingsAppl methodsFor:'help'!
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	helpFilename
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2279	^ 'Launcher/codeGeneratorSettings.html'
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2280	! !
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2281
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2282	!AbstractSettingsApplication::CodeGeneratorSettingsAppl methodsFor:'queries'!
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2283
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2284	hasUnsavedChanges
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2285	(self
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2286	hasChangedAspectIn:(self aspectSelectors)
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2287	asComparedTo:currentUserPrefs) ifTrue:[^ true].
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2288	^ false.
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2289	! !
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2290
9277 c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2291	!AbstractSettingsApplication::CommunicationLoggingSettingsAppl class methodsFor:'image specs'!
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2292
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2293	defaultIcon
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2294	<resource: #programImage>
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2295
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2296	^ self defaultIcon2
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2297	!
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2298
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2299	defaultIcon1
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2300	"This resource specification was automatically generated
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2301	by the ImageEditor of ST/X."
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2302
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2303	"Do not manually edit this!! If it is corrupted,
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2304	the ImageEditor may not be able to read the specification."
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2305
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2306	"
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2307	self defaultIcon inspect
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2308	ImageEditor openOnClass:self andSelector:#defaultIcon
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2309	Icon flushCachedIcons
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
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2312	<resource: #image>
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	^Icon
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2315	constantNamed:'AbstractSettingsApplication::CommunicationLoggingSettingsAppl class defaultIcon1'
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2316	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	2317	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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	2318	@ 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	2319	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	2320	@ 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	2321	@ 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	2322	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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	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	defaultIcon2
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2326	"This resource specification was automatically generated
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2327	by the ImageEditor of ST/X."
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	"Do not manually edit this!! If it is corrupted,
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2330	the ImageEditor may not be able to read the specification."
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	"
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2333	self defaultIcon2 inspect
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2334	ImageEditor openOnClass:self andSelector:#defaultIcon2
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2335	Icon flushCachedIcons
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2336	"
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2337
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2338	<resource: #image>
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2339
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2340	^Icon
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2341	constantNamed:'AbstractSettingsApplication::CommunicationLoggingSettingsAppl class defaultIcon2'
9278 f72863183d67 * empty log message * Claus Gittinger <cg@exept.de> parents: 9277 diff changeset	2342	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	2343	@@@@@@@@@@@@@@@@@@@@@@@@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	2344	@ 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	2345	@ (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	2346	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	2347	@@@@@@@@@@@@@@@@@@@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	2348	! !
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	!AbstractSettingsApplication::CommunicationLoggingSettingsAppl class methodsFor:'interface specs'!
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2351
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2352	windowSpec
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2353	"This resource specification was automatically generated
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2354	by the UIPainter of ST/X."
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	"Do not manually edit this!! If it is corrupted,
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2357	the UIPainter may not be able to read the specification."
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2358
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2359	"
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2360	UIPainter new openOnClass:AbstractSettingsApplication::CommunicationLoggingSettingsAppl andSelector:#windowSpec
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2361	AbstractSettingsApplication::CommunicationLoggingSettingsAppl new openInterface:#windowSpec
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2362	AbstractSettingsApplication::CommunicationLoggingSettingsAppl open
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2363	"
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2364
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2365	<resource: #canvas>
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	#(FullSpec
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2369	name: windowSpec
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2370	window:
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2371	(WindowSpec
9279 8db96209a9ea * empty log message * Claus Gittinger <cg@exept.de> parents: 9278 diff changeset	2372	label: 'Com-Logging settings'
8db96209a9ea * empty log message * Claus Gittinger <cg@exept.de> parents: 9278 diff changeset	2373	name: 'Com-Logging settings'
9277 c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2374	min: (Point 10 10)
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2375	bounds: (Rectangle 0 0 445 401)
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	component:
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2378	(SpecCollection
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2379	collection: (
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2380	(VerticalPanelViewSpec
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2381	name: 'VerticalPanel1'
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2382	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2383	horizontalLayout: fitSpace
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2384	verticalLayout: topSpace
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2385	horizontalSpace: 5
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2386	verticalSpace: 3
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2387	component:
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2388	(SpecCollection
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2389	collection: (
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2390	(CheckBoxSpec
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2391	label: 'Log Outgoing HTTP Requests on Transcript'
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2392	name: 'LogHTTPRequests'
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2393	enableChannel: displaySupportsNativeWidgets
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2394	model: logHTTPRequests
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2395	translateLabel: true
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2396	extent: (Point 435 22)
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2397	)
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2398	(CheckBoxSpec
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2399	label: 'Log Outgoing SOAP Requests on Transcript'
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2400	name: 'LogSOAPRequests'
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2401	enableChannel: displaySupportsNativeDialogs
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2402	model: logSOAPRequests
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2403	translateLabel: true
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2404	extent: (Point 435 22)
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2405	)
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2406	)
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2407
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2408	)
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2409	)
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2410	)
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2411
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2412	)
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2413	)
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2414	! !
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	!AbstractSettingsApplication::CommunicationLoggingSettingsAppl methodsFor:'actions'!
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2417
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2418	aspectsFromUserPreferences
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2419	^ #(
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2420	logHTTPRequests
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2421	logSOAPRequests
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2422	)
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	basicReadSettings
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2426	self
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2427	readAspects:(self aspectsFromUserPreferences)
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2428	from:currentUserPrefs.
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	basicSaveSettings
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2432	self
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2433	writeAspects:(self aspectsFromUserPreferences)
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2434	to:currentUserPrefs.
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
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2437	!AbstractSettingsApplication::CommunicationLoggingSettingsAppl methodsFor:'aspects'!
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2438
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2439	logHTTPRequests
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2440	logHTTPRequests isNil ifTrue:[
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2441	logHTTPRequests := false asValue.
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2442	logHTTPRequests onChangeSend:#updateModifiedChannel to:self
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2443	].
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2444	^ logHTTPRequests.
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2445	!
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2446
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2447	logSOAPRequests
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2448	logSOAPRequests isNil ifTrue:[
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2449	logSOAPRequests := false asValue.
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2450	logSOAPRequests onChangeSend:#updateModifiedChannel to:self
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2451	].
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2452	^ logSOAPRequests.
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:'help'!
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	helpFilename
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2458	^ 'Launcher/comLoggingSettings.html'
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2459	! !
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2460
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2461	!AbstractSettingsApplication::CommunicationLoggingSettingsAppl methodsFor:'queries'!
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2462
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2463	hasUnsavedChanges
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2464	^ self
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2465	hasChangedAspectIn:(self aspectsFromUserPreferences)
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2466	asComparedTo:currentUserPrefs
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2467	! !
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2468
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2469	!AbstractSettingsApplication::DebuggerSettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2470
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2471	defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2472	<resource: #programImage>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2473
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2474	^ ToolbarIconLibrary bugReporter24x24Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2475	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2476
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2477	!AbstractSettingsApplication::DebuggerSettingsAppl class methodsFor:'interface specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2478
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2479	windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2480	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2481	by the UIPainter of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2482
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2483	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2484	the UIPainter may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2485
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2486	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2487	UIPainter new openOnClass:AbstractSettingsApplication::DebuggerSettingsAppl andSelector:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2488	AbstractSettingsApplication::DebuggerSettingsAppl new openInterface:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2489	AbstractSettingsApplication::DebuggerSettingsAppl open
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2490	"
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	<resource: #canvas>
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	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2495	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2496	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2497	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2498	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2499	label: 'Debugger Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2500	name: 'Debugger Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2501	min: (Point 10 10)
8149 d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2502	bounds: (Rectangle 0 0 600 320)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2503	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2504	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2505	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2506	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2507	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2508	name: 'VerticalPanel2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2509	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	2510	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2511	verticalLayout: top
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2512	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2513	verticalSpace: 5
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2514	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2515	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2516	collection: (
8149 d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2517	(ViewSpec
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2518	name: 'ShowErrorNotifierBox'
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2519	component:
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2520	(SpecCollection
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2521	collection: (
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2522	(CheckBoxSpec
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2523	label: 'Show Error Notifier before Opening Debugger'
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2524	name: 'ShowErrorNotifierCheckBox'
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2525	layout: (LayoutFrame 5 0 5 0 -5 1 27 0)
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2526	model: showErrorNotifier
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2527	translateLabel: true
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2528	)
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2529	)
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2530
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2531	)
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2532	extent: (Point 600 30)
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2533	)
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2534	(ViewSpec
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2535	name: 'ShowVerboseStackBox'
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2536	component:
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2537	(SpecCollection
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2538	collection: (
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2539	(CheckBoxSpec
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2540	label: 'Verbose Backtrace by Default in Debugger'
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2541	name: 'ShowVerboseStackCheckBox'
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2542	layout: (LayoutFrame 5 0 5 0 -5 1 27 0)
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2543	model: verboseBacktraceInDebugger
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2544	translateLabel: true
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2545	)
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	extent: (Point 600 30)
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2550	)
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2551	(ViewSpec
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2552	name: 'UseNewLayoutInDebuggerBox'
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2553	component:
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2554	(SpecCollection
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2555	collection: (
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2556	(CheckBoxSpec
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2557	label: 'Use New Layout'
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2558	name: 'UseNewLayoutInDebuggerCheckBox'
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2559	layout: (LayoutFrame 5 0 5 0 -5 1 27 0)
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2560	model: useNewLayoutInDebugger
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2561	translateLabel: true
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2562	)
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	extent: (Point 600 29)
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2567	)
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2568	(ViewSpec
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2569	name: 'AllowSendingMailFromDebuggerBox'
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2570	component:
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2571	(SpecCollection
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2572	collection: (
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2573	(CheckBoxSpec
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2574	label: 'Allow Sending of Error Reports from Debugger'
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2575	name: 'AllowSendingMailFromDebuggerCheckBox'
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2576	layout: (LayoutFrame 5 0 5 0 -5 1 27 0)
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2577	model: allowSendMailFromDebugger
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2578	translateLabel: true
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2579	)
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	extent: (Point 600 30)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2584	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2585	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2586
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2587	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2588	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2589	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2590
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2591	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2592	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2593	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2594
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2595	!AbstractSettingsApplication::DebuggerSettingsAppl methodsFor:'actions'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2596
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2597	basicReadSettings
8149 d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2598	self showErrorNotifier value:(NoHandlerError emergencyHandler == AbstractLauncherApplication notifyingEmergencyHandler).
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2599	self allowSendMailFromDebugger value:currentUserPrefs allowSendMailFromDebugger.
8149 d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2600	self verboseBacktraceInDebugger value:(currentUserPrefs verboseBacktraceInDebugger).
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2601	self useNewLayoutInDebugger value:(currentUserPrefs useNewLayoutInDebugger).
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2602	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2603
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2604	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2605	self showErrorNotifier value ifFalse:[
6165 2bd97fffdf95 EmergencyHandlers have been relocated to NoHandlerError long ago Stefan Vogel <sv@exept.de> parents: 6163 diff changeset	2606	NoHandlerError emergencyHandler:nil
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2607	] ifTrue:[
6165 2bd97fffdf95 EmergencyHandlers have been relocated to NoHandlerError long ago Stefan Vogel <sv@exept.de> parents: 6163 diff changeset	2608	NoHandlerError emergencyHandler:(AbstractLauncherApplication notifyingEmergencyHandler)
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2609	].
8149 d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2610	currentUserPrefs allowSendMailFromDebugger:(self allowSendMailFromDebugger value).
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2611	currentUserPrefs verboseBacktraceInDebugger:(self verboseBacktraceInDebugger value).
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2612	currentUserPrefs useNewLayoutInDebugger:(self useNewLayoutInDebugger value).
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2613
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2614	Debugger newDebugger.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2615	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2616
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2617	!AbstractSettingsApplication::DebuggerSettingsAppl methodsFor:'aspects'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2618
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2619	allowSendMailFromDebugger
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2620
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2621	allowSendMailFromDebugger isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2622	allowSendMailFromDebugger := currentUserPrefs allowSendMailFromDebugger asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	2623	allowSendMailFromDebugger onChangeSend:#updateModifiedChannel to:self
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2624	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2625	^ allowSendMailFromDebugger.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2626	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2627
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2628	showErrorNotifier
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2629
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2630	showErrorNotifier isNil ifTrue:[
4566 af369740e2bc Replace referneces to Exception. Stefan Vogel <sv@exept.de> parents: 4563 diff changeset	2631	showErrorNotifier := (NoHandlerError emergencyHandler == AbstractLauncherApplication notifyingEmergencyHandler) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	2632	showErrorNotifier onChangeSend:#updateModifiedChannel to:self
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	^ showErrorNotifier.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2635	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2636
8149 d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2637	useNewLayoutInDebugger
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2638
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2639	useNewLayoutInDebugger isNil ifTrue:[
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2640	useNewLayoutInDebugger := (UserPreferences current useNewLayoutInDebugger) asValue.
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2641	useNewLayoutInDebugger onChangeSend:#updateModifiedChannel to:self
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2642	].
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2643	^ useNewLayoutInDebugger.
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2644	!
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2645
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2646	verboseBacktraceInDebugger
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2647
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2648	verboseBacktraceInDebugger isNil ifTrue:[
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2649	verboseBacktraceInDebugger := (UserPreferences current verboseBacktraceInDebugger ? false) asValue.
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2650	verboseBacktraceInDebugger onChangeSend:#updateModifiedChannel to:self
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2651	].
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2652	^ verboseBacktraceInDebugger.
4398 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
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	2655	!AbstractSettingsApplication::DebuggerSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	2656
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	2657	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	2658	^ 'Launcher/debuggerSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	2659	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	2660
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2661	!AbstractSettingsApplication::DebuggerSettingsAppl methodsFor:'queries'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2662
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2663	hasUnsavedChanges
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	2664	self showErrorNotifier value ~= (NoHandlerError emergencyHandler == AbstractLauncherApplication notifyingEmergencyHandler) ifTrue:[^ true].
8149 d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2665	currentUserPrefs verboseBacktraceInDebugger ~= self verboseBacktraceInDebugger value ifTrue:[^ true].
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2666	currentUserPrefs allowSendMailFromDebugger ~= self allowSendMailFromDebugger value ifTrue:[^ true].
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2667	currentUserPrefs useNewLayoutInDebugger ~= self useNewLayoutInDebugger value ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	2668	^ false
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2669	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2670
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2671	!AbstractSettingsApplication::DisplaySettingsAppl class methodsFor:'defaults'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2672
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2673	clipEncodingStrings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2674
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2675	^ #('untranslated' 'iso8859' 'jis' 'jis7' 'shift-JIS' 'EUC' 'big5')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2676	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2677
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2678	clipEncodingSyms
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2679
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2680	^ #(nil #iso8859 #jis #jis7 #sjis #euc #big5)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2681	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2682
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2683	staticGrayOrGrayScaleDitherStrings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2684
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2685	^ #('threshold' 'ordered dither' 'error diffusion')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2686	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2687
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2688	staticGrayOrGrayScaleDitherSyms
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2689
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2690	^ #(threshold ordered floydSteinberg)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2691	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2692
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2693	trueColorDitherStrings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2694
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2695	^ #('nearest color' 'error diffusion')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2696	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2697
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2698	trueColorDitherSyms
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2699
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2700	^ #(ordered floydSteinberg)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2701	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2702
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2703	!AbstractSettingsApplication::DisplaySettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2704
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2705	defaultIcon
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	2706	<resource: #programImage>
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	2707
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	2708	^ ToolbarIconLibrary displayScreenIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2709	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2710
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2711	!AbstractSettingsApplication::DisplaySettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2712
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2713	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2714	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2715	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2716
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2717	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2718	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2719
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2720	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2721	UIPainter new openOnClass:AbstractSettingsApplication::DisplaySettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2722	AbstractSettingsApplication::DisplaySettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2723	AbstractSettingsApplication::DisplaySettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2724	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2725
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2726	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2727
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2728	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2729	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2730	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2731	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2732	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2733	label: 'Display Screen Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2734	name: 'Display Screen Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2735	min: (Point 10 10)
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	2736	bounds: (Rectangle 0 0 600 378)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2737	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2738	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2739	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2740	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2741	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2742	label: 'Actual Visible Screen Area:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2743	name: 'ActualVisibleScreenAreaLabel'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2744	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	2745	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2746	adjust: left
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2747	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2748	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2749	label: 'Common Sizes:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2750	name: 'CommonSizesLabel'
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	2751	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	2752	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2753	adjust: right
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2754	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2755	(PopUpListSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2756	label: 'monitor size'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2757	name: 'MonitorSelectionPopUpList'
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	2758	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	2759	tabable: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2760	model: monitorSelection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2761	menu: monitorList
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2762	useIndex: true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2763	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2764	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2765	label: 'Screen Size:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2766	name: 'ScreenSizeLabel'
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	2767	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	2768	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2769	adjust: right
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2770	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2771	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2772	name: 'SizeXEntryField'
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	2773	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	2774	model: sizeX
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2775	type: number
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2776	immediateAccept: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2777	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2778	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2779	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2780	acceptOnPointerLeave: 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: ' x '
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2784	name: 'xLabel'
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	2785	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	2786	translateLabel: true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2787	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2788	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2789	name: 'SizeYEntryField'
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	2790	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	2791	model: sizeY
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2792	type: number
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2793	immediateAccept: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2794	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2795	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2796	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2797	acceptOnPointerLeave: true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2798	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2799	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2800	label: '(mm)'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2801	name: 'mmLabel'
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	2802	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	2803	translateLabel: true
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	2804	adjust: left
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	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2807	name: 'Separator1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2808	layout: (LayoutFrame 0 0.0 105 0 0 1.0 109 0)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2809	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2810	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2811	name: 'ScreenDepthVisualLabel'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2812	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	2813	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2814	labelChannel: screenDepthVisualLabelHolder
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2815	adjust: left
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	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2818	name: 'Separator2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2819	layout: (LayoutFrame 0 0.0 139 0 0 1.0 143 0)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2820	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2821	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2822	label: 'Color Monitor'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2823	name: 'ColorMonitorCheckBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2824	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	2825	model: isColorMonitor
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2826	translateLabel: true
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	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2829	label: 'Use Fix Color Palette'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2830	name: 'FixColorPaletteCheckBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2831	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	2832	enableChannel: visualIsPseudoColor
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2833	model: useFixPalette
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2834	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2835	labelChannel: useFixPaletteLabel
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2836	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2837	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2838	label: 'Use Fix Gray Color Palette'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2839	name: 'UseFixGrayPaletteCheckBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2840	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	2841	enableChannel: visualIsPseudoColor
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2842	model: useFixGrayPalette
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2843	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2844	labelChannel: useFixGrayPaletteLabel
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	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2847	label: 'Image Display:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2848	name: 'ImageDisplayLabel'
9147 dcc8111bef7a * empty log message * Claus Gittinger <cg@exept.de> parents: 9140 diff changeset	2849	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	2850	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2851	adjust: right
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2852	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2853	(PopUpListSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2854	label: 'image display'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2855	name: 'DitherListPopUpList'
9147 dcc8111bef7a * empty log message * Claus Gittinger <cg@exept.de> parents: 9140 diff changeset	2856	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	2857	tabable: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2858	model: ditherListSelection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2859	enableChannel: ditherSymsNotNil
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2860	menu: ditherList
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2861	useIndex: true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2862	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2863	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2864	label: 'Allow Colored/Grayscale Icons'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2865	name: 'AllowColoredGrayscaleIconsCheckBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2866	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	2867	model: deepIcons
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2868	translateLabel: true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2869	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2870	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2871	name: 'Separator3'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2872	layout: (LayoutFrame 0 0.0 288 0 0 1.0 292 0)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2873	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2874	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2875	label: 'ClipBoard Encoding:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2876	name: 'ClipBoardEncodingLabel'
9147 dcc8111bef7a * empty log message * Claus Gittinger <cg@exept.de> parents: 9140 diff changeset	2877	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	2878	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2879	adjust: right
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	(PopUpListSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2882	label: 'image display'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2883	name: 'ClipEncodingListPopUpList'
9147 dcc8111bef7a * empty log message * Claus Gittinger <cg@exept.de> parents: 9140 diff changeset	2884	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	2885	tabable: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2886	model: clipEncodingListSelection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2887	menu: clipEncodingList
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2888	useIndex: true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2889	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2890	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2891	name: 'Separator4'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2892	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	2893	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2894	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2895	label: 'Max. CopyBuffer Size:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2896	name: 'MaxCopyBufferSizeLabel'
9147 dcc8111bef7a * empty log message * Claus Gittinger <cg@exept.de> parents: 9140 diff changeset	2897	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	2898	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2899	adjust: right
5086 b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	2900	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2901	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2902	name: 'MaxCopyBufferEntryField'
9147 dcc8111bef7a * empty log message * Claus Gittinger <cg@exept.de> parents: 9140 diff changeset	2903	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	2904	model: maxCopyBufferSize
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2905	type: fileSize
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2906	immediateAccept: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2907	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2908	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2909	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2910	acceptOnPointerLeave: true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2911	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2912	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2913
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2914	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2915	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2916	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2917
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2918	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2919
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2920	basicReadSettings
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2921	self useFixPalette value:screen fixColors notNil.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2922	self useFixGrayPalette value:screen fixGrayColors notNil.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2923	self isColorMonitor value:screen hasColors.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2924	self sizeX value:screen widthInMillimeter.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2925	self sizeY value:screen heightInMillimeter.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2926	self deepIcons value:screen supportsDeepIcons.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2927	ditherSyms notNil ifTrue:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2928	self ditherListSelection
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2929	value:(ditherSyms indexOf:(Image ditherAlgorithm) ifAbsent:#threshold)
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2930	].
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2931	self clipEncodingListSelection
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2932	value:(self class clipEncodingSyms indexOf:screen clipboardEncoding
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2933	ifAbsent:1).
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2934	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2935
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2936	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2937
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2938	Image flushDeviceImages.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2939
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2940	screen visualType == #PseudoColor ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2941	self useFixPalette value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2942	Color colorAllocationFailSignal handle:[:ex \|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2943	self warn:'Could not allocate colors.'.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2944	] do:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2945	Color getColorsRed:4 green:8 blue:4 on:screen
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2946	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2947	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2948	screen releaseFixColors
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2949	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2950
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2951	self useFixGrayPalette value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2952	Color colorAllocationFailSignal handle:[:ex \|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2953	self warn:'Could not allocate colors.'.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2954	] do:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2955	Color getGrayColors:32 on:screen
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2956	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2957	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2958	screen releaseFixGrayColors
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2959	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2960	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2961	screen hasColors:self isColorMonitor value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2962	screen widthInMillimeter:self sizeX value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2963	screen heightInMillimeter:self sizeY value.
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	screen supportsDeepIcons:self deepIcons value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2966	ditherSyms notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2967	Image ditherAlgorithm:(ditherSyms at:self ditherListSelection value).
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
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2970	WindowGroup activeGroup withWaitCursorDo:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2971	View defaultStyle:(View defaultStyle).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2972	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2973
9147 dcc8111bef7a * empty log message * Claus Gittinger <cg@exept.de> parents: 9140 diff changeset	2974	screen clipboardEncoding:(self class clipEncodingSyms at:self clipEncodingListSelection value).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2975	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2976
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2977	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2978
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2979	clipEncodingList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2980
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2981	clipEncodingList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2982	clipEncodingList := (resources array:self class clipEncodingStrings) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2983	"/ if your app needs to be notified of changes, uncomment one of the lines below:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2984	"/ clipEncodingList addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2985	"/ clipEncodingList onChangeSend:#clipEncodingListChanged to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2986	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2987	^ clipEncodingList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2988	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2989
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2990	clipEncodingListSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2991
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2992	clipEncodingListSelection isNil ifTrue:[
6037 4ee47a9ce56a Unify naming: clipBoard->clipboard Stefan Vogel <sv@exept.de> parents: 6030 diff changeset	2993	clipEncodingListSelection := (self class clipEncodingSyms indexOf:screen clipboardEncoding ifAbsent:1) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	2994	clipEncodingListSelection onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2995	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2996	^ clipEncodingListSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2997	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2998
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2999	deepIcons
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3000
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3001	deepIcons isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3002	deepIcons := screen supportsDeepIcons asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	3003	deepIcons onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3004	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3005	^ deepIcons.
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	ditherList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3009
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3010	ditherList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3011	ditherList := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3012	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3013	^ ditherList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3014	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3015
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3016	ditherListSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3017
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3018	ditherListSelection isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3019	ditherSyms notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3020	ditherListSelection := (ditherSyms indexOf:(Image ditherAlgorithm) ifAbsent:#threshold) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3021	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3022	ditherListSelection := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3023	].
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	3024	ditherListSelection onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3025	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3026	^ ditherListSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3027	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3028
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3029	ditherSymsNotNil
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3030
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3031	ditherSymsNotNil isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3032	ditherSymsNotNil := ditherSyms notNil asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3033	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3034	^ ditherSymsNotNil.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3035	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3036
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3037	isColorMonitor
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3038
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3039	isColorMonitor isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3040	isColorMonitor := screen hasColors asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	3041	isColorMonitor onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3042	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3043	^ isColorMonitor.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3044	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3045
5086 b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	3046	maxCopyBufferSize
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	3047
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	3048	maxCopyBufferSize isNil ifTrue:[
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	3049	maxCopyBufferSize := (810241024) asValue.
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	3050	maxCopyBufferSize addDependent:self.
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	3051	maxCopyBufferSize changed.
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	3052	maxCopyBufferSize onChangeSend:#updateModifiedChannel to:self.
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	3053	].
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	3054	^ maxCopyBufferSize.
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	3055	!
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	3056
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3057	monitorList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3058
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3059	monitorList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3060	monitorList := (resources array:(sizeInfos collect:[:entry \| entry at:1])) asList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3061	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3062	^ monitorList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3063	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3064
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3065	monitorSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3066
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3067	monitorSelection isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3068	monitorSelection := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3069	monitorSelection addDependent:self.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	3070	monitorSelection onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3071	monitorSelection changed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3072	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3073	^ monitorSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3074	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3075
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3076	screenDepthVisualLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3077
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3078	screenDepthVisualLabelHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3079	screenDepthVisualLabelHolder := (resources string:'Screen: Depth: %1 Visual: %2 (%3)'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3080	with:screen depth printString
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3081	with:screen visualType
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3082	with:screen serverVendor) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3083	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3084	^ screenDepthVisualLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3085	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3086
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3087	sizeX
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3088
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3089	sizeX isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3090	sizeX := screen widthInMillimeter asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3091	sizeX addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3092	sizeX changed.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	3093	sizeX onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3094	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3095	^ sizeX.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3096	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3097
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	3098	sizeY
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3099
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3100	sizeY isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3101	sizeY := screen heightInMillimeter asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3102	sizeY addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3103	sizeY changed.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	3104	sizeY onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3105	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3106	^ sizeY.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3107	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3108
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3109	useFixGrayPalette
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3110
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3111	useFixGrayPalette isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3112	useFixGrayPalette := screen fixGrayColors notNil asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	3113	useFixGrayPalette onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3114	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3115	^ useFixGrayPalette.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3116	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3117
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3118	useFixGrayPaletteLabel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3119
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3120	useFixGrayPaletteLabel isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3121	useFixGrayPaletteLabel := (resources string:'Use Fix Gray Color Palette %1' with:'(32)') asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3122	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3123	^ useFixGrayPaletteLabel.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3124	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3125
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3126	useFixPalette
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3127
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3128	useFixPalette isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3129	useFixPalette := screen fixColors notNil asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	3130	useFixPalette onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3131	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3132	^ useFixPalette.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3133	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3134
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3135	useFixPaletteLabel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3136
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3137	useFixPaletteLabel isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3138	useFixPaletteLabel := (resources string:'Use Fix Color Palette %1' with:'(4x8x4)') asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3139	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3140	^ useFixPaletteLabel.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3141	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3142
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3143	visualIsPseudoColor
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3144
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3145	visualIsPseudoColor isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3146	visualIsPseudoColor := (screen visualType == #PseudoColor) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	3147	visualIsPseudoColor onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3148	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3149	^ visualIsPseudoColor.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3150	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3151
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3152	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3153
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3154	monitorSelectionChanged
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3155
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3156	\| sel sizeInfoEntry sizes\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3157
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3158	sel := self monitorSelection value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3159	(sel notNil and:[sel ~~ 0]) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3160	sizeInfoEntry := sizeInfos at:sel.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3161	sizes := sizeInfoEntry at:2.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3162	self sizeX value:(sizes at:1).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3163	self sizeY value:(sizes at:2).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3164	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3165	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3166
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3167	sizeXorYChanged
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3168	\| sizes idx\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3169
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3170	sizes := sizeInfos collect:[:entry \| entry at:2].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3171	idx := sizes findFirst:[:entry \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3172	((entry at:1) = sizeX value)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3173	and:[((entry at:2) = sizeY value)]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3174	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3175	idx ~~ 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3176	self monitorSelection value:idx
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3177	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3178	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3179
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3180	update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3181	changedObject == self monitorSelection ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3182	self monitorSelectionChanged.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3183	^ self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3184	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3185	(changedObject == self sizeX or:[self sizeY]) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3186	self sizeXorYChanged.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3187	^ self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3188	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3189
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3190	super update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3191	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3192
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	3193	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	3194
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	3195	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	3196	^ 'Launcher/screenSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	3197	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	3198
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3199	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3200
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3201	initialize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3202
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3203	\| listOfSizes visual\|
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3204
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3205	screen := Screen current.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3206
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3207	listOfSizes := self class classResources at:'LIST_OF_OFFERED_SCREEN_SIZES' default:#default.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3208	listOfSizes == #default ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3209	"/ nothing in resource file; offer at least some.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3210	sizeInfos := #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3211	( '11.3'' (235mm x 175mm) LCD' (235 175) )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3212	( '17'' (325mm x 245mm)' (325 245) )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3213	( '19'' (340mm x 270mm)' (340 270) )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3214	( '20'' (350mm x 280mm)' (350 280) )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3215	( '21'' (365mm x 285mm)' (365 285) )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3216	).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3217	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3218	sizeInfos := resources array:listOfSizes.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3219	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3220	visual := screen visualType.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3221	(visual == #StaticGray or:[visual == #GrayScale]) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3222	ditherStyles := self class staticGrayOrGrayScaleDitherStrings.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3223	ditherSyms := self class staticGrayOrGrayScaleDitherSyms.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3224	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3225	visual ~~ #TrueColor ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3226	ditherStyles := self class trueColorDitherStrings.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3227	ditherSyms := self class trueColorDitherSyms.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3228	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3229	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3230	super initialize.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3231
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3232	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3233
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3234	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3235
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3236	hasUnsavedChanges
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	3237	self useFixPalette value ~= screen fixColors notNil ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	3238	self useFixGrayPalette value ~= screen fixGrayColors notNil ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	3239	self isColorMonitor value ~= screen hasColors ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	3240	self sizeX value ~= screen widthInMillimeter ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	3241	self sizeY value ~= screen heightInMillimeter ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	3242
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	3243	self deepIcons value ~= screen supportsDeepIcons ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	3244	ditherSyms notNil ifTrue:[
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	3245	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	3246	].
6037 4ee47a9ce56a Unify naming: clipBoard->clipboard Stefan Vogel <sv@exept.de> parents: 6030 diff changeset	3247	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	3248	^ false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3249	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3250
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3251	!AbstractSettingsApplication::EditSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3252
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3253	defaultIcon
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	3254	<resource: #programImage>
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	3255
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	3256	^ ToolbarIconLibrary editorIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3257	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3258
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3259	!AbstractSettingsApplication::EditSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3260
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3261	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3262	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3263	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3264
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3265	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3266	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3267
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3268	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	3269	UIPainter new openOnClass:AbstractSettingsApplication::EditSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3270	AbstractSettingsApplication::EditSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3271	AbstractSettingsApplication::EditSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3272	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3273
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3274	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3275
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3276	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3277	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3278	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3279	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3280	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3281	label: 'Editor Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3282	name: 'Editor Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3283	min: (Point 10 10)
7580 4580c0a025ff underline in word-select setting Claus Gittinger <cg@exept.de> parents: 7557 diff changeset	3284	bounds: (Rectangle 0 0 600 320)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3285	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3286	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3287	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3288	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3289	(VerticalPanelViewSpec
7979 2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3290	name: 'VerticalPanel1'
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3291	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	3292	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3293	verticalLayout: top
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3294	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3295	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3296	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3297	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3298	collection: (
7979 2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3299	(CheckBoxSpec
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3300	label: 'CTRL-Key to Start TextDrag'
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3301	name: 'CTRLKeyStTextDragCheckBox'
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3302	model: startTextDragWithControl
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3303	translateLabel: true
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3304	extent: (Point 600 23)
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3305	)
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3306	(CheckBoxSpec
8682 01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	3307	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	3308	name: 'EnforceContentsDropForFiles'
01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	3309	model: enforceContentsDropForFiles
01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	3310	translateLabel: true
01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	3311	extent: (Point 600 23)
01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	3312	)
01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	3313	(CheckBoxSpec
7979 2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3314	label: 'SearchBox is Modal'
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3315	name: 'SearchBoxModalCheckBox'
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3316	model: searchDialogIsModal
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3317	translateLabel: true
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3318	extent: (Point 600 23)
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3319	)
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3320	(CheckBoxSpec
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3321	label: 'Tab Stops in Multiples of 4'
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3322	name: 'TabStopsMultiples4CheckBox'
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3323	model: tabsIs4
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3324	translateLabel: true
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3325	extent: (Point 600 23)
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3326	)
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3327	(CheckBoxSpec
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3328	label: 'Double Click Select Behavior as in ST80'
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3329	name: 'DoubleClickSelectBehaviorST80CheckBox'
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3330	model: st80DoubleClickSelectMode
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3331	translateLabel: true
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3332	extent: (Point 600 23)
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3333	)
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3334	(CheckBoxSpec
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3335	label: 'Cursor has ST80 Line-end Behavior'
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3336	name: 'CursorST80LineEndBehaviorCheckBox'
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3337	model: st80EditMode
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3338	translateLabel: true
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3339	extent: (Point 600 23)
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3340	)
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3341	(CheckBoxSpec
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3342	label: 'Treat Underscore as Letter in Word-Select'
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3343	name: 'UnderscoreIsLetterCheckBox'
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3344	model: extendedWordSelectMode
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3345	translateLabel: true
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3346	extent: (Point 600 23)
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3347	)
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3348	(CheckBoxSpec
8710 ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	3349	label: 'Any non-Whitespace in Word-Select'
7979 2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3350	name: 'CheckBox1'
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3351	model: whitespaceWordSelectMode
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3352	translateLabel: true
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3353	extent: (Point 600 23)
6860 9992480933a9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6853 diff changeset	3354	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3355	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3356
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3357	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3358	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3359	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3360
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3361	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3362	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3363	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3364
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3365	!AbstractSettingsApplication::EditSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3366
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	3367	basicReadSettings
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	3368	self
7979 2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3369	readAspects:self commonAspects
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	3370	from:currentUserPrefs.
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	3371
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	3372	self st80DoubleClickSelectMode value:TextView st80SelectMode.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	3373	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	3374	self enforceContentsDropForFiles value:(currentUserPrefs enforcedDropModeForFiles == #text).
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	3375	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	3376
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3377	basicSaveSettings
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	3378	self
7979 2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3379	writeAspects:self commonAspects
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	3380	to:currentUserPrefs.
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	3381
8682 01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	3382	self enforceContentsDropForFiles value ifTrue:[
01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	3383	currentUserPrefs enforcedDropModeForFiles:#text
01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	3384	] ifFalse:[
01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	3385	currentUserPrefs enforcedDropModeForFiles:nil
01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	3386	].
01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	3387
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	3388	TextView st80SelectMode:(self st80DoubleClickSelectMode value).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3389	tabsIs4 value ~~ (ListView userDefaultTabPositions = ListView tab4Positions) ifTrue:[
8420 26f02c3ab38e default to 4-tabs Claus Gittinger <cg@exept.de> parents: 8376 diff changeset	3390	ListView userDefaultTabPositions:(self tabsIs4 value
26f02c3ab38e default to 4-tabs Claus Gittinger <cg@exept.de> parents: 8376 diff changeset	3391	ifTrue:[ListView tab4Positions]
26f02c3ab38e default to 4-tabs Claus Gittinger <cg@exept.de> parents: 8376 diff changeset	3392	ifFalse:[ListView tab8Positions]).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3393	ListView allSubInstancesDo:[:eachKindOfListView \|
8420 26f02c3ab38e default to 4-tabs Claus Gittinger <cg@exept.de> parents: 8376 diff changeset	3394	self tabsIs4 value
26f02c3ab38e default to 4-tabs Claus Gittinger <cg@exept.de> parents: 8376 diff changeset	3395	ifTrue:[eachKindOfListView setTab4]
26f02c3ab38e default to 4-tabs Claus Gittinger <cg@exept.de> parents: 8376 diff changeset	3396	ifFalse:[eachKindOfListView setTab8]
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3397	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3398	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3399	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3400
7979 2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3401	commonAspects
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3402	^ #(
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3403	#searchDialogIsModal
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3404	#startTextDragWithControl
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3405	#st80EditMode
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3406	#extendedWordSelectMode
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3407	#whitespaceWordSelectMode
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3408	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3409	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3410
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3411	!AbstractSettingsApplication::EditSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3412
8682 01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	3413	enforceContentsDropForFiles
01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	3414	enforceContentsDropForFiles isNil ifTrue:[
01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	3415	enforceContentsDropForFiles := true asValue.
01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	3416	enforceContentsDropForFiles onChangeSend:#updateModifiedChannel to:self.
01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	3417	].
01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	3418	^ enforceContentsDropForFiles.
01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	3419	!
01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	3420
7580 4580c0a025ff underline in word-select setting Claus Gittinger <cg@exept.de> parents: 7557 diff changeset	3421	extendedWordSelectMode
4580c0a025ff underline in word-select setting Claus Gittinger <cg@exept.de> parents: 7557 diff changeset	3422	extendedWordSelectMode isNil ifTrue:[
4580c0a025ff underline in word-select setting Claus Gittinger <cg@exept.de> parents: 7557 diff changeset	3423	extendedWordSelectMode := true asValue.
4580c0a025ff underline in word-select setting Claus Gittinger <cg@exept.de> parents: 7557 diff changeset	3424	extendedWordSelectMode onChangeSend:#updateModifiedChannel to:self.
4580c0a025ff underline in word-select setting Claus Gittinger <cg@exept.de> parents: 7557 diff changeset	3425	].
4580c0a025ff underline in word-select setting Claus Gittinger <cg@exept.de> parents: 7557 diff changeset	3426	^ extendedWordSelectMode.
4580c0a025ff underline in word-select setting Claus Gittinger <cg@exept.de> parents: 7557 diff changeset	3427	!
4580c0a025ff underline in word-select setting Claus Gittinger <cg@exept.de> parents: 7557 diff changeset	3428
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3429	searchDialogIsModal
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3430	searchDialogIsModal isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3431	searchDialogIsModal := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	3432	searchDialogIsModal onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3433	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3434	^ searchDialogIsModal.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3435	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3436
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	3437	st80DoubleClickSelectMode
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	3438	st80DoubleClickSelectMode isNil ifTrue:[
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	3439	st80DoubleClickSelectMode := true asValue.
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	3440	st80DoubleClickSelectMode onChangeSend:#updateModifiedChannel to:self.
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	3441	].
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	3442	^ st80DoubleClickSelectMode.
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	3443	!
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	3444
6783 6bda02cccffd * empty log message * Claus Gittinger <cg@exept.de> parents: 6782 diff changeset	3445	st80EditMode
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3446	st80EditingMode isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3447	st80EditingMode := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	3448	st80EditingMode onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3449	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3450	^ st80EditingMode.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3451	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3452
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3453	startTextDragWithControl
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3454	startTextDragWithControl isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3455	startTextDragWithControl := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	3456	startTextDragWithControl onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3457	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3458	^ startTextDragWithControl.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3459	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3460
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3461	tabsIs4
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3462	tabsIs4 isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3463	tabsIs4 := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	3464	tabsIs4 onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3465	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3466	^ tabsIs4.
7979 2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3467	!
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3468
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3469	whitespaceWordSelectMode
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3470	whitespaceWordSelectMode isNil ifTrue:[
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3471	whitespaceWordSelectMode := true asValue.
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3472	whitespaceWordSelectMode onChangeSend:#updateModifiedChannel to:self.
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3473	].
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3474	^ whitespaceWordSelectMode.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3475	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3476
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	3477	!AbstractSettingsApplication::EditSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	3478
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	3479	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	3480	^ 'Launcher/editSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	3481	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	3482
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3483	!AbstractSettingsApplication::EditSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3484
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3485	hasUnsavedChanges
8682 01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	3486	self enforceContentsDropForFiles value ~= (currentUserPrefs enforcedDropModeForFiles == #text) ifTrue:[^ true].
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	3487	TextView st80SelectMode ~= (self st80DoubleClickSelectMode value) ifTrue:[^ true].
5915 d7d685d60d82 * empty log message * Claus Gittinger <cg@exept.de> parents: 5912 diff changeset	3488	tabsIs4 value ~~ (ListView userDefaultTabPositions = ListView tab4Positions) ifTrue:[
d7d685d60d82 * empty log message * Claus Gittinger <cg@exept.de> parents: 5912 diff changeset	3489	ListView userDefaultTabPositions ~= (self tabsIs4 value
d7d685d60d82 * empty log message * Claus Gittinger <cg@exept.de> parents: 5912 diff changeset	3490	ifTrue:[ListView tab4Positions]
d7d685d60d82 * empty log message * Claus Gittinger <cg@exept.de> parents: 5912 diff changeset	3491	ifFalse:[ListView tab8Positions]) ifTrue:[^ true].
d7d685d60d82 * empty log message * Claus Gittinger <cg@exept.de> parents: 5912 diff changeset	3492	].
6783 6bda02cccffd * empty log message * Claus Gittinger <cg@exept.de> parents: 6782 diff changeset	3493
6bda02cccffd * empty log message * Claus Gittinger <cg@exept.de> parents: 6782 diff changeset	3494	(self
7979 2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3495	hasChangedAspectIn:self commonAspects
6783 6bda02cccffd * empty log message * Claus Gittinger <cg@exept.de> parents: 6782 diff changeset	3496	asComparedTo:currentUserPrefs) ifTrue:[^ true].
6bda02cccffd * empty log message * Claus Gittinger <cg@exept.de> parents: 6782 diff changeset	3497
5915 d7d685d60d82 * empty log message * Claus Gittinger <cg@exept.de> parents: 5912 diff changeset	3498	^ false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3499	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3500
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3501	!AbstractSettingsApplication::FontSettingsAppl class methodsFor:'defaults'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3502
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3503	widgetList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3504
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3505	^ #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3506	'All'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3507	'Labels'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3508	'Buttons'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3509	'Lists'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3510	'Menus'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3511	'Edited Text'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3512	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3513	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3514
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	3515	!AbstractSettingsApplication::FontSettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	3516
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	3517	defaultIcon
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	3518	<resource: #programImage>
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	3519
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	3520	^ ToolbarIconLibrary fontIcon
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	3521	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	3522
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	3523	defaultIcon2
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	3524	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	3525	by the ImageEditor of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	3526
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	3527	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	3528	the ImageEditor may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	3529
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	3530	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	3531	self defaultIcon2 inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	3532	ImageEditor openOnClass:self andSelector:#defaultIcon2
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	3533	Icon flushCachedIcons
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
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	3536	<resource: #image>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	3537
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	3538	^Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	3539	constantNamed:#'AbstractSettingsApplication::FontSettingsAppl class defaultIcon2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	3540	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	3541	@@@@@@@@@@@@@@@@@@@@@!!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	3542	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	3543	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	3544	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	3545
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3546	!AbstractSettingsApplication::FontSettingsAppl class methodsFor:'instance creation'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3547
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3548	fontForEncoding:encodingMatch
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3549
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3550	\| inst \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3551
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3552	inst := self new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3553	inst encodingMatch:encodingMatch.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3554	self initialize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3555	self open.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3556	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3557
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3558	!AbstractSettingsApplication::FontSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3559
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3560	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3561	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3562	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3563
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3564	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3565	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3566
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3567	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	3568	UIPainter new openOnClass:AbstractSettingsApplication::FontSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3569	AbstractSettingsApplication::FontSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3570	AbstractSettingsApplication::FontSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3571	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3572
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3573	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3574
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3575	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3576	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3577	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3578	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3579	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3580	label: 'Font Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3581	name: 'Font Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3582	min: (Point 10 10)
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	3583	bounds: (Rectangle 0 0 512 657)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3584	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3585	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3586	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3587	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3588	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3589	name: 'VerticalPanel1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3590	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	3591	horizontalLayout: fitSpace
9551 c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3592	verticalLayout: topSpace
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3593	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3594	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3595	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3596	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3597	collection: (
9551 c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3598	(LabelSpec
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3599	label: 'Label'
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3600	name: 'Label3'
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3601	style: labelFont
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3602	translateLabel: true
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3603	labelChannel: infoText
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3604	resizeForLabel: false
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3605	adjust: left
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3606	extent: (Point 506 171)
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3607	)
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3608	(ViewSpec
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3609	name: 'CodeBox'
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3610	component:
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3611	(SpecCollection
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3612	collection: (
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3613	(LabelSpec
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3614	label: 'Code'
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3615	name: 'Label1'
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3616	layout: (LayoutFrame 0 0.0 0 0 0 1.0 20 0)
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3617	translateLabel: true
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3618	adjust: left
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3619	)
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3620	(LabelSpec
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3621	label: 'Text Font'
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3622	name: 'Label2'
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3623	layout: (LayoutFrame 105 0 22 0 -5 1 44 0)
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3624	translateLabel: true
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3625	labelChannel: textFontLabelHolder
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3626	adjust: left
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3627	postBuildCallback: postBuildTextFontLabel:
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3628	)
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3629	(ActionButtonSpec
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3630	label: 'Change...'
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3631	name: 'Button1'
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3632	layout: (LayoutFrame 0 0.0 22 0 105 0 44 0)
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3633	translateLabel: true
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3634	tabable: true
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3635	model: changeTextFont
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3636	)
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3637	(DividerSpec
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3638	name: 'Separator11'
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3639	layout: (LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3640	)
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3641	)
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3642
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3643	)
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3644	extent: (Point 506 50)
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3645	)
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3646	(ViewSpec
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3647	name: 'InputFieldsBox'
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3648	component:
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3649	(SpecCollection
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3650	collection: (
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3651	(LabelSpec
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3652	label: 'Input Fields'
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3653	name: 'Input Fields'
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	3654	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	3655	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3656	adjust: left
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3657	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3658	(LabelSpec
9551 c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3659	label: 'InputFields Font'
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3660	name: 'InputFieldsFont'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3661	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	3662	translateLabel: true
9551 c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3663	labelChannel: inputFieldFontLabelHolder
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3664	adjust: left
9551 c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3665	postBuildCallback: postBuildInputFieldFontLabel:
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3666	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3667	(ActionButtonSpec
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	3668	label: 'Change...'
9551 c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3669	name: 'ChangeText'
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3670	layout: (LayoutFrame 0 0.0 22 0 105 0 44 0)
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3671	translateLabel: true
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3672	tabable: true
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3673	model: changeInputFieldFont
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3674	)
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3675	(DividerSpec
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3676	name: 'Separator10'
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3677	layout: (LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3678	)
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3679	)
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3680
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3681	)
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3682	extent: (Point 506 50)
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3683	)
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3684	(ViewSpec
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3685	name: 'ListsBox'
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3686	component:
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3687	(SpecCollection
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3688	collection: (
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3689	(LabelSpec
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3690	label: 'Lists'
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3691	name: 'Lists'
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3692	layout: (LayoutFrame 0 0.0 0 0 0 1.0 20 0)
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3693	translateLabel: true
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3694	adjust: left
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3695	)
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3696	(LabelSpec
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3697	label: 'Lists Font'
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3698	name: 'ListsFont'
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3699	layout: (LayoutFrame 105 0 22 0 -5 1 44 0)
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3700	translateLabel: true
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3701	labelChannel: listsFontLabelHolder
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3702	adjust: left
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3703	postBuildCallback: postBuildListsFontLabel:
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3704	)
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3705	(ActionButtonSpec
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3706	label: 'Change...'
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3707	name: 'ChangeLists'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3708	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	3709	translateLabel: true
7720 a15569db7548 tabability Claus Gittinger <cg@exept.de> parents: 7608 diff changeset	3710	tabable: true
9551 c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3711	model: changeListsFont
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3712	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3713	(DividerSpec
9551 c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3714	name: 'Separator8'
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3715	layout: (LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3716	)
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3717	)
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3718
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3719	)
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3720	extent: (Point 506 50)
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3721	)
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3722	(ViewSpec
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3723	name: 'MenusBox'
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3724	component:
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3725	(SpecCollection
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3726	collection: (
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3727	(LabelSpec
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3728	label: 'Menus'
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3729	name: 'Menus'
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3730	layout: (LayoutFrame 0 0.0 0 0 0 1.0 20 0)
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3731	translateLabel: true
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3732	adjust: left
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3733	)
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3734	(LabelSpec
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3735	label: 'Menus Font'
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3736	name: 'MenusFont'
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3737	layout: (LayoutFrame 105 0 22 0 -5 1 44 0)
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3738	translateLabel: true
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3739	labelChannel: menusFontLabelHolder
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3740	adjust: left
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3741	postBuildCallback: postBuildMenuesFontLabel:
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3742	)
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3743	(ActionButtonSpec
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3744	label: 'Change...'
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3745	name: 'ChangeMenus'
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3746	layout: (LayoutFrame 0 0.0 22 0 105 0 44 0)
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3747	translateLabel: true
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3748	tabable: true
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3749	model: changeMenusFont
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3750	)
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3751	(DividerSpec
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3752	name: 'Separator9'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3753	layout: (LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	3754	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3755	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3756
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3757	)
7720 a15569db7548 tabability Claus Gittinger <cg@exept.de> parents: 7608 diff changeset	3758	extent: (Point 506 50)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3759	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3760	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3761	name: 'LabelsBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3762	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3763	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3764	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3765	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3766	label: 'Labels'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3767	name: 'Labels'
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	3768	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	3769	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3770	adjust: left
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3771	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3772	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3773	label: 'Labels'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3774	name: 'LabelsFont'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3775	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	3776	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3777	labelChannel: labelsFontLabelHolder
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3778	adjust: left
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3779	postBuildCallback: postBuildLabelsFontLabel:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3780	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3781	(ActionButtonSpec
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	3782	label: 'Change...'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3783	name: 'ChangeLabels'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3784	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	3785	translateLabel: true
7720 a15569db7548 tabability Claus Gittinger <cg@exept.de> parents: 7608 diff changeset	3786	tabable: true
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3787	model: changeLabelsFont
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3788	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3789	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3790	name: 'Separator6'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3791	layout: (LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	3792	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3793	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3794
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3795	)
7720 a15569db7548 tabability Claus Gittinger <cg@exept.de> parents: 7608 diff changeset	3796	extent: (Point 506 50)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3797	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3798	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3799	name: 'ButtonsBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3800	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3801	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3802	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3803	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3804	label: 'Buttons'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3805	name: 'Buttons'
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	3806	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	3807	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3808	adjust: left
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3809	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3810	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3811	label: 'Buttons Font'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3812	name: 'ButtonsFont'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3813	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	3814	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3815	labelChannel: buttonsFontLabelHolder
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3816	adjust: left
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3817	postBuildCallback: postBuildButtonsFontLabel:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3818	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3819	(ActionButtonSpec
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	3820	label: 'Change...'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3821	name: 'Change Buttons'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3822	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	3823	translateLabel: true
7720 a15569db7548 tabability Claus Gittinger <cg@exept.de> parents: 7608 diff changeset	3824	tabable: true
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3825	model: changeButtonsFont
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3826	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3827	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3828	name: 'Separator7'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3829	layout: (LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3830	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3831	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3832
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3833	)
7720 a15569db7548 tabability Claus Gittinger <cg@exept.de> parents: 7608 diff changeset	3834	extent: (Point 506 50)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3835	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3836	(ViewSpec
9551 c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3837	name: 'AllBox'
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3838	component:
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3839	(SpecCollection
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3840	collection: (
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3841	(LabelSpec
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3842	label: 'All (Others)'
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3843	name: 'All'
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	3844	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	3845	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3846	adjust: left
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3847	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3848	(LabelSpec
9551 c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3849	label: 'Label'
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3850	name: 'AllFont'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3851	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	3852	translateLabel: true
9551 c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3853	labelChannel: allFontLabelHolder
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3854	adjust: left
9551 c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3855	postBuildCallback: postBuildAllFontLabel:
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3856	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3857	(ActionButtonSpec
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	3858	label: 'Change...'
9551 c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3859	name: 'ChangeAll'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3860	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	3861	translateLabel: true
7720 a15569db7548 tabability Claus Gittinger <cg@exept.de> parents: 7608 diff changeset	3862	tabable: true
9551 c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3863	model: changeAllFont
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3864	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3865	(DividerSpec
9551 c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3866	name: 'Separator1'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3867	layout: (LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	3868	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3869	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3870
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3871	)
7720 a15569db7548 tabability Claus Gittinger <cg@exept.de> parents: 7608 diff changeset	3872	extent: (Point 506 50)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3873	)
10792 135ac419296e Added linux font workaround checkbox. vrany parents: 10778 diff changeset	3874	(CheckBoxSpec
135ac419296e Added linux font workaround checkbox. vrany parents: 10778 diff changeset	3875	label: 'Linux font workaround: do not reset fonts on snapshot restart'
135ac419296e Added linux font workaround checkbox. vrany parents: 10778 diff changeset	3876	name: 'LinuxFontWorkaroundBox'
135ac419296e Added linux font workaround checkbox. vrany parents: 10778 diff changeset	3877	visibilityChannel: linuxFontWorkaroundVisible
135ac419296e Added linux font workaround checkbox. vrany parents: 10778 diff changeset	3878	model: linuxFontWorkaround
135ac419296e Added linux font workaround checkbox. vrany parents: 10778 diff changeset	3879	translateLabel: true
135ac419296e Added linux font workaround checkbox. vrany parents: 10778 diff changeset	3880	extent: (Point 506 22)
135ac419296e Added linux font workaround checkbox. vrany parents: 10778 diff changeset	3881	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3882	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3883
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3884	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3885	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3886	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3887
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3888	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3889	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3890	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3891
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3892	!AbstractSettingsApplication::FontSettingsAppl methodsFor:'accessing'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3893
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3894	encodingMatch:aEncodingMatch
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3895
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3896	aEncodingMatch notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3897	filter := [:f \| f encoding notNil
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3898	and:[aEncodingMatch match:f encoding]].
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:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3903
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	3904	basicReadSettings
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	3905	"/ View readStyleSheetAndUpdateAllStyleCaches.
9185 7f2236aec3d4 FontSettingsAppl - set the View defaultFont to the "all font" setting Stefan Vogel <sv@exept.de> parents: 9176 diff changeset	3906	self allOfThem value:View defaultFont.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	3907	self labelDef value:Label defaultFont.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	3908	self buttonDef value:Button defaultFont.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	3909	self listDef value:SelectionInListView defaultFont.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	3910	self menuDef value:MenuView defaultFont.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	3911	self textDef value:TextView defaultFont.
7954 24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3912	self inputFieldDef value:EditField defaultFont.
10792 135ac419296e Added linux font workaround checkbox. vrany parents: 10778 diff changeset	3913
135ac419296e Added linux font workaround checkbox. vrany parents: 10778 diff changeset	3914	self readAspects: #(linuxFontWorkaround) from: currentUserPrefs
135ac419296e Added linux font workaround checkbox. vrany parents: 10778 diff changeset	3915
135ac419296e Added linux font workaround checkbox. vrany parents: 10778 diff changeset	3916	"Modified: / 10-10-2011 / 12:15:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	3917	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	3918
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3919	basicSaveSettings
5464 4f59a3bc9fb2 * empty log message * ca parents: 5448 diff changeset	3920	\|fn\|
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3921
9185 7f2236aec3d4 FontSettingsAppl - set the View defaultFont to the "all font" setting Stefan Vogel <sv@exept.de> parents: 9176 diff changeset	3922	View defaultFont:self allOfThem value.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3923	Label defaultFont:self labelDef value.
5551 24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	3924
24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	3925	fn := self buttonDef value.
24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	3926	Button defaultFont:fn.
24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	3927	Toggle defaultFont:fn.
24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	3928
24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	3929	fn := self textDef value.
24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	3930	TextView withAllSubclasses do:[:cls \| cls defaultFont:fn].
24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	3931
7954 24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3932	fn := self inputFieldDef value.
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3933	EditField withAllSubclasses do:[:cls \| cls defaultFont:fn].
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3934
5551 24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	3935	fn := self listDef value.
24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	3936	SelectionInListView withAllSubclasses do:[:cls \| cls defaultFont:fn].
24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	3937
5464 4f59a3bc9fb2 * empty log message * ca parents: 5448 diff changeset	3938	fn := self menuDef value.
5551 24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	3939	ListView defaultFont:fn.
5464 4f59a3bc9fb2 * empty log message * ca parents: 5448 diff changeset	3940	MenuView defaultFont:fn.
4f59a3bc9fb2 * empty log message * ca parents: 5448 diff changeset	3941	MenuPanel defaultFont:fn.
4f59a3bc9fb2 * empty log message * ca parents: 5448 diff changeset	3942	NoteBookView defaultFont:fn.
5551 24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	3943	PullDownMenu defaultFont:fn.
10792 135ac419296e Added linux font workaround checkbox. vrany parents: 10778 diff changeset	3944
135ac419296e Added linux font workaround checkbox. vrany parents: 10778 diff changeset	3945	self writeAspects: #(linuxFontWorkaround) to: currentUserPrefs
135ac419296e Added linux font workaround checkbox. vrany parents: 10778 diff changeset	3946
135ac419296e Added linux font workaround checkbox. vrany parents: 10778 diff changeset	3947	"Modified: / 10-10-2011 / 12:15:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3948	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3949
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3950	changeAllFont
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3951	\|f\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3952
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3953	f := FontPanel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3954	fontFromUserInitial:(self allOfThem value)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3955	title:(resources string:'Font for %1' with:'All')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3956	filter:filter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3957	f notNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	3958	self allOfThem value:(f onDevice:allLabel device).
6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	3959	self labelDef value:(f onDevice:labelLabel device).
6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	3960	self buttonDef value:(f onDevice:buttonsLabel device).
6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	3961	self listDef value:(f onDevice:listsLabel device).
6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	3962	self menuDef value:(f onDevice:menuLabel device).
6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	3963	self textDef value:(f onDevice:textLabel device).
7954 24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3964	self inputFieldDef value:(f onDevice:inputFieldLabel device).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3965	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3966	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3967
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3968	changeButtonsFont
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3969
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3970	\|f\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3971
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3972	f := FontPanel
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	3973	fontFromUserInitial:(self buttonDef value)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3974	title:(resources string:'Font for %1' with:'All')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3975	filter:filter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3976	f notNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	3977	self buttonDef value:(f onDevice:buttonsLabel device).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3978	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3979	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3980
7954 24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3981	changeInputFieldFont
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3982	\|f\|
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3983
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3984	f := FontPanel
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3985	fontFromUserInitial:(self inputFieldDef value)
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3986	title:(resources string:'Font for %1' with:'Input Fields')
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3987	filter:filter.
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3988	f notNil ifTrue:[
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3989	self inputFieldDef value:(f onDevice:inputFieldLabel device).
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3990	]
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3991	!
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3992
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3993	changeLabelsFont
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	3994	\|f \|
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3995
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3996	f := FontPanel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3997	fontFromUserInitial:(self labelDef value)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3998	title:(resources string:'Font for %1' with:'Labels')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3999	filter:filter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4000	f notNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	4001	self labelDef value:(f onDevice:labelLabel device).
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4002	].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4003	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4004
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4005	changeListsFont
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4006	\|f\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4007
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4008	f := FontPanel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4009	fontFromUserInitial:(self listDef value)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4010	title:(resources string:'Font for %1' with:'Lists')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4011	filter:filter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4012	f notNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	4013	self listDef value:(f onDevice:listsLabel device).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4014	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4015	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4016
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4017	changeMenusFont
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4018	\|f\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4019
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4020	f := FontPanel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4021	fontFromUserInitial:(self menuDef value)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4022	title:(resources string:'Font for %1' with:'Menus')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4023	filter:filter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4024	f notNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	4025	self menuDef value:(f onDevice:menuLabel device).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4026	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4027	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4028
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4029	changeTextFont
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4030	\|f\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4031
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4032	f := FontPanel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4033	fontFromUserInitial:(self textDef value)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4034	title:(resources string:'Font for %1' with:'Edited Text')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4035	filter:filter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4036	f notNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	4037	self textDef value:(f onDevice:textLabel device).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4038	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4039	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4040
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4041	!AbstractSettingsApplication::FontSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4042
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4043	allFontLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4044
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4045	allFontLabelHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4046	allFontLabelHolder := '' asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4047	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4048	^ allFontLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4049	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4050
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4051	allOfThem
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4052	"return/create the 'allOfThem' value holder (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4053
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4054	allOfThem isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4055	allOfThem := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4056	allOfThem addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4057	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4058	^ allOfThem
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4059	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4060
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4061	buttonDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4062	"return/create the 'buttonDef' value holder (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4063
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4064	buttonDef isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4065	buttonDef := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4066	buttonDef addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4067	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4068	^ buttonDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4069	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4070
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4071	buttonsFontLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4072
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4073	buttonsFontLabelHolder isNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	4074	buttonsFontLabelHolder := '' asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4075	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4076	^ buttonsFontLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4077	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4078
9551 c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	4079	infoText
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	4080	^ self resources
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	4081	string:'FONT_SETTINGS_INFO'
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	4082	default:'Please notice that any changes usually only affect new windows.
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	4083	Existing windows usually remember their initial font as created.
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	4084	If required, reopen some of the views.
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	4085
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	4086	Also notice:
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	4087	unless you save your new settings,
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	4088	only the current session is affected by changes here.'
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	4089
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	4090	"Created: / 17-08-2010 / 10:52:00 / cg"
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
7954 24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	4093	inputFieldDef
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	4094	inputFieldDef isNil ifTrue:[
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	4095	inputFieldDef := ValueHolder new.
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	4096	inputFieldDef addDependent:self.
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	4097	].
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	4098	^ inputFieldDef
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
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	4101	inputFieldFontLabelHolder
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 isNil ifTrue:[
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	4104	inputFieldFontLabelHolder := '' asValue.
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	4105	].
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	4106	^ inputFieldFontLabelHolder.
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
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4109	labelDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4110	"return/create the 'labelDef' value holder (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4111
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4112	labelDef isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4113	labelDef := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4114	labelDef addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4115	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4116	^ labelDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4117	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4118
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4119	labelsFontLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4120
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4121	labelsFontLabelHolder isNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	4122	labelsFontLabelHolder := '' asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4123	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4124	^ labelsFontLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4125	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4126
10792 135ac419296e Added linux font workaround checkbox. vrany parents: 10778 diff changeset	4127	linuxFontWorkaround
135ac419296e Added linux font workaround checkbox. vrany parents: 10778 diff changeset	4128
135ac419296e Added linux font workaround checkbox. vrany parents: 10778 diff changeset	4129	linuxFontWorkaround isNil ifTrue:[
135ac419296e Added linux font workaround checkbox. vrany parents: 10778 diff changeset	4130	linuxFontWorkaround := false asValue.
135ac419296e Added linux font workaround checkbox. vrany parents: 10778 diff changeset	4131	linuxFontWorkaround onChangeSend:#updateModifiedChannel to:self
135ac419296e Added linux font workaround checkbox. vrany parents: 10778 diff changeset	4132
135ac419296e Added linux font workaround checkbox. vrany parents: 10778 diff changeset	4133	].
135ac419296e Added linux font workaround checkbox. vrany parents: 10778 diff changeset	4134	^ linuxFontWorkaround.
135ac419296e Added linux font workaround checkbox. vrany parents: 10778 diff changeset	4135
135ac419296e Added linux font workaround checkbox. vrany parents: 10778 diff changeset	4136	"Created: / 10-10-2011 / 12:14:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
135ac419296e Added linux font workaround checkbox. vrany parents: 10778 diff changeset	4137	!
135ac419296e Added linux font workaround checkbox. vrany parents: 10778 diff changeset	4138
135ac419296e Added linux font workaround checkbox. vrany parents: 10778 diff changeset	4139	linuxFontWorkaroundVisible
135ac419296e Added linux font workaround checkbox. vrany parents: 10778 diff changeset	4140
135ac419296e Added linux font workaround checkbox. vrany parents: 10778 diff changeset	4141	^OperatingSystem getOSType == #linux
135ac419296e Added linux font workaround checkbox. vrany parents: 10778 diff changeset	4142
135ac419296e Added linux font workaround checkbox. vrany parents: 10778 diff changeset	4143	"Created: / 10-10-2011 / 12:57:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
135ac419296e Added linux font workaround checkbox. vrany parents: 10778 diff changeset	4144	!
135ac419296e Added linux font workaround checkbox. vrany parents: 10778 diff changeset	4145
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4146	listDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4147	"return/create the 'listDef' value holder (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4148
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4149	listDef isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4150	listDef := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4151	listDef addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4152	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4153	^ listDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4154	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4155
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4156	listsFontLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4157
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4158	listsFontLabelHolder isNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	4159	listsFontLabelHolder := '' asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4160	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4161	^ listsFontLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4162	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4163
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4164	menuDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4165	"return/create the 'menuDef' value holder (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4166
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4167	menuDef isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4168	menuDef := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4169	menuDef addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4170	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4171	^ menuDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4172	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4173
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4174	menusFontLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4175
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4176	menusFontLabelHolder isNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	4177	menusFontLabelHolder := '' asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4178	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4179	^ menusFontLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4180	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4181
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4182	textDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4183	"return/create the 'textDef' value holder (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4184
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4185	textDef isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4186	textDef := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4187	textDef addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4188	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4189	^ textDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4190	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4191
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4192	textFontLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4193
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4194	textFontLabelHolder isNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	4195	textFontLabelHolder := '' asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4196	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4197	^ textFontLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4198	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4199
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4200	!AbstractSettingsApplication::FontSettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4201
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4202	update:something with:aParameter from:changedObject
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4203	builder notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4204	changedObject == self allOfThem ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4205	self updateFontOfLabel:allLabel andFontNameHolder:(self allFontLabelHolder) from:changedObject.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4206	^ self.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4207	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4208	changedObject == self labelDef ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4209	self updateFontOfLabel:labelLabel andFontNameHolder:(self labelsFontLabelHolder) from:changedObject.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4210	^ self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4211	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4212	changedObject == self buttonDef ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4213	self updateFontOfLabel:buttonsLabel andFontNameHolder:(self buttonsFontLabelHolder) from:changedObject.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4214	^ self.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4215	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4216	changedObject == self listDef ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4217	self updateFontOfLabel:listsLabel andFontNameHolder:(self listsFontLabelHolder) from:changedObject.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4218	^ self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4219	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4220	changedObject == self menuDef ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4221	self updateFontOfLabel:menuLabel andFontNameHolder:(self menusFontLabelHolder) from:changedObject.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4222	^ self.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4223	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4224	changedObject == self textDef ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4225	self updateFontOfLabel:textLabel andFontNameHolder:(self textFontLabelHolder) from:changedObject.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4226	^ self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4227	].
7954 24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	4228	changedObject == self inputFieldDef ifTrue:[
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	4229	self updateFontOfLabel:inputFieldLabel andFontNameHolder:(self inputFieldFontLabelHolder) from:changedObject.
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	4230	^ self.
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	4231	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4232	].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4233	super update:something with:aParameter from:changedObject
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4234	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4235
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4236	updateAllFontLabels
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4237	self update:#value with:nil from:self allOfThem.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4238	self update:#value with:nil from:self labelDef.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4239	self update:#value with:nil from:self buttonDef.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4240	self update:#value with:nil from:self listDef.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4241	self update:#value with:nil from:self menuDef.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4242	self update:#value with:nil from:self textDef.
7954 24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	4243	self update:#value with:nil from:self inputFieldDef.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4244	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4245
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4246	updateFontOfLabel:labelWidget andFontNameHolder:fontNameHolder from:changedObject
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	4247	\|f label\|
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4248
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4249	f := changedObject value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4250	labelWidget font:f.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4251	label := f isNil ifTrue:[
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	4252	''
c72e35116b13 instable state penk parents: 5040 diff changeset	4253	] ifFalse:[
c72e35116b13 instable state penk parents: 5040 diff changeset	4254	f userFriendlyName
c72e35116b13 instable state penk parents: 5040 diff changeset	4255	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4256	fontNameHolder value:label.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	4257	self updateModifiedChannel
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4258	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4259
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	4260	!AbstractSettingsApplication::FontSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	4261
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	4262	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	4263	^ 'Launcher/fontSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	4264	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	4265
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4266	!AbstractSettingsApplication::FontSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4267
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4268	postBuildAllFontLabel:aWidget
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4269
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4270	allLabel := aWidget.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4271	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4272
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4273	postBuildButtonsFontLabel:aWidget
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4274
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4275	buttonsLabel := aWidget.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4276	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4277
7954 24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	4278	postBuildInputFieldFontLabel:aWidget
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	4279
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	4280	inputFieldLabel := aWidget.
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	4281	!
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	4282
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4283	postBuildLabelsFontLabel:aWidget
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4284
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4285	labelLabel := aWidget.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4286	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4287
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4288	postBuildListsFontLabel:aWidget
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4289
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4290	listsLabel := aWidget.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4291	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4292
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4293	postBuildMenuesFontLabel:aWidget
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4294
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4295	menuLabel := aWidget.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4296	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4297
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4298	postBuildTextFontLabel:aWidget
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4299
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4300	textLabel := aWidget.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4301	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4302
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4303	postBuildWith:aBuilder
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4304	"/ self readSettings.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4305	self updateAllFontLabels.
4438 74e64acf5dd0 font settings loadrequest on postBuild now penk parents: 4434 diff changeset	4306	super postBuildWith:aBuilder
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4307	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4308
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4309	!AbstractSettingsApplication::FontSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4310
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4311	hasUnsavedChanges
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	4312	self labelDef value ~= Label defaultFont ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	4313	self buttonDef value ~= Button defaultFont ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	4314	self listDef value ~= SelectionInListView defaultFont ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	4315	self menuDef value ~= MenuView defaultFont ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	4316	self textDef value ~= TextView defaultFont ifTrue:[^ true].
7954 24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	4317	self inputFieldDef value ~= EditField defaultFont ifTrue:[^ true].
10792 135ac419296e Added linux font workaround checkbox. vrany parents: 10778 diff changeset	4318
135ac419296e Added linux font workaround checkbox. vrany parents: 10778 diff changeset	4319	(self hasChangedAspectIn: #(linuxFontWorkaround) asComparedTo:currentUserPrefs) ifTrue:[^ true].
135ac419296e Added linux font workaround checkbox. vrany parents: 10778 diff changeset	4320
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	4321	^ false
10792 135ac419296e Added linux font workaround checkbox. vrany parents: 10778 diff changeset	4322
135ac419296e Added linux font workaround checkbox. vrany parents: 10778 diff changeset	4323	"Modified: / 10-10-2011 / 12:14:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4324	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4325
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4326	!AbstractSettingsApplication::GeneralCompilerSettingsAppl class methodsFor:'defaults'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4327
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4328	keepSourceOptions
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	^ #( keep reference absReference sourceReference discard )
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4331	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4332
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4333	keepSourceStrings
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4334
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4335	^ #('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	4336	! !
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	!AbstractSettingsApplication::GeneralCompilerSettingsAppl class methodsFor:'image specs'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4339
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4340	defaultIcon
7838 dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	4341	<resource: #programImage>
dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	4342
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	4343	^ self defaultIcon3
7838 dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	4344
dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	4345	"Modified: / 17-09-2007 / 11:35:08 / cg"
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	defaultIcon1
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4349	"This resource specification was automatically generated
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4350	by the ImageEditor of ST/X."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4351
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4352	"Do not manually edit this!! If it is corrupted,
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4353	the ImageEditor may not be able to read the specification."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4354
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4355	"
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	4356	self defaultIcon1 inspect
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	4357	ImageEditor openOnClass:self andSelector:#defaultIcon1
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4358	Icon flushCachedIcons
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4359	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4360
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4361	<resource: #image>
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4362
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4363	^Icon
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	4364	constantNamed:#'AbstractSettingsApplication::GeneralCompilerSettingsAppl class defaultIcon1'
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	4365	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	4366	@@@@@@@@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	4367	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	4368	!
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	4369
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	4370	defaultIcon3
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	4371	"This resource specification was automatically generated
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	4372	by the ImageEditor of ST/X."
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	4373
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	4374	"Do not manually edit this!! If it is corrupted,
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	4375	the ImageEditor may not be able to read the specification."
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	4376
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	4377	"
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	4378	self defaultIcon3 inspect
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	4379	ImageEditor openOnClass:self andSelector:#defaultIcon3
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	4380	Icon flushCachedIcons
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	4381	"
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	4382
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	4383	<resource: #image>
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	4384
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	4385	^Icon
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	4386	constantNamed:#'AbstractSettingsApplication::GeneralCompilerSettingsAppl class defaultIcon3'
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	4387	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	4388	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	4389	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	4390	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	4391	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	4392	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	4393	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	4394	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	4395	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4396
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4397	!AbstractSettingsApplication::GeneralCompilerSettingsAppl class methodsFor:'interface specs'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4398
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4399	windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4400	"This resource specification was automatically generated
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4401	by the UIPainter of ST/X."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4402
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4403	"Do not manually edit this!! If it is corrupted,
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4404	the UIPainter may not be able to read the specification."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4405
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4406	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4407	UIPainter new openOnClass:AbstractSettingsApplication::GeneralCompilerSettingsAppl andSelector:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4408	AbstractSettingsApplication::GeneralCompilerSettingsAppl new openInterface:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4409	AbstractSettingsApplication::GeneralCompilerSettingsAppl open
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4410	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4411
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4412	<resource: #canvas>
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4413
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4414	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4415	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4416	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4417	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4418	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4419	label: 'General Compiler Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4420	name: 'General Compiler Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4421	min: (Point 10 10)
9531 fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4422	bounds: (Rectangle 0 0 600 320)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4423	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4424	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4425	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4426	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4427	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4428	name: 'VerticalPanel2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4429	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	4430	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4431	verticalLayout: top
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4432	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4433	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4434	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4435	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4436	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4437	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4438	label: 'Catch Method Redefinitions'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4439	name: 'CatchMethodRedefinitions'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4440	model: catchMethodRedefs
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4441	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4442	extent: (Point 600 25)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4443	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4444	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4445	label: 'Catch Class Redefinitions'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4446	name: 'CatchClassRedefinitions'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4447	model: catchClassRedefs
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4448	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4449	extent: (Point 600 25)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4450	)
9531 fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4451	(DividerSpec
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4452	name: 'Separator2'
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4453	extent: (Point 600 3)
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4454	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4455	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4456	label: 'Keep History Line in Methods'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4457	name: 'KeepHistoryLineinMethods'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4458	model: historyLines
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4459	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4460	extent: (Point 600 25)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4461	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4462	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4463	label: 'Keep Full Class History'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4464	name: 'KeepFullClassHistory'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4465	enableChannel: hasHistoryManager
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4466	model: fullHistoryUpdate
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4467	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4468	extent: (Point 600 25)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4469	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4470	(ViewSpec
9531 fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4471	name: 'Box2'
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4472	component:
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4473	(SpecCollection
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4474	collection: (
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4475	(LabelSpec
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4476	label: 'Username in History:'
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4477	name: 'Label1'
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4478	layout: (LayoutFrame 0 0 5 0 200 0 27 0)
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4479	translateLabel: true
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4480	adjust: right
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	(InputFieldSpec
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4483	name: 'EntryField1'
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4484	layout: (LayoutFrame 200 0 5 0 347 0 27 0)
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4485	model: userNameInHistoryHolder
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4486	immediateAccept: true
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4487	acceptOnReturn: true
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4488	acceptOnTab: true
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4489	acceptOnLostFocus: false
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4490	acceptOnPointerLeave: true
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4491	)
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4492	(LabelSpec
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4493	label: '(leave empty for login-name)'
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4494	name: 'Label2'
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4495	layout: (LayoutFrame 354 0 5 0 554 0 27 0)
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4496	translateLabel: true
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4497	adjust: left
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4498	)
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4499	)
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4500
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4501	)
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4502	extent: (Point 600 29)
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4503	)
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4504	(DividerSpec
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4505	name: 'Separator3'
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4506	extent: (Point 600 3)
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4507	)
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4508	(ViewSpec
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4509	name: 'Box1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4510	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4511	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4512	collection: (
9531 fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4513	(LabelSpec
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4514	label: 'FileIn Source Mode:'
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4515	name: 'FileInSourceModeLabel'
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4516	layout: (LayoutFrame 0 0 5 0 200 0 27 0)
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4517	translateLabel: true
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4518	adjust: right
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4519	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4520	(PopUpListSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4521	label: 'PopUp List'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4522	name: 'KeepSourceSelection'
9531 fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4523	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	4524	tabable: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4525	model: keepSourceSelection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4526	menu: keepSource
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4527	useIndex: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4528	)
4387 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	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4532	extent: (Point 600 30)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4533	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4534	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4535	name: 'Separator1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4536	extent: (Point 600 3)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4537	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4538	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4539	label: 'If Present, Load Binary Objects when Autoloading'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4540	name: 'LoadBinaryObjectsWhenAutoloading'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4541	enableChannel: canLoadBinaries
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4542	model: loadBinaries
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4543	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4544	extent: (Point 600 25)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4545	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4546	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4547
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4548	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4549	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4550	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4551
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4552	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4553	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4554	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4555
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4556	!AbstractSettingsApplication::GeneralCompilerSettingsAppl methodsFor:'actions'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4557
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4558	basicReadSettings
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4559	self keepSourceSelection value:(self class keepSourceOptions
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4560	indexOf:ClassCategoryReader sourceMode
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4561	ifAbsent:1).
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4562	self catchClassRedefs value:(Class catchClassRedefinitions ? false).
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4563	self catchMethodRedefs value:(Class catchMethodRedefinitions ? false).
9531 fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4564	self canLoadBinaries value ifTrue:[
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4565	self loadBinaries value:Smalltalk loadBinaries
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4566	] ifFalse:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4567	self loadBinaries value:false
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4568	].
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4569	self hasHistoryManager ifTrue:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4570	self fullHistoryUpdate value:(HistoryManager fullHistoryUpdate ? false)
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4571	] ifFalse:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4572	self fullHistoryUpdate value:false
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4573	].
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4574	self historyLines value:self hasHistoryManager.
10279 a6c7441cb4ed Preference for HistoryManager signature vrany parents: 10241 diff changeset	4575	self userNameInHistoryHolder value:(UserPreferences current historyManagerSignature).
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:34:15 / cg"
10279 a6c7441cb4ed Preference for HistoryManager signature vrany parents: 10241 diff changeset	4578	"Modified: / 08-07-2011 / 10:26:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4579	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4580
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4581	basicSaveSettings
9531 fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4582	\|nm\|
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4583
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4584	ClassCategoryReader sourceMode:(self class keepSourceOptions at:self keepSourceSelection value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4585	Class catchClassRedefinitions:self catchClassRedefs value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4586	Class catchMethodRedefinitions:self catchMethodRedefs value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4587	HistoryManager notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4588	HistoryManager fullHistoryUpdate:self fullHistoryUpdate value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4589	self historyLines value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4590	HistoryManager activate
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4591	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4592	HistoryManager deactivate
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4593	].
9792 3786b182781a x Claus Gittinger <cg@exept.de> parents: 9754 diff changeset	4594	nm := (self userNameInHistoryHolder value ? '') withoutSeparators.
9531 fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4595	nm isEmpty ifTrue:[ nm := nil ].
10279 a6c7441cb4ed Preference for HistoryManager signature vrany parents: 10241 diff changeset	4596	UserPreferences current historyManagerSignature:nm.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4597	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4598	Smalltalk loadBinaries:self loadBinaries value.
9531 fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4599
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4600	"Modified: / 04-08-2010 / 18:33:20 / cg"
10279 a6c7441cb4ed Preference for HistoryManager signature vrany parents: 10241 diff changeset	4601	"Modified: / 08-07-2011 / 10:26:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4602	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4603
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4604	!AbstractSettingsApplication::GeneralCompilerSettingsAppl methodsFor:'aspects'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4605
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4606	canLoadBinaries
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	canLoadBinaries isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4609	canLoadBinaries := (ObjectFileLoader notNil and:[ObjectFileLoader canLoadObjectFiles]) asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4610	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4611	^ canLoadBinaries.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4612	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4613
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4614	catchClassRedefs
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4615
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4616	catchClassRedefs isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4617	catchClassRedefs := (Class catchClassRedefinitions ? false) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	4618	catchClassRedefs onChangeSend:#updateModifiedChannel to:self.
4387 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	^ catchClassRedefs.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4621	!
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	catchMethodRedefs
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	catchMethodRedefs isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4626	catchMethodRedefs := (Class catchMethodRedefinitions ? false) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	4627	catchMethodRedefs onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4628	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4629	^ catchMethodRedefs.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4630	!
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	fullHistoryUpdate
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	fullHistoryUpdate isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4635	self hasHistoryManager ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4636	fullHistoryUpdate := (HistoryManager fullHistoryUpdate ? false) asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4637	] ifFalse:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4638	fullHistoryUpdate := false asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4639	].
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	4640	fullHistoryUpdate onChangeSend:#updateModifiedChannel to:self.
4387 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	^ fullHistoryUpdate.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4643	!
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	hasHistoryManager
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4646
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4647	^ HistoryManager notNil and:[HistoryManager isLoaded and:[HistoryManager isActive]]
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
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	4650	historyLines
4387 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	historyLines isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4653	historyLines := self hasHistoryManager asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	4654	historyLines onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4655	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4656	^ historyLines.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4657	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4658
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4659	keepSource
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4660
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4661	keepSource isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4662	keepSource := (resources array:(self class keepSourceStrings)) asList.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4663	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4664	^ keepSource.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4665	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4666
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4667	keepSourceSelection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4668
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4669	keepSourceSelection isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4670	keepSourceSelection := (self class keepSourceOptions indexOf:ClassCategoryReader sourceMode ifAbsent:1) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	4671	keepSourceSelection onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4672	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4673	^ keepSourceSelection.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4674	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4675
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4676	loadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4677
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4678	loadBinaries isNil ifTrue:[
9531 fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4679	self canLoadBinaries value ifTrue:[
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4680	loadBinaries:= Smalltalk loadBinaries asValue
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4681	] ifFalse:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4682	loadBinaries:= false asValue
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4683	].
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	4684	loadBinaries onChangeSend:#updateModifiedChannel to:self.
4387 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	^ loadBinaries.
9531 fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4687
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4688	"Modified: / 04-08-2010 / 18:34:56 / cg"
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4689	!
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4690
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4691	userNameInHistoryHolder
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4692
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4693	userNameInHistoryHolder isNil ifTrue:[
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4694	userNameInHistoryHolder := '' asValue.
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4695	userNameInHistoryHolder onChangeSend:#updateModifiedChannel to:self.
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4696	].
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4697	^ userNameInHistoryHolder.
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4698
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4699	"Modified: / 04-08-2010 / 18:37:53 / cg"
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4700	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4701
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	4702	!AbstractSettingsApplication::GeneralCompilerSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	4703
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	4704	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	4705	^ 'Launcher/compilerSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	4706	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	4707
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4708	!AbstractSettingsApplication::GeneralCompilerSettingsAppl methodsFor:'queries'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4709
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4710	hasUnsavedChanges
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	4711	((HistoryManager fullHistoryUpdate ? false) ~= self fullHistoryUpdate value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	4712	((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	4713	((Class catchMethodRedefinitions ? false) ~= self catchMethodRedefs value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	4714	((Class catchClassRedefinitions ? false) ~= self catchClassRedefs value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	4715	((Smalltalk loadBinaries ? false) ~= self loadBinaries value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	4716	((self hasHistoryManager) ~= self historyLines value) ifTrue:[^ true].
10279 a6c7441cb4ed Preference for HistoryManager signature vrany parents: 10241 diff changeset	4717	(UserPreferences current historyManagerSignature ~= self userNameInHistoryHolder value) ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	4718	^ false.
9531 fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4719
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4720	"Modified: / 04-08-2010 / 18:31:55 / cg"
10279 a6c7441cb4ed Preference for HistoryManager signature vrany parents: 10241 diff changeset	4721	"Modified: / 08-07-2011 / 10:25:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4722	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4723
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4724	!AbstractSettingsApplication::HTTPStartServerSettingsApplication class methodsFor:'image specs'!
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	defaultIcon
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4727	"This resource specification was automatically generated
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4728	by the ImageEditor of ST/X."
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4729
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4730	"Do not manually edit this!! If it is corrupted,
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4731	the ImageEditor may not be able to read the specification."
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	"
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4734	self defaultIcon inspect
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4735	ImageEditor openOnClass:self andSelector:#defaultIcon
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4736	Icon flushCachedIcons
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4737	"
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4738
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4739	<resource: #image>
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	^Icon
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	4742	constantNamed:#'AbstractSettingsApplication::HTTPStartServerSettingsApplication class defaultIcon'
7838 dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	4743	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	4744	@@@@@@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	4745	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	4746	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	4747	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	4748	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	4749	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	4750	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4751
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4752	!AbstractSettingsApplication::HTTPStartServerSettingsApplication class methodsFor:'interface specs'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4753
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4754	windowSpec
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4755	"This resource specification was automatically generated
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4756	by the UIPainter of ST/X."
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4757
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4758	"Do not manually edit this!! If it is corrupted,
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4759	the UIPainter may not be able to read the specification."
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4760
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4761	"
4726 8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	4762	UIPainter new openOnClass:AbstractSettingsApplication::HTTPStartServerSettingsApplication andSelector:#windowSpec
8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	4763	AbstractSettingsApplication::HTTPStartServerSettingsApplication new openInterface:#windowSpec
8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	4764	AbstractSettingsApplication::HTTPStartServerSettingsApplication open
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4765	"
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4766
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4767	<resource: #canvas>
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4768
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4769	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4770	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4771	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4772	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4773	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4774	label: 'HTTP Server Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4775	name: 'HTTP Server Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4776	min: (Point 10 10)
6426 d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	4777	bounds: (Rectangle 0 0 539 630)
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4778	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4779	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4780	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4781	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4782	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4783	name: 'VerticalPanel1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4784	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	4785	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4786	verticalLayout: top
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4787	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4788	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4789	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4790	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4791	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4792	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4793	name: 'VerticalPanel4'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4794	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4795	verticalLayout: topSpace
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4796	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4797	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4798	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4799	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4800	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4801	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4802	name: 'Box19'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4803	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4804	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4805	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4806	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4807	label: 'Label'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4808	name: 'Label2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4809	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	4810	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4811	labelChannel: informationLabel
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4812	resizeForLabel: false
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4813	adjust: left
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4814	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4815	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4816
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4817	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4818	extent: (Point 539 200)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4819	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4820	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4821	name: 'Box18'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4822	extent: (Point 539 20)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4823	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4824	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4825	name: 'Box17'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4826	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4827	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4828	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4829	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4830	label: 'Port:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4831	name: 'Label1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4832	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	4833	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4834	adjust: right
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4835	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4836	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4837	name: 'EntryField1'
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4838	layout: (LayoutFrame 40 0 20 0 111 0 42 0)
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	4839	enableChannel: hasHTTPServerClass
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4840	model: portNumberChannel
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4841	type: number
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4842	immediateAccept: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4843	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4844	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4845	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4846	acceptOnPointerLeave: false
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4847	)
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4848	(VerticalPanelViewSpec
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4849	name: 'VerticalPanel5'
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4850	layout: (LayoutFrame 136 0 14 0 -12 1 132 0)
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4851	horizontalLayout: fit
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4852	verticalLayout: spreadSpace
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4853	horizontalSpace: 3
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4854	verticalSpace: 3
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4855	component:
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4856	(SpecCollection
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4857	collection: (
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4858	(ActionButtonSpec
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4859	label: 'Create new HTTP Server'
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4860	name: 'Button4'
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4861	translateLabel: true
7720 a15569db7548 tabability Claus Gittinger <cg@exept.de> parents: 7608 diff changeset	4862	tabable: true
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4863	model: createServer
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	4864	enableChannel: hasHTTPServerClass
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4865	useDefaultExtent: true
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4866	)
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4867	(ActionButtonSpec
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4868	label: 'Create new FastCGI Server'
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4869	name: 'Button7'
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4870	translateLabel: true
7720 a15569db7548 tabability Claus Gittinger <cg@exept.de> parents: 7608 diff changeset	4871	tabable: true
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4872	model: createFcgiServer
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	4873	enableChannel: hasFCGIServerClass
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4874	useDefaultExtent: true
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4875	)
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4876	(ActionButtonSpec
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4877	label: 'Create Server from Settings File...'
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4878	name: 'Button6'
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4879	translateLabel: true
7720 a15569db7548 tabability Claus Gittinger <cg@exept.de> parents: 7608 diff changeset	4880	tabable: true
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4881	model: createServerFromFile
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	4882	enableChannel: hasHTTPServerClass
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4883	useDefaultExtent: true
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4884	)
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4885	(ActionButtonSpec
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4886	label: 'Remove all Servers'
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4887	name: 'Button5'
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4888	translateLabel: true
7720 a15569db7548 tabability Claus Gittinger <cg@exept.de> parents: 7608 diff changeset	4889	tabable: true
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4890	model: removeAllServers
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4891	enableChannel: hasCreatedServerChannel
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4892	useDefaultExtent: true
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4893	)
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4894	)
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4895
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4896	)
6426 d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	4897	)
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4898	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4899
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4900	)
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4901	extent: (Point 539 142)
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4902	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4903	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4904
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4905	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4906	extent: (Point 539 620)
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4907	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4908	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4909
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4910	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4911	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4912	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4913
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4914	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4915	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4916	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4917
5346 7d92545574ea access all created server in class var penk parents: 5343 diff changeset	4918	!AbstractSettingsApplication::HTTPStartServerSettingsApplication class methodsFor:'servers access'!
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	4919
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	4920	addCreatedServer:aServer
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	4921	self createdServers add:aServer.
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	4922	!
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	4923
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	4924	createdServers
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	4925	CreatedServers isNil ifTrue:[
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	4926	CreatedServers := Set new.
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	4927	].
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	4928	^ CreatedServers
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	4929	!
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	4930
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	4931	removeAllCreatedServer
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	4932	self createdServers removeAll.
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	4933	!
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	4934
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	4935	removeCreatedServer:aServer
5355 aa7b1d44d7a8 remove server from createdServers penk parents: 5346 diff changeset	4936	self createdServers remove:aServer ifAbsent:nil.
5346 7d92545574ea access all created server in class var penk parents: 5343 diff changeset	4937	! !
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	4938
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4939	!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'actions'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4940
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4941	basicReadSettings
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	4942	\|serverClass\|
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	4943
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	4944	serverClass := self serverClass.
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	4945	(serverClass notNil and:[serverClass isLoaded]) ifTrue:[
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4946	self serverClass runningServers
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4947	removeDependent:self;
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4948	addDependent:self.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4949	].
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4950	self createServerSubApplicationsForRunningServers.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4951	self createdServerChanged.
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	4952
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	4953	"Modified: / 25-01-2007 / 16:41:27 / cg"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4954	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4955
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4956	basicSaveSettings
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	4957	"nothing done here"
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4958
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4959	^ self
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4960	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4961
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4962	createFcgiServer
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4963	"create a FastCGI server"
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4964
7548 ed1139a660b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7532 diff changeset	4965	FCGIServer isNil ifTrue:[
ed1139a660b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7532 diff changeset	4966	self warn:'The FCGIServer-class is missing - cannot create server.'.
ed1139a660b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7532 diff changeset	4967	^ self.
ed1139a660b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7532 diff changeset	4968	].
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4969	^ self createServerForClass:FCGIServer.
7548 ed1139a660b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7532 diff changeset	4970
ed1139a660b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7532 diff changeset	4971	"Modified: / 26-11-2006 / 13:12:14 / cg"
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4972	!
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4973
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4974	createServer
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4975	"create a default server - i.e. a HTTP server"
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4976
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	4977	HTTPServer isNil ifTrue:[
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	4978	self warn:'The HTTPServer-class is missing - cannot create server.'.
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	4979	^ self.
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	4980	].
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4981	^ self createServerForClass:self serverClass.
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	4982
9814 9cbbd1c58821 x Claus Gittinger <cg@exept.de> parents: 9811 diff changeset	4983	"Modified: / 09-04-2011 / 11:15:52 / cg"
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4984	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4985
4893 39dec723f6ad * empty log message * penk parents: 4886 diff changeset	4986	createServerApplicationFor:aServerInstance
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	4987	\|settingsApp itemPathName newItem openApps\|
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4988
6389 9f4010737320 code cleanup Claus Gittinger <cg@exept.de> parents: 6383 diff changeset	4989	openApps := settingsDialog getAllChildrenAppsForApplication:self childrenClass:HTTPServerSettingsAppl.
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	4990	(openApps contains:[:app \| app httpServerInstance == aServerInstance]) ifTrue:[
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4991	" already have an Item for this application "
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4992	^ self
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4993	].
9814 9cbbd1c58821 x Claus Gittinger <cg@exept.de> parents: 9811 diff changeset	4994	HTTPServerSettingsAppl isNil ifTrue:[
9cbbd1c58821 x Claus Gittinger <cg@exept.de> parents: 9811 diff changeset	4995	self warn:'Missing settings application: HTTPServerSettingsAppl'.
9cbbd1c58821 x Claus Gittinger <cg@exept.de> parents: 9811 diff changeset	4996	^ self.
9cbbd1c58821 x Claus Gittinger <cg@exept.de> parents: 9811 diff changeset	4997	].
9cbbd1c58821 x Claus Gittinger <cg@exept.de> parents: 9811 diff changeset	4998
9cbbd1c58821 x Claus Gittinger <cg@exept.de> parents: 9811 diff changeset	4999	settingsApp := HTTPServerSettingsAppl basicNew.
9cbbd1c58821 x Claus Gittinger <cg@exept.de> parents: 9811 diff changeset	5000	settingsApp settingsDialog:self settingsDialog.
9cbbd1c58821 x Claus Gittinger <cg@exept.de> parents: 9811 diff changeset	5001	settingsApp httpServerInstance:aServerInstance.
9cbbd1c58821 x Claus Gittinger <cg@exept.de> parents: 9811 diff changeset	5002	settingsApp defaultSettingsApplication:false.
9cbbd1c58821 x Claus Gittinger <cg@exept.de> parents: 9811 diff changeset	5003	settingsApp basicInitialize.
9cbbd1c58821 x Claus Gittinger <cg@exept.de> parents: 9811 diff changeset	5004	itemPathName := self itemPathName , '/', settingsApp nameInSettingsDialog.
9cbbd1c58821 x Claus Gittinger <cg@exept.de> parents: 9811 diff changeset	5005	newItem := self settingsDialog addApplClass:#'HTTPServerSettingsAppl' withName:itemPathName.
9cbbd1c58821 x Claus Gittinger <cg@exept.de> parents: 9811 diff changeset	5006	newItem application:settingsApp.
9cbbd1c58821 x Claus Gittinger <cg@exept.de> parents: 9811 diff changeset	5007	self createdServerChanged.
9cbbd1c58821 x Claus Gittinger <cg@exept.de> parents: 9811 diff changeset	5008	self settingsDialog expandItemForApplication:self.
9cbbd1c58821 x Claus Gittinger <cg@exept.de> parents: 9811 diff changeset	5009	settingsApp readSettings.
9cbbd1c58821 x Claus Gittinger <cg@exept.de> parents: 9811 diff changeset	5010	settingsApp initialize.
9cbbd1c58821 x Claus Gittinger <cg@exept.de> parents: 9811 diff changeset	5011
9cbbd1c58821 x Claus Gittinger <cg@exept.de> parents: 9811 diff changeset	5012	"Modified: / 09-04-2011 / 11:17:44 / cg"
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5013	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5014
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	5015	createServerForClass:serverClass
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	5016
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	5017	\|newServer port runningServers\|
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	5018
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	5019	serverClass isNil ifTrue:[
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	5020	self warn:'The server class is missing - cannot create server.'.
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	5021	^ self.
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	5022	].
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	5023
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	5024	self withWaitCursorDo:[
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	5025	port := self portNumberChannel value.
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	5026	runningServers := serverClass runningServers.
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	5027	runningServers notEmpty ifTrue:[
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	5028	runningServers do:[:aServer \|
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	5029	aServer port = port asInteger ifTrue:[
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	5030	Dialog warn:'There is already a server for port ', port asString.
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	5031	^ self
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	5032	]
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	5033	]
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	5034	].
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	5035	runningServers addDependent:self.
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	5036
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	5037	(port = serverClass defaultPort) ifTrue:[
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	5038	newServer := serverClass newServerWithDefaultServiceListOn:port.
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	5039	] ifFalse:[
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	5040	newServer := serverClass newServerOnPort:port.
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	5041	].
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	5042	self class addCreatedServer:newServer.
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	5043	self createServerApplicationFor:newServer.
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	5044	]
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	5045	!
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	5046
5049 3df132763949 instable state penk parents: 5044 diff changeset	5047	createServerFromFile
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5048	\|serverClass newServer fileName runningServers newServerPort answer\|
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5049
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5050	serverClass := self serverClass.
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	5051	fileName := Dialog requestFileName:'Select a Server Settings File'
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5052	default:(serverClass settingsFilename)
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	5053	pattern:'*.xml'.
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	5054
5049 3df132763949 instable state penk parents: 5044 diff changeset	5055	fileName isEmptyOrNil ifTrue:[ ^ self].
5055 b3cba6441579 ready to use penk parents: 5049 diff changeset	5056	self withWaitCursorDo:[
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5057	newServer := serverClass serverFromSettingsFile:(fileName asFilename).
5055 b3cba6441579 ready to use penk parents: 5049 diff changeset	5058	newServer notNil ifTrue:[
b3cba6441579 ready to use penk parents: 5049 diff changeset	5059	newServerPort := newServer port.
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5060	runningServers := serverClass runningServers.
5055 b3cba6441579 ready to use penk parents: 5049 diff changeset	5061	runningServers notEmpty ifTrue:[
b3cba6441579 ready to use penk parents: 5049 diff changeset	5062	[self hasServerForPort:newServerPort] whileTrue:[
b3cba6441579 ready to use penk parents: 5049 diff changeset	5063	answer := Dialog
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	5064	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	5065	initialAnswer:self portNumberChannel value printString.
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	5066	answer isEmptyOrNil ifTrue:[
5055 b3cba6441579 ready to use penk parents: 5049 diff changeset	5067	^ self
b3cba6441579 ready to use penk parents: 5049 diff changeset	5068	].
8674 58aef376b077 asNumber eliminated Claus Gittinger <cg@exept.de> parents: 8659 diff changeset	5069	newServerPort := Number readFromString:answer.
5049 3df132763949 instable state penk parents: 5044 diff changeset	5070	]
5055 b3cba6441579 ready to use penk parents: 5049 diff changeset	5071	].
b3cba6441579 ready to use penk parents: 5049 diff changeset	5072	newServer port:newServerPort.
b3cba6441579 ready to use penk parents: 5049 diff changeset	5073	runningServers addDependent:self.
5346 7d92545574ea access all created server in class var penk parents: 5343 diff changeset	5074	self class addCreatedServer:newServer.
5055 b3cba6441579 ready to use penk parents: 5049 diff changeset	5075	self createServerApplicationFor:newServer.
5049 3df132763949 instable state penk parents: 5044 diff changeset	5076	].
3df132763949 instable state penk parents: 5044 diff changeset	5077	].
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5078
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5079	"Modified: / 25-01-2007 / 16:40:57 / cg"
5049 3df132763949 instable state penk parents: 5044 diff changeset	5080	!
3df132763949 instable state penk parents: 5044 diff changeset	5081
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	5082	createServerSubApplicationsForRunningServers
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5083	\|serverToStart serverClass\|
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5084
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5085	serverClass := self serverClass.
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5086
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5087	(serverClass notNil and:[ serverClass isLoaded ]) ifFalse:[
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	5088	^ self
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	5089	].
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	5090
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5091	serverToStart := serverClass runningServers asSet.
5346 7d92545574ea access all created server in class var penk parents: 5343 diff changeset	5092	serverToStart addAll:self class createdServers.
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	5093	serverToStart isEmpty ifTrue:[
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	5094	^ self
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	5095	].
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	5096	serverToStart := serverToStart asSortedCollection:[:a :b \| a port < b port].
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	5097	serverToStart do:[:eachServerInstance \|
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	5098	self createServerApplicationFor:eachServerInstance.
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5099	]
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5100
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5101	"Modified: / 25-01-2007 / 16:40:21 / cg"
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5102	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5103
5055 b3cba6441579 ready to use penk parents: 5049 diff changeset	5104	hasServerForPort:newServerPort
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5105	\|serverClass\|
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5106
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5107	serverClass := self serverClass.
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5108	^ serverClass notNil
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5109	and:[ serverClass runningServers
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5110	contains:[:eachServer\| eachServer port = newServerPort]].
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5111
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5112	"Modified: / 25-01-2007 / 16:39:48 / cg"
5055 b3cba6441579 ready to use penk parents: 5049 diff changeset	5113	!
b3cba6441579 ready to use penk parents: 5049 diff changeset	5114
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5115	removeAllServerSubApplications
6389 9f4010737320 code cleanup Claus Gittinger <cg@exept.de> parents: 6383 diff changeset	5116	settingsDialog removeAllSubApplicationsFor:self
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5117	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5118
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5119	removeAllServers
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5120	\|serverClass\|
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5121
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5122	serverClass := self serverClass.
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5123	serverClass isLoaded ifTrue:[
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5124	serverClass terminateAllServers.
4883 45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	5125	].
5346 7d92545574ea access all created server in class var penk parents: 5343 diff changeset	5126	self class removeAllCreatedServer.
4883 45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	5127	self removeAllServerSubApplications.
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	5128	self createdServerChanged.
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5129
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5130	"Modified: / 25-01-2007 / 16:39:10 / cg"
4883 45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	5131	!
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	5132
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5133	setPortOnFreePort
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5134	\|serverClass highestUsedPortNr portToUse instances\|
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5135
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5136	serverClass := self serverClass.
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5137	(serverClass notNil and:[serverClass isLoaded]) ifTrue:[
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5138	instances := serverClass runningServers asSet.
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	5139	instances addAll:((settingsDialog getAllChildrenAppsForApplication:self)
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	5140	collect:[:aApp\| aApp httpServerInstance]).
5040 1500f0fdf4dd instable state penk parents: 5038 diff changeset	5141	highestUsedPortNr := instances
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5142	inject:(serverClass defaultPort - 1)
4893 39dec723f6ad * empty log message * penk parents: 4886 diff changeset	5143	into:[:maxSoFar :thisServer \| thisServer port max:maxSoFar].
39dec723f6ad * empty log message * penk parents: 4886 diff changeset	5144
39dec723f6ad * empty log message * penk parents: 4886 diff changeset	5145	portToUse := highestUsedPortNr + 1
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	5146	] ifFalse:[
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	5147	portToUse := 8080
4893 39dec723f6ad * empty log message * penk parents: 4886 diff changeset	5148	].
39dec723f6ad * empty log message * penk parents: 4886 diff changeset	5149	self portNumberChannel value:portToUse.
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5150
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5151	"Modified: / 25-01-2007 / 16:38:45 / cg"
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5152	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5153
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5154	!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'aspects'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5155
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5156	hasCreatedServerChannel
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5157	hasCreatedServerChannel isNil ifTrue:[
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5158	hasCreatedServerChannel := true asValue.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5159	].
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5160	^ hasCreatedServerChannel.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5161	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5162
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5163	informationLabel
4726 8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	5164	^ resources
8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	5165	string:'HTTPSTARTINFO'
8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	5166	default:
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	5167	'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	5168	(i.e. it is possible to serve multiple ports)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	5169
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	5170	Once created, select the individual server in the left tree,
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	5171	configure its services, and finally start it up.'
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
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5174	portNumberChannel
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5175
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5176	portNumberChannel isNil ifTrue:[
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5177	portNumberChannel := ValueHolder new.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5178	].
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5179	^ portNumberChannel.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5180	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5181
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5182	!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'change & update'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5183
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5184	createdServerChanged
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5185
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5186	self hasCreatedServerChannel value:self hasCreatedServer.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5187	self setPortOnFreePort.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5188	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5189
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5190	runningServersChanged
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	5191	self createServerSubApplicationsForRunningServers.
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5192	self setPortOnFreePort.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5193	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5194
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5195	update:something with:aParameter from:changedObject
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5196	\|serverClass\|
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5197
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5198	serverClass := self serverClass.
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5199	(serverClass isLoaded and:[changedObject == serverClass runningServers]) ifTrue:[
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	5200	self runningServersChanged.
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	5201	^ self.
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5202	].
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5203	super update:something with:aParameter from:changedObject
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5204
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5205	"Modified: / 25-01-2007 / 16:38:52 / cg"
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5206	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5207
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	5208	!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	5209
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	5210	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	5211	^ 'HTTPServer/index.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	5212	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	5213
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5214	!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'initialization & release'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5215
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5216	release
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5217	\|serverClass\|
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5218
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5219	serverClass := self serverClass.
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5220	(serverClass notNil and:[serverClass isLoaded]) ifTrue:[
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5221	serverClass runningServers removeDependent:self.
4883 45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	5222	]
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5223
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5224	"Modified: / 25-01-2007 / 16:39:23 / cg"
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5225	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5226
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5227	!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'queries'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5228
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5229	hasCreatedServer
6389 9f4010737320 code cleanup Claus Gittinger <cg@exept.de> parents: 6383 diff changeset	5230	^ (settingsDialog getAllChildrenAppsForApplication:self childrenClass:HTTPServerSettingsAppl)
9f4010737320 code cleanup Claus Gittinger <cg@exept.de> parents: 6383 diff changeset	5231	notEmpty
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5232	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5233
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	5234	hasFCGIServerClass
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	5235	^ FCGIServer notNil
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	"Created: / 25-01-2007 / 17:50:14 / cg"
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	5238	!
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	5239
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	5240	hasHTTPServerClass
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	5241	^ self serverClass notNil
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	5242
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	5243	"Created: / 25-01-2007 / 17:50:03 / cg"
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	5244	!
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	5245
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5246	hasUnsavedChanges
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5247
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5248	^ false
6426 d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	5249	!
d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	5250
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	5251	isEnabledInSettingsDialog:aSettingsDialog
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	5252	^ true
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	5253	"/ ^ self serverClass notNil
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	5254	"/ or:[ HTTPServer notNil
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	5255	"/ or:[ FCGIServer notNil ]]
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	5256
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	5257	"Created: / 25-01-2007 / 16:48:18 / cg"
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	5258	"Modified: / 25-01-2007 / 17:49:24 / cg"
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	5259	!
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	5260
6426 d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	5261	serverClass
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	5262	"answer the default class for instanciating servers.
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	5263	Note that we may instanciate FCGIServer as well"
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	5264
6426 d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	5265	^ HTTPServer
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	5266	!
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	5267
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	5268	whyDisabledInSettingsDialogInfo
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	5269	^ 'there is no HTTPServer class in the system'
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	5270
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	5271	"Created: / 25-01-2007 / 17:16:46 / cg"
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5272	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5273
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5274	!AbstractSettingsApplication::KbdMappingSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5275
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5276	defaultIcon
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	5277	<resource: #programImage>
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	5278
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	5279	^ ToolbarIconLibrary keyboardMappingIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5280	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5281
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5282	!AbstractSettingsApplication::KbdMappingSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5283
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5284	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5285	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5286	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5287
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5288	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5289	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5290
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5291	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5292	UIPainter new openOnClass:AbstractSettingsApplication::KbdMappingSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5293	AbstractSettingsApplication::KbdMappingSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5294	AbstractSettingsApplication::KbdMappingSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5295	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5296
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5297	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5298
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5299	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5300	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5301	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5302	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5303	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5304	label: 'Keyboard Mapping Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5305	name: 'Keyboard Mapping Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5306	min: (Point 10 10)
5576 8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	5307	bounds: (Rectangle 0 0 491 653)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5308	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5309	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5310	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5311	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5312	(VariableVerticalPanelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5313	name: 'VariableVerticalPanel1'
5576 8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	5314	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	5315	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5316	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5317	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5318	(VariableHorizontalPanelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5319	name: 'VariableHorizontalPanel1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5320	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5321	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5322	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5323	(SequenceViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5324	name: 'RawKeyList'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5325	model: selectedRawKey
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5326	hasHorizontalScrollBar: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5327	hasVerticalScrollBar: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5328	useIndex: false
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5329	sequenceList: rawKeyList
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5330	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5331	(SequenceViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5332	name: 'FunctionKeyList'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5333	model: selectedFunctionKey
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5334	hasHorizontalScrollBar: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5335	hasVerticalScrollBar: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5336	useIndex: false
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5337	sequenceList: functionKeyList
4286 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
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5341	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5342	handles: (Any 0.5 1.0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5343	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5344	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5345	name: 'Box1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5346	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5347	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5348	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5349	(TextEditorSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5350	name: 'MacroText'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5351	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	5352	model: macroTextHolder
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5353	hasHorizontalScrollBar: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5354	hasVerticalScrollBar: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5355	isReadOnly: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5356	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5357	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5358	label: 'Macro text (if any):'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5359	name: 'MacroTextLabel'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5360	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	5361	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5362	adjust: left
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5363	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5364	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5365
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	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5369
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5370	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5371	handles: (Any 0.5 1.0)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5372	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5373	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5374	label: 'NoticeText'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5375	name: 'Text'
5576 8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	5376	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	5377	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5378	labelChannel: labelTextHolder
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5379	resizeForLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5380	adjust: left
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5381	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5382	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5383
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5384	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5385	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5386	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5387
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5388	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5389
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5390	basicReadSettings
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5391	"nothing done here"
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5392	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5393
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5394	basicSaveSettings
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	5395	"nothing done here"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5396	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5397
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5398	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5399
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5400	functionKeyList
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5401	functionKeyList isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5402	functionKeyList := ValueHolder new.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5403	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5404	^ functionKeyList.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5405	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5406
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5407	labelTextHolder
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5408	labelTextHolder isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5409	labelTextHolder := ValueHolder new.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5410	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5411	^ labelTextHolder.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5412	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5413
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5414	macroTextHolder
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5415	macroTextHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5416	macroTextHolder := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5417	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5418	^ macroTextHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5419	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5420
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5421	rawKeyList
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5422
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5423	rawKeyList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5424	rawKeyList := List new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5425	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5426	^ rawKeyList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5427	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5428
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5429	selectedFunctionKey
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5430
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5431	selectedFunctionKey isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5432	selectedFunctionKey := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5433	selectedFunctionKey addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5434	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5435	^ selectedFunctionKey.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5436	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5437
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5438	selectedRawKey
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5439
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5440	selectedRawKey isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5441	selectedRawKey := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5442	selectedRawKey addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5443	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5444	^ selectedRawKey.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5445	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5446
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5447	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5448
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5449	changeFunctionKeySelection
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5450
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5451	\|raw\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5452	raw := self selectedRawKey value.
9629 e71fb7571f14 selection in kbd setting dialog Claus Gittinger <cg@exept.de> parents: 9628 diff changeset	5453	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	5454
e71fb7571f14 selection in kbd setting dialog Claus Gittinger <cg@exept.de> parents: 9628 diff changeset	5455	"Modified: / 11-11-2010 / 06:50:04 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5456	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5457
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5458	changeMacroText
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5459
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5460	\|f macro indent\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5461
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5462	f := self selectedFunctionKey value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5463	(f startsWith:'Cmd') ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5464	f := f copyFrom:4
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5465	].
6781 facbb533a366 * empty log message * Claus Gittinger <cg@exept.de> parents: 6780 diff changeset	5466	macro := currentUserPrefs functionKeySequences
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5467	at:(f asSymbol) ifAbsent:nil.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5468	macro notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5469	macro := macro asStringCollection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5470	indent := macro
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5471	inject:99999 into:[:min :element \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5472	\|stripped\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5473
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5474	stripped := element withoutLeadingSeparators.
6264 039dc5c1710b slight code cleanup Claus Gittinger <cg@exept.de> parents: 6256 diff changeset	5475	stripped isEmpty ifTrue:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5476	min
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5477	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5478	min min:(element size - stripped size)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5479	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5480	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5481	indent ~~ 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5482	macro := macro collect:[:line \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5483	line size > indent ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5484	line copyFrom:indent+1
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5485	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5486	line
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5487	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5488	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5489	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5490	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5491	macroTextHolder value:macro.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5492	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5493
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5494	changeRawKeySelection
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5495	\|f raw\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5496
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5497	f := self selectedFunctionKey value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5498	raw := mappings keyAtValue:f asString.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5499	raw isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5500	raw := mappings keyAtValue:f first.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5501	raw isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5502	raw := mappings keyAtValue:f asSymbol.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5503	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5504	].
9629 e71fb7571f14 selection in kbd setting dialog Claus Gittinger <cg@exept.de> parents: 9628 diff changeset	5505	self selectedRawKey value:raw withoutNotifying:self.
e71fb7571f14 selection in kbd setting dialog Claus Gittinger <cg@exept.de> parents: 9628 diff changeset	5506
e71fb7571f14 selection in kbd setting dialog Claus Gittinger <cg@exept.de> parents: 9628 diff changeset	5507	"Modified: / 11-11-2010 / 06:49:56 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5508	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5509
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5510	update:something with:aParameter from:changedObject
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5511	changedObject == self selectedFunctionKey ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5512	self changeRawKeySelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5513	self changeMacroText.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5514	^ self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5515	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5516	changedObject == self selectedRawKey ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5517	self changeFunctionKeySelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5518	^ self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5519	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5520	super update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5521	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5522
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	5523	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	5524
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	5525	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	5526	^ 'Launcher/keyboardSetting.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	5527	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	5528
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5529	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5530
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5531	initialize
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5532
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5533	super initialize.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5534
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5535	mappings := Screen current keyboardMap.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5536
8679 d5bf7fa670c5 use collect:as: Claus Gittinger <cg@exept.de> parents: 8674 diff changeset	5537	rawKeyList := (mappings keys collect:[:key \| key asString] as:Array) sort.
d5bf7fa670c5 use collect:as: Claus Gittinger <cg@exept.de> parents: 8674 diff changeset	5538	functionKeyList := (mappings values asSet collect:[:key \| key asString] as:Array) sort.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5539
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5540	self labelTextHolder value:(resources at:'KEY_MSG2' default:'keyboard mapping:') withCRs.
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	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5544
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5545	hasUnsavedChanges
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5546
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5547	^ false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5548	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5549
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5550	!AbstractSettingsApplication::LanguageSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5551
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5552	defaultIcon
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	5553	<resource: #programImage>
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	5554
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	5555	^ ToolbarIconLibrary languagesIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5556	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5557
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5558	!AbstractSettingsApplication::LanguageSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5559
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5560	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5561	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5562	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5563
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5564	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5565	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5566
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5567	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5568	UIPainter new openOnClass:AbstractSettingsApplication::LanguageSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5569	AbstractSettingsApplication::LanguageSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5570	AbstractSettingsApplication::LanguageSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5571	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5572
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5573	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5574
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5575	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5576	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5577	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5578	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5579	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5580	label: 'Language Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5581	name: 'Language Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5582	min: (Point 10 10)
8458 56aded9ca032 * empty log message * Claus Gittinger <cg@exept.de> parents: 8443 diff changeset	5583	bounds: (Rectangle 0 0 571 878)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5584	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5585	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5586	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5587	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5588	(LabelSpec
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5589	label: 'Current Language:'
5556 f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	5590	name: 'Label1'
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	5591	layout: (LayoutFrame 0 0 0 0 -233 1 20 0)
5556 f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	5592	translateLabel: true
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	5593	labelChannel: currentLanguageLabel
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	5594	adjust: right
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	5595	)
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	5596	(LabelSpec
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5597	label: 'Label'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5598	name: 'CurrentLang'
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5599	layout: (LayoutFrame -233 1 0 0 0 1 20 0)
6058 d0add4dd0d80 * empty log message * Claus Gittinger <cg@exept.de> parents: 6037 diff changeset	5600	style: (FontDescription arial bold roman 10 nil)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5601	translateLabel: true
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5602	labelChannel: currentFlagAndLanguageChannel
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5603	adjust: left
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5604	)
8458 56aded9ca032 * empty log message * Claus Gittinger <cg@exept.de> parents: 8443 diff changeset	5605	(TextEditorSpec
56aded9ca032 * empty log message * Claus Gittinger <cg@exept.de> parents: 8443 diff changeset	5606	name: 'TextEditor1'
56aded9ca032 * empty log message * Claus Gittinger <cg@exept.de> parents: 8443 diff changeset	5607	layout: (LayoutFrame 0 0 24 0 0 1.0 181 0)
56aded9ca032 * empty log message * Claus Gittinger <cg@exept.de> parents: 8443 diff changeset	5608	style: (FontDescription helvetica medium roman 10 #'iso10646-1')
56aded9ca032 * empty log message * Claus Gittinger <cg@exept.de> parents: 8443 diff changeset	5609	model: noticeLabelHolder
56aded9ca032 * empty log message * Claus Gittinger <cg@exept.de> parents: 8443 diff changeset	5610	hasHorizontalScrollBar: true
56aded9ca032 * empty log message * Claus Gittinger <cg@exept.de> parents: 8443 diff changeset	5611	hasVerticalScrollBar: true
56aded9ca032 * empty log message * Claus Gittinger <cg@exept.de> parents: 8443 diff changeset	5612	miniScrollerHorizontal: true
56aded9ca032 * empty log message * Claus Gittinger <cg@exept.de> parents: 8443 diff changeset	5613	autoHideScrollBars: true
56aded9ca032 * empty log message * Claus Gittinger <cg@exept.de> parents: 8443 diff changeset	5614	isReadOnly: true
56aded9ca032 * empty log message * Claus Gittinger <cg@exept.de> parents: 8443 diff changeset	5615	hasKeyboardFocusInitially: false
56aded9ca032 * empty log message * Claus Gittinger <cg@exept.de> parents: 8443 diff changeset	5616	viewClassName: 'TextView'
56aded9ca032 * empty log message * Claus Gittinger <cg@exept.de> parents: 8443 diff changeset	5617	postBuildCallback: postBuildHelpLabel:
56aded9ca032 * empty log message * Claus Gittinger <cg@exept.de> parents: 8443 diff changeset	5618	)
5556 f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	5619	(InputFieldSpec
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	5620	name: 'EntryField1'
8458 56aded9ca032 * empty log message * Claus Gittinger <cg@exept.de> parents: 8443 diff changeset	5621	layout: (LayoutFrame 2 0.0 180 0 -2 1.0 204 0)
5556 f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	5622	model: languageHolder
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	5623	acceptOnReturn: true
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	5624	acceptOnTab: true
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	5625	acceptOnLostFocus: true
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	5626	acceptOnPointerLeave: true
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	5627	)
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	5628	(SequenceViewSpec
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	5629	name: 'List1'
8458 56aded9ca032 * empty log message * Claus Gittinger <cg@exept.de> parents: 8443 diff changeset	5630	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	5631	model: languageIndexHolder
5556 f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	5632	hasHorizontalScrollBar: true
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	5633	hasVerticalScrollBar: true
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	5634	doubleClickSelector: doubleClick:
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5635	useIndex: true
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5636	sequenceList: languageListHolder
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5637	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5638	(HorizontalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5639	name: 'HorizontalPanel1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5640	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	5641	horizontalLayout: center
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5642	verticalLayout: center
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5643	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5644	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5645	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5646	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5647	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5648	(ActionButtonSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5649	label: 'Reread Language Resources'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5650	name: 'RereadResourcesButton'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5651	translateLabel: true
5556 f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	5652	resizeForLabel: true
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5653	model: rereadResourceFiles
5556 f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	5654	useDefaultExtent: true
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5655	)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5656	)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5657
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5658	)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5659	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5660	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5661
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5662	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5663	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5664	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5665
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5666	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'accessing'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5667
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5668	languageList
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5669	"return the value of the instance variable 'languageList' (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5670
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5671	^ languageList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5672	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5673
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5674	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5675
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5676	basicReadSettings
9559 314e6ce52b40 check the modified on languages sr parents: 9555 diff changeset	5677	self languageIndexHolder value:self currentLanguageIndex.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5678	self languageHolder value:self currentLanguage.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5679	self currentFlagAndLanguageChannel value:self currentLanguage.
9559 314e6ce52b40 check the modified on languages sr parents: 9555 diff changeset	5680
314e6ce52b40 check the modified on languages sr parents: 9555 diff changeset	5681	"Modified: / 24-08-2010 / 18:52:48 / sr"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5682	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5683
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5684	basicSaveSettings
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5685	\|fontPref fontPrefs language oldLanguage languageString territory enc
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5686	answer matchingFonts l screen switch dialog anyWrong\|
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5687
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5688	self withWaitCursorDo:[
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5689	languageString := translatedLanguages at:(self languageIndexHolder value).
8710 ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	5690	language := self languageHolder value asString string.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5691	(language includes:$-) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5692	l := language asCollectionOfSubstringsSeparatedBy:$-.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5693	language := l at:1.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5694	territory := l at:2.
5837 470e67fd9d0a * empty log message * Claus Gittinger <cg@exept.de> parents: 5825 diff changeset	5695	territory isNil ifTrue:[
470e67fd9d0a * empty log message * Claus Gittinger <cg@exept.de> parents: 5825 diff changeset	5696	territory := language string copyTo:2
470e67fd9d0a * empty log message * Claus Gittinger <cg@exept.de> parents: 5825 diff changeset	5697	].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5698	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5699
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5700	"/ check if the new language needs a differently encoded font;
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5701	"/ ask user to switch font and allow cancellation.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5702	"/ Otherwise, you are left with unreadable menu & button items ...
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5703
8846 a5a4031ee2cc Smalltalk language -> UserPreferences current language Claus Gittinger <cg@exept.de> parents: 8793 diff changeset	5704	oldLanguage := UserPreferences current language.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5705	Smalltalk language:language asSymbol.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5706	ResourcePack flushCachedResourcePacks.
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5707
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5708	"/ refetch resources ...
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5709	resources := AbstractLauncherApplication classResources.
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5710	fontPrefs := resources at:'PREFERRED_FONT_ENCODINGS' default:nil.
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5711	fontPrefs isNil ifTrue:[
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5712	fontPref := resources at:'PREFERRED_FONT_ENCODING' default:nil.
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5713	fontPref isNil ifTrue:[
5700 61de7f81a8fb * empty log message * Claus Gittinger <cg@exept.de> parents: 5627 diff changeset	5714	fontPrefs := #(#'iso10646-1')
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5715	] ifFalse:[
5700 61de7f81a8fb * empty log message * Claus Gittinger <cg@exept.de> parents: 5627 diff changeset	5716	fontPrefs := #(#'iso10646-1') , (Array with:fontPref).
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5717	]
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5718	].
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	5719
9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	5720	"/ 'normalize' names of encodings
5700 61de7f81a8fb * empty log message * Claus Gittinger <cg@exept.de> parents: 5627 diff changeset	5721	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	5722	fontPrefs := fontPrefs select:[:each \| each notNil] thenCollect:[:each \| each nameOfEncoding].
5700 61de7f81a8fb * empty log message * Claus Gittinger <cg@exept.de> parents: 5627 diff changeset	5723	fontPrefs isEmpty ifTrue:[
61de7f81a8fb * empty log message * Claus Gittinger <cg@exept.de> parents: 5627 diff changeset	5724	fontPrefs := #(#'iso10464-1')
61de7f81a8fb * empty log message * Claus Gittinger <cg@exept.de> parents: 5627 diff changeset	5725	].
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5726	fontPref := fontPrefs first.
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5727
5580 11cec5eb8c93 * empty log message * Claus Gittinger <cg@exept.de> parents: 5576 diff changeset	5728	Smalltalk setLanguage:#en.
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5729	ResourcePack flushCachedResourcePacks.
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5730	resources := AbstractLauncherApplication classResources.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5731
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5732	switch := true.
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5733	anyWrong := false.
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5734	(Array
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5735	with:MenuView defaultFont
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5736	"/ with:ListView defaultFont
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5737	with:EditTextView defaultFont
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5738	with:Button defaultFont)
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5739	do:[:fn \|
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5740	enc := fn encoding.
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5741	(fontPrefs contains:[:pref \| CharacterEncoder isEncoding:pref subSetOf:enc])
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5742	ifFalse:[
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5743	anyWrong := true
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5744	].
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5745	].
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5746	anyWrong ifTrue:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5747	"/ look if there is one at all.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5748	screen := Screen current.
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5749	matchingFonts := screen listOfAvailableFonts
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5750	select:[:f \| fontPrefs contains:[:pref \|
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5751	CharacterEncoder
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5752	isEncoding:pref subSetOf:(f encoding ? 'ascii')]].
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5753
6264 039dc5c1710b slight code cleanup Claus Gittinger <cg@exept.de> parents: 6256 diff changeset	5754	matchingFonts isEmpty ifTrue:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5755	"/ flush and try again - just in case, the font path has changed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5756	screen flushListOfAvailableFonts.
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5757	matchingFonts := screen listOfAvailableFonts
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5758	select:[:f \| fontPrefs contains:[:pref \|
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5759	CharacterEncoder
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5760	isEncoding:pref subSetOf:(f encoding ? 'ascii')]].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5761	].
6264 039dc5c1710b slight code cleanup Claus Gittinger <cg@exept.de> parents: 6256 diff changeset	5762	matchingFonts isEmpty ifTrue:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5763	(Dialog
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5764	confirm:(resources
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5765	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	5766	with:fontPref) withCRs)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5767	ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5768	switch := false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5769	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5770	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5771	answer := Dialog
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5772	confirmWithCancel:(resources
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5773	string:'Some font(s) is not %1-encoded.\\Change it ?'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5774	with:fontPref) withCRs
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5775	labels:(resources
5109 27daba118da2 * empty log message * Claus Gittinger <cg@exept.de> parents: 5101 diff changeset	5776	array:#('Cancel' 'No' 'Yes'))
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5777	default:3.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5778	answer isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5779	switch := false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5780	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5781	answer ifTrue:[
5495 61664e06a5d7 * empty log message * Claus Gittinger <cg@exept.de> parents: 5479 diff changeset	5782	switch := (AbstractLauncherApplication::LauncherDialogs fontBoxForEncoding:fontPref)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5783	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5784	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5785	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5786	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5787
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5788	switch ifTrue:[
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5789	Transcript showCR:'Changing language setting to ' , languageString string , ' (' , language , ')...'.
7430 37990108bea9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7427 diff changeset	5790	Smalltalk language:language asSymbol territory:(territory ? language) asSymbol.
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5791	ResourcePack flushCachedResourcePacks.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5792	"/ ResourcePack flushCachedResourcePacks - already done by language-change
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5793	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5794	].
4327 076dfc82d0ed * empty log message * penk parents: 4324 diff changeset	5795	switch ifTrue:[
6389 9f4010737320 code cleanup Claus Gittinger <cg@exept.de> parents: 6383 diff changeset	5796	(dialog := settingsDialog) notNil ifTrue:[
5212 5ddf75438c57 checkin from browser Claus Gittinger <cg@exept.de> parents: 5181 diff changeset	5797	dialog reopenLauncher.
4327 076dfc82d0ed * empty log message * penk parents: 4324 diff changeset	5798	] ifFalse:[
076dfc82d0ed * empty log message * penk parents: 4324 diff changeset	5799	NewLauncher current reopenLauncher.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5800	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5801	DebugView newDebugger.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5802	].
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5803	self updateForChangedLanguage.
7430 37990108bea9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7427 diff changeset	5804
37990108bea9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7427 diff changeset	5805	"Modified: / 19-10-2006 / 22:17:44 / cg"
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5806	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5807
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5808	doubleClick:aEntry
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5809	self saveSettingsIfUnsavedChangesArePresent.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5810	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5811
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5812	rereadResourceFiles
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5813	ResourcePack flushCachedResourcePacks.
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5814	perLanguageResources := nil.
5576 8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	5815	self withWaitCursorDo:[
8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	5816	self updateForChangedLanguage.
8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	5817	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5818
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5819	"/ Smalltalk language:(Smalltalk language).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5820	"/ Smalltalk languageTerritory:(Smalltalk languageTerritory).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5821
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5822	Smalltalk changed:#Language.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5823	Smalltalk changed:#LanguageTerritory.
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5824	!
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5825
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5826	updateForChangedLanguage
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5827	self initializeLanguages.
5721 effab3aca7ff * empty log message * Claus Gittinger <cg@exept.de> parents: 5719 diff changeset	5828	languageListHolder value:languageList.
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5829	self languageListHolder value:languageList.
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5830	self currentFlagAndLanguageChannel value:self currentLanguage.
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5831	self setCurrentLanguageLabel.
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5832	self setNoticeLabel.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5833	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5834
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5835	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5836
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5837	currentFlagAndLanguageChannel
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5838	currentFlagAndLanguageChannel isNil ifTrue:[
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5839	currentFlagAndLanguageChannel := self currentLanguage asValue.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5840	].
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5841	^ currentFlagAndLanguageChannel.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5842	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5843
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5844	currentLanguageLabel
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5845	currentLanguageLabel isNil ifTrue:[
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5846	currentLanguageLabel := ValueHolder new.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5847	self setCurrentLanguageLabel.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5848	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5849	^ currentLanguageLabel.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5850	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5851
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5852	languageHolder
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5853	languageHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5854	languageHolder := self currentLanguage asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5855	languageHolder onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5856	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5857	^ languageHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5858	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5859
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5860	languageIndexChanged
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5861	\|langIdx\|
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5862
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5863	langIdx := self languageIndexHolder value ? 1.
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5864	self languageHolder value:(listOfLanguages at:langIdx).
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5865	self updateModifiedChannel.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5866	!
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5867
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5868	languageIndexHolder
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5869	languageIndexHolder isNil ifTrue:[
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5870	languageIndexHolder := (self currentLanguageIndex) asValue.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5871	languageIndexHolder onChangeSend:#languageIndexChanged to:self.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5872	].
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5873	^ languageIndexHolder.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5874	!
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5875
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5876	languageListHolder
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5877	languageListHolder isNil ifTrue:[
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5878	languageListHolder := self languageList asValue.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5879	].
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5880	^ languageListHolder.
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
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5883	noticeLabelHolder
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5884	noticeLabelHolder isNil ifTrue:[
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5885	noticeLabelHolder := ValueHolder new.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5886	self setNoticeLabel.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5887	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5888	^ noticeLabelHolder.
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5889	!
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5890
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5891	setCurrentLanguageLabel
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5892	currentLanguageLabel value: (resources string:'Current Language:')
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5893	!
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5894
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5895	setNoticeLabel
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	5896	noticeLabelHolder
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	5897	value: ((resources at:'LANG_MSG' default:'Select a Language') withCRs).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5898	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5899
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	5900	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	5901
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	5902	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	5903	^ 'Launcher/languageSetting.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	5904	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	5905
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5906	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5907
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5908	initialize
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5909	self initializeLanguages.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5910	super initialize.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5911	!
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5912
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5913	initializeLanguages
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5914	\|flags enResources savedLanguage savedLanguageTerritory enLanguages nativeLanguages languages listOfLanguageKeys\|
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5915
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5916	resources := self class classResources.
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	5917	listOfLanguages := resources at:'LIST_OF_OFFERED_LANGUAGES' default:#('default' 'en' ).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5918	listOfLanguages := listOfLanguages asOrderedCollection.
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5919	listOfLanguageKeys := listOfLanguages collect:[:l \| l copyReplaceAll:$- with:$_ ].
5563 5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	5920
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	5921	(perLanguageResources notNil
4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	5922	and:[ (perLanguageResources includesKey:#en) not
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5923	and:[ (perLanguageResources includesKey:#'en_us') not ]])
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	5924	ifTrue:[
4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	5925	perLanguageResources := nil.
4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	5926	].
4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	5927
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5928	perLanguageResources isNil ifTrue:[
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5929	perLanguageResources := Dictionary new.
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5930
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5931	listOfLanguageKeys do:[:eachLang \|
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5932	savedLanguage := Language.
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5933	savedLanguageTerritory := LanguageTerritory.
5573 71a51c6df6a4 checkin from browser Claus Gittinger <cg@exept.de> parents: 5569 diff changeset	5934	ResourcePack flushCachedResourcePacks.
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5935	[
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5936	\|rsc lang terr\|
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5937
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5938	lang := terr := eachLang.
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5939	(lang includes:$_) ifTrue:[
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5940	terr := lang copyFrom:4.
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5941	lang := lang copyTo:2.
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5942	].
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5943	Language := lang asSymbol.
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5944	LanguageTerritory := terr asSymbol.
7295 1ed8da6b09d3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7178 diff changeset	5945	rsc := ResourcePack for:(self class) cached:false.
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5946	perLanguageResources at:eachLang asSymbol put:rsc.
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5947	] ensure:[
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5948	Language := savedLanguage.
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5949	LanguageTerritory := savedLanguageTerritory.
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5950	].
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5951	].
5573 71a51c6df6a4 checkin from browser Claus Gittinger <cg@exept.de> parents: 5569 diff changeset	5952	ResourcePack flushCachedResourcePacks.
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5953	].
7295 1ed8da6b09d3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7178 diff changeset	5954
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5955	enResources := perLanguageResources at:#en ifAbsent:[perLanguageResources at:#'en_us'].
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5956
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5957	enLanguages := listOfLanguageKeys
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5958	collect:[:lang \| \|item\|
5563 5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	5959	item := enResources at:('LANG_' , lang) default:nil.
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	5960	item isNil ifTrue:[
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	5961	lang
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5962	] ifFalse:[
5563 5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	5963	item isString ifTrue:[
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	5964	item
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	5965	] ifFalse:[
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	5966	item at:1
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	5967	]
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5968	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5969	].
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5970
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5971	nativeLanguages := listOfLanguageKeys
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5972	collect:[:lang \| \|item enLang\|
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5973	item := enResources at:('LANG_' , lang) default:nil.
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5974	item isNil ifTrue:[
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5975	enLang := lang
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5976	] ifFalse:[
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5977	item isString ifTrue:[
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5978	enLang := item
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5979	] ifFalse:[
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5980	enLang := item at:1
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5981	]
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5982	].
5583 2da80c3bc608 * empty log message * Claus Gittinger <cg@exept.de> parents: 5580 diff changeset	5983	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	5984	].
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5985
5563 5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	5986	languages := enLanguages
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	5987	collect:[:enLang \| \|item\|
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	5988	item := resources at:enLang default:enLang.
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	5989	].
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	5990
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5991	flags := listOfLanguageKeys collect:[:lang \| \|item coll\|
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5992	item := resources at:('FLAG_' , lang) default:nil.
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5993	item notNil ifTrue:[
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5994	item
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5995	] ifFalse:[
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5996	coll := lang asCollectionOfSubstringsSeparatedBy:$_.
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5997	(coll size > 1
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5998	and:[(item := resources at:('FLAG_' , coll last) default:nil) notNil])
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5999	ifTrue:[
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	6000	item
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	6001	] ifFalse:[
6638 74439c5aa6dd * empty log message * Claus Gittinger <cg@exept.de> parents: 6580 diff changeset	6002	item := resources string:('LANG_' , lang).
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	6003	item isArray ifTrue:[
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	6004	item at:2
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	6005	] ifFalse:[
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	6006	nil
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	6007	]
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	6008	]
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6009	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6010	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6011	flags := flags collect:[:nm \| \|img d\| nm notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6012	img := Image fromFile:nm.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6013	img isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6014	d := Smalltalk getPackageDirectoryForPackage:'stx:goodies'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6015	img := Image fromFile:(d construct:nm).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6016	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6017	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6018	nil
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6019	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6020	].
5563 5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	6021
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	6022
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	6023	translatedLanguages := (1 to:languages size) collect:[:idx \|
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	6024	\|l eL nL s\|
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	6025
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	6026	l := languages at:idx.
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	6027	eL := enLanguages at:idx.
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	6028	nL := nativeLanguages at:idx.
5734 67a9878b31bc * empty log message * Claus Gittinger <cg@exept.de> parents: 5721 diff changeset	6029
67a9878b31bc * empty log message * Claus Gittinger <cg@exept.de> parents: 5721 diff changeset	6030	s := nL.
67a9878b31bc * empty log message * Claus Gittinger <cg@exept.de> parents: 5721 diff changeset	6031	eL ~= nL ifTrue:[
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	6032	s := s , ' / ' , eL
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	6033	].
5734 67a9878b31bc * empty log message * Claus Gittinger <cg@exept.de> parents: 5721 diff changeset	6034	(l ~= nL and:[l ~= eL]) ifTrue:[
67a9878b31bc * empty log message * Claus Gittinger <cg@exept.de> parents: 5721 diff changeset	6035	s := s , ' / ' , l
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	6036	].
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	6037	s
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	6038	].
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	6039
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	6040	languageList := translatedLanguages
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	6041	with:flags
5563 5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	6042	collect:[:lang :flag \| LabelAndIcon icon:flag string:lang.].
7295 1ed8da6b09d3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7178 diff changeset	6043
1ed8da6b09d3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7178 diff changeset	6044	"Modified: / 18-09-2006 / 19:23:39 / cg"
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	6045	!
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	6046
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	6047	postBuildHelpLabel:aWidget
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	6048	aWidget level:0.
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	6049	aWidget scrolledView backgroundColor:self window viewBackground.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6050	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6051
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6052	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6053
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6054	currentLanguage
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	6055	^ languageList at:(self currentLanguageIndex)
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	6056	!
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	6057
8458 56aded9ca032 * empty log message * Claus Gittinger <cg@exept.de> parents: 8443 diff changeset	6058	currentLanguageCode
56aded9ca032 * empty log message * Claus Gittinger <cg@exept.de> parents: 8443 diff changeset	6059	^ listOfLanguages at:(self currentLanguageIndex)
56aded9ca032 * empty log message * Claus Gittinger <cg@exept.de> parents: 8443 diff changeset	6060	!
56aded9ca032 * empty log message * Claus Gittinger <cg@exept.de> parents: 8443 diff changeset	6061
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	6062	currentLanguageIndex
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	6063	\| langIdx \|
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	6064
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	6065	(Language ~= LanguageTerritory) ifTrue:[
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	6066	langIdx := listOfLanguages indexOf:(Language , '-' , LanguageTerritory) ifAbsent:nil.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	6067	].
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	6068	langIdx isNil ifTrue:[
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	6069	langIdx := listOfLanguages indexOf:Language ifAbsent:nil.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	6070	].
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	6071	langIdx isNil ifTrue:[
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	6072	langIdx := listOfLanguages indexOf:'en' ifAbsent:nil.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	6073	langIdx isNil ifTrue:[
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	6074	langIdx := listOfLanguages indexOf:'en-us' ifAbsent:nil.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	6075
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	6076	langIdx isNil ifTrue:[
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	6077	langIdx := 1.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	6078	]
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	6079	]
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	6080	].
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	6081	^ langIdx
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6082	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6083
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6084	hasUnsavedChanges
9559 314e6ce52b40 check the modified on languages sr parents: 9555 diff changeset	6085	^ languageIndexHolder value ~= self currentLanguageIndex
7427 2f024ec17c7b * empty log message * Claus Gittinger <cg@exept.de> parents: 7385 diff changeset	6086
2f024ec17c7b * empty log message * Claus Gittinger <cg@exept.de> parents: 7385 diff changeset	6087	"Modified: / 17-10-2006 / 17:51:09 / cg"
9559 314e6ce52b40 check the modified on languages sr parents: 9555 diff changeset	6088	"Modified: / 24-08-2010 / 18:50:11 / sr"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6089	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6090
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6091	!AbstractSettingsApplication::MemorySettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6092
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6093	defaultIcon
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	6094	<resource: #programImage>
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	6095
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	6096	^ ToolbarIconLibrary memoryIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6097	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6098
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6099	!AbstractSettingsApplication::MemorySettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6100
5433 f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	6101	windowSpec
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	6102	"This resource specification was automatically generated
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	6103	by the UIPainter of ST/X."
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	6104
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	6105	"Do not manually edit this!! If it is corrupted,
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	6106	the UIPainter may not be able to read the specification."
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	6107
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	6108	"
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	6109	UIPainter new openOnClass:AbstractSettingsApplication::MemorySettingsAppl andSelector:#windowSpec
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	6110	AbstractSettingsApplication::MemorySettingsAppl new openInterface:#windowSpec
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	6111	AbstractSettingsApplication::MemorySettingsAppl open
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	6112	"
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	6113
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	6114	<resource: #canvas>
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	6115
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	6116	^
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	6117	#(FullSpec
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	6118	name: windowSpec
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	6119	window:
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	6120	(WindowSpec
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	6121	label: 'Memory Manager Settings'
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	6122	name: 'Memory Manager Settings'
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	6123	min: (Point 10 10)
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6124	bounds: (Rectangle 0 0 705 722)
5433 f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	6125	)
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	6126	component:
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	6127	(SpecCollection
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	6128	collection: (
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6129	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6130	label: 'Label'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6131	name: 'Label1'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6132	layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 50 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6133	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6134	labelChannel: warningLabelHolder
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6135	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6136	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6137	(VerticalPanelViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6138	name: 'VerticalPanel1'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6139	layout: (LayoutFrame 0 0.0 50 0 0 1.0 0 1.0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6140	horizontalLayout: fit
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6141	verticalLayout: top
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6142	horizontalSpace: 0
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6143	verticalSpace: 3
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6144	ignoreInvisibleComponents: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6145	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6146	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6147	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6148	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6149	name: 'NewSpaceSizeBox'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6150	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6151	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6152	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6153	(InputFieldSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6154	name: 'EntryField23'
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6155	layout: (LayoutFrame 270 0 3 0 360 0 23 0)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6156	model: newSpaceSize
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6157	type: fileSize
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6158	acceptOnReturn: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6159	acceptOnTab: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6160	acceptOnLostFocus: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6161	acceptOnPointerLeave: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6162	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6163	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6164	label: 'Size of NewSpace:'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6165	name: 'Label44'
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6166	layout: (LayoutFrame 0 0 3 0 265 0 23 0)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6167	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6168	adjust: right
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6169	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6170	(LabelSpec
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6171	label: '(Size of Space where new objects are created)'
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6172	name: 'Label45'
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6173	layout: (LayoutFrame 364 0.0 3 0 0 1.0 23 0)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6174	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6175	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6176	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6177	(DividerSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6178	name: 'Separator24'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6179	layout: (LayoutFrame 0 0.0 0 0 0 1.0 3 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6180	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6181	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6182
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6183	)
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6184	extent: (Point 705 30)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6185	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6186	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6187	name: 'MaximumMemoryLimitBox'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6188	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6189	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6190	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6191	(InputFieldSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6192	name: 'EntryField24'
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6193	layout: (LayoutFrame 270 0 3 0 360 0 23 0)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6194	model: maxOldSpace
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6195	type: fileSize
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6196	acceptOnReturn: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6197	acceptOnTab: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6198	acceptOnLostFocus: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6199	acceptOnPointerLeave: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6200	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6201	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6202	label: 'Maximum Memory Limit:'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6203	name: 'Label46'
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6204	layout: (LayoutFrame 0 0 3 0 265 0 23 0)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6205	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6206	adjust: right
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6207	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6208	(LabelSpec
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6209	label: '(Never allocate more than this amount of memory)'
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6210	name: 'Label47'
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6211	layout: (LayoutFrame 364 0.0 3 0 0 1.0 23 0)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6212	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6213	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6214	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6215	(DividerSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6216	name: 'Separator25'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6217	layout: (LayoutFrame 0 0.0 0 0 0 1.0 3 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6218	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6219	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6220
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6221	)
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6222	extent: (Point 705 30)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6223	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6224	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6225	name: 'QuickAllocationLimitBox'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6226	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6227	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6228	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6229	(InputFieldSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6230	name: 'EntryField14'
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6231	layout: (LayoutFrame 270 0 3 0 360 0 23 0)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6232	model: fastMoreLimit
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6233	type: fileSize
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6234	acceptOnReturn: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6235	acceptOnTab: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6236	acceptOnLostFocus: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6237	acceptOnPointerLeave: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6238	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6239	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6240	label: 'Quick Allocation Limit:'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6241	name: 'Label26'
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6242	layout: (LayoutFrame 0 0 3 0 265 0 23 0)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6243	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6244	adjust: right
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6245	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6246	(LabelSpec
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6247	label: '(Quickly allocate more memory (suppress GC) up to this limit)'
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6248	name: 'Label27'
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6249	layout: (LayoutFrame 364 0.0 3 0 0 1.0 23 0)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6250	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6251	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6252	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6253	(DividerSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6254	name: 'Separator15'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6255	layout: (LayoutFrame 0 0.0 0 0 0 1.0 3 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6256	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6257	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6258
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6259	)
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6260	extent: (Point 705 30)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6261	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6262	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6263	name: 'IncrementalGCAllocationTriggerBox'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6264	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6265	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6266	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6267	(InputFieldSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6268	name: 'EntryField25'
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6269	layout: (LayoutFrame 270 0 3 0 360 0 23 0)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6270	model: igcLimit
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6271	type: fileSize
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6272	acceptOnReturn: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6273	acceptOnTab: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6274	acceptOnLostFocus: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6275	acceptOnPointerLeave: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6276	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6277	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6278	label: 'Incremental GC Allocation Trigger:'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6279	name: 'Label48'
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6280	layout: (LayoutFrame 0 0 3 0 265 0 23 0)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6281	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6282	adjust: right
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6283	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6284	(LabelSpec
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6285	label: '(Start IGC whenever this amount has been allocated)'
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6286	name: 'Label49'
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6287	layout: (LayoutFrame 364 0.0 3 0 0 1.0 23 0)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6288	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6289	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6290	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6291	(DividerSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6292	name: 'Separator26'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6293	layout: (LayoutFrame 0 0.0 0 0 0 1.0 3 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6294	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6295	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6296
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6297	)
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6298	extent: (Point 705 30)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6299	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6300	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6301	name: 'IncrementalGCFreespaceTriggerBox'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6302	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6303	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6304	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6305	(InputFieldSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6306	name: 'EntryField26'
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6307	layout: (LayoutFrame 270 0 3 0 360 0 23 0)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6308	model: igcFreeLimit
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6309	type: fileSize
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6310	acceptOnReturn: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6311	acceptOnTab: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6312	acceptOnLostFocus: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6313	acceptOnPointerLeave: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6314	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6315	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6316	label: 'Incremental GC Freespace Trigger:'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6317	name: 'Label50'
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6318	layout: (LayoutFrame 0 0 3 0 265 0 23 0)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6319	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6320	adjust: right
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6321	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6322	(LabelSpec
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6323	label: '(Start IGC whenever freespace drops below this)'
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6324	name: 'Label51'
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6325	layout: (LayoutFrame 364 0.0 3 0 0 1.0 23 0)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6326	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6327	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6328	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6329	(DividerSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6330	name: 'Separator27'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6331	layout: (LayoutFrame 0 0.0 0 0 0 1.0 3 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6332	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6333	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6334
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6335	)
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6336	extent: (Point 705 30)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6337	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6338	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6339	name: 'GCAmountBox'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6340	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6341	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6342	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6343	(InputFieldSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6344	name: 'EntryField17'
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6345	layout: (LayoutFrame 270 0 3 0 360 0 23 0)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6346	model: igcFreeAmount
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6347	type: fileSize
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6348	acceptOnReturn: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6349	acceptOnTab: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6350	acceptOnLostFocus: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6351	acceptOnPointerLeave: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6352	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6353	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6354	label: 'Incremental GC Amount:'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6355	name: 'Label32'
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6356	layout: (LayoutFrame 0 0 3 0 265 0 23 0)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6357	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6358	adjust: right
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6359	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6360	(LabelSpec
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6361	label: '(Try to keep this amount for peak requests)'
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6362	name: 'Label33'
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6363	layout: (LayoutFrame 364 0.0 3 0 0 1.0 23 0)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6364	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6365	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6366	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6367	(DividerSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6368	name: 'Separator18'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6369	layout: (LayoutFrame 0 0.0 0 0 0 1.0 3 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6370	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6371	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6372
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6373	)
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6374	extent: (Point 705 30)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6375	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6376	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6377	name: 'OldspaceIncrementBox'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6378	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6379	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6380	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6381	(InputFieldSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6382	name: 'EntryField18'
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6383	layout: (LayoutFrame 270 0 3 0 360 0 23 0)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6384	model: oldIncr
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6385	type: fileSize
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6386	acceptOnReturn: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6387	acceptOnTab: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6388	acceptOnLostFocus: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6389	acceptOnPointerLeave: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6390	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6391	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6392	label: 'Oldspace Increment:'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6393	name: 'Label34'
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6394	layout: (LayoutFrame 0 0 3 0 265 0 23 0)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6395	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6396	adjust: right
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6397	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6398	(LabelSpec
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6399	label: '(Increase oldSpace in chunks of this size)'
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6400	name: 'Label35'
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6401	layout: (LayoutFrame 364 0.0 3 0 0 1.0 23 0)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6402	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6403	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6404	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6405	(DividerSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6406	name: 'Separator19'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6407	layout: (LayoutFrame 0 0.0 0 0 0 1.0 3 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6408	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6409	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6410
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6411	)
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6412	extent: (Point 705 30)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6413	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6414	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6415	name: 'OldSpaceCompressLimitBox'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6416	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6417	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6418	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6419	(InputFieldSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6420	name: 'EntryField19'
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6421	layout: (LayoutFrame 270 0 3 0 360 0 23 0)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6422	model: compressLimit
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6423	type: fileSize
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6424	acceptOnReturn: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6425	acceptOnTab: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6426	acceptOnLostFocus: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6427	acceptOnPointerLeave: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6428	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6429	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6430	label: 'Oldspace Compress Limit:'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6431	name: 'Label36'
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6432	layout: (LayoutFrame 0 0 3 0 265 0 23 0)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6433	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6434	adjust: right
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6435	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6436	(LabelSpec
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6437	label: '(Use 2-pass compressing GC if > 0 and more memory is in use)'
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6438	name: 'Label37'
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6439	layout: (LayoutFrame 364 0.0 3 0 0 1.0 23 0)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6440	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6441	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6442	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6443	(DividerSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6444	name: 'Separator20'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6445	layout: (LayoutFrame 0 0.0 0 0 0 1.0 3 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6446	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6447	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6448
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6449	)
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6450	extent: (Point 705 30)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6451	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6452	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6453	name: 'StackLimitBox'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6454	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6455	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6456	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6457	(InputFieldSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6458	name: 'EntryField20'
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6459	layout: (LayoutFrame 270 0 3 0 360 0 23 0)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6460	enableChannel: supportsJustInTimeCompilation
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6461	model: stackLimit
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6462	type: fileSize
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6463	acceptOnReturn: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6464	acceptOnTab: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6465	acceptOnLostFocus: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6466	acceptOnPointerLeave: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6467	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6468	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6469	label: 'Stack Limit:'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6470	name: 'Label38'
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6471	layout: (LayoutFrame 0 0 3 0 265 0 23 0)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6472	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6473	adjust: right
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6474	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6475	(LabelSpec
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6476	label: '(Trigger recursionInterrupt if more stack is used by a process)'
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6477	name: 'Label39'
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6478	layout: (LayoutFrame 364 0.0 3 0 0 1.0 23 0)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6479	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6480	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6481	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6482	(DividerSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6483	name: 'Separator21'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6484	layout: (LayoutFrame 0 0.0 0 0 0 1.0 3 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6485	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6486	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6487
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6488	)
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6489	extent: (Point 705 30)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6490	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6491	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6492	name: 'CodeLimitBox'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6493	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6494	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6495	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6496	(InputFieldSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6497	name: 'EntryField21'
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6498	layout: (LayoutFrame 270 0 3 0 360 0 23 0)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6499	enableChannel: supportsJustInTimeCompilation
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6500	model: codeLimit
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6501	type: fileSize
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6502	acceptOnReturn: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6503	acceptOnTab: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6504	acceptOnLostFocus: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6505	acceptOnPointerLeave: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6506	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6507	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6508	label: 'Dynamic code Limit:'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6509	name: 'Label40'
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6510	layout: (LayoutFrame 0 0 3 0 265 0 23 0)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6511	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6512	adjust: right
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6513	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6514	(LabelSpec
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6515	label: '(Flush dynamic compiled code to stay within this limit)'
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6516	name: 'Label41'
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6517	layout: (LayoutFrame 364 0.0 3 0 0 1.0 23 0)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6518	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6519	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6520	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6521	(DividerSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6522	name: 'Separator22'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6523	layout: (LayoutFrame 0 0.0 0 0 0 1.0 3 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6524	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6525	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6526
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6527	)
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6528	extent: (Point 705 30)
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	(ViewSpec
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6531	name: 'Box1'
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6532	component:
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6533	(SpecCollection
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6534	collection: (
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6535	(InputFieldSpec
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6536	name: 'EntryField27'
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6537	layout: (LayoutFrame 270 0 3 0 360 0 23 0)
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6538	enableChannel: supportsJustInTimeCompilation
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6539	model: methodCodeSizeLimit
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6540	type: fileSize
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6541	acceptOnReturn: true
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6542	acceptOnTab: true
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6543	acceptOnLostFocus: true
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6544	acceptOnPointerLeave: true
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6545	)
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6546	(LabelSpec
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6547	label: 'Method Code Size Limit:'
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6548	name: 'Label52'
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6549	layout: (LayoutFrame 0 0 3 0 265 0 23 0)
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6550	translateLabel: true
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6551	adjust: right
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6552	)
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6553	(LabelSpec
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6554	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	6555	name: 'Label53'
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6556	layout: (LayoutFrame 364 0.0 3 0 0 1.0 23 0)
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6557	translateLabel: true
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6558	adjust: left
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6559	)
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6560	(DividerSpec
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6561	name: 'Separator28'
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6562	layout: (LayoutFrame 0 0.0 0 0 0 1.0 3 0)
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6563	)
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6564	)
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6565
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6566	)
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6567	extent: (Point 705 30)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6568	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6569	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6570	name: 'CodeTriggerBox'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6571	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6572	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6573	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6574	(InputFieldSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6575	name: 'EntryField22'
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6576	layout: (LayoutFrame 270 0 3 0 360 0 23 0)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6577	model: codeTrigger
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6578	type: fileSize
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6579	acceptOnReturn: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6580	acceptOnTab: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6581	acceptOnLostFocus: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6582	acceptOnPointerLeave: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6583	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6584	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6585	label: 'Dynamic code Limit:'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6586	name: 'Label42'
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6587	layout: (LayoutFrame 0 0 3 0 265 0 23 0)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6588	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6589	adjust: right
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6590	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6591	(LabelSpec
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6592	label: '(Start incremental GC whenever this amount of code has been allocated)'
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6593	name: 'Label43'
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6594	layout: (LayoutFrame 364 0.0 3 0 0 1.0 23 0)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6595	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6596	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6597	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6598	(DividerSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6599	name: 'Separator23'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6600	layout: (LayoutFrame 0 0.0 0 0 0 1.0 3 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6601	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6602	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6603
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6604	)
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6605	extent: (Point 705 30)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6606	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6607	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6608
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6609	)
5433 f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	6610	)
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	6611	)
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	6612
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	6613	)
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	6614	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6615	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6616
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6617	!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6618
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6619	basicReadSettings
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	6620	self
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	6621	readAspects:
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	6622	#(
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	6623	newSpaceSize
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	6624	maxOldSpace
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	6625	)
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	6626	from:ObjectMemory.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6627
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6628	self igcLimit value:ObjectMemory incrementalGCLimit.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6629	self igcFreeLimit value:ObjectMemory freeSpaceGCLimit.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6630	self igcFreeAmount value:ObjectMemory freeSpaceGCAmount.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6631	self oldIncr value:ObjectMemory oldSpaceIncrement.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6632	self compressLimit value:ObjectMemory oldSpaceCompressLimit.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6633	self codeLimit value:ObjectMemory dynamicCodeLimit.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6634	self codeTrigger value:ObjectMemory dynamicCodeGCTrigger.
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6635	self methodCodeSizeLimit value:(ObjectMemory codeSizeLimitForDynamicCompilation:-1).
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6636	self fastMoreLimit value:(ObjectMemory fastMoreOldSpaceLimit:-1).
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6637
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6638	self stackLimit value:Process defaultMaximumStackSize.
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6639
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6640	"Modified: / 12-08-2010 / 15:34:24 / cg"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6641	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6642
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6643	basicSaveSettings
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	6644	self
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	6645	writeAspects:
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	6646	#(
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	6647	newSpaceSize
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	6648	maxOldSpace
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	6649	)
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	6650	to:ObjectMemory.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6651
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6652	ObjectMemory freeSpaceGCAmount:self igcFreeAmount value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6653	ObjectMemory freeSpaceGCLimit:self igcFreeLimit value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6654	ObjectMemory incrementalGCLimit:self igcLimit value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6655	ObjectMemory oldSpaceIncrement:self oldIncr value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6656	ObjectMemory fastMoreOldSpaceLimit:self fastMoreLimit value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6657	ObjectMemory oldSpaceCompressLimit:self compressLimit value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6658	ObjectMemory dynamicCodeLimit:self codeLimit value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6659	ObjectMemory dynamicCodeGCTrigger:self codeTrigger value.
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6660	ObjectMemory codeSizeLimitForDynamicCompilation:(self methodCodeSizeLimit value).
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6661
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6662	Process defaultMaximumStackSize:self stackLimit value.
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6663
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6664	"Modified: / 12-08-2010 / 15:34:47 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6665	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6666
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6667	!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6668
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6669	codeLimit
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6670
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6671	codeLimit isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6672	codeLimit := ObjectMemory dynamicCodeLimit asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6673	codeLimit onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6674	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6675	^ codeLimit.
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
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6678	codeTrigger
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6679
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6680	codeTrigger isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6681	codeTrigger := ObjectMemory dynamicCodeGCTrigger asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6682	codeTrigger onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6683	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6684	^ codeTrigger.
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
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6687	compressLimit
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6688
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6689	compressLimit isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6690	compressLimit := ObjectMemory oldSpaceCompressLimit asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6691	compressLimit onChangeSend:#updateModifiedChannel to:self
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6692	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6693	^ compressLimit.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6694	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6695
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6696	fastMoreLimit
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6697
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6698	fastMoreLimit isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6699	fastMoreLimit := (ObjectMemory fastMoreOldSpaceLimit:-1) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6700	fastMoreLimit onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6701	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6702	^ fastMoreLimit.
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
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6705	igcFreeAmount
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6706
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6707	igcFreeAmount isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6708	igcFreeAmount := ObjectMemory freeSpaceGCAmount asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6709	igcFreeAmount onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6710	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6711	^ igcFreeAmount.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6712	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6713
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6714	igcFreeLimit
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6715
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6716	igcFreeLimit isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6717	igcFreeLimit := ObjectMemory freeSpaceGCLimit asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6718	igcFreeLimit onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6719	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6720	^ igcFreeLimit.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6721	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6722
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6723	igcLimit
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6724
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6725	igcLimit isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6726	igcLimit := ObjectMemory incrementalGCLimit asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6727	igcLimit onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6728	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6729	^ igcLimit.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6730	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6731
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6732	maxOldSpace
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6733
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6734	maxOldSpace isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6735	maxOldSpace := ObjectMemory maxOldSpace asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6736	maxOldSpace onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6737	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6738	^ maxOldSpace.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6739	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6740
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6741	methodCodeSizeLimit
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6742
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6743	methodCodeSizeLimit isNil ifTrue:[
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6744	methodCodeSizeLimit := (ObjectMemory codeSizeLimitForDynamicCompilation:-1) asValue.
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6745	methodCodeSizeLimit onChangeSend:#updateModifiedChannel to:self
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6746	].
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6747	^ methodCodeSizeLimit.
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6748
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6749	"Created: / 12-08-2010 / 15:31:56 / cg"
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6750	!
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6751
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6752	newSpaceSize
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6753
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6754	newSpaceSize isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6755	newSpaceSize := ObjectMemory newSpaceSize asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6756	newSpaceSize onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6757	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6758	^ newSpaceSize.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6759	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6760
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6761	oldIncr
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6762
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6763	oldIncr isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6764	oldIncr := ObjectMemory oldSpaceIncrement asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6765	oldIncr onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6766	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6767	^ oldIncr.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6768	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6769
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6770	stackLimit
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6771
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6772	stackLimit isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6773	stackLimit := Process defaultMaximumStackSize asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6774	stackLimit onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6775	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6776	^ stackLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6777	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6778
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6779	supportsJustInTimeCompilation
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6780
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6781	^ ObjectMemory supportsJustInTimeCompilation.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6782	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6783
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6784	warningLabelHolder
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6785
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6786	warningLabelHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6787	warningLabelHolder := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6788	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6789	^ warningLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6790	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6791
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	6792	!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	6793
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	6794	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	6795	^ 'Launcher/memorySettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	6796	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	6797
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6798	!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6799
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6800	initialize
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6801	super initialize.
5576 8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	6802	self warningLabelHolder
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	6803	value:(StringCollection
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	6804	with:(resources string:'Warning - invalid settings may result in failures or poor performance.')
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	6805	with:(resources string:'You have been warned.') allBold
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	6806	).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6807	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6808
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6809	!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6810
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6811	hasUnsavedChanges
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	6812	(self
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	6813	hasChangedAspectIn:
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	6814	#(
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	6815	newSpaceSize
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	6816	maxOldSpace
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	6817	)
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	6818	asComparedTo:ObjectMemory) ifTrue:[^ true].
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6819
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6820	ObjectMemory freeSpaceGCAmount ~= self igcFreeAmount value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6821	ObjectMemory freeSpaceGCLimit ~= self igcFreeLimit value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6822	ObjectMemory incrementalGCLimit ~= self igcLimit value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6823	ObjectMemory oldSpaceIncrement ~= self oldIncr value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6824	(ObjectMemory fastMoreOldSpaceLimit:-1) ~= self fastMoreLimit value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6825	ObjectMemory oldSpaceCompressLimit ~= self compressLimit value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6826	ObjectMemory dynamicCodeLimit ~= self codeLimit value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6827	ObjectMemory dynamicCodeGCTrigger ~= self codeTrigger value ifTrue:[^ true].
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6828	(ObjectMemory codeSizeLimitForDynamicCompilation:-1) ~= self methodCodeSizeLimit value ifTrue:[^ true].
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6829
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6830	Process defaultMaximumStackSize ~= self stackLimit value ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6831	^ false
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6832
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6833	"Modified: / 12-08-2010 / 15:33:12 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6834	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6835
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6836	!AbstractSettingsApplication::MiscCommunicationSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6837
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6838	defaultIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6839	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6840	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6841
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6842	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6843	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6844
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6845	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6846	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6847	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6848	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6849	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6850
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6851	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6852
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6853	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6854	constantNamed:#'AbstractSettingsApplication::MiscCommunicationSettingsAppl class defaultIcon'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	6855	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	6856	@@!!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	6857	]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	6858	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	6859	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6860
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6861	!AbstractSettingsApplication::MiscCommunicationSettingsAppl class methodsFor:'interface specs'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6862
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6863	windowSpec
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6864	"This resource specification was automatically generated
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6865	by the UIPainter of ST/X."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6866
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6867	"Do not manually edit this!! If it is corrupted,
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6868	the UIPainter may not be able to read the specification."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6869
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6870	"
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	6871	UIPainter new openOnClass:AbstractSettingsApplication::MiscCommunicationSettingsAppl andSelector:#windowSpec
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	6872	AbstractSettingsApplication::MiscCommunicationSettingsAppl new openInterface:#windowSpec
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	6873	AbstractSettingsApplication::MiscCommunicationSettingsAppl open
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6874	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6875
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6876	<resource: #canvas>
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6877
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6878	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6879	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6880	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6881	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6882	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6883	label: 'Communication Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6884	name: 'Communication Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6885	min: (Point 10 10)
9342 89cf767fdb55 * empty log message * Claus Gittinger <cg@exept.de> parents: 9322 diff changeset	6886	bounds: (Rectangle 0 0 732 558)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6887	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6888	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6889	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6890	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6891	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6892	name: 'VerticalPanel1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6893	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	6894	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6895	verticalLayout: top
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6896	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6897	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6898	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6899	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6900	collection: (
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6901	(FramedBoxSpec
7846 eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6902	label: 'SMTP Server'
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6903	name: 'SMTPServerBox1'
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6904	labelPosition: topLeft
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6905	translateLabel: true
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6906	component:
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6907	(SpecCollection
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6908	collection: (
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6909	(ViewSpec
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6910	name: 'Box5'
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6911	layout: (LayoutFrame 0 0 5 0 0 1 28 0)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6912	component:
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6913	(SpecCollection
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6914	collection: (
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6915	(LabelSpec
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6916	label: 'SMTP Server:'
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6917	name: 'SMTPLabel'
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6918	layout: (LayoutFrame 0 0 0 0 150 0 22 0)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6919	translateLabel: true
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6920	adjust: right
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6921	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6922	(InputFieldSpec
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6923	name: 'SMTPServer'
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6924	layout: (LayoutFrame 150 0 0 0 400 0 22 0)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6925	model: smtpServerName
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6926	acceptOnReturn: true
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6927	acceptOnTab: true
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6928	acceptOnLostFocus: true
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6929	acceptOnPointerLeave: false
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6930	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6931	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6932
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6933	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6934	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6935	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6936
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6937	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6938	extent: (Point 732 58)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6939	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6940	(FramedBoxSpec
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6941	label: 'Window migration'
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6942	name: 'WindowMicrationSetupBox'
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6943	labelPosition: topLeft
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6944	translateLabel: true
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6945	component:
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6946	(SpecCollection
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6947	collection: (
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6948	(VerticalPanelViewSpec
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6949	name: 'VerticalPanel2'
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6950	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6951	horizontalLayout: left
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6952	verticalLayout: center
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6953	horizontalSpace: 3
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6954	verticalSpace: 3
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6955	component:
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6956	(SpecCollection
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6957	collection: (
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6958	(ViewSpec
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6959	name: 'Box2'
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6960	component:
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6961	(SpecCollection
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6962	collection: (
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6963	(CheckBoxSpec
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6964	label: 'Window migration enabled'
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6965	name: 'CheckBox2'
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6966	layout: (LayoutFrame 5 0 0 0 600 0 22 0)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6967	enableChannel: hasWindowMigrationServer
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6968	model: windowMigrationEnabled
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6969	translateLabel: true
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6970	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6971	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6972
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6973	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6974	extent: (Point 696 23)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6975	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6976	(ViewSpec
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6977	name: 'Box3'
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6978	component:
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6979	(SpecCollection
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6980	collection: (
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6981	(CheckBoxSpec
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6982	label: 'Password check'
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6983	name: 'CheckBox3'
9342 89cf767fdb55 * empty log message * Claus Gittinger <cg@exept.de> parents: 9322 diff changeset	6984	layout: (LayoutFrame 5 0 -2 0 600 0 20 0)
7846 eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6985	enableChannel: enablePasswordCheck
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6986	model: windowMigrationAuthenticate
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6987	translateLabel: true
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6988	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6989	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6990
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6991	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6992	extent: (Point 696 22)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6993	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6994	(ViewSpec
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6995	name: 'Box4'
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6996	component:
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6997	(SpecCollection
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6998	collection: (
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6999	(LabelSpec
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7000	label: 'Password:'
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7001	name: 'Label3'
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7002	layout: (LayoutFrame 0 0 0 0 150 0 22 0)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7003	translateLabel: true
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7004	adjust: right
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7005	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7006	(InputFieldSpec
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7007	name: 'EntryField1'
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7008	layout: (LayoutFrame 150 0 0 0 400 0 22 0)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7009	enableChannel: windowMigrationAuthenticate
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7010	model: windowMigrationPassword
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7011	type: password
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7012	acceptOnReturn: true
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7013	acceptOnTab: true
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7014	acceptOnLostFocus: true
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7015	acceptOnPointerLeave: true
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7016	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7017	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7018
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7019	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7020	extent: (Point 696 22)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7021	)
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	)
9342 89cf767fdb55 * empty log message * Claus Gittinger <cg@exept.de> parents: 9322 diff changeset	7029	extent: (Point 732 115)
7846 eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7030	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7031	(FramedBoxSpec
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7032	label: 'Remote Browsing'
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7033	name: 'RemoteBrowsingSetupBox'
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7034	labelPosition: topLeft
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7035	translateLabel: true
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7036	component:
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7037	(SpecCollection
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7038	collection: (
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7039	(ViewSpec
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7040	name: 'Box1'
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7041	layout: (LayoutFrame 0 0 5 0 0 1 28 0)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7042	component:
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7043	(SpecCollection
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7044	collection: (
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7045	(CheckBoxSpec
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7046	label: 'Remote browsing enabled'
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7047	name: 'CheckBox1'
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7048	layout: (LayoutFrame 5 0 0 0 600 0 22 0)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7049	enableChannel: hasRemoteBrowsingSupport
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7050	model: remoteBrowsingEnabled
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7051	translateLabel: true
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7052	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7053	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7054
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7055	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7056	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7057	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7058
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7059	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7060	extent: (Point 732 59)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7061	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7062	(FramedBoxSpec
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7063	label: 'SmallTeam Change Distribution'
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7064	name: 'SmallTeamSetupBox'
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7065	visibilityChannel: managerIsCVSSourceCodeManager
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7066	labelPosition: topLeft
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7067	translateLabel: true
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7068	component:
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7069	(SpecCollection
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7070	collection: (
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7071	(ViewSpec
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7072	name: 'enableBox'
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7073	layout: (LayoutFrame 0 0 8 0 0 1 31 0)
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7074	component:
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7075	(SpecCollection
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7076	collection: (
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7077	(CheckBoxSpec
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7078	label: 'SmallTeam Server enabled'
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7079	name: 'CheckBox4'
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7080	layout: (LayoutFrame 5 0 0 0 600 0 22 0)
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	7081	enableChannel: smallTeamServerAvailable
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7082	model: smallTeamServerEnabled
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7083	translateLabel: true
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7084	)
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7085	)
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7086
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7087	)
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7088	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7089	(LabelSpec
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7090	label: 'SmallTeam Hosts:'
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7091	name: 'smallTeamHostsLabel'
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7092	layout: (LayoutFrame 0 0.0 37 0 60 0.25 59 0)
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7093	translateLabel: true
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7094	adjust: right
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7095	)
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7096	(SequenceViewSpec
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7097	name: 'smallTeamHostsList'
9342 89cf767fdb55 * empty log message * Claus Gittinger <cg@exept.de> parents: 9322 diff changeset	7098	layout: (LayoutFrame 64 0.25 37 0 0 1 131 0)
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7099	enableChannel: smallTeamServerEnabled
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7100	tabable: true
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7101	model: selectedSmallTeamHost
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7102	hasHorizontalScrollBar: true
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7103	hasVerticalScrollBar: true
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7104	miniScrollerHorizontal: true
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7105	useIndex: false
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7106	sequenceList: listOfSmallTeamHosts
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7107	)
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7108	(LabelSpec
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7109	label: 'Host:'
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7110	name: 'hostLabel'
9342 89cf767fdb55 * empty log message * Claus Gittinger <cg@exept.de> parents: 9322 diff changeset	7111	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	7112	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7113	adjust: right
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7114	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7115	(InputFieldSpec
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7116	name: 'smallTeamHostEntryField'
9342 89cf767fdb55 * empty log message * Claus Gittinger <cg@exept.de> parents: 9322 diff changeset	7117	layout: (LayoutFrame 64 0.25 138 0 0 1 160 0)
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7118	enableChannel: smallTeamServerEnabled
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7119	tabable: true
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7120	model: smallTeamHostEntry
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7121	acceptChannel: acceptChannel
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7122	acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7123	)
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7124	(HorizontalPanelViewSpec
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7125	name: 'HorizontalPanel2'
9342 89cf767fdb55 * empty log message * Claus Gittinger <cg@exept.de> parents: 9322 diff changeset	7126	layout: (LayoutFrame 64 0.25 165 0 -1 1 190 0)
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7127	horizontalLayout: fitSpace
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7128	verticalLayout: center
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7129	horizontalSpace: 3
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7130	verticalSpace: 3
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7131	component:
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7132	(SpecCollection
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7133	collection: (
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7134	(ActionButtonSpec
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7135	label: 'Add'
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7136	name: 'addButton'
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7137	translateLabel: true
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7138	tabable: true
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7139	model: addSmallTeamHost
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7140	enableChannel: addHostEnabled
8151 b02059a52c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 8149 diff changeset	7141	extent: (Point 225 22)
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7142	)
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7143	(ActionButtonSpec
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7144	label: 'Remove'
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7145	name: 'removeButton'
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7146	translateLabel: true
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7147	tabable: true
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7148	model: removeSmallTeamHost
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7149	enableChannel: removeHostEnabled
8151 b02059a52c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 8149 diff changeset	7150	extent: (Point 225 22)
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7151	)
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7152	)
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7153
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7154	)
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7155	)
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7156	)
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7157
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7158	)
9342 89cf767fdb55 * empty log message * Claus Gittinger <cg@exept.de> parents: 9322 diff changeset	7159	extent: (Point 732 222)
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7160	)
8145 3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7161	(FramedBoxSpec
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7162	label: '.NET Bridge'
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7163	name: 'FramedBox1'
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7164	labelPosition: topLeft
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7165	translateLabel: true
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7166	component:
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7167	(SpecCollection
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7168	collection: (
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7169	(VerticalPanelViewSpec
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7170	name: 'VerticalPanel3'
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7171	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7172	horizontalLayout: left
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7173	verticalLayout: center
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7174	horizontalSpace: 3
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7175	verticalSpace: 3
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7176	component:
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7177	(SpecCollection
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7178	collection: (
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7179	(ViewSpec
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7180	name: 'Box6'
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7181	component:
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7182	(SpecCollection
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7183	collection: (
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7184	(CheckBoxSpec
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7185	label: 'Verbose'
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7186	name: 'CheckBox5'
9342 89cf767fdb55 * empty log message * Claus Gittinger <cg@exept.de> parents: 9322 diff changeset	7187	layout: (LayoutFrame 5 0 5 0 600 0 22 0)
8145 3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7188	enableChannel: hasDotNetBridge
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7189	model: dotNetBridgeVerbose
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7190	translateLabel: true
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7191	)
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7192	)
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7193
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7194	)
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7195	extent: (Point 696 23)
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7196	)
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7197	(ViewSpec
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7198	name: 'Box7'
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7199	component:
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7200	(SpecCollection
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7201	collection: (
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7202	(CheckBoxSpec
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7203	label: 'Bridge Runs in IDE'
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7204	name: 'CheckBox6'
9342 89cf767fdb55 * empty log message * Claus Gittinger <cg@exept.de> parents: 9322 diff changeset	7205	layout: (LayoutFrame 5 0 3 0 600 0 25 0)
8145 3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7206	enableChannel: hasDotNetBridge
8151 b02059a52c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 8149 diff changeset	7207	model: dotNetBridgeRunsInIDE
8145 3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7208	translateLabel: true
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7209	)
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7210	)
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7211
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7212	)
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7213	extent: (Point 696 22)
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7214	)
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7215	)
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7216
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7217	)
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7218	)
9342 89cf767fdb55 * empty log message * Claus Gittinger <cg@exept.de> parents: 9322 diff changeset	7219	(ActionButtonSpec
89cf767fdb55 * empty log message * Claus Gittinger <cg@exept.de> parents: 9322 diff changeset	7220	label: 'Close all Connections'
89cf767fdb55 * empty log message * Claus Gittinger <cg@exept.de> parents: 9322 diff changeset	7221	name: 'Button1'
89cf767fdb55 * empty log message * Claus Gittinger <cg@exept.de> parents: 9322 diff changeset	7222	layout: (LayoutFrame -228 1 27 0 -3 1 49 0)
89cf767fdb55 * empty log message * Claus Gittinger <cg@exept.de> parents: 9322 diff changeset	7223	translateLabel: true
89cf767fdb55 * empty log message * Claus Gittinger <cg@exept.de> parents: 9322 diff changeset	7224	tabable: true
89cf767fdb55 * empty log message * Claus Gittinger <cg@exept.de> parents: 9322 diff changeset	7225	model: closeAllDotNetConnections
89cf767fdb55 * empty log message * Claus Gittinger <cg@exept.de> parents: 9322 diff changeset	7226	)
89cf767fdb55 * empty log message * Claus Gittinger <cg@exept.de> parents: 9322 diff changeset	7227	)
89cf767fdb55 * empty log message * Claus Gittinger <cg@exept.de> parents: 9322 diff changeset	7228
89cf767fdb55 * empty log message * Claus Gittinger <cg@exept.de> parents: 9322 diff changeset	7229	)
89cf767fdb55 * empty log message * Claus Gittinger <cg@exept.de> parents: 9322 diff changeset	7230	extent: (Point 732 83)
8145 3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7231	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7232	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7233
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7234	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7235	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7236	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7237
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7238	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7239	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7240	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7241
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7242	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'actions'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7243
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7244	basicReadSettings
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7245	\|pw auth\|
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7246
7846 eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7247	self
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7248	readAspects:
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7249	#(
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7250	smtpServerName
8145 3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7251	dotNetBridgeRunsInIDE
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7252	dotNetBridgeVerbose
7846 eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7253	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7254	from:currentUserPrefs.
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7255
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7256	SmallTeam notNil ifTrue:[
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7257	self smallTeamServerEnabled value:(SmallTeam isLoaded and:[SmallTeam serverRunning]).
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7258	self listOfSmallTeamHosts contents:(SmallTeam connectedHosts).
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7259	].
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7260
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7261	self remoteBrowsingEnabled
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7262	value:(self hasRemoteBrowsingSupport
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7263	and:[SmalltalkShareServer isLoaded and:[SmalltalkShareServer serverRunning]]).
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7264
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7265	self windowMigrationEnabled
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7266	value:(self hasWindowMigrationServer
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7267	and:[ WindowMigrationServer isLoaded
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7268	and:[ WindowMigrationServer serverRunning ]]).
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	pw := nil.
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7272	auth := false.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7273	(self hasWindowMigrationServer and:[WindowMigrationServer isLoaded]) ifTrue:[
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7274	pw := WindowMigrationServer password.
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7275	auth := self windowMigrationPassword value notNil
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7276	].
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7277
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7278	self windowMigrationPassword value:pw.
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7279	self windowMigrationAuthenticate value:auth
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7280
7846 eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7281	"Modified: / 20-09-2007 / 16:04:59 / cg"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7282	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7283
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7284	basicSaveSettings
7846 eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7285	self
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7286	writeAspects:
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7287	#(
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7288	smtpServerName
8145 3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7289	dotNetBridgeRunsInIDE
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7290	dotNetBridgeVerbose
7846 eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7291	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7292	to:currentUserPrefs.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7293
8145 3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7294	(SmallTeam notNil) ifTrue:[
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7295	SmallTeam connectedHosts copy do:[:host \|
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7296	(self listOfSmallTeamHosts includes:host) ifFalse:[
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7297	SmallTeam removeHost:host.
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7298	].
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7299	].
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7300
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7301	self listOfSmallTeamHosts do:[:eachHost \|
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7302	SmallTeam addHost:eachHost.
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7303	].
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7304	self smallTeamServerEnabled value ifTrue:[
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7305	SmallTeam startServer
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7306	] ifFalse:[
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7307	SmallTeam stopServer
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7308	].
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7309	].
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7310
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7311	self hasRemoteBrowsingSupport ifTrue:[
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7312	self remoteBrowsingEnabled value ifFalse:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7313	SmalltalkShareServer serverRunning ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7314	SmalltalkShareServer killAll
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7315	].
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7316	] ifTrue:[
6250 5b0673ccff1c refactored intention revealing code: Claus Gittinger <cg@exept.de> parents: 6202 diff changeset	7317	SmalltalkShareServer serverRunning ifFalse:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7318	SmalltalkShareServer start.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7319	"/ must wait a bit; give it a chance to
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7320	"/ really start (before checking)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7321	Delay waitForSeconds:0.5.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7322	SmalltalkShareServer serverRunning ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7323	self warn:'SmalltalkShareServer startup failed (see stderr).'
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7324	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7325	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7326	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7327	].
8145 3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7328
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7329	self hasWindowMigrationServer ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7330	self windowMigrationAuthenticate value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7331	WindowMigrationServer password:self windowMigrationPassword value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7332	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7333	WindowMigrationServer password:nil
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7334	].
8145 3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7335	self windowMigrationEnabled value ifFalse:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7336	WindowMigrationServer serverRunning ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7337	WindowMigrationServer stop
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7338	].
8145 3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7339	] ifTrue:[
6250 5b0673ccff1c refactored intention revealing code: Claus Gittinger <cg@exept.de> parents: 6202 diff changeset	7340	WindowMigrationServer serverRunning ifFalse:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7341	WindowMigrationServer start.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7342	"/ must wait a bit; give it a chance to
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7343	"/ really start (before checking)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7344	Delay waitForSeconds:0.5.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7345	WindowMigrationServer serverRunning ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7346	self warn:'WindowMigrationServer startup failed (see stderr).'
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7347	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7348	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7349	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7350	].
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7351
7846 eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7352	"Modified: / 20-09-2007 / 16:05:01 / cg"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7353	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7354
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7355	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'aspects'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7356
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7357	acceptChannel
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7358
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7359	acceptChannel isNil ifTrue:[
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7360	acceptChannel := TriggerValue new.
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7361	].
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7362	^ acceptChannel.
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7363
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7364	"Created: / 12-11-2006 / 19:04:09 / cg"
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7365	!
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7366
8145 3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7367	dotNetBridgeRunsInIDE
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7368
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7369	dotNetBridgeRunsInIDE isNil ifTrue:[
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7370	dotNetBridgeRunsInIDE := false asValue.
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7371	dotNetBridgeRunsInIDE onChangeSend:#updateModifiedChannel to:self.
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7372	].
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7373	^ dotNetBridgeRunsInIDE.
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7374	!
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7375
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7376	dotNetBridgeVerbose
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7377
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7378	dotNetBridgeVerbose isNil ifTrue:[
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7379	dotNetBridgeVerbose := false asValue.
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7380	dotNetBridgeVerbose onChangeSend:#updateModifiedChannel to:self.
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7381	].
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7382	^ dotNetBridgeVerbose.
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7383	!
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7384
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7385	enablePasswordCheck
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7386
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7387	enablePasswordCheck isNil ifTrue:[
6251 de1297cac10e refadctored intention revealing code: Claus Gittinger <cg@exept.de> parents: 6250 diff changeset	7388	self hasWindowMigrationServer ifFalse:[
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7389	enablePasswordCheck := false asValue.
6251 de1297cac10e refadctored intention revealing code: Claus Gittinger <cg@exept.de> parents: 6250 diff changeset	7390	] ifTrue:[
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7391	enablePasswordCheck := self windowMigrationEnabled.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7392	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7393	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7394	^ enablePasswordCheck.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7395	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7396
8145 3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7397	hasDotNetBridge
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7398	^ DOTNET::DotNet notNil and:[ DOTNET::DotNet isLoaded ].
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7399	!
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7400
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7401	listOfSmallTeamHosts
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7402
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7403	listOfSmallTeamHosts isNil ifTrue:[
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7404	listOfSmallTeamHosts := List new.
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7405	listOfSmallTeamHosts onChangeSend:#updateModifiedChannel to:self.
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7406	].
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7407	^ listOfSmallTeamHosts.
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7408
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7409	"Created: / 12-11-2006 / 19:06:35 / cg"
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7410	!
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7411
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7412	remoteBrowsingEnabled
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7413
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7414	remoteBrowsingEnabled isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7415	remoteBrowsingEnabled := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7416	remoteBrowsingEnabled onChangeSend:#updateModifiedChannel to:self.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7417	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7418	^ remoteBrowsingEnabled.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7419	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7420
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7421	removeHostEnabled
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7422	^ BlockValue
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7423	forLogical:self smallTeamServerEnabled
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7424	and:(BlockValue
7725 06e1eb7247d9 BlockValue usage cleanup Claus Gittinger <cg@exept.de> parents: 7720 diff changeset	7425	with:[:h \| h notEmptyOrNil]
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7426	argument:self selectedSmallTeamHost)
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7427
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7428	"Created: / 12-11-2006 / 19:01:42 / cg"
7725 06e1eb7247d9 BlockValue usage cleanup Claus Gittinger <cg@exept.de> parents: 7720 diff changeset	7429	"Modified: / 08-03-2007 / 23:02:36 / cg"
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7430	!
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	selectedSmallTeamHost
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7433
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7434	selectedSmallTeamHost isNil ifTrue:[
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7435	selectedSmallTeamHost := nil asValue.
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7436	selectedSmallTeamHost addDependent:self
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	^ selectedSmallTeamHost.
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	"Created: / 12-11-2006 / 19:11:01 / cg"
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7441	!
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7442
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7443	smallTeamHostEntry
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7444
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7445	smallTeamHostEntry isNil ifTrue:[
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7446	smallTeamHostEntry := nil asValue.
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7447	smallTeamHostEntry onChangeSend:#updateModifiedChannel to:self.
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7448	].
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7449	^ smallTeamHostEntry.
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7450
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7451	"Created: / 12-11-2006 / 19:07:06 / cg"
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7452	!
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7453
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7454	smallTeamServerAvailable
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7455	^ SmallTeam notNil.
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7456
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7457	"Created: / 12-11-2006 / 18:56:20 / cg"
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7458	!
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7459
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7460	smallTeamServerEnabled
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7461
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7462	smallTeamServerEnabled isNil ifTrue:[
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7463	smallTeamServerEnabled := false asValue.
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7464	smallTeamServerEnabled onChangeSend:#updateModifiedChannel to:self.
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7465	].
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7466	^ smallTeamServerEnabled.
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7467
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7468	"Created: / 12-11-2006 / 18:56:11 / cg"
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7469	!
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7470
7846 eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7471	smtpServerName
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7472
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7473	smtpServerName isNil ifTrue:[
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7474	smtpServerName := '' asValue.
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7475	smtpServerName onChangeSend:#updateModifiedChannel to:self.
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7476	].
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7477	^ smtpServerName.
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7478
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7479	"Created: / 20-09-2007 / 16:04:39 / cg"
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7480	!
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7481
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7482	windowMigrationAuthenticate
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7483
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7484	windowMigrationAuthenticate isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7485	windowMigrationAuthenticate := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7486	windowMigrationAuthenticate onChangeSend:#updateModifiedChannel to:self.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7487	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7488	^ windowMigrationAuthenticate.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7489	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7490
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7491	windowMigrationEnabled
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7492
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7493	windowMigrationEnabled isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7494	windowMigrationEnabled := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7495	windowMigrationEnabled onChangeSend:#updateModifiedChannel to:self.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7496	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7497	^ windowMigrationEnabled.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7498	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7499
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7500	windowMigrationPassword
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7501
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7502	windowMigrationPassword isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7503	windowMigrationPassword := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7504	windowMigrationPassword onChangeSend:#updateModifiedChannel to:self.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7505	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7506	^ windowMigrationPassword.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7507	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7508
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7509	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'change & update'!
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7510
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7511	selectedSmallTeamHostChanged
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7512	self acceptChannel value:true.
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7513	self smallTeamHostEntry value:( self selectedSmallTeamHost value).
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7514
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7515	"Created: / 12-11-2006 / 19:09:49 / cg"
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
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7518	update:someting with:aParameter from:changedObject
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7519	changedObject == selectedSmallTeamHost ifTrue:[
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7520	self selectedSmallTeamHostChanged.
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7521	^ self
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7522	].
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7523
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7524	super update:someting with:aParameter from:changedObject
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7525
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7526	"Created: / 12-11-2006 / 19:09:40 / cg"
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7527	! !
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7528
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	7529	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	7530
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	7531	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	7532	^ 'Launcher/communicationsSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	7533	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	7534
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7535	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'initialization & release'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7536
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7537	initialize
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7538	super initialize.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7539	self readSettings.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7540	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7541
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7542	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'queries'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7543
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7544	addHostEnabled
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7545	^ self smallTeamServerEnabled
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7546
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7547	"Created: / 12-11-2006 / 19:01:37 / cg"
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7548	!
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7549
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7550	hasRemoteBrowsingSupport
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7551
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7552	^ SmalltalkShareServer notNil
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7553	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7554
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7555	hasUnsavedChanges
7846 eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7556	(self
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7557	hasChangedAspectIn:
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7558	#(
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7559	smtpServerName
8145 3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7560	dotNetBridgeRunsInIDE
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7561	dotNetBridgeVerbose
7846 eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7562	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7563	asComparedTo:currentUserPrefs) ifTrue:[^ true].
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7564
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7565	SmallTeam notNil ifTrue:[
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7566	self smallTeamServerEnabled value ~= (SmallTeam isLoaded and:[SmallTeam serverRunning]) ifTrue:[^ true].
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7567	self listOfSmallTeamHosts asSet ~= (SmallTeam connectedHosts asSet) ifTrue:[^ true].
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7568	].
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7569
5020 85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	7570	(self hasRemoteBrowsingSupport and:[SmalltalkShareServer isLoaded]) ifTrue:[
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	7571	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	7572	].
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	7573	self hasWindowMigrationServer ifTrue:[
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	7574	WindowMigrationServer isLoaded ifFalse:[
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	7575	self windowMigrationEnabled value ifTrue:[
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	7576	WindowMigrationServer autoload.
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	7577	].
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	7578	].
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	7579	(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	7580	(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	7581	(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	7582	].
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7583	^ false
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7584
7846 eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7585	"Modified: / 20-09-2007 / 16:04:56 / cg"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7586	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7587
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7588	hasWindowMigrationServer
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7589
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7590	^ WindowMigrationServer notNil
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7591	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7592
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7593	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'user actions'!
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7594
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7595	addSmallTeamHost
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7596	\|host\|
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	acceptChannel value:true.
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	host := self smallTeamHostEntry value.
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7601
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7602	host size > 0 ifTrue:[
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7603	self listOfSmallTeamHosts add:host
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7604	].
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7605
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7606	"Modified: / 12-11-2006 / 19:06:22 / cg"
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7607	!
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7608
9342 89cf767fdb55 * empty log message * Claus Gittinger <cg@exept.de> parents: 9322 diff changeset	7609	closeAllDotNetConnections
89cf767fdb55 * empty log message * Claus Gittinger <cg@exept.de> parents: 9322 diff changeset	7610	DOTNET::DotNet notNil ifTrue:[
89cf767fdb55 * empty log message * Claus Gittinger <cg@exept.de> parents: 9322 diff changeset	7611	DOTNET::DotNet exitAllLiveInstances
89cf767fdb55 * empty log message * Claus Gittinger <cg@exept.de> parents: 9322 diff changeset	7612	].
89cf767fdb55 * empty log message * Claus Gittinger <cg@exept.de> parents: 9322 diff changeset	7613	!
89cf767fdb55 * empty log message * Claus Gittinger <cg@exept.de> parents: 9322 diff changeset	7614
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7615	removeSmallTeamHost
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7616	\|host\|
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7617
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7618	acceptChannel value:true.
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7619
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7620	host := self selectedSmallTeamHost value.
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7621
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7622	host size > 0 ifTrue:[
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7623	self selectedSmallTeamHost value:nil.
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7624	self listOfSmallTeamHosts remove:host ifAbsent:[ self window beep ].
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7625	self smallTeamHostEntry value:''.
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7626	].
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7627
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7628	"Modified: / 12-11-2006 / 19:15:05 / cg"
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7629	! !
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7630
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7631	!AbstractSettingsApplication::MiscDisplay2SettingsAppl class methodsFor:'image specs'!
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7632
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7633	defaultIcon
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7634	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7635	by the ImageEditor of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7636
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7637	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7638	the ImageEditor may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7639
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7640	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7641	self defaultIcon inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7642	ImageEditor openOnClass:self andSelector:#defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7643	Icon flushCachedIcons
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7644	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7645
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7646	<resource: #image>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7647
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7648	^Icon
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7649	constantNamed:'AbstractSettingsApplication::MiscDisplay2SettingsAppl class defaultIcon'
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7650	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	7651	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@A @F@@@@@@@@@@@@@@@@@@@@@@@@@@X@A @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7652	@@@@@@@@@@@@@@@@@@@@@@@@@@@@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	7653	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	7654	@ 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	7655	@ 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	7656	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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	7657	! !
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7658
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7659	!AbstractSettingsApplication::MiscDisplay2SettingsAppl class methodsFor:'interface specs'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7660
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7661	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7662	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7663	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7664
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7665	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7666	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7667
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7668	"
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7669	UIPainter new openOnClass:AbstractSettingsApplication::MiscDisplay2SettingsAppl andSelector:#windowSpec
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7670	AbstractSettingsApplication::MiscDisplay2SettingsAppl new openInterface:#windowSpec
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7671	AbstractSettingsApplication::MiscDisplay2SettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7672	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7673
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7674	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7675
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7676	^
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7677	#(FullSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7678	name: windowSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7679	window:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7680	(WindowSpec
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7681	label: 'Display settings 2'
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7682	name: 'Display settings 2'
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7683	min: (Point 10 10)
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7684	bounds: (Rectangle 0 0 671 591)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7685	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7686	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7687	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7688	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7689	(VerticalPanelViewSpec
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	7690	name: 'VerticalPanel1'
8720 fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	7691	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	7692	horizontalLayout: fitSpace
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	7693	verticalLayout: topSpace
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	7694	horizontalSpace: 5
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7695	verticalSpace: 3
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7696	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7697	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7698	collection: (
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	7699	(CheckBoxSpec
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	7700	label: 'Use Native Widgets (Experimental & Unfinished Feature)'
6014 5ec12867ba18 * empty log message * ca parents: 6013 diff changeset	7701	name: 'NativeWidgets'
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	7702	enableChannel: displaySupportsNativeWidgets
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	7703	model: nativeWidgets
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	7704	translateLabel: true
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7705	extent: (Point 661 22)
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	7706	)
6014 5ec12867ba18 * empty log message * ca parents: 6013 diff changeset	7707	(CheckBoxSpec
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	7708	label: 'Use Native Dialogs (Experimental & Unfinished Feature)'
6014 5ec12867ba18 * empty log message * ca parents: 6013 diff changeset	7709	name: 'NativeDialogs'
5ec12867ba18 * empty log message * ca parents: 6013 diff changeset	7710	enableChannel: displaySupportsNativeDialogs
5ec12867ba18 * empty log message * ca parents: 6013 diff changeset	7711	model: nativeDialogs
5ec12867ba18 * empty log message * ca parents: 6013 diff changeset	7712	translateLabel: true
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7713	extent: (Point 661 22)
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7714	)
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7715	(CheckBoxSpec
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7716	label: 'Use Native File Dialogs (Experimental & Unfinished Feature)'
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7717	name: 'CheckBox1'
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7718	enableChannel: displaySupportsNativeFileDialogs
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7719	model: nativeFileDialogs
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7720	translateLabel: true
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7721	extent: (Point 661 22)
6014 5ec12867ba18 * empty log message * ca parents: 6013 diff changeset	7722	)
6012 6736ffa4ba2f * empty log message * ca parents: 6008 diff changeset	7723	(ViewSpec
6736ffa4ba2f * empty log message * ca parents: 6008 diff changeset	7724	name: 'SeparatingSpace1'
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7725	extent: (Point 661 5)
6012 6736ffa4ba2f * empty log message * ca parents: 6008 diff changeset	7726	)
6736ffa4ba2f * empty log message * ca parents: 6008 diff changeset	7727	(DividerSpec
6736ffa4ba2f * empty log message * ca parents: 6008 diff changeset	7728	name: 'Separator1'
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7729	extent: (Point 661 4)
6012 6736ffa4ba2f * empty log message * ca parents: 6008 diff changeset	7730	)
6736ffa4ba2f * empty log message * ca parents: 6008 diff changeset	7731	(ViewSpec
6736ffa4ba2f * empty log message * ca parents: 6008 diff changeset	7732	name: 'SeparatingSpace2'
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7733	extent: (Point 661 5)
6012 6736ffa4ba2f * empty log message * ca parents: 6008 diff changeset	7734	)
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	7735	(CheckBoxSpec
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	7736	label: 'Shadows under PopUp Views'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	7737	name: 'shadows'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	7738	model: shadows
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	7739	translateLabel: true
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7740	extent: (Point 661 22)
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	7741	)
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	7742	(CheckBoxSpec
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7743	label: 'Opaque Variable Panel Resizing'
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7744	name: 'opaqueVariablePanelResize'
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7745	model: opaqueVariablePanelResizing
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7746	translateLabel: true
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7747	extent: (Point 661 22)
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7748	)
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7749	(CheckBoxSpec
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7750	label: 'Opaque Table Column Resizing'
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7751	name: 'opaqueTableColumnResize'
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7752	model: opaqueTableColumnResizing
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7753	translateLabel: true
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7754	extent: (Point 661 22)
9136 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	(ViewSpec
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7757	name: 'SeparatingSpace3'
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7758	extent: (Point 661 4)
9136 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	(DividerSpec
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7761	name: 'Separator3'
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7762	extent: (Point 661 3)
9136 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	(ViewSpec
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7765	name: 'SeparatingSpace4'
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7766	extent: (Point 661 3)
9136 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	(CheckBoxSpec
9233 50ef1ada9fda * empty log message * Claus Gittinger <cg@exept.de> parents: 9187 diff changeset	7769	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	7770	name: 'lowerOnRightClickInTitle'
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7771	enableChannel: isWindowsDisplay
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7772	model: lowerOnRightClickInTitle
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7773	translateLabel: true
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7774	extent: (Point 661 21)
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7775	)
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7776	(CheckBoxSpec
9233 50ef1ada9fda * empty log message * Claus Gittinger <cg@exept.de> parents: 9187 diff changeset	7777	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	7778	name: 'lowerOnShiftClickInTitle'
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7779	enableChannel: isWindowsDisplay
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7780	model: lowerOnShiftClickInTitle
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7781	translateLabel: true
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7782	extent: (Point 661 21)
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7783	)
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7784	)
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7785
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7786	)
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7787	)
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
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7790	)
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7791	)
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
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7794	!AbstractSettingsApplication::MiscDisplay2SettingsAppl methodsFor:'actions'!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7795
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7796	aspectsFromUserPreferences
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7797	^ #(
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7798	opaqueVariablePanelResizing
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7799	opaqueTableColumnResizing
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7800	)
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7801
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7802	"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	7803	!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7804
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7805	basicReadSettings
9140 520a25e3aa04 * empty log message * Claus Gittinger <cg@exept.de> parents: 9139 diff changeset	7806	\|currentScreen\|
520a25e3aa04 * empty log message * Claus Gittinger <cg@exept.de> parents: 9139 diff changeset	7807
520a25e3aa04 * empty log message * Claus Gittinger <cg@exept.de> parents: 9139 diff changeset	7808	currentScreen := Screen current.
520a25e3aa04 * empty log message * Claus Gittinger <cg@exept.de> parents: 9139 diff changeset	7809
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7810	self
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7811	readAspects:
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7812	#(
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7813	nativeWidgets
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7814	nativeDialogs
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7815	nativeFileDialogs
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7816	)
9140 520a25e3aa04 * empty log message * Claus Gittinger <cg@exept.de> parents: 9139 diff changeset	7817	from:currentScreen.
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7818
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7819	self
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7820	readAspects:(self aspectsFromUserPreferences)
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7821	from:currentUserPrefs.
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7822
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7823	self shadows value:PopUpView shadows.
9148 a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	7824
a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	7825	currentScreen platformName = 'WIN32' ifTrue:[
a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	7826	self lowerOnRightClickInTitle value:(currentScreen rightButtonIsLowerWindow:nil).
a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	7827	self lowerOnShiftClickInTitle value:(currentScreen shiftedLeftButtonIsLowerWindow:nil).
a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	7828	].
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7829
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7830	"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	7831	!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7832
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7833	basicSaveSettings
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7834	\|currentScreen mustReopenTools\|
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7835
9140 520a25e3aa04 * empty log message * Claus Gittinger <cg@exept.de> parents: 9139 diff changeset	7836	mustReopenTools := false.
520a25e3aa04 * empty log message * Claus Gittinger <cg@exept.de> parents: 9139 diff changeset	7837
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7838	currentScreen := Screen current.
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7839
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7840	self displaySupportsNativeWidgets ifTrue:[
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7841	currentScreen nativeWidgets ~= self nativeWidgets value ifTrue:[
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7842	mustReopenTools := true.
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7843	currentScreen nativeWidgets:self nativeWidgets value.
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7844	currentUserPrefs nativeWidgets:self nativeWidgets value.
9136 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	].
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7847	self displaySupportsNativeDialogs ifTrue:[
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7848	currentScreen nativeDialogs:self nativeDialogs value.
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7849	currentUserPrefs nativeDialogs:self nativeDialogs value.
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7850	].
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7851	self displaySupportsNativeFileDialogs ifTrue:[
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7852	currentScreen nativeFileDialogs:self nativeFileDialogs value.
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7853	currentUserPrefs nativeFileDialogs:self nativeFileDialogs value.
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	PopUpView shadows:self shadows value.
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7857
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7858	self
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7859	writeAspects:(self aspectsFromUserPreferences)
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7860	to:currentUserPrefs.
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7861
9148 a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	7862	currentScreen platformName = 'WIN32' ifTrue:[
a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	7863	currentScreen rightButtonIsLowerWindow:(self lowerOnRightClickInTitle value).
a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	7864	currentScreen shiftedLeftButtonIsLowerWindow:(self lowerOnShiftClickInTitle value).
a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	7865	].
9136 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	mustReopenTools ifTrue:[
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7868	self reopenToolsAfterChangedViewStyleSetting.
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7869	].
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7870
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7871	"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	7872	! !
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7873
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7874	!AbstractSettingsApplication::MiscDisplay2SettingsAppl methodsFor:'aspects'!
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	displaySupportsNativeDialogs
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7877	^ Screen current supportsNativeDialogs
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7878	!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7879
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7880	displaySupportsNativeFileDialogs
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7881	^ Screen current supportsNativeFileDialogs
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7882
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7883	"Modified: / 24-08-2010 / 16:28:58 / sr"
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7884	!
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7885
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7886	displaySupportsNativeWidgets
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7887	^ Screen current supportsNativeWidgets
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7888	!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7889
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7890	lowerOnRightClickInTitle
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7891	lowerOnRightClickInTitle isNil ifTrue:[
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7892	lowerOnRightClickInTitle := true asValue.
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7893	lowerOnRightClickInTitle onChangeSend:#updateModifiedChannel to:self
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7894	].
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7895	^ lowerOnRightClickInTitle.
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7896	!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7897
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7898	lowerOnShiftClickInTitle
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7899	lowerOnShiftClickInTitle isNil ifTrue:[
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7900	lowerOnShiftClickInTitle := true asValue.
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7901	lowerOnShiftClickInTitle onChangeSend:#updateModifiedChannel to:self
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7902	].
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7903	^ lowerOnShiftClickInTitle.
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7904	!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7905
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7906	nativeDialogs
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7907	nativeDialogs isNil ifTrue:[
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7908	nativeDialogs := Screen current nativeDialogs asValue.
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7909	nativeDialogs onChangeSend:#updateModifiedChannel to:self
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7910	].
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7911	^ nativeDialogs.
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7912	!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7913
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7914	nativeFileDialogs
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7915	nativeFileDialogs isNil ifTrue:[
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7916	nativeFileDialogs := Screen current nativeFileDialogs asValue.
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7917	nativeFileDialogs onChangeSend:#updateModifiedChannel to:self
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7918	].
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7919	^ nativeFileDialogs
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7920
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7921	"Modified: / 24-08-2010 / 16:43:08 / sr"
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7922	!
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7923
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7924	nativeWidgets
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7925	nativeWidgets isNil ifTrue:[
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7926	nativeWidgets := Screen current nativeWidgets asValue.
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7927	nativeWidgets onChangeSend:#updateModifiedChannel to:self
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7928	].
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7929	^ nativeWidgets.
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	opaqueTableColumnResizing
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7933	opaqueTableColumnResize isNil ifTrue:[
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7934	opaqueTableColumnResize := true asValue.
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7935	opaqueTableColumnResize onChangeSend:#updateModifiedChannel to:self
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7936	].
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7937	^ opaqueTableColumnResize.
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7938	!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7939
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7940	opaqueVariablePanelResizing
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7941	opaqueVariablePanelResize isNil ifTrue:[
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7942	opaqueVariablePanelResize := true asValue.
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7943	opaqueVariablePanelResize onChangeSend:#updateModifiedChannel to:self
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7944	].
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7945	^ opaqueVariablePanelResize.
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7946	!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7947
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7948	shadows
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7949	shadows isNil ifTrue:[
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7950	shadows := PopUpView shadows asValue.
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7951	shadows onChangeSend:#updateModifiedChannel to:self
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7952	].
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7953	^ shadows.
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7954	! !
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7955
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7956	!AbstractSettingsApplication::MiscDisplay2SettingsAppl methodsFor:'help'!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7957
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7958	helpFilename
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7959	^ 'Launcher/miscSettings.html'
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7960	! !
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	!AbstractSettingsApplication::MiscDisplay2SettingsAppl methodsFor:'queries'!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7963
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7964	hasUnsavedChanges
9148 a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	7965	\|currentScreen\|
a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	7966
a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	7967	currentScreen := Screen current.
a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	7968
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7969	(self
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7970	hasChangedAspectIn:
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7971	#(
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7972	nativeWidgets
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7973	nativeDialogs
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7974	nativeFileDialogs
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7975	)
9148 a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	7976	asComparedTo:currentScreen) ifTrue:[^ true].
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7977
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7978	(self
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7979	hasChangedAspectIn:(self aspectsFromUserPreferences)
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7980	asComparedTo:currentUserPrefs) ifTrue:[^ true].
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	self shadows value ~= PopUpView shadows ifTrue:[^ true].
9148 a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	7983
a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	7984	currentScreen platformName = 'WIN32' ifTrue:[
a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	7985	(currentScreen rightButtonIsLowerWindow:nil) ~= (self lowerOnRightClickInTitle value) ifTrue:[^ true].
a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	7986	(currentScreen shiftedLeftButtonIsLowerWindow:nil) ~= (self lowerOnShiftClickInTitle value) ifTrue:[^ true].
a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	7987	].
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7988	^ false
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7989
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7990	"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	7991	!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7992
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7993	isWindowsDisplay
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7994	^ Screen current platformName = 'WIN32'
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7995	! !
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	!AbstractSettingsApplication::MiscDisplaySettingsAppl class methodsFor:'image specs'!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7998
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7999	defaultIcon
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	8000	"This resource specification was automatically generated
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	8001	by the ImageEditor of ST/X."
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	8002
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	8003	"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	8004	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	8005
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	8006	"
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	8007	self defaultIcon inspect
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	8008	ImageEditor openOnClass:self andSelector:#defaultIcon
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	8009	Icon flushCachedIcons
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	8010	"
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	<resource: #image>
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	8013
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	8014	^Icon
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	8015	constantNamed:'AbstractSettingsApplication::MiscDisplaySettingsAppl class defaultIcon'
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	8016	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	8017	@@@@@@@@@@@@@@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	8018	@@@@@@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	8019	@ 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	8020	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	8021	@ 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	8022	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	8023	! !
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	8024
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	8025	!AbstractSettingsApplication::MiscDisplaySettingsAppl class methodsFor:'interface specs'!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	8026
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	8027	windowSpec
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	8028	"This resource specification was automatically generated
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	8029	by the UIPainter of ST/X."
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	8030
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	8031	"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	8032	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	8033
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	8034	"
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	8035	UIPainter new openOnClass:AbstractSettingsApplication::MiscDisplaySettingsAppl andSelector:#windowSpec
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	8036	AbstractSettingsApplication::MiscDisplaySettingsAppl new openInterface:#windowSpec
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	8037	AbstractSettingsApplication::MiscDisplaySettingsAppl open
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	8038	"
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	8039
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	8040	<resource: #canvas>
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	8041
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	8042	^
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	8043	#(FullSpec
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	8044	name: windowSpec
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	8045	window:
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	8046	(WindowSpec
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	8047	label: 'Display settings'
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	8048	name: 'Display settings'
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	8049	min: (Point 10 10)
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	8050	bounds: (Rectangle 0 0 445 497)
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	8051	)
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	8052	component:
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	8053	(SpecCollection
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	8054	collection: (
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	8055	(VerticalPanelViewSpec
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	8056	name: 'VerticalPanel1'
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	8057	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	8058	horizontalLayout: fitSpace
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	8059	verticalLayout: topSpace
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	8060	horizontalSpace: 5
9592 417dcf26fdbe force on monitor Claus Gittinger <cg@exept.de> parents: 9566 diff changeset	8061	verticalSpace: 1
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	8062	component:
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	8063	(SpecCollection
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	8064	collection: (
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	8065	(CheckBoxSpec
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	8066	label: 'Beeper enabled'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	8067	name: 'beepEnabled'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	8068	model: beepEnabled
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	8069	translateLabel: true
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	8070	extent: (Point 435 22)
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	8071	)
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	8072	(CheckBoxSpec
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	8073	label: 'Show Accelerator Keys in Menus'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	8074	name: 'showAccelerators'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	8075	model: showAccelerators
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	8076	translateLabel: true
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	8077	extent: (Point 435 22)
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	8078	)
6013 7e8dd712b45f * empty log message * ca parents: 6012 diff changeset	8079	(ViewSpec
9176 56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8080	name: 'SeparatingSpace1'
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	8081	extent: (Point 435 4)
6013 7e8dd712b45f * empty log message * ca parents: 6012 diff changeset	8082	)
7e8dd712b45f * empty log message * ca parents: 6012 diff changeset	8083	(DividerSpec
9176 56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8084	name: 'Separator1'
8550 6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8085	extent: (Point 435 3)
6013 7e8dd712b45f * empty log message * ca parents: 6012 diff changeset	8086	)
7e8dd712b45f * empty log message * ca parents: 6012 diff changeset	8087	(ViewSpec
9176 56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8088	name: 'SeparatingSpace2'
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	8089	extent: (Point 435 3)
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	8090	)
8550 6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8091	(CheckBoxSpec
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8092	label: 'Keyboard Focus Follows Mouse'
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8093	name: 'focusFollowsMouse'
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8094	model: focusFollowsMouse
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8095	translateLabel: true
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8096	extent: (Point 435 22)
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8097	)
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8098	(CheckBoxSpec
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8099	label: 'Views Catch Focus when Mapped'
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8100	name: 'takeFocus'
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8101	model: takeFocus
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8102	translateLabel: true
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8103	extent: (Point 435 22)
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8104	)
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8105	(CheckBoxSpec
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8106	label: 'Boxes Return Focus to Previously Active View'
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8107	name: 'returnFocus'
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8108	model: returnFocus
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8109	translateLabel: true
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8110	extent: (Point 435 22)
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8111	)
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8112	(CheckBoxSpec
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8113	label: 'Raise & Activate Windows on Click'
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8114	name: 'activateOnClick'
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8115	model: activateOnClick
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8116	translateLabel: true
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8117	extent: (Point 435 22)
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8118	)
9592 417dcf26fdbe force on monitor Claus Gittinger <cg@exept.de> parents: 9566 diff changeset	8119	(CheckBoxSpec
417dcf26fdbe force on monitor Claus Gittinger <cg@exept.de> parents: 9566 diff changeset	8120	label: 'Force Windows into Monitor''s Bounds'
417dcf26fdbe force on monitor Claus Gittinger <cg@exept.de> parents: 9566 diff changeset	8121	name: 'CheckBox2'
417dcf26fdbe force on monitor Claus Gittinger <cg@exept.de> parents: 9566 diff changeset	8122	activeHelpKey: forceWindowsIntoMonitorBounds
417dcf26fdbe force on monitor Claus Gittinger <cg@exept.de> parents: 9566 diff changeset	8123	model: forceWindowsIntoMonitorBounds
417dcf26fdbe force on monitor Claus Gittinger <cg@exept.de> parents: 9566 diff changeset	8124	translateLabel: true
417dcf26fdbe force on monitor Claus Gittinger <cg@exept.de> parents: 9566 diff changeset	8125	extent: (Point 435 22)
417dcf26fdbe force on monitor Claus Gittinger <cg@exept.de> parents: 9566 diff changeset	8126	)
8550 6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8127	(ViewSpec
9176 56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8128	name: 'SeparatingSpace3'
8710 ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8129	extent: (Point 435 4)
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8130	)
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8131	(DividerSpec
9176 56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8132	name: 'Separator2'
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8133	extent: (Point 435 3)
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8134	)
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8135	(ViewSpec
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8136	name: 'SeparatingSpace4'
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8137	extent: (Point 435 3)
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8138	)
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8139	(CheckBoxSpec
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8140	label: 'MouseWheel Focus Follows Mouse'
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8141	name: 'mouseWheelFocusFollowsMouse'
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8142	enableChannel: mouseWheelFocusFollowsMouseEnabled
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8143	model: mouseWheelFocusFollowsMouse
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8144	translateLabel: true
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8145	extent: (Point 435 22)
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8146	)
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8147	(CheckBoxSpec
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8148	label: 'CTRL-MouseWheel is Zoom'
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8149	name: 'CheckBox1'
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8150	model: allowMouseWheelZoom
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8151	translateLabel: true
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8152	extent: (Point 435 22)
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8153	)
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8154	(ViewSpec
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8155	name: 'SeparatingSpace5'
8710 ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8156	extent: (Point 435 4)
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8157	)
9176 56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8158	(DividerSpec
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8159	name: 'Separator3'
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8160	extent: (Point 435 4)
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8161	)
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8162	(ViewSpec
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8163	name: 'SeparatingSpace6'
8710 ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8164	extent: (Point 435 3)
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8165	)
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8166	(CheckBoxSpec
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8167	label: 'Select on Right-Button-Press'
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8168	name: 'selectOnRightClick'
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8169	model: selectOnRightClick
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8170	translateLabel: true
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8171	extent: (Point 435 21)
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8172	)
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8173	(CheckBoxSpec
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8174	label: 'Menu on Right-Button-Release'
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8175	name: 'showRightButtonMenuOnRelease'
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8176	model: showRightButtonMenuOnRelease
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8177	translateLabel: true
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8178	extent: (Point 435 21)
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8179	)
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8180	(ViewSpec
9176 56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8181	name: 'SeparatingSpace7'
8550 6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8182	extent: (Point 435 4)
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8183	)
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8184	(DividerSpec
9176 56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8185	name: 'Separator4'
8550 6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8186	extent: (Point 435 4)
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8187	)
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8188	(ViewSpec
9176 56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8189	name: 'SeparatingSpace8'
8550 6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8190	extent: (Point 435 4)
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8191	)
8720 fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8192	(ViewSpec
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8193	name: 'Box1'
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8194	component:
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8195	(SpecCollection
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8196	collection: (
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8197	(LabelSpec
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8198	label: 'Label'
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8199	name: 'Label1'
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	8200	layout: (LayoutFrame 0 0 0 0 167 0 17 0)
8720 fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8201	translateLabel: true
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8202	labelChannel: formatHostNameWindowLabel
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8203	adjust: right
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8204	useDefaultExtent: true
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8205	)
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8206	(LabelSpec
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8207	label: 'Label'
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8208	name: 'Label2'
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8209	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	8210	translateLabel: true
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8211	labelChannel: formatHostNameWindowLabel1
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8212	adjust: left
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8213	)
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8214	(LabelSpec
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8215	label: 'Label'
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8216	name: 'Label3'
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8217	layout: (LayoutFrame 0 0.6 30 0 0 1 0 1)
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8218	translateLabel: true
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8219	labelChannel: formatHostNameWindowLabel2
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8220	adjust: left
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8221	)
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8222	)
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8223
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8224	)
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8225	extent: (Point 435 92)
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	8226	)
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	8227	(ViewSpec
6012 6736ffa4ba2f * empty log message * ca parents: 6008 diff changeset	8228	name: 'WindowLabelBox'
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8229	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8230	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8231	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8232	(CheckBoxSpec
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	8233	label: 'Window Label Format'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	8234	name: 'hostNameInLabelHolder'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	8235	layout: (LayoutFrame 0 0 -22 1 216 0 0 1)
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	8236	model: hostNameInLabelHolder
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	8237	translateLabel: true
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	8238	)
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	8239	(InputFieldSpec
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	8240	name: 'hostNameInLabelEntryField'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	8241	layout: (LayoutFrame 218 0 -22 1 -5 1 0 1)
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	8242	enableChannel: hostNameInLabelHolder
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	8243	model: newWindowLabelFormat
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	8244	immediateAccept: true
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	8245	acceptOnReturn: true
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	8246	acceptOnTab: true
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	8247	acceptOnLostFocus: true
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	8248	acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8249	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8250	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8251
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8252	)
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	8253	extent: (Point 435 30)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8254	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8255	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8256
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8257	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8258	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8259	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8260
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8261	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8262	)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8263	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8264
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8265	!AbstractSettingsApplication::MiscDisplaySettingsAppl methodsFor:'actions'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8266
8710 ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8267	aspectsFromUserPreferences
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8268	^ #(
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8269	beepEnabled
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8270	focusFollowsMouse
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8271	mouseWheelFocusFollowsMouse
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8272	showRightButtonMenuOnRelease
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8273	selectOnRightClick
9176 56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8274	allowMouseWheelZoom
9592 417dcf26fdbe force on monitor Claus Gittinger <cg@exept.de> parents: 9566 diff changeset	8275	forceWindowsIntoMonitorBounds
8710 ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8276	)
9592 417dcf26fdbe force on monitor Claus Gittinger <cg@exept.de> parents: 9566 diff changeset	8277
417dcf26fdbe force on monitor Claus Gittinger <cg@exept.de> parents: 9566 diff changeset	8278	"Modified: / 22-10-2010 / 14:25:54 / cg"
8710 ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8279	!
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8280
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8281	basicReadSettings
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	8282	self
8710 ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8283	readAspects:(self aspectsFromUserPreferences)
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	8284	from:currentUserPrefs.
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	8285
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8286	self newWindowLabelFormat value:StandardSystemView windowLabelFormat.
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	8287	self hostNameInLabelHolder value:StandardSystemView includeHostNameInLabel.
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	8288	self returnFocus value:StandardSystemView returnFocusWhenClosingModalBoxes.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8289	self takeFocus value:StandardSystemView takeFocusWhenMapped.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8290	self activateOnClick value:(Display activateOnClick:nil).
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8291	self showAccelerators value:MenuView showAcceleratorKeys.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8292	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8293
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8294	basicSaveSettings
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	8295	\|currentScreen\|
6030 94eba9f547a2 * empty log message * ca parents: 6029 diff changeset	8296
94eba9f547a2 * empty log message * ca parents: 6029 diff changeset	8297	currentScreen := Screen current.
94eba9f547a2 * empty log message * ca parents: 6029 diff changeset	8298
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8299	(self hostNameInLabelHolder value ~= StandardSystemView includeHostNameInLabel
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8300	or:[self newWindowLabelFormat value ~= StandardSystemView windowLabelFormat]) ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8301	StandardSystemView includeHostNameInLabel:self hostNameInLabelHolder value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8302	self newWindowLabelFormat value notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8303	StandardSystemView windowLabelFormat:self newWindowLabelFormat value
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8304	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8305
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8306	Screen allScreens do:[:aDisplay \|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8307	aDisplay allViewsDo:[:aView \|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8308	\|l\|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8309
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8310	aView isTopView ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8311	l := aView label.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8312	l notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8313	aView label:(l , ' '); label:l. "/ force a change
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8314	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8315	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8316	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8317	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8318	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8319
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	8320	self
8710 ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8321	writeAspects:(self aspectsFromUserPreferences)
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	8322	to:currentUserPrefs.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8323
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8324	StandardSystemView returnFocusWhenClosingModalBoxes:self returnFocus value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8325	StandardSystemView takeFocusWhenMapped:self takeFocus value.
6030 94eba9f547a2 * empty log message * ca parents: 6029 diff changeset	8326	currentScreen activateOnClick:self activateOnClick value.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8327
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8328	MenuView showAcceleratorKeys:self showAccelerators value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8329
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8330	"Modified: / 16.12.2002 / 18:06:31 / penk"
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8331	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8332
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8333	formatHostNameinWindowLabels
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	8334	\|newFormat\|
c72e35116b13 instable state penk parents: 5040 diff changeset	8335
c72e35116b13 instable state penk parents: 5040 diff changeset	8336	newFormat := Dialog
c72e35116b13 instable state penk parents: 5040 diff changeset	8337	request:'Define the Format of Window Labels:\\ %1 - Label\ %2 - Hostname\ %3 - Username\ %4 - ProcessId\'
c72e35116b13 instable state penk parents: 5040 diff changeset	8338	withCRs
c72e35116b13 instable state penk parents: 5040 diff changeset	8339	initialAnswer:newWindowLabelFormat.
c72e35116b13 instable state penk parents: 5040 diff changeset	8340	newFormat size > 0 ifTrue:[
c72e35116b13 instable state penk parents: 5040 diff changeset	8341	newWindowLabelFormat := newFormat.
c72e35116b13 instable state penk parents: 5040 diff changeset	8342	self updateModifiedChannel
c72e35116b13 instable state penk parents: 5040 diff changeset	8343	]
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8344	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8345
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8346	!AbstractSettingsApplication::MiscDisplaySettingsAppl methodsFor:'aspects'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8347
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8348	activateOnClick
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8349	activateOnClick isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8350	activateOnClick := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	8351	activateOnClick onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8352	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8353	^ activateOnClick.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8354	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8355
9176 56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8356	allowMouseWheelZoom
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8357	allowMouseWheelZoom isNil ifTrue:[
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8358	allowMouseWheelZoom := true asValue.
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8359	allowMouseWheelZoom onChangeSend:#updateModifiedChannel to:self
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8360	].
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8361	^ allowMouseWheelZoom.
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8362	!
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8363
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8364	beepEnabled
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8365	beepEnabled isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8366	beepEnabled := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	8367	beepEnabled onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8368	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8369	^ beepEnabled.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8370	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8371
6025 70cd59f93dbb * empty log message * Claus Gittinger <cg@exept.de> parents: 6023 diff changeset	8372	displaySupportsNativeDialogs
70cd59f93dbb * empty log message * Claus Gittinger <cg@exept.de> parents: 6023 diff changeset	8373	^ Screen current supportsNativeDialogs
70cd59f93dbb * empty log message * Claus Gittinger <cg@exept.de> parents: 6023 diff changeset	8374	!
70cd59f93dbb * empty log message * Claus Gittinger <cg@exept.de> parents: 6023 diff changeset	8375
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	8376	displaySupportsNativeWidgets
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	8377	^ Screen current supportsNativeWidgets
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	8378	!
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	8379
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8380	focusFollowsMouse
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8381	focusFollowsMouse isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8382	focusFollowsMouse := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	8383	focusFollowsMouse onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8384	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8385	^ focusFollowsMouse.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8386	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8387
9592 417dcf26fdbe force on monitor Claus Gittinger <cg@exept.de> parents: 9566 diff changeset	8388	forceWindowsIntoMonitorBounds
417dcf26fdbe force on monitor Claus Gittinger <cg@exept.de> parents: 9566 diff changeset	8389	forceWindowsIntoMonitorBounds isNil ifTrue:[
417dcf26fdbe force on monitor Claus Gittinger <cg@exept.de> parents: 9566 diff changeset	8390	forceWindowsIntoMonitorBounds := true asValue.
417dcf26fdbe force on monitor Claus Gittinger <cg@exept.de> parents: 9566 diff changeset	8391	forceWindowsIntoMonitorBounds onChangeSend:#updateModifiedChannel to:self
417dcf26fdbe force on monitor Claus Gittinger <cg@exept.de> parents: 9566 diff changeset	8392	].
417dcf26fdbe force on monitor Claus Gittinger <cg@exept.de> parents: 9566 diff changeset	8393	^ forceWindowsIntoMonitorBounds.
417dcf26fdbe force on monitor Claus Gittinger <cg@exept.de> parents: 9566 diff changeset	8394
417dcf26fdbe force on monitor Claus Gittinger <cg@exept.de> parents: 9566 diff changeset	8395	"Created: / 22-10-2010 / 14:25:40 / cg"
417dcf26fdbe force on monitor Claus Gittinger <cg@exept.de> parents: 9566 diff changeset	8396	!
417dcf26fdbe force on monitor Claus Gittinger <cg@exept.de> parents: 9566 diff changeset	8397
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8398	formatHostNameWindowLabel
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8399	formatHostNameWindowLabel isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8400	formatHostNameWindowLabel :=
8720 fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8401	(resources string:'Window Label Format:').
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8402	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8403	^ formatHostNameWindowLabel.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8404
6939 af3cdc84970f * empty log message * Claus Gittinger <cg@exept.de> parents: 6897 diff changeset	8405	"Created: / 16-12-2002 / 17:50:49 / penk"
af3cdc84970f * empty log message * Claus Gittinger <cg@exept.de> parents: 6897 diff changeset	8406	"Modified: / 22-08-2006 / 11:43:41 / cg"
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8407	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8408
8720 fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8409	formatHostNameWindowLabel1
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8410	formatHostNameWindowLabel1 isNil ifTrue:[
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8411	formatHostNameWindowLabel1 :=
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8412	(resources string:
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8413	'%1 - Label
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8414	%2 - Hostname
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8415	%3 - Username')
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8416	].
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8417	^ formatHostNameWindowLabel1.
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8418
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8419	"Created: / 16-12-2002 / 17:50:49 / penk"
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8420	"Modified: / 22-08-2006 / 11:43:41 / cg"
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8421	!
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8422
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8423	formatHostNameWindowLabel2
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8424	formatHostNameWindowLabel2 isNil ifTrue:[
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8425	formatHostNameWindowLabel2 :=
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8426	(resources string:
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8427	'%4 - ProcessId
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8428	%5 - TOP-Directory
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8429	%6 - TOP-Path').
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8430	].
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8431	^ formatHostNameWindowLabel2.
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8432
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8433	"Created: / 16-12-2002 / 17:50:49 / penk"
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8434	"Modified: / 22-08-2006 / 11:43:41 / cg"
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8435	!
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8436
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8437	hostNameInLabelHolder
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8438	hostNameInLabelHolder isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8439	hostNameInLabelHolder := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	8440	hostNameInLabelHolder onChangeSend:#updateModifiedChannel to:self
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8441	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8442	^ hostNameInLabelHolder.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8443	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8444
8550 6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8445	mouseWheelFocusFollowsMouse
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8446	mouseWheelFocusFollowsMouse isNil ifTrue:[
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8447	mouseWheelFocusFollowsMouse := true asValue.
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8448	mouseWheelFocusFollowsMouse onChangeSend:#updateModifiedChannel to:self
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8449	].
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8450	^ mouseWheelFocusFollowsMouse.
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8451	!
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8452
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8453	mouseWheelFocusFollowsMouseEnabled
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8454	^ BlockValue
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8455	forLogicalNot:(self focusFollowsMouse).
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8456	!
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8457
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8458	newWindowLabelFormat
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8459	newWindowLabelFormat isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8460	newWindowLabelFormat := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	8461	newWindowLabelFormat onChangeSend:#updateModifiedChannel to:self
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8462	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8463	^ newWindowLabelFormat.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8464
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8465	"Created: / 16.12.2002 / 17:50:49 / penk"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8466	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8467
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8468	returnFocus
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8469	returnFocus isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8470	returnFocus := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	8471	returnFocus onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8472	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8473	^ returnFocus.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8474	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8475
8710 ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8476	selectOnRightClick
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8477	selectOnRightClick isNil ifTrue:[
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8478	selectOnRightClick := true asValue.
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8479	selectOnRightClick onChangeSend:#updateModifiedChannel to:self
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8480	].
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8481	^ selectOnRightClick.
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8482	!
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8483
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8484	showAccelerators
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8485	showAccelerators isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8486	showAccelerators := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	8487	showAccelerators onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8488	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8489	^ showAccelerators.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8490	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8491
8710 ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8492	showRightButtonMenuOnRelease
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8493	showRightButtonMenuOnRelease isNil ifTrue:[
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8494	showRightButtonMenuOnRelease := true asValue.
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8495	showRightButtonMenuOnRelease onChangeSend:#updateModifiedChannel to:self
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8496	].
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8497	^ showRightButtonMenuOnRelease.
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8498	!
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8499
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8500	takeFocus
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8501	takeFocus isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8502	takeFocus := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	8503	takeFocus onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8504	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8505	^ takeFocus.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8506	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8507
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	8508	!AbstractSettingsApplication::MiscDisplaySettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	8509
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	8510	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	8511	^ 'Launcher/miscSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	8512	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	8513
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8514	!AbstractSettingsApplication::MiscDisplaySettingsAppl methodsFor:'queries'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8515
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8516	hasUnsavedChanges
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	8517	(self
8710 ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8518	hasChangedAspectIn:(self aspectsFromUserPreferences)
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	8519	asComparedTo:currentUserPrefs) ifTrue:[^ true].
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	8520
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8521	self newWindowLabelFormat value ~= StandardSystemView windowLabelFormat ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8522	self hostNameInLabelHolder value ~= StandardSystemView includeHostNameInLabel ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8523	self returnFocus value ~= StandardSystemView returnFocusWhenClosingModalBoxes ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8524	self takeFocus value ~= StandardSystemView takeFocusWhenMapped ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8525	self activateOnClick value ~= (Display activateOnClick:nil) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8526	self showAccelerators value ~= MenuView showAcceleratorKeys ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8527	^ false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8528	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8529
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8530	!AbstractSettingsApplication::OsiSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8531
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8532	defaultIcon
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	8533	<resource: #programImage>
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	8534
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	8535	^ AbstractSettingsApplication::MiscCommunicationSettingsAppl defaultIcon.
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8536	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8537
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8538	!AbstractSettingsApplication::OsiSettingsAppl class methodsFor:'interface specs'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8539
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8540	windowSpec
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8541	"This resource specification was automatically generated
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8542	by the UIPainter of ST/X."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8543
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8544	"Do not manually edit this!! If it is corrupted,
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8545	the UIPainter may not be able to read the specification."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8546
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8547	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8548	UIPainter new openOnClass:AbstractSettingsApplication::OsiSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8549	AbstractSettingsApplication::OsiSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8550	AbstractSettingsApplication::OsiSettingsAppl open
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8551	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8552
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8553	<resource: #canvas>
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8554
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8555	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8556	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8557	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8558	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8559	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8560	label: 'OSI Protocols Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8561	name: 'OSI Protocols Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8562	min: (Point 10 10)
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8563	bounds: (Rectangle 0 0 600 550)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8564	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8565	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8566	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8567	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8568	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8569	name: 'VerticalPanel2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8570	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	8571	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8572	verticalLayout: top
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8573	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8574	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8575	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8576	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8577	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8578	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8579	label: 'ACSE'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8580	name: 'Label1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8581	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8582	extent: (Point 600 22)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8583	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8584	(ViewSpec
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8585	name: 'Box1a'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8586	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8587	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8588	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8589	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8590	label: 'Log Errors'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8591	name: 'CheckBox1'
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8592	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	8593	enableChannel: osiACSEPresent
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8594	model: osiACSEErrorLogging
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8595	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8596	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8597	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8598
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8599	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8600	extent: (Point 600 27)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8601	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8602	(ViewSpec
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8603	name: 'Box1b'
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8604	component:
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8605	(SpecCollection
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8606	collection: (
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8607	(CheckBoxSpec
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8608	label: 'Log Connections'
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8609	name: 'CheckBox10'
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8610	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	8611	enableChannel: osiACSEPresent
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8612	model: osiACSEConnectionLogging
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8613	translateLabel: true
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8614	)
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8615	)
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8616
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8617	)
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8618	extent: (Point 600 26)
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8619	)
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8620	(ViewSpec
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8621	name: 'Box1c'
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8622	component:
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8623	(SpecCollection
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8624	collection: (
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8625	(CheckBoxSpec
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8626	label: 'Log Data Transfer'
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8627	name: 'CheckBox14'
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8628	layout: (LayoutFrame 25 0 0 0 -2 1 22 0)
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8629	enableChannel: osiACSEPresent
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8630	model: osiACSEDataLogging
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8631	translateLabel: true
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
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	extent: (Point 600 26)
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8637	)
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8638	(DividerSpec
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8639	name: 'Separator1'
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8640	extent: (Point 600 4)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8641	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8642	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8643	label: 'ROSE'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8644	name: 'Label2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8645	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8646	extent: (Point 600 22)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8647	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8648	(ViewSpec
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8649	name: 'Box4a'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8650	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8651	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8652	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8653	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8654	label: 'Log Errors'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8655	name: 'CheckBox4'
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8656	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	8657	enableChannel: osiROSEPresent
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8658	model: osiROSEErrorLogging
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8659	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8660	)
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8661	)
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8662
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8663	)
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8664	extent: (Point 600 25)
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8665	)
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8666	(ViewSpec
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8667	name: 'Box4b'
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8668	component:
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8669	(SpecCollection
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8670	collection: (
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8671	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8672	label: 'Log Invoactions'
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8673	name: 'CheckBox16'
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8674	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	8675	enableChannel: osiROSEPresent
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8676	model: osiROSEInvokationLogging
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8677	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8678	)
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8679	)
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8680
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8681	)
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8682	extent: (Point 600 25)
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8683	)
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8684	(ViewSpec
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8685	name: 'Box4c'
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8686	component:
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8687	(SpecCollection
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8688	collection: (
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8689	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8690	label: 'Log Responses'
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8691	name: 'CheckBox20'
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8692	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	8693	enableChannel: osiROSEPresent
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8694	model: osiROSEResponseLogging
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8695	translateLabel: true
5086 b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	8696	)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	8697	)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	8698
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	8699	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8700	extent: (Point 600 25)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8701	)
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8702	(DividerSpec
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8703	name: 'Separator2'
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8704	extent: (Point 600 3)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8705	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8706	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8707	label: 'CMISE'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8708	name: 'Label3'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8709	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8710	extent: (Point 600 22)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8711	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8712	(ViewSpec
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8713	name: 'Box7a'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8714	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8715	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8716	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8717	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8718	label: 'Log Errors'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8719	name: 'CheckBox7'
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8720	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	8721	enableChannel: osiCMISEPresent
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8722	model: osiCMISEErrorLogging
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8723	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8724	)
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8725	)
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8726
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8727	)
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8728	extent: (Point 600 22)
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8729	)
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8730	(ViewSpec
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8731	name: 'Box7b'
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8732	component:
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8733	(SpecCollection
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8734	collection: (
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8735	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8736	label: 'Log Messages'
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8737	name: 'CheckBox22'
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8738	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	8739	enableChannel: osiCMISEPresent
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8740	model: osiCMISEMessageLogging
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8741	translateLabel: true
5086 b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	8742	)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	8743	)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	8744
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	8745	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8746	extent: (Point 600 22)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8747	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8748	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8749
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8750	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8751	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8752	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8753
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8754	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8755	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8756	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8757
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8758	!AbstractSettingsApplication::OsiSettingsAppl methodsFor:'actions'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8759
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8760	basicReadSettings
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8761	self osiACSEPresent value:(OSI::ACSE notNil and:[OSI::ACSE isLoaded]).
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8762	self osiROSEPresent value:(OSI::ROSE notNil and:[OSI::ROSE isLoaded]).
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8763	self osiCMISEPresent value:(OSI::CMISE notNil and:[OSI::CMISE isLoaded]).
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8764	self osiACSEPresent value ifTrue:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8765	self osiACSEErrorLogging value:OSI::ACSE errorLogging.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8766	self osiACSEConnectionLogging value:OSI::ACSE connectionLogging.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8767	self osiACSEDataLogging value:OSI::ACSE dataLogging
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8768	].
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8769	self osiROSEPresent value ifTrue:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8770	self osiROSEErrorLogging value:OSI::ROSE errorLogging.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8771	self osiROSEInvokationLogging value:OSI::ROSE invocationLogging.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8772	self osiROSEResponseLogging value:OSI::ROSE responseLogging
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8773	].
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8774	self osiCMISEPresent value ifTrue:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8775	self osiCMISEErrorLogging value:OSI::CMISE errorLogging.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8776	self osiCMISEMessageLogging value:OSI::CMISE messageLogging
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8777	].
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8778	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8779
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8780	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8781
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8782	self osiACSEPresent value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8783	OSI::ACSE errorLogging:self osiACSEErrorLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8784	OSI::ACSE connectionLogging:self osiACSEConnectionLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8785	OSI::ACSE dataLogging:self osiACSEDataLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8786	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8787	self osiROSEPresent value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8788	OSI::ROSE errorLogging:self osiROSEErrorLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8789	OSI::ROSE invocationLogging:self osiROSEInvokationLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8790	OSI::ROSE responseLogging:self osiROSEResponseLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8791	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8792	self osiCMISEPresent value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8793	OSI::CMISE errorLogging:self osiCMISEErrorLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8794	OSI::CMISE messageLogging:self osiCMISEMessageLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8795	].
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8796	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8797
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8798	!AbstractSettingsApplication::OsiSettingsAppl methodsFor:'aspects'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8799
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8800	osiACSEConnectionLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8801	osiACSEConnectionLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8802	osiACSEConnectionLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8803	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8804	^ osiACSEConnectionLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8805	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8806
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8807	osiACSEDataLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8808
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8809	osiACSEDataLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8810	osiACSEDataLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8811	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8812	^ osiACSEDataLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8813	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8814
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8815	osiACSEErrorLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8816	osiACSEErrorLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8817	osiACSEErrorLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8818	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8819	^ osiACSEErrorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8820	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8821
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8822	osiACSEPresent
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8823	osiACSEPresent isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8824	osiACSEPresent := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8825	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8826	^ osiACSEPresent.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8827	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8828
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8829	osiCMISEErrorLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8830	osiCMISEErrorLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8831	osiCMISEErrorLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8832	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8833	^ osiCMISEErrorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8834	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8835
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8836	osiCMISEMessageLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8837	osiCMISEMessageLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8838	osiCMISEMessageLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8839	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8840	^ osiCMISEMessageLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8841	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8842
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8843	osiCMISEPresent
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8844	osiCMISEPresent isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8845	osiCMISEPresent := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8846	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8847	^ osiCMISEPresent.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8848	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8849
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8850	osiROSEErrorLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8851	osiROSEErrorLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8852	osiROSEErrorLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8853	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8854	^ osiROSEErrorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8855	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8856
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8857	osiROSEInvokationLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8858	osiROSEInvokationLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8859	osiROSEInvokationLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8860	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8861	^ osiROSEInvokationLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8862	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8863
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8864	osiROSEPresent
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8865
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8866	osiROSEPresent isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8867	osiROSEPresent := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8868	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8869	^ osiROSEPresent.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8870	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8871
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8872	osiROSEResponseLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8873
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8874	osiROSEResponseLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8875	osiROSEResponseLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8876	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8877	^ osiROSEResponseLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8878	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8879
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	8880	!AbstractSettingsApplication::OsiSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	8881
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	8882	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	8883	^ 'Launcher/communicationsSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	8884	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	8885
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8886	!AbstractSettingsApplication::OsiSettingsAppl methodsFor:'queries'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8887
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8888	hasUnsavedChanges
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8889
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8890	^ ((
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8891	(self osiACSEPresent value and:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8892	self osiACSEErrorLogging value ~= OSI::ACSE errorLogging or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8893	self osiACSEConnectionLogging value ~= OSI::ACSE connectionLogging or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8894	self osiACSEDataLogging value ~= OSI::ACSE dataLogging]]]) or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8895	self osiROSEPresent value and:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8896	self osiROSEErrorLogging value ~= OSI::ROSE errorLogging or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8897	self osiROSEInvokationLogging value ~= OSI::ROSE invocationLogging or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8898	self osiROSEResponseLogging value ~= OSI::ROSE responseLogging]]]]) or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8899	(self osiCMISEPresent value) and:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8900	self osiCMISEErrorLogging value ~= OSI::CMISE errorLogging or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8901	self osiCMISEMessageLogging value ~= OSI::CMISE messageLogging]]])
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8902	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8903
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8904	!AbstractSettingsApplication::PrinterSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8905
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8906	defaultIcon
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	8907	<resource: #programImage>
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	8908
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	8909	^ ToolbarIconLibrary printerIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8910	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8911
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8912	!AbstractSettingsApplication::PrinterSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8913
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8914	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8915	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8916	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8917
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8918	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8919	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8920
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8921	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8922	UIPainter new openOnClass:AbstractSettingsApplication::PrinterSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8923	AbstractSettingsApplication::PrinterSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8924	AbstractSettingsApplication::PrinterSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8925	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8926
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8927	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8928
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8929	^
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8930	#(FullSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8931	name: windowSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8932	window:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8933	(WindowSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8934	label: 'Printer Settings'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8935	name: 'Printer Settings'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8936	min: (Point 10 10)
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	8937	bounds: (Rectangle 0 0 616 385)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8938	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8939	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8940	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8941	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8942	(VerticalPanelViewSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8943	name: 'VerticalPanel1'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8944	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	8945	horizontalLayout: fit
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8946	verticalLayout: top
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8947	horizontalSpace: 3
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8948	verticalSpace: 3
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8949	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8950	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8951	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8952	(ViewSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8953	name: 'PrinterSelectBox'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8954	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8955	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8956	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8957	(LabelSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8958	label: 'Printer Type:'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8959	name: 'PrinterTypeLabel'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	8960	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	8961	translateLabel: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8962	adjust: right
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8963	)
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8964	(ComboListSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8965	name: 'PrinterTypeComboList'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	8966	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	8967	model: printerTypeSelection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8968	comboList: printerType
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8969	useIndex: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8970	)
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8971	(LabelSpec
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	8972	label: 'Print Command:'
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8973	name: 'PrinterCommandLabel'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	8974	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	8975	visibilityChannel: printerIsDrivenByCommand
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8976	translateLabel: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8977	adjust: right
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8978	)
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8979	(ComboBoxSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8980	name: 'CommandComboBox'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	8981	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	8982	visibilityChannel: printerIsDrivenByCommand
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	8983	enableChannel: printCommandEnabled
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8984	model: printCommand
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8985	acceptOnLostFocus: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8986	acceptOnPointerLeave: false
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8987	comboList: printCommandList
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8988	useIndex: false
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8989	)
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	8990	(LabelSpec
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	8991	label: 'Print to File:'
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	8992	name: 'PrinterFileLabel'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	8993	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	8994	visibilityChannel: printerSupportsPrintingToFile
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	8995	translateLabel: true
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	8996	adjust: right
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	8997	)
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	8998	(FilenameInputFieldSpec
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	8999	name: 'PrinterFileEntryField'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	9000	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	9001	visibilityChannel: printerSupportsPrintingToFile
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	9002	model: printFilename
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	9003	immediateAccept: true
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	9004	acceptOnLeave: true
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	9005	acceptOnLostFocus: true
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	9006	acceptOnPointerLeave: false
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9007	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9008	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9009
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9010	)
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9011	extent: (Point 616 84)
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	9012	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9013	(ViewSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9014	name: 'FormatBox'
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9015	visibilityChannel: supportsPageFormatSetting
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9016	component:
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9017	(SpecCollection
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9018	collection: (
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9019	(DividerSpec
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9020	name: 'Separator1'
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9021	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	9022	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9023	(LabelSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9024	label: 'Page Format:'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9025	name: 'PageFormatLabel'
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9026	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	9027	translateLabel: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9028	adjust: right
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9029	)
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9030	(PopUpListSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9031	label: 'PopUp List'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9032	name: 'PageFormatPopUpList'
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9033	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	9034	tabable: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9035	model: pageFormat
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9036	enableChannel: enableFormat
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9037	menu: pageFormatList
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9038	)
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9039	(CheckBoxSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9040	label: 'Landscape'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9041	name: 'LandscapeCheckBox'
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9042	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	9043	enableChannel: enablelandscape
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9044	model: landscape
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9045	translateLabel: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9046	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9047	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9048
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9049	)
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9050	extent: (Point 616 30)
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	9051	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9052	(ViewSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9053	name: 'MarginBox'
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9054	visibilityChannel: supportsMarginSetting
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9055	component:
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9056	(SpecCollection
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9057	collection: (
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9058	(DividerSpec
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9059	name: 'Separator5'
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9060	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	9061	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9062	(VerticalPanelViewSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9063	name: 'VerticalPanel2'
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9064	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	9065	horizontalLayout: fit
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9066	verticalLayout: center
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9067	horizontalSpace: 3
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9068	verticalSpace: 3
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9069	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9070	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9071	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9072	(ViewSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9073	name: 'Box1'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9074	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9075	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9076	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9077	(LabelSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9078	label: 'Top Margin:'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9079	name: 'TopMarginLabel'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	9080	layout: (LayoutFrame 0 0 0 0 181 0 21 0)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9081	translateLabel: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9082	adjust: right
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9083	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9084	(InputFieldSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9085	name: 'TopMarginEntryField'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	9086	layout: (LayoutFrame 183 0 0 0 283 0 21 0)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9087	enableChannel: enableMargins
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9088	model: topMargin
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9089	type: numberOrNil
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9090	acceptOnReturn: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9091	acceptOnTab: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9092	acceptOnLostFocus: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9093	acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9094	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9095	(PopUpListSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9096	label: 'PopUp List'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9097	name: 'PopUpList2'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9098	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	9099	tabable: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9100	model: selectedUnit
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9101	menu: unitList
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9102	useIndex: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9103	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9104	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9105
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9106	)
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9107	extent: (Point 616 24)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9108	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9109	(ViewSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9110	name: 'Box2'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9111	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9112	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9113	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9114	(LabelSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9115	label: 'Left Margin:'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9116	name: 'LeftMarginLabel'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	9117	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	9118	translateLabel: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9119	adjust: right
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9120	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9121	(InputFieldSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9122	name: 'LeftMarginEntryField'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	9123	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	9124	enableChannel: enableMargins
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9125	model: leftMargin
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9126	type: numberOrNil
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9127	acceptOnReturn: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9128	acceptOnTab: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9129	acceptOnLostFocus: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9130	acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9131	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9132	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9133
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9134	)
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9135	extent: (Point 616 24)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9136	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9137	(ViewSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9138	name: 'Box3'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9139	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9140	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9141	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9142	(LabelSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9143	label: 'Right Margin:'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9144	name: 'RightMarginLabel'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	9145	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	9146	translateLabel: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9147	adjust: right
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9148	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9149	(InputFieldSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9150	name: 'RightMarginEntryField'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	9151	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	9152	enableChannel: enableMargins
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9153	model: rightMargin
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9154	type: numberOrNil
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9155	acceptOnReturn: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9156	acceptOnTab: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9157	acceptOnLostFocus: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9158	acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9159	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9160	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9161
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9162	)
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9163	extent: (Point 616 24)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9164	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9165	(ViewSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9166	name: 'Box4'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9167	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9168	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9169	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9170	(LabelSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9171	label: 'Bottom Margin:'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9172	name: 'BottomMarginLabel'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	9173	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	9174	translateLabel: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9175	adjust: right
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9176	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9177	(InputFieldSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9178	name: 'BottomMarginEntryField'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	9179	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	9180	enableChannel: enableMargins
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9181	model: bottomMargin
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9182	type: numberOrNil
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9183	acceptOnReturn: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9184	acceptOnTab: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9185	acceptOnLostFocus: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9186	acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9187	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9188	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9189
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9190	)
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9191	extent: (Point 616 24)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9192	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9193	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9194
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9195	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9196	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9197	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9198
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9199	)
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9200	extent: (Point 616 100)
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9201	)
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9202	(ViewSpec
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9203	name: 'ColorBox'
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9204	visibilityChannel: supportsColorSetting
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9205	component:
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9206	(SpecCollection
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9207	collection: (
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9208	(DividerSpec
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9209	name: 'Separator6'
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9210	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	9211	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9212	(CheckBoxSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9213	label: 'Color Printer'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9214	name: 'ColorPrinterCheckBox'
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9215	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	9216	enableChannel: enableColorBox
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9217	model: supportsColor
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9218	translateLabel: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9219	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9220	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9221
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9222	)
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9223	extent: (Point 616 27)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9224	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9225	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9226
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9227	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9228	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9229	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9230
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9231	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9232	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9233	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9234
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9235	!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9236
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	9237	basicReadSettings
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9238	Printer notNil ifTrue:[
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9239	self
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9240	readAspects:
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9241	#(
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9242	topMargin
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9243	bottomMargin
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9244	leftMargin
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9245	rightMargin
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9246	landscape
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9247	printCommand
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9248	printFilename
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9249	supportsColor
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9250	)
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9251	from:Printer.
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9252	].
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	9253
9811 6ac0aaf84f1e Fix printting under linux Stefan Vogel <sv@exept.de> parents: 9803 diff changeset	9254	self printerTypeSelection value:(self possiblePrinters identityIndexOf:Printer ifAbsent:1).
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	9255	self pageFormatList notEmpty ifTrue:[ self pageFormat value:Printer pageFormat ].
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	9256	self printerTypeSelectionOrUnitListChanged.
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9257
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9258	"Modified: / 07-08-2006 / 15:22:27 / fm"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	9259	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	9260
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9261	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9262
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9263	Printer := self possiblePrinters at:(self printerTypeSelection value).
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	9264
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9265	Printer printCommand:self printCommand value.
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	9266	Printer printFilename:(printFilename value isEmptyOrNil ifTrue:[nil] ifFalse:[printFilename value]).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9267
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9268	Printer supportsPageSizes ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9269	Printer pageFormat:(self pageFormat value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9270	Printer landscape:(self landscape value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9271	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9272	Printer supportsMargins ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9273	\| unit \|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9274	self selectedUnit value == 2 ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9275	unit := #mm
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9276	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9277	unit := #inch
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9278	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9279	Printer topMargin:(UnitConverter convert:(self topMargin value) from:unit to:#inch).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9280	Printer leftMargin:(UnitConverter convert:(self leftMargin value) from:unit to:#inch).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9281	Printer rightMargin:(UnitConverter convert:(self rightMargin value) from:unit to:#inch).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9282	Printer bottomMargin:(UnitConverter convert:(self bottomMargin value) from:unit to:#inch).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9283	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9284	Printer supportsPostscript ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9285	Printer supportsColor:self supportsColor value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9286	].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9287	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9288
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9289	!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9290
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9291	bottomMargin
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9292
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9293	bottomMargin isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9294	bottomMargin := Printer bottomMargin asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	9295	bottomMargin onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9296	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9297	^ bottomMargin.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9298	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9299
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9300	enableColorBox
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	enableColorBox isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9303	enableColorBox := true asValue.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9304	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9305	^ enableColorBox.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9306	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9307
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9308	enableFormat
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9309
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9310	enableFormat isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9311	enableFormat := true asValue.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9312	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9313	^ enableFormat.
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
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9316	enableMargins
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9317
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9318	enableMargins isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9319	enableMargins := true asValue.
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	^ enableMargins.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9322	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9323
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9324	enablelandscape
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9325
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9326	enablelandscape isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9327	enablelandscape := true asValue.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9328	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9329	^ enablelandscape.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9330	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9331
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9332	landscape
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9333
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9334	landscape isNil ifTrue:[
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9335	landscape := (Printer isNil ifTrue:[ false ] ifFalse:[ Printer landscape]) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	9336	landscape onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9337	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9338	^ landscape.
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9339
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9340	"Modified: / 07-08-2006 / 15:22:44 / fm"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9341	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9342
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9343	leftMargin
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9344
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9345	leftMargin isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9346	leftMargin := Printer leftMargin asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	9347	leftMargin onChangeSend:#updateModifiedChannel to:self
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9348	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9349	^ leftMargin.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9350	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9351
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9352	pageFormat
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9353
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9354	pageFormat isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9355	self pageFormatList notEmpty ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9356	\| index \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9357	(index := self pageFormatList indexOf:#a4) ~~ 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9358	pageFormat := index asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9359	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9360	pageFormat := 1 asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9361	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9362	].
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	9363	pageFormat onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9364	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9365	^ pageFormat.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9366	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9367
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9368	pageFormatList
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9369
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9370	pageFormatList isNil ifTrue:[
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9371	pageFormatList := (Printer isNil ifTrue:[ #() ] ifFalse: [Printer defaultPageFormats]) asList.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9372	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9373	^ pageFormatList.
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9374
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9375	"Modified: / 07-08-2006 / 15:23:19 / fm"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9376	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9377
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9378	printCommand
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9379
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9380	printCommand isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9381	printCommand := Printer printCommand asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	9382	printCommand onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9383	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9384	^ printCommand.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9385	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9386
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	9387	printCommandEnabled
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	9388	^ BlockValue
7725 06e1eb7247d9 BlockValue usage cleanup Claus Gittinger <cg@exept.de> parents: 7720 diff changeset	9389	with:[:m \| m isEmptyOrNil]
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	9390	argument:(self printFilename).
7725 06e1eb7247d9 BlockValue usage cleanup Claus Gittinger <cg@exept.de> parents: 7720 diff changeset	9391
06e1eb7247d9 BlockValue usage cleanup Claus Gittinger <cg@exept.de> parents: 7720 diff changeset	9392	"Modified: / 08-03-2007 / 23:02:40 / cg"
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	9393	!
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	9394
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9395	printCommandList
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9396
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9397	printCommandList isNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9398	printCommandList := self commandList asList.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9399	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9400	^ printCommandList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9401	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9402
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	9403	printFilename
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	9404	printFilename isNil ifTrue:[
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9405	printFilename := (Printer isNil ifTrue:[''] ifFalse:[Printer printFilename ? '']) asValue.
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	9406	printFilename onChangeSend:#updateModifiedChannel to:self
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	9407	].
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	9408	^ printFilename.
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9409
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9410	"Modified: / 07-08-2006 / 15:24:45 / fm"
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	9411	!
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	9412
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9413	printerIsDrivenByCommand
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9414	printerIsDrivenByCommand isNil ifTrue:[
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9415	printerIsDrivenByCommand := BlockValue
9656 39d104b5dcaf fix if printer is gone sr parents: 9655 diff changeset	9416	with:[:m \|
39d104b5dcaf fix if printer is gone sr parents: 9655 diff changeset	9417	\|printer\|
39d104b5dcaf fix if printer is gone sr parents: 9655 diff changeset	9418
39d104b5dcaf fix if printer is gone sr parents: 9655 diff changeset	9419	printer := self possiblePrinters at:m value ifAbsent:nil.
39d104b5dcaf fix if printer is gone sr parents: 9655 diff changeset	9420	printer notNil ifTrue:[
39d104b5dcaf fix if printer is gone sr parents: 9655 diff changeset	9421	printer isDrivenByCommand
39d104b5dcaf fix if printer is gone sr parents: 9655 diff changeset	9422	] ifFalse:[
39d104b5dcaf fix if printer is gone sr parents: 9655 diff changeset	9423	self breakPoint:#expecco.
39d104b5dcaf fix if printer is gone sr parents: 9655 diff changeset	9424	false
39d104b5dcaf fix if printer is gone sr parents: 9655 diff changeset	9425	]
39d104b5dcaf fix if printer is gone sr parents: 9655 diff changeset	9426	]
9655 19541d63506a fix if printer is no more in list sr parents: 9629 diff changeset	9427	argument:self printerTypeSelection.
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9428	].
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9429	^ printerIsDrivenByCommand.
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9430
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9431	"Created: / 10-10-2006 / 18:22:32 / cg"
7725 06e1eb7247d9 BlockValue usage cleanup Claus Gittinger <cg@exept.de> parents: 7720 diff changeset	9432	"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	9433	!
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9434
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9435	printerSupportsPrintingToFile
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9436	printerSupportsPrintingToFile isNil ifTrue:[
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9437	printerSupportsPrintingToFile := BlockValue
7725 06e1eb7247d9 BlockValue usage cleanup Claus Gittinger <cg@exept.de> parents: 7720 diff changeset	9438	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	9439	argument:self printerTypeSelection.
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	^ printerSupportsPrintingToFile.
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9442
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9443	"Created: / 10-10-2006 / 18:27:44 / cg"
7725 06e1eb7247d9 BlockValue usage cleanup Claus Gittinger <cg@exept.de> parents: 7720 diff changeset	9444	"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	9445	!
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9446
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9447	printerType
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9448	printerType isNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9449	printerType := (self possiblePrinters collect:[:cls \| cls printerTypeName]) asList.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	9450	printerType onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9451	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9452	^ printerType.
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9453
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9454	"Modified: / 10-10-2006 / 18:09:43 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9455	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9456
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9457	printerTypeSelection
9811 6ac0aaf84f1e Fix printting under linux Stefan Vogel <sv@exept.de> parents: 9803 diff changeset	9458	\|printerIndex\|
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9459
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9460	printerTypeSelection isNil ifTrue:[
9811 6ac0aaf84f1e Fix printting under linux Stefan Vogel <sv@exept.de> parents: 9803 diff changeset	9461	printerIndex := self possiblePrinters identityIndexOf:Printer.
6ac0aaf84f1e Fix printting under linux Stefan Vogel <sv@exept.de> parents: 9803 diff changeset	9462	printerIndex == 0 ifTrue:[
6ac0aaf84f1e Fix printting under linux Stefan Vogel <sv@exept.de> parents: 9803 diff changeset	9463	self possiblePrinters isEmptyOrNil ifTrue:[self error:'no printer'].
6ac0aaf84f1e Fix printting under linux Stefan Vogel <sv@exept.de> parents: 9803 diff changeset	9464	printerIndex := 1.
6ac0aaf84f1e Fix printting under linux Stefan Vogel <sv@exept.de> parents: 9803 diff changeset	9465	].
6ac0aaf84f1e Fix printting under linux Stefan Vogel <sv@exept.de> parents: 9803 diff changeset	9466	printerTypeSelection := printerIndex asValue.
9657 32a86c300786 set an initial printer..... sr parents: 9656 diff changeset	9467
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9468	printerTypeSelection addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9469	printerTypeSelection changed.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	9470	printerTypeSelection onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9471	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9472	^ printerTypeSelection.
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9473
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9474	"Modified: / 10-10-2006 / 18:22:58 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9475	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9476
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9477	rightMargin
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9478
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9479	rightMargin isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9480	rightMargin := Printer rightMargin asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	9481	rightMargin onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9482	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9483	^ rightMargin.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9484	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9485
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9486	selectedUnit
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9487
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9488	selectedUnit isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9489	selectedUnit := 1 asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9490	selectedUnit addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9491	selectedUnit changed.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	9492	selectedUnit onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9493	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9494	^ selectedUnit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9495	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9496
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9497	supportsColor
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9498
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9499	supportsColor isNil ifTrue:[
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9500	supportsColor := (Printer notNil and:[Printer supportsColor]) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	9501	supportsColor onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9502	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9503	^ supportsColor.
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9504
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9505	"Modified: / 07-08-2006 / 15:24:22 / fm"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9506	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9507
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9508	supportsColorSetting
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9509	supportsColorSetting isNil ifTrue:[
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9510	supportsColorSetting := BlockValue
7725 06e1eb7247d9 BlockValue usage cleanup Claus Gittinger <cg@exept.de> parents: 7720 diff changeset	9511	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	9512	argument:self printerTypeSelection.
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9513	].
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9514	^ supportsColorSetting.
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9515
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9516	"Created: / 10-10-2006 / 18:35:47 / cg"
7725 06e1eb7247d9 BlockValue usage cleanup Claus Gittinger <cg@exept.de> parents: 7720 diff changeset	9517	"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	9518	!
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9519
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9520	supportsMarginSetting
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9521	supportsMarginSetting isNil ifTrue:[
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9522	supportsMarginSetting := BlockValue
7725 06e1eb7247d9 BlockValue usage cleanup Claus Gittinger <cg@exept.de> parents: 7720 diff changeset	9523	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	9524	argument:self printerTypeSelection.
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9525	].
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9526	^ supportsMarginSetting.
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9527
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9528	"Created: / 10-10-2006 / 18:35:33 / cg"
7725 06e1eb7247d9 BlockValue usage cleanup Claus Gittinger <cg@exept.de> parents: 7720 diff changeset	9529	"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	9530	!
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9531
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9532	supportsPageFormatSetting
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9533	supportsPageFormatSetting isNil ifTrue:[
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9534	supportsPageFormatSetting := BlockValue
7725 06e1eb7247d9 BlockValue usage cleanup Claus Gittinger <cg@exept.de> parents: 7720 diff changeset	9535	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	9536	argument:self printerTypeSelection.
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9537	].
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9538	^ supportsPageFormatSetting.
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9539
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9540	"Created: / 10-10-2006 / 18:36:33 / cg"
7725 06e1eb7247d9 BlockValue usage cleanup Claus Gittinger <cg@exept.de> parents: 7720 diff changeset	9541	"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	9542	!
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9543
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9544	topMargin
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9545
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9546	topMargin isNil ifTrue:[
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9547	topMargin := (Printer isNil ifTrue:[ 0 ] ifFalse:[ Printer topMargin ]) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	9548	topMargin onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9549	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9550	^ topMargin.
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9551
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9552	"Modified: / 07-08-2006 / 15:21:50 / fm"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9553	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9554
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9555	unitList
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9556
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9557	unitList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9558	unitList := #('inch' 'mm') asList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9559	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9560	^ unitList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9561	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9562
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9563	!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9564
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9565	printerTypeSelectionChanged
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9566	\| p hasPageSize hasMargins\|
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	9567
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	9568	self printerType selectionIndex ~~ 0 ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9569	p := self possiblePrinters at:(self printerType selectionIndex).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9570	hasPageSize := p supportsPageSizes.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9571	hasMargins := p supportsMargins.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9572	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9573	hasPageSize := false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9574	hasMargins := false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9575	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9576	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9577
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9578	printerTypeSelectionOrUnitListChanged
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9579	\| p hasPageSize hasMargins unit printerSupportsPostscript\|
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9580
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9581	self printerTypeSelection value ~~ 0 ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9582	p := self possiblePrinters at:(self printerTypeSelection value).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9583	hasPageSize := p supportsPageSizes.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9584	hasMargins := p supportsMargins.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9585	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9586	hasPageSize := false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9587	hasMargins := false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9588	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9589	self enablelandscape value:hasPageSize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9590	self enableFormat value:hasPageSize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9591	hasPageSize ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9592	self pageFormat value:(p pageFormat).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9593	self landscape value:(p landscape).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9594	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9595	self landscape value:false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9596	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9597	hasMargins ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9598	self selectedUnit value == 2 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9599	unit := #mm
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9600	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9601	unit := #inch
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9602	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9603
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	9604	self topMargin value:(UnitConverter convert:p topMargin from:#inch to:unit).
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	9605	self leftMargin value:(UnitConverter convert:p leftMargin from:#inch to:unit).
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	9606	self rightMargin value:(UnitConverter convert:p rightMargin from:#inch to:unit).
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	9607	self bottomMargin value:(UnitConverter convert:p bottomMargin from:#inch to:unit).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9608
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9609	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9610	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9611	self enableMargins value:hasMargins.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9612
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9613	p notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9614	\| newCommandList \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9615	newCommandList := p defaultCommands.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9616	newCommandList notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9617	self printCommandList contents:(newCommandList asList).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9618	self printCommandList changed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9619	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9620	self printCommand value:(p printCommand).
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	9621	self printFilename value:(p printFilename ? '').
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9622	].
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9623	printerSupportsPostscript := p notNil and:[p supportsPostscript].
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9624	self enableColorBox value:printerSupportsPostscript.
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9625	printerSupportsPostscript ifFalse:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9626	self supportsColor value:false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9627	] ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9628	self supportsColor value:(Printer supportsColor).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9629	]
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9630
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9631	"Modified: / 07-08-2006 / 15:24:06 / fm"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9632	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9633
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9634	unitListChanged
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	update:something with:aParameter from:changedObject
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9638	(changedObject == self selectedUnit or:[changedObject == self printerTypeSelection]) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9639	self printerTypeSelectionOrUnitListChanged.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9640	^ self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9641	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9642
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9643	super update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9644	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9645
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	9646	!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	9647
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	9648	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	9649	^ 'Launcher/printerSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	9650	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	9651
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9652	!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9653
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9654	commandList
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9655	commandList isNil ifTrue:[
6638 74439c5aa6dd * empty log message * Claus Gittinger <cg@exept.de> parents: 6580 diff changeset	9656	commandList := resources string:'PRINT_COMMANDS' default:nil.
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9657	commandList isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9658	commandList := PrinterStream defaultCommands.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9659	commandList isNil ifTrue:[
5151 53c19d72ff59 Avoid warning about slow grow operation Stefan Vogel <sv@exept.de> parents: 5149 diff changeset	9660	commandList := #('lpr' 'lp').
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9661	].
5151 53c19d72ff59 Avoid warning about slow grow operation Stefan Vogel <sv@exept.de> parents: 5149 diff changeset	9662	(commandList includes:self printCommand value) ifFalse:[
53c19d72ff59 Avoid warning about slow grow operation Stefan Vogel <sv@exept.de> parents: 5149 diff changeset	9663	commandList := commandList copyWith:self printCommand value.
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9664	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9665	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9666	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9667	^ commandList
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9668	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9669
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9670	hasUnsavedChanges
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9671	\| printer unit\|
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	9672
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9673	Printer isNil ifTrue:[^ false].
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9674
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9675	self selectedUnit value == 2 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9676	unit := #mm
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9677	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9678	unit := #inch
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9679	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9680	printer := self possiblePrinters at:(self printerTypeSelection value).
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	9681
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	9682	printer ~= Printer ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	9683
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	9684	Printer printCommand ~= self printCommand value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	9685	(Printer printFilename ? '') ~= (self printFilename value ? '') ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	9686
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	9687	Printer supportsPageSizes ifTrue:[
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	9688	Printer pageFormat ~= self pageFormat value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	9689	Printer landscape ~= (self landscape value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	9690	].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	9691	Printer supportsMargins ifTrue:[
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	9692	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	9693	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	9694	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	9695	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	9696	].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	9697	Printer supportsPostscript ifTrue:[
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	9698	Printer supportsColor ~= self supportsColor value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	9699	].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	9700	^ false
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9701
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9702	"Modified: / 07-08-2006 / 15:25:47 / fm"
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9703	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9704
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9705	possiblePrinters
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9706	possiblePrinters isNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9707	possiblePrinters := PrinterStream withAllSubclasses asArray.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9708	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9709	^ possiblePrinters
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9710	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9711
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9712	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9713
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9714	defaultIcon
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9715	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9716	by the ImageEditor of ST/X."
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	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9719	the ImageEditor may not be able to read the specification."
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	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9722	self defaultIcon inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9723	ImageEditor openOnClass:self andSelector:#defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9724	Icon flushCachedIcons
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9725	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9726
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9727	<resource: #image>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9728
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9729	^Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9730	constantNamed:#'AbstractSettingsApplication::ProcessorSchedulerSettingsAppl class defaultIcon'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	9731	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	9732	@@@@@@@@@@@@@@@@@@@@ADQ@@@@@@@@@@DQBL2QD@@@@@@@DH"D3D"I@@@@@@DHQDSLQDRP@@@@DHQDQDQDQD$@@@DHQDQDQDQDQI@@@P!!DQDQDQDQD$@@AB
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	9733	DQDQDQLQDRP@ABDQDQDQLQDQD$@DHQDQDSLQDQDRP@P!!DQDQL1DQDQI@ABDQDQDQLQDQD$@@P!!DQDQDSDQD$@@ABDQDQDQD1DRP@@DHQDQDQDQLQI@@@ABDQ
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	9734	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	9735	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9736
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9737	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl class methodsFor:'interface specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9738
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9739	windowSpec
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9740	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9741	by the UIPainter of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9742
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9743	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9744	the UIPainter may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9745
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9746	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9747	UIPainter new openOnClass:AbstractSettingsApplication::ProcessorSchedulerSettingsAppl andSelector:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9748	AbstractSettingsApplication::ProcessorSchedulerSettingsAppl new openInterface:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9749	AbstractSettingsApplication::ProcessorSchedulerSettingsAppl open
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9750	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9751
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9752	<resource: #canvas>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9753
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9754	^
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9755	#(FullSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9756	name: windowSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9757	window:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9758	(WindowSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9759	label: 'Processor and Scheduler Settings'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9760	name: 'Processor and Scheduler Settings'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9761	min: (Point 10 10)
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9762	bounds: (Rectangle 14 46 614 366)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9763	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9764	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9765	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9766	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9767	(VerticalPanelViewSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9768	name: 'VerticalPanel2'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9769	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	9770	horizontalLayout: fit
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9771	verticalLayout: topSpace
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9772	horizontalSpace: 3
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9773	verticalSpace: 5
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9774	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9775	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9776	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9777	(CheckBoxSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9778	label: 'Preemptive Scheduling'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9779	name: 'CheckBox11'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9780	model: preemptive
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9781	translateLabel: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9782	extent: (Point 600 22)
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9783	)
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9784	(ViewSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9785	name: 'Box2'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9786	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9787	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9788	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9789	(CheckBoxSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9790	label: 'Dynamic Priorities'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9791	name: 'CheckBox12'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9792	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	9793	enableChannel: preemptive
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9794	model: dynamicPrios
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9795	translateLabel: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9796	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9797	)
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	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9800	extent: (Point 600 23)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9801	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9802	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9803
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9804	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9805	)
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
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	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9810	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9811
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9812	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl methodsFor:'actions'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9813
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	9814	basicReadSettings
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	9815	self preemptive value:Processor isTimeSlicing.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	9816	self dynamicPrios value:Processor supportDynamicPriorities.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	9817	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	9818
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9819	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9820
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9821	Processor isTimeSlicing ~~ self preemptive value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9822	self preemptive value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9823	Processor startTimeSlicing
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9824	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9825	Processor stopTimeSlicing
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9826	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9827	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9828	Processor supportDynamicPriorities ~~ self dynamicPrios value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9829	Processor supportDynamicPriorities:self dynamicPrios value
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9830	].
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9831	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9832
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9833	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl methodsFor:'aspects'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9834
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9835	dynamicPrios
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9836	dynamicPrios isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9837	dynamicPrios := true asValue.
5085 e22e91773cf9 have no save button enabled on timeSlicing changes penk parents: 5083 diff changeset	9838	dynamicPrios onChangeSend:#updateModifiedChannel to:self.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9839	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9840	^ dynamicPrios.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9841	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9842
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9843	preemptive
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9844	preemptive isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9845	preemptive := true asValue.
5085 e22e91773cf9 have no save button enabled on timeSlicing changes penk parents: 5083 diff changeset	9846	preemptive onChangeSend:#updateModifiedChannel to:self.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9847	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9848	^ preemptive.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9849	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9850
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	9851	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	9852
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	9853	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	9854	^ 'Launcher/miscSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	9855	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	9856
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9857	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl methodsFor:'queries'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9858
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9859	hasUnsavedChanges
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	9860	self preemptive value ~= Processor isTimeSlicing ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	9861	self dynamicPrios value ~= Processor supportDynamicPriorities ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	9862	^ false
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9863	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9864
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9865	!AbstractSettingsApplication::RDoItServerSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9866
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9867	defaultIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9868	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9869	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9870
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9871	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9872	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9873
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9874	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9875	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9876	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9877	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9878	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9879
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9880	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9881
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9882	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9883	constantNamed:#'AbstractSettingsApplication::RDoItServerSettingsAppl class defaultIcon'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	9884	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	9885	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@&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	9886	''#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	9887	!!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	9888	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9889
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9890	!AbstractSettingsApplication::RDoItServerSettingsAppl class methodsFor:'interface specs'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9891
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9892	windowSpec
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9893	"This resource specification was automatically generated
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9894	by the UIPainter of ST/X."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9895
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9896	"Do not manually edit this!! If it is corrupted,
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9897	the UIPainter may not be able to read the specification."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9898
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9899	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9900	UIPainter new openOnClass:AbstractSettingsApplication::RDoItServerSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9901	AbstractSettingsApplication::RDoItServerSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9902	AbstractSettingsApplication::RDoItServerSettingsAppl open
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9903	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9904
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9905	<resource: #canvas>
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9906
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9907	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9908	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9909	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9910	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9911	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9912	label: 'RDoIt Server Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9913	name: 'RDoIt Server Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9914	min: (Point 10 10)
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9915	bounds: (Rectangle 0 0 600 550)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9916	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9917	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9918	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9919	collection: (
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9920	(FramedBoxSpec
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9921	label: 'RDoIt'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9922	name: 'RDoItFramedBox'
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	9923	layout: (LayoutFrame 0 0 0 0 0 1 219 0)
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9924	labelPosition: topLeft
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9925	translateLabel: true
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9926	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9927	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9928	collection: (
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9929	(VerticalPanelViewSpec
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9930	name: 'VerticalPanel2'
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	9931	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	9932	horizontalLayout: fit
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9933	verticalLayout: top
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9934	horizontalSpace: 0
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9935	verticalSpace: 0
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9936	component:
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9937	(SpecCollection
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9938	collection: (
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9939	(ViewSpec
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9940	name: 'Box1'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9941	component:
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9942	(SpecCollection
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9943	collection: (
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9944	(CheckBoxSpec
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9945	label: 'Remote doits enabled'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9946	name: 'CheckBox1'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9947	layout: (LayoutFrame 0 0 0 0 -5 1 22 0)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9948	enableChannel: hasRDoitServerClass
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9949	model: rDoitsEnabled
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	)
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	)
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	9955	extent: (Point 566 25)
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9956	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9957	(ViewSpec
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9958	name: 'Box2'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9959	component:
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9960	(SpecCollection
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9961	collection: (
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9962	(LabelSpec
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9963	label: 'Port/Path:'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9964	name: 'Label2'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9965	layout: (LayoutFrame 0 0 0 0 150 0 22 0)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9966	translateLabel: true
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9967	adjust: right
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9968	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9969	(InputFieldSpec
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9970	name: 'EntryField1'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9971	layout: (LayoutFrame 150 0 0 0 -5 1 22 0)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9972	enableChannel: rDoitsEnabled
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9973	model: rDoitServerPortOrPath
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9974	acceptOnReturn: true
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9975	acceptOnTab: true
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9976	acceptOnLostFocus: true
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9977	acceptOnPointerLeave: true
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9978	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9979	(LabelSpec
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9980	label: 'Port# for Tcp Socket; Path for Unix Domain Socket (Unix only).'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9981	name: 'Label3'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9982	layout: (LayoutFrame 150 0 28 0 596 0 50 0)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9983	translateLabel: true
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9984	adjust: left
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9985	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9986	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9987
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9988	)
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	9989	extent: (Point 566 60)
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	9990	)
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	9991	(ViewSpec
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	9992	name: 'Box13'
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	9993	component:
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	9994	(SpecCollection
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	9995	collection: (
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	9996	(CheckBoxSpec
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	9997	label: 'Local Connections Only'
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	9998	name: 'CheckBox10'
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	9999	layout: (LayoutFrame 150 0 0 0 -5 1 22 0)
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10000	enableChannel: rDoitsEnabled
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10001	model: rDoitEnabledOnlyViaLocalConnection
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10002	translateLabel: true
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10003	)
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10004	)
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10005
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10006	)
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10007	extent: (Point 566 25)
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10008	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10009	(ViewSpec
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10010	name: 'Box3'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10011	component:
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10012	(SpecCollection
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10013	collection: (
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10014	(CheckBoxSpec
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10015	label: 'Log errors'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10016	name: 'CheckBox2'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10017	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10018	enableChannel: rDoitsEnabled
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10019	model: rDoitErrorLogging
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10020	translateLabel: true
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10021	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10022	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10023
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10024	)
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10025	extent: (Point 566 25)
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10026	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10027	(ViewSpec
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10028	name: 'Box4'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10029	component:
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10030	(SpecCollection
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10031	collection: (
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10032	(CheckBoxSpec
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10033	label: 'Log requests'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10034	name: 'CheckBox3'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10035	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10036	enableChannel: rDoitsEnabled
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10037	model: rDoitLogging
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10038	translateLabel: true
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10039	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10040	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10041
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10042	)
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10043	extent: (Point 566 24)
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10044	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10045	(ViewSpec
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10046	name: 'Box5'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10047	component:
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10048	(SpecCollection
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10049	collection: (
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10050	(CheckBoxSpec
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10051	label: 'Debug errors'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10052	name: 'CheckBox4'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10053	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10054	enableChannel: rDoitsEnabled
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10055	model: rDoitErrorDebugging
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10056	translateLabel: true
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10057	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10058	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10059
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10060	)
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10061	extent: (Point 566 23)
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10062	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10063	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10064
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10065	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10066	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10067	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10068
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	(FramedBoxSpec
9174 841e5c387e0b * empty log message * Claus Gittinger <cg@exept.de> parents: 9167 diff changeset	10072	label: 'JavaScript-Scripting via Telnet'
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10073	name: 'ScriptingFramedBox'
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10074	layout: (LayoutFrame 0 0 218 0 0 1 433 0)
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10075	labelPosition: topLeft
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10076	translateLabel: true
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10077	component:
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10078	(SpecCollection
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10079	collection: (
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10080	(VerticalPanelViewSpec
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10081	name: 'VerticalPanel3'
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10082	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	10083	horizontalLayout: fit
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10084	verticalLayout: top
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10085	horizontalSpace: 0
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10086	verticalSpace: 0
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10087	component:
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10088	(SpecCollection
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10089	collection: (
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10090	(ViewSpec
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10091	name: 'Box6'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10092	component:
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10093	(SpecCollection
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10094	collection: (
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10095	(CheckBoxSpec
8740 bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10096	label: 'JavaScript-Scripting enabled'
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10097	name: 'CheckBox5'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10098	layout: (LayoutFrame 0 0 0 0 -5 1 22 0)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10099	enableChannel: hasScriptingServerClass
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10100	model: scriptingEnabled
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10101	translateLabel: true
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10102	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10103	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10104
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10105	)
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10106	extent: (Point 566 25)
8740 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	(ViewSpec
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10109	name: 'Box12'
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10110	component:
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10111	(SpecCollection
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10112	collection: (
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10113	(LabelSpec
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10114	label: 'Port:'
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10115	name: 'Label4'
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10116	layout: (LayoutFrame 0 0 0 0 150 0 22 0)
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10117	translateLabel: true
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10118	adjust: right
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10119	)
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10120	(InputFieldSpec
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10121	name: 'EntryField2'
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10122	layout: (LayoutFrame 150 0 0 0 -5 1 22 0)
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10123	enableChannel: rDoitsEnabled
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10124	model: scriptingServerPortOrPath
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10125	isReadOnly: true
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10126	acceptOnReturn: true
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10127	acceptOnTab: true
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10128	acceptOnLostFocus: true
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10129	acceptOnPointerLeave: true
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10130	)
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10131	(LabelSpec
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10132	label: 'Port# for Tcp Socket; Path for Unix Domain Socket (Unix only).'
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10133	name: 'Label5'
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10134	layout: (LayoutFrame 150 0 28 0 596 0 50 0)
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10135	initiallyInvisible: true
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10136	translateLabel: true
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10137	adjust: left
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10138	)
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10139	)
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10140
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10141	)
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10142	extent: (Point 566 60)
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10143	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10144	(ViewSpec
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10145	name: 'Box11'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10146	component:
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10147	(SpecCollection
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10148	collection: (
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10149	(CheckBoxSpec
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10150	label: 'Local Connections Only'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10151	name: 'CheckBox9'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10152	layout: (LayoutFrame 150 0 0 0 -5 1 22 0)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10153	enableChannel: scriptingEnabled
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10154	model: scriptingEnabledOnlyViaLocalConnection
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10155	translateLabel: true
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10156	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10157	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10158
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10159	)
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10160	extent: (Point 566 25)
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10161	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10162	(ViewSpec
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10163	name: 'Box8'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10164	component:
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10165	(SpecCollection
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10166	collection: (
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10167	(CheckBoxSpec
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10168	label: 'Log errors'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10169	name: 'CheckBox6'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10170	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10171	enableChannel: scriptingEnabled
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10172	model: scriptingErrorLogging
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10173	translateLabel: true
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10174	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10175	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10176
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10177	)
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10178	extent: (Point 566 25)
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10179	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10180	(ViewSpec
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10181	name: 'Box9'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10182	component:
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10183	(SpecCollection
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10184	collection: (
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10185	(CheckBoxSpec
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10186	label: 'Log requests'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10187	name: 'CheckBox7'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10188	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10189	enableChannel: scriptingEnabled
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10190	model: scriptingLogging
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10191	translateLabel: true
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10192	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10193	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10194
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10195	)
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10196	extent: (Point 566 24)
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10197	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10198	(ViewSpec
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10199	name: 'Box10'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10200	component:
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10201	(SpecCollection
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10202	collection: (
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10203	(CheckBoxSpec
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10204	label: 'Debug errors'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10205	name: 'CheckBox8'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10206	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10207	enableChannel: scriptingEnabled
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10208	model: scriptingErrorDebugging
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10209	translateLabel: true
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10210	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10211	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10212
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10213	)
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10214	extent: (Point 566 23)
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10215	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10216	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10217
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10218	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10219	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10220	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10221
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10222	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10223	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10224	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10225
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10226	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10227	)
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10228
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10229	"Modified: / 20-05-2010 / 12:15:22 / cg"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10230	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10231
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10232	!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'actions'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10233
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10234	basicReadSettings
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10235	\|rDoitsEnabled rDoitLogging rDoitErrorLogging rDoitErrorDebugging rDoitServerPortOrPath
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10236	rDoitEnabledOnlyViaLocalConnection
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10237	scriptingEnabled scriptingEnabledOnlyViaLocalConnection scriptingLogging
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10238	scriptingErrorLogging scriptingErrorDebugging\|
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10239
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10240	rDoitsEnabled := false.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10241	rDoitLogging := false.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10242	rDoitErrorLogging := false.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10243	rDoitErrorDebugging := false.
7906 cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	10244	rDoitServerPortOrPath := ''.
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10245	rDoitEnabledOnlyViaLocalConnection := true.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10246
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10247	scriptingEnabled := false.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10248	scriptingEnabledOnlyViaLocalConnection := true.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10249
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10250	(self hasRDoitServer and:[RDoItServer isLoaded]) ifTrue:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10251	rDoitsEnabled := RDoItServer serverRunning.
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10252	rDoitEnabledOnlyViaLocalConnection := RDoItServer localConnectionsOnly.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10253	rDoitLogging := RDoItServer isLogging.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10254	rDoitErrorLogging := RDoItServer isErrorLogging.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10255	rDoitErrorDebugging := RDoItServer isErrorCatching not.
7906 cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	10256	rDoitServerPortOrPath := RDoItServer defaultPortNumberOrPath asString.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10257	].
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10258
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10259	(STXScriptingServer notNil
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10260	and:[ STXScriptingServer isLoaded ]) ifTrue:[
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10261	scriptingEnabled := STXScriptingServer serverRunning.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10262	scriptingEnabledOnlyViaLocalConnection := STXScriptingServer localConnectionsOnly.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10263	scriptingLogging := STXScriptingServer isLogging.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10264	scriptingErrorLogging := STXScriptingServer isErrorLogging.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10265	scriptingErrorDebugging := STXScriptingServer isErrorDebugging.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10266	].
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10267
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10268	self rDoitsEnabled value:rDoitsEnabled.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10269	self rDoitLogging value:rDoitLogging.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10270	self rDoitErrorLogging value:rDoitErrorLogging.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10271	self rDoitErrorDebugging value:rDoitErrorDebugging.
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10272	self rDoitServerPortOrPath value:rDoitServerPortOrPath.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10273
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10274	self scriptingEnabled value:scriptingEnabled.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10275	self scriptingEnabledOnlyViaLocalConnection value:scriptingEnabledOnlyViaLocalConnection.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10276	self scriptingLogging value:scriptingLogging.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10277	self scriptingErrorLogging value:scriptingErrorLogging.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10278	self scriptingErrorDebugging value:scriptingErrorDebugging.
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10279
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10280	"Modified: / 20-05-2010 / 14:49:50 / cg"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10281	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10282
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10283	basicSaveSettings
5991 1f8b715b9c06 Fix rdoit settings: allow to specify a port number Stefan Vogel <sv@exept.de> parents: 5943 diff changeset	10284	\|shouldRun portOrPath\|
1f8b715b9c06 Fix rdoit settings: allow to specify a port number Stefan Vogel <sv@exept.de> parents: 5943 diff changeset	10285
7906 cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	10286	portOrPath := self getPortNumberOrPath.
5991 1f8b715b9c06 Fix rdoit settings: allow to specify a port number Stefan Vogel <sv@exept.de> parents: 5943 diff changeset	10287
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10288	self hasRDoitServerClass ifTrue:[
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10289	RDoItServer defaultPortNumberOrPath:portOrPath.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10290	RDoItServer logging:self rDoitLogging value.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10291	RDoItServer errorLogging:self rDoitErrorLogging value.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10292	RDoItServer errorCatching:(self rDoitErrorDebugging value not).
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10293	RDoItServer localConnectionsOnly:(self rDoitEnabledOnlyViaLocalConnection value).
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10294	shouldRun := self rDoitsEnabled value.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10295	shouldRun ~~ RDoItServer serverRunning ifTrue:[
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10296	shouldRun ifFalse:[
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10297	RDoItServer stop
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10298	] ifTrue:[
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10299	RDoItServer start.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10300	"/ must wait a bit; give it a chance to
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10301	"/ really start (before checking)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10302	Delay waitForSeconds:1.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10303	RDoItServer serverRunning ifFalse:[
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10304	self warn:'RDoit startup failed (see stderr).'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10305	]
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10306	]
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10307	].
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10308	].
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10309
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10310	self hasScriptingServerClass ifTrue:[
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10311	STXScriptingServer logging:self scriptingLogging value.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10312	STXScriptingServer errorLogging:self scriptingErrorLogging value.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10313	STXScriptingServer errorDebugging:(self scriptingErrorDebugging value).
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10314	STXScriptingServer localConnectionsOnly:(self scriptingEnabledOnlyViaLocalConnection value).
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10315	shouldRun := self scriptingEnabled value.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10316	shouldRun ~~ STXScriptingServer serverRunning ifTrue:[
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10317	shouldRun ifFalse:[
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10318	STXScriptingServer stop
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10319	] ifTrue:[
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10320	STXScriptingServer start.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10321	"/ must wait a bit; give it a chance to
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10322	"/ really start (before checking)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10323	Delay waitForSeconds:1.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10324	STXScriptingServer serverRunning ifFalse:[
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10325	self warn:'STXScripting startup failed (see stderr).'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10326	]
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10327	]
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10328	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10329	].
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10330
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10331	"Modified: / 20-05-2010 / 14:50:44 / cg"
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10332	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10333
7906 cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	10334	getPortNumberOrPath
cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	10335	\|portOrPath nrOrNil\|
cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	10336
cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	10337	portOrPath := self rDoitServerPortOrPath value.
cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	10338	portOrPath isNumber ifFalse:[
cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	10339	"a numeric string means it is a TCP port number"
cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	10340	nrOrNil := Integer readFrom:portOrPath onError:nil.
cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	10341	nrOrNil notNil ifTrue:[
cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	10342	portOrPath := nrOrNil.
cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	10343	]
cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	10344	].
cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	10345	^ portOrPath
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10346	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10347
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10348	!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'aspects'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10349
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10350	rDoitEnabledOnlyViaLocalConnection
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10351	rDoitEnabledOnlyViaLocalConnection isNil ifTrue:[
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10352	rDoitEnabledOnlyViaLocalConnection := true asValue.
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10353	rDoitEnabledOnlyViaLocalConnection onChangeSend:#updateModifiedChannel to:self
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10354	].
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10355	^ rDoitEnabledOnlyViaLocalConnection.
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10356
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10357	"Created: / 20-05-2010 / 12:15:12 / cg"
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10358	!
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10359
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10360	rDoitErrorDebugging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10361	rDoitErrorDebugging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10362	rDoitErrorDebugging := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10363	rDoitErrorDebugging onChangeSend:#updateModifiedChannel to:self
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10364	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10365	^ rDoitErrorDebugging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10366	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10367
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10368	rDoitErrorLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10369	rDoitErrorLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10370	rDoitErrorLogging := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10371	rDoitErrorLogging onChangeSend:#updateModifiedChannel to:self
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10372	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10373	^ rDoitErrorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10374	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10375
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10376	rDoitLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10377	rDoitLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10378	rDoitLogging := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10379	rDoitLogging onChangeSend:#updateModifiedChannel to:self
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10380	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10381	^ rDoitLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10382	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10383
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10384	rDoitOnlyViaLocalConnection
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10385	rDoitOnlyViaLocalConnection isNil ifTrue:[
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10386	rDoitOnlyViaLocalConnection := true asValue.
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10387	rDoitOnlyViaLocalConnection onChangeSend:#updateModifiedChannel to:self
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10388	].
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10389	^ rDoitOnlyViaLocalConnection.
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10390
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10391	"Created: / 20-05-2010 / 12:14:50 / cg"
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10392	!
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10393
5032 2a26da89dada allow for rdoitPort to be a string (for ud sockets) Claus Gittinger <cg@exept.de> parents: 5031 diff changeset	10394	rDoitServerPortOrPath
2a26da89dada allow for rdoitPort to be a string (for ud sockets) Claus Gittinger <cg@exept.de> parents: 5031 diff changeset	10395	rDoitServerPortOrPath isNil ifTrue:[
7906 cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	10396	rDoitServerPortOrPath := nil asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10397	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	10398	].
2a26da89dada allow for rdoitPort to be a string (for ud sockets) Claus Gittinger <cg@exept.de> parents: 5031 diff changeset	10399	^ rDoitServerPortOrPath.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10400	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10401
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10402	rDoitsEnabled
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10403	rDoitsEnabled isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10404	rDoitsEnabled := true asValue.
4675 40c7fa2ca3e5 rDoit - enablement fixed. Claus Gittinger <cg@exept.de> parents: 4658 diff changeset	10405	rDoitsEnabled onChangeSend:#rDoitsEnabledChanged to:self
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10406	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10407	^ rDoitsEnabled.
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10408	!
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10409
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10410	scriptingEnabled
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10411	scriptingEnabled isNil ifTrue:[
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10412	scriptingEnabled := false asValue.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10413	scriptingEnabled onChangeSend:#updateModifiedChannel to:self
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10414	].
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10415	^ scriptingEnabled.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10416	!
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10417
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10418	scriptingEnabledOnlyViaLocalConnection
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10419	scriptingEnabledOnlyViaLocalConnection isNil ifTrue:[
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10420	scriptingEnabledOnlyViaLocalConnection := true asValue.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10421	scriptingEnabledOnlyViaLocalConnection onChangeSend:#updateModifiedChannel to:self
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10422	].
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10423	^ scriptingEnabledOnlyViaLocalConnection.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10424	!
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10425
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10426	scriptingErrorDebugging
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10427	scriptingErrorDebugging isNil ifTrue:[
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10428	scriptingErrorDebugging := true asValue.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10429	scriptingErrorDebugging onChangeSend:#updateModifiedChannel to:self
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10430	].
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10431	^ scriptingErrorDebugging.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10432	!
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10433
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10434	scriptingErrorLogging
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10435	scriptingErrorLogging isNil ifTrue:[
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10436	scriptingErrorLogging := true asValue.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10437	scriptingErrorLogging onChangeSend:#updateModifiedChannel to:self
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10438	].
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10439	^ scriptingErrorLogging.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10440	!
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10441
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10442	scriptingLogging
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10443	scriptingLogging isNil ifTrue:[
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10444	scriptingLogging := true asValue.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10445	scriptingLogging onChangeSend:#updateModifiedChannel to:self
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10446	].
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10447	^ scriptingLogging.
8740 bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10448	!
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10449
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10450	scriptingServerPortOrPath
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10451	<resource: #uiAspect>
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10452
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10453	"automatically generated by UIPainter ..."
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10454
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10455	"*** the code below creates a default model when invoked."
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10456	"*** (which may not be the one you wanted)"
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10457	"*** Please change as required and accept it in the browser."
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10458	"*** (and replace this comment by something more useful ;-)"
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10459
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10460	scriptingServerPortOrPath isNil ifTrue:[
9397 8314abc6ed8f * empty log message * Claus Gittinger <cg@exept.de> parents: 9342 diff changeset	10461	STXScriptingServer notNil ifTrue:[
8314abc6ed8f * empty log message * Claus Gittinger <cg@exept.de> parents: 9342 diff changeset	10462	scriptingServerPortOrPath := STXScriptingServer defaultPortNumber asValue.
8314abc6ed8f * empty log message * Claus Gittinger <cg@exept.de> parents: 9342 diff changeset	10463	].
8740 bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10464	"/ 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	10465	"/ scriptingServerPortOrPath addDependent:self.
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10466	"/ scriptingServerPortOrPath onChangeSend:#scriptingServerPortOrPathChanged to:self.
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10467	].
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10468	^ scriptingServerPortOrPath.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10469	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10470
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10471	!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'change & update'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10472
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10473	rDoitsEnabledChanged
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10474	self updateModifiedChannel.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10475	self rDoitsEnabled value ifTrue:[
7906 cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	10476	RDoItServer autoload.
5991 1f8b715b9c06 Fix rdoit settings: allow to specify a port number Stefan Vogel <sv@exept.de> parents: 5943 diff changeset	10477	rDoitServerPortOrPath value isEmptyOrNil ifTrue:[
7906 cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	10478	rDoitServerPortOrPath value:(RDoItServer defaultPortNumberOrPath asString)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10479	]
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10480	]
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10481	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10482
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	10483	!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	10484
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	10485	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	10486	^ 'Launcher/communicationsSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	10487	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	10488
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10489	!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'queries'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10490
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10491	hasRDoitServer
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10492	^ RDoItServer notNil and:[RDoItServer isLoaded]
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10493	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10494
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10495	hasRDoitServerClass
4675 40c7fa2ca3e5 rDoit - enablement fixed. Claus Gittinger <cg@exept.de> parents: 4658 diff changeset	10496	^ RDoItServer notNil
40c7fa2ca3e5 rDoit - enablement fixed. Claus Gittinger <cg@exept.de> parents: 4658 diff changeset	10497	!
40c7fa2ca3e5 rDoit - enablement fixed. Claus Gittinger <cg@exept.de> parents: 4658 diff changeset	10498
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10499	hasScriptingServer
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10500	^ STXScriptingServer notNil and:[STXScriptingServer isLoaded]
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10501	!
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10502
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10503	hasScriptingServerClass
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10504	^ STXScriptingServer notNil
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10505	!
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10506
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10507	hasUnsavedChanges
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10508	(self hasRDoitServer and:[RDoItServer isLoaded]) ifTrue:[
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	10509	self rDoitsEnabled value ~= RDoItServer serverRunning ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	10510	RDoItServer serverRunning ifTrue:[
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	10511	self rDoitLogging value ~= RDoItServer isLogging ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	10512	self rDoitErrorLogging value ~= RDoItServer isErrorLogging ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	10513	self rDoitErrorDebugging value ~= RDoItServer isErrorCatching not ifTrue:[^ true].
7906 cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	10514	self getPortNumberOrPath ~= RDoItServer defaultPortNumberOrPath ifTrue:[^ true].
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10515	self rDoitEnabledOnlyViaLocalConnection value ~= RDoItServer localConnectionsOnly ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	10516	]
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10517	].
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10518	(self hasScriptingServer and:[STXScriptingServer isLoaded]) ifTrue:[
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10519	self scriptingEnabled value ~= STXScriptingServer serverRunning ifTrue:[^ true].
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10520	STXScriptingServer serverRunning ifTrue:[
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10521	self scriptingLogging value ~= STXScriptingServer isLogging ifTrue:[^ true].
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10522	self scriptingErrorLogging value ~= STXScriptingServer isErrorLogging ifTrue:[^ true].
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10523	self scriptingErrorDebugging value ~= STXScriptingServer isErrorDebugging ifTrue:[^ true].
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10524	self scriptingEnabledOnlyViaLocalConnection value ~= STXScriptingServer localConnectionsOnly ifTrue:[^ true].
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10525	]
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10526	].
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10527	^ false
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10528
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10529	"Modified: / 20-05-2010 / 14:48:52 / cg"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10530	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10531
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10532	!AbstractSettingsApplication::SQLServerSettingsAppl class methodsFor:'image specs'!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10533
8594 f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	10534	dbIcon1
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10535	"This resource specification was automatically generated
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10536	by the ImageEditor of ST/X."
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10537
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10538	"Do not manually edit this!! If it is corrupted,
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10539	the ImageEditor may not be able to read the specification."
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10540
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10541	"
8594 f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	10542	self dbIcon1 inspect
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	10543	ImageEditor openOnClass:self andSelector:#dbIcon1
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10544	Icon flushCachedIcons
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10545	"
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10546
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10547	<resource: #image>
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10548
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10549	^Icon
8594 f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	10550	constantNamed:#'AbstractSettingsApplication::SQLServerSettingsAppl class dbIcon1'
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10551	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	10552	H"H"H @@@@@@@@@@@@@@@@@@@@@"H"H"@@@@@@@@@@@@@@@@@@@@@@@@@@@"H"H"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BH"@@@@@@@@@@@@J"(J"(@@@@
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10553	@@@@@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	10554	@@@@@@@@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	10555	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	10556	@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	10557	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	10558	@@@@@@@@@@@@@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	10559	!
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	10560
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	10561	dbIcon2
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	10562	"This resource specification was automatically generated
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	10563	by the ImageEditor of ST/X."
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	10564
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	10565	"Do not manually edit this!! If it is corrupted,
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	10566	the ImageEditor may not be able to read the specification."
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	10567
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	10568	"
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	10569	self dbIcon2 inspect
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	10570	ImageEditor openOnClass:self andSelector:#dbIcon2
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	10571	Icon flushCachedIcons
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	10572	"
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	10573
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	10574	<resource: #image>
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	10575
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	10576	^Icon
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	10577	constantNamed:'Object class dbIcon2'
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	10578	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	10579	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	10580	@@@@@@@@@@@@@@@@@@@@!!!!"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	10581	"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	10582	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	10583	@@@@@@@@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	10584	W@@@@@@@@@@@@@@@@@B@_$X!!#H0!!Q'':@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	10585	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@') ; 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	10586	!
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	10587
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	10588	defaultIcon
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	10589	<resource: #programImage>
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	10590
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	10591	"/ ^ self dbIcon1.
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	10592	^ self dbIcon2.
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10593	! !
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10594
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10595	!AbstractSettingsApplication::SQLServerSettingsAppl class methodsFor:'interface specs'!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10596
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10597	windowSpec
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10598	"This resource specification was automatically generated
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10599	by the UIPainter of ST/X."
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10600
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10601	"Do not manually edit this!! If it is corrupted,
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10602	the UIPainter may not be able to read the specification."
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10603
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10604	"
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10605	UIPainter new openOnClass:AbstractSettingsApplication::SQLServerSettingsAppl andSelector:#windowSpec
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10606	AbstractSettingsApplication::SQLServerSettingsAppl new openInterface:#windowSpec
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10607	AbstractSettingsApplication::SQLServerSettingsAppl open
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10608	"
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10609
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10610	<resource: #canvas>
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10611
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10612	^
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10613	#(FullSpec
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10614	name: windowSpec
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10615	window:
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10616	(WindowSpec
6428 76dfcf8cb841 * empty log message * Claus Gittinger <cg@exept.de> parents: 6427 diff changeset	10617	label: 'SQL Server Settings'
76dfcf8cb841 * empty log message * Claus Gittinger <cg@exept.de> parents: 6427 diff changeset	10618	name: 'SQL Server Settings'
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10619	min: (Point 10 10)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10620	bounds: (Rectangle 0 0 600 550)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10621	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10622	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	(VerticalPanelViewSpec
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10626	name: 'VerticalPanel2'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10627	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	10628	horizontalLayout: fit
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10629	verticalLayout: top
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10630	horizontalSpace: 3
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10631	verticalSpace: 3
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10632	component:
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10633	(SpecCollection
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10634	collection: (
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10635	(ViewSpec
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10636	name: 'EnableBox'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10637	component:
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10638	(SpecCollection
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10639	collection: (
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10640	(CheckBoxSpec
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10641	label: 'SQL Server Enabled'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10642	name: 'EnableCheckBox'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10643	layout: (LayoutFrame 5 0 0 0 -5 1 22 0)
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10644	enableChannel: hasSQLServerClass
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10645	model: sqlServerEnabled
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	)
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	extent: (Point 600 25)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10652	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10653	(ViewSpec
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10654	name: 'PortBox'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10655	component:
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10656	(SpecCollection
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10657	collection: (
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10658	(LabelSpec
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10659	label: 'MySQL Port:'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10660	name: 'Label2'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10661	layout: (LayoutFrame 5 0 0 0 150 0 22 0)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10662	translateLabel: true
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10663	adjust: right
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10664	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10665	(InputFieldSpec
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10666	name: 'EntryField1'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10667	layout: (LayoutFrame 150 0 0 0 -5 1 22 0)
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10668	enableChannel: sqlServerEnabled
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10669	model: sqlServerPort
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10670	acceptOnReturn: true
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10671	acceptOnTab: true
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10672	acceptOnLostFocus: true
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10673	acceptOnPointerLeave: true
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10674	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10675	(LabelSpec
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10676	label: 'MySQL Port-Number (ODBC)'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10677	name: 'Label3'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10678	layout: (LayoutFrame 150 0 28 0 596 0 50 0)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10679	translateLabel: true
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10680	adjust: left
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10681	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10682	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10683
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10684	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10685	extent: (Point 600 72)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10686	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10687	(ViewSpec
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10688	name: 'LogErrorsBox'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10689	component:
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10690	(SpecCollection
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10691	collection: (
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10692	(CheckBoxSpec
6431 6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	10693	label: 'Log Errors'
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10694	name: 'ErrorLoggingCheckBox'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10695	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10696	enableChannel: sqlServerEnabled
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10697	model: sqlErrorLogging
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10698	translateLabel: true
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10699	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10700	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10701
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	extent: (Point 600 25)
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	(ViewSpec
8279 f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10706	name: 'LogDataBox'
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10707	component:
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10708	(SpecCollection
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10709	collection: (
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10710	(CheckBoxSpec
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10711	label: 'Log Data'
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10712	name: 'LogDataCheckBox'
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10713	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10714	enableChannel: sqlServerEnabled
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10715	model: sqlDataLogging
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10716	translateLabel: true
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10717	)
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10718	)
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10719
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	extent: (Point 600 23)
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	(ViewSpec
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10724	name: 'LogRequestsBox'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10725	component:
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10726	(SpecCollection
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10727	collection: (
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10728	(CheckBoxSpec
6431 6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	10729	label: 'Log Requests'
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10730	name: 'LogRequestsCheckBox'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10731	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10732	enableChannel: sqlServerEnabled
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10733	model: sqlLogging
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10734	translateLabel: true
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10735	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10736	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10737
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10738	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10739	extent: (Point 600 24)
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	(ViewSpec
8279 f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10742	name: 'LogSQLBox'
6431 6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	10743	component:
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	10744	(SpecCollection
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	10745	collection: (
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	10746	(CheckBoxSpec
8279 f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10747	label: 'Log SQL'
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10748	name: 'CheckBox1'
6431 6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	10749	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10750	enableChannel: sqlServerEnabled
8279 f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10751	model: sqlStatementLogging
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10752	translateLabel: true
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10753	)
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10754	)
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10755
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10756	)
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10757	extent: (Point 600 24)
6431 6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	10758	)
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	10759	(ViewSpec
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10760	name: 'DebugErrorsBox'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10761	component:
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10762	(SpecCollection
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10763	collection: (
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10764	(CheckBoxSpec
6431 6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	10765	label: 'Debug Errors'
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10766	name: 'DebugErrorsCheckBox'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10767	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10768	enableChannel: sqlServerEnabled
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10769	model: sqlErrorDebugging
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10770	translateLabel: true
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	extent: (Point 600 23)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10776	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10777	(ViewSpec
6431 6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	10778	name: 'Box1'
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	10779	extent: (Point 600 10)
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	10780	)
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	10781	(ViewSpec
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10782	name: 'EnableSmalltalkBox'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10783	component:
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10784	(SpecCollection
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10785	collection: (
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10786	(CheckBoxSpec
6431 6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	10787	label: 'Virtual Smalltalk Tables Enabled'
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10788	name: 'EnableSmalltalkCheckBox'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10789	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10790	enableChannel: sqlServerEnabled
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10791	model: sqlSmalltalkServerEnabled
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10792	translateLabel: true
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10793	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10794	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10795
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10796	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10797	extent: (Point 600 24)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10798	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10799	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10800
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10801	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10802	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10803	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10804
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10805	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10806	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10807	! !
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10808
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10809	!AbstractSettingsApplication::SQLServerSettingsAppl methodsFor:'actions'!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10810
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10811	basicReadSettings
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10812	\|sqlServerClass\|
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10813
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10814	sqlServerClass := self sqlServerClass.
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10815	(sqlServerClass notNil and:[sqlServerClass isLoaded]) ifTrue:[
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10816	self sqlServerEnabled value:sqlServerClass serverRunning.
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10817	self sqlSmalltalkServerEnabled value:sqlServerClass isSmalltalkServerEnabled.
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10818	self sqlLogging value:sqlServerClass isLogging.
8279 f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10819	self sqlStatementLogging value:sqlServerClass isSQLLogging.
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10820	self sqlErrorLogging value:sqlServerClass isErrorLogging.
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10821	self sqlDataLogging value:sqlServerClass isDataLogging.
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10822	self sqlErrorDebugging value:sqlServerClass isErrorCatching not.
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10823	self sqlServerPort value:sqlServerClass defaultPort
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10824	] ifFalse:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10825	self sqlServerEnabled value:false.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10826	self sqlSmalltalkServerEnabled value:false.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10827	self sqlLogging value:false.
8279 f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10828	self sqlStatementLogging value:false.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10829	self sqlErrorLogging value:false.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10830	self sqlDataLogging value:false.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10831	self sqlErrorDebugging value:false.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10832	self sqlServerPort value:nil
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10833	].
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10834
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10835	"Modified: / 25-01-2007 / 17:40:53 / cg"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10836	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10837
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10838	basicSaveSettings
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10839	\|sqlServerClass shouldRun port\|
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10840
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10841	sqlServerClass := self sqlServerClass.
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10842
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10843	port := self sqlServerPort value.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10844	port isNumber ifFalse:[
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10845	port := port asInteger.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10846	].
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10847
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10848	sqlServerClass defaultPort:port.
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10849	sqlServerClass logging:self sqlLogging value.
8279 f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10850	sqlServerClass sqlLogging:self sqlStatementLogging value.
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10851	sqlServerClass errorLogging:self sqlErrorLogging value.
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10852	sqlServerClass dataLogging:self sqlDataLogging value.
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10853	sqlServerClass errorCatching:(self sqlErrorDebugging value not).
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10854	sqlServerClass smalltalkServerEnabled:(self sqlSmalltalkServerEnabled value).
6427 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	shouldRun := self sqlServerEnabled value.
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10857	shouldRun ~~ sqlServerClass serverRunning ifTrue:[
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10858	shouldRun ifFalse:[
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10859	sqlServerClass stop
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10860	] ifTrue:[
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10861	sqlServerClass start.
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10862	"/ must wait a bit; give it a chance to
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10863	"/ really start (before checking)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10864	Delay waitForSeconds:1.
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10865	sqlServerClass serverRunning ifFalse:[
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10866	self warn:'SQLServer startup failed (see stderr).'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10867	]
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10868	]
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10869	].
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10870
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10871	"Modified: / 25-01-2007 / 17:41:20 / cg"
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10872	! !
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	!AbstractSettingsApplication::SQLServerSettingsAppl methodsFor:'aspects'!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10875
6431 6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	10876	sqlDataLogging
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	10877	sqlDataLogging isNil ifTrue:[
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	10878	sqlDataLogging := true asValue.
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	10879	sqlDataLogging onChangeSend:#updateModifiedChannel to:self
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	10880	].
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	10881	^ sqlDataLogging.
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	10882	!
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	10883
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10884	sqlErrorDebugging
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10885	sqlErrorDebugging isNil ifTrue:[
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10886	sqlErrorDebugging := true asValue.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10887	sqlErrorDebugging onChangeSend:#updateModifiedChannel to:self
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10888	].
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10889	^ sqlErrorDebugging.
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
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10892	sqlErrorLogging
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10893	sqlErrorLogging isNil ifTrue:[
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10894	sqlErrorLogging := true asValue.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10895	sqlErrorLogging onChangeSend:#updateModifiedChannel to:self
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10896	].
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10897	^ sqlErrorLogging.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10898	!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10899
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10900	sqlLogging
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10901	sqlLogging isNil ifTrue:[
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10902	sqlLogging := true asValue.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10903	sqlLogging onChangeSend:#updateModifiedChannel to:self
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10904	].
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10905	^ sqlLogging.
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
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10908	sqlServerEnabled
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10909	sqlServerEnabled isNil ifTrue:[
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10910	sqlServerEnabled := true asValue.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10911	sqlServerEnabled onChangeSend:#sqlServerEnabledChanged to:self
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10912	].
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10913	^ sqlServerEnabled.
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
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10916	sqlServerPort
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10917	sqlServerPort isNil ifTrue:[
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10918	sqlServerPort := ValueHolder new.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10919	sqlServerPort onChangeSend:#updateModifiedChannel to:self
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10920	].
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10921	^ sqlServerPort.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10922	!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10923
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10924	sqlSmalltalkServerEnabled
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10925	sqlSmalltalkServerEnabled isNil ifTrue:[
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10926	sqlSmalltalkServerEnabled := true asValue.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10927	sqlSmalltalkServerEnabled onChangeSend:#sqlSmalltalkServerEnabledChanged to:self
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10928	].
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10929	^ sqlSmalltalkServerEnabled.
8279 f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10930	!
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10931
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10932	sqlStatementLogging
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10933	sqlStatementLogging isNil ifTrue:[
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10934	sqlStatementLogging := true asValue.
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10935	sqlStatementLogging onChangeSend:#updateModifiedChannel to:self
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10936	].
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10937	^ sqlStatementLogging.
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10938	! !
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10939
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10940	!AbstractSettingsApplication::SQLServerSettingsAppl methodsFor:'change & update'!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10941
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10942	sqlServerEnabledChanged
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10943	self updateModifiedChannel.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10944	self sqlServerEnabled value ifTrue:[
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10945	sqlServerPort value isEmptyOrNil ifTrue:[
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10946	sqlServerPort value:(self sqlServerClass defaultPort)
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10947	]
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10948	]
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10949
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10950	"Modified: / 25-01-2007 / 17:46:07 / cg"
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10951	!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10952
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10953	sqlSmalltalkServerEnabledChanged
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10954	self updateModifiedChannel.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10955	self sqlSmalltalkServerEnabled value ifTrue:[
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10956	sqlServerPort value isEmptyOrNil ifTrue:[
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10957	sqlServerPort value:(self sqlServerClass defaultPort)
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10958	]
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10959	]
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10960
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10961	"Modified: / 25-01-2007 / 17:40:03 / cg"
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10962	! !
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10963
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	10964	!AbstractSettingsApplication::SQLServerSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	10965
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	10966	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	10967	^ 'Launcher/communicationsSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	10968	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	10969
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10970	!AbstractSettingsApplication::SQLServerSettingsAppl methodsFor:'queries'!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10971
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10972	hasSQLServerClass
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10973	^ self sqlServerClass notNil
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10974
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10975	"Created: / 25-01-2007 / 17:45:54 / cg"
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10976	!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10977
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10978	hasUnsavedChanges
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10979	\|sqlServerClass\|
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10980
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10981	sqlServerClass := self sqlServerClass.
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10982	(sqlServerClass notNil and:[sqlServerClass isLoaded]) ifFalse:[^ false ].
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10983
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10984	self sqlServerEnabled value ~= sqlServerClass serverRunning ifTrue:[^ true].
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10985	sqlServerClass serverRunning ifTrue:[
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10986	self sqlSmalltalkServerEnabled value ~= sqlServerClass isSmalltalkServerEnabled ifTrue:[^ true].
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10987	self sqlLogging value ~= sqlServerClass isLogging ifTrue:[^ true].
8279 f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10988	self sqlStatementLogging value ~= sqlServerClass isSQLLogging ifTrue:[^ true].
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10989	self sqlErrorLogging value ~= sqlServerClass isErrorLogging ifTrue:[^ true].
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10990	self sqlDataLogging value ~= sqlServerClass isDataLogging ifTrue:[^ true].
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10991	self sqlErrorDebugging value ~= sqlServerClass isErrorCatching not ifTrue:[^ true].
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10992	self sqlServerPort value ~= sqlServerClass defaultPort ifTrue:[^ true].
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10993	].
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10994	^ false
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10995
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10996	"Modified: / 25-01-2007 / 17:47:32 / cg"
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10997	!
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10998
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10999	sqlServerClass
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	11000	^ SQLServer::SQLServer
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	11001
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	11002	"Created: / 25-01-2007 / 17:29:59 / cg"
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	11003	! !
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	11004
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11005	!AbstractSettingsApplication::STCCompilerSettingsAppl class methodsFor:'defaults'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11006
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11007	stcCompilationOptions
5278 67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	11008	^ #(default never)
67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	11009	!
67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	11010
67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	11011	stcCompilationStrings
67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	11012
67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	11013	^ #('primitive code only' 'never')
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11014	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11015
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11016	!AbstractSettingsApplication::STCCompilerSettingsAppl class methodsFor:'image specs'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11017
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11018	defaultIcon
7838 dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	11019	<resource: #programImage>
dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	11020
8208 8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	11021	^ self defaultIcon4
7838 dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	11022
dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	11023	"Modified: / 17-09-2007 / 11:35:12 / cg"
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	11024	!
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	11025
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	11026	defaultIcon1
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11027	"This resource specification was automatically generated
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11028	by the ImageEditor of ST/X."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11029
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11030	"Do not manually edit this!! If it is corrupted,
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11031	the ImageEditor may not be able to read the specification."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11032
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11033	"
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	11034	self defaultIcon1 inspect
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	11035	ImageEditor openOnClass:self andSelector:#defaultIcon1
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11036	Icon flushCachedIcons
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11037	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11038
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11039	<resource: #image>
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11040
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11041	^Icon
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	11042	constantNamed:#'AbstractSettingsApplication::STCCompilerSettingsAppl class defaultIcon1'
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	11043	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	11044	@@@@@@@@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	11045	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	11046	!
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	11047
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	11048	defaultIcon2
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	11049	"This resource specification was automatically generated
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	11050	by the ImageEditor of ST/X."
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	11051
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	11052	"Do not manually edit this!! If it is corrupted,
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	11053	the ImageEditor may not be able to read the specification."
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	"
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	11056	self defaultIcon2 inspect
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	11057	ImageEditor openOnClass:self andSelector:#defaultIcon2
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	11058	Icon flushCachedIcons
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	11059	"
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	11060
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	11061	<resource: #image>
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	11062
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	11063	^Icon
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	11064	constantNamed:#'AbstractSettingsApplication::STCCompilerSettingsAppl class defaultIcon2'
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	11065	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	11066	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	11067	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	11068	@@@@@@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	11069	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	11070	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	11071	@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	11072	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	11073	!
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	11074
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	11075	defaultIcon3
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	11076	"This resource specification was automatically generated
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	11077	by the ImageEditor of ST/X."
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	11078
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	11079	"Do not manually edit this!! If it is corrupted,
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	11080	the ImageEditor may not be able to read the specification."
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	11081
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	11082	"
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	11083	self defaultIcon3 inspect
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	11084	ImageEditor openOnClass:self andSelector:#defaultIcon3
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	11085	Icon flushCachedIcons
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	11086	"
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	11087
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	11088	<resource: #image>
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	11089
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	11090	^Icon
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	11091	constantNamed:#'AbstractSettingsApplication::STCCompilerSettingsAppl class defaultIcon3'
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	11092	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	11093	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	11094	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	11095	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	11096	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	11097	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	11098	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	11099	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	11100	!
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	11101
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	11102	defaultIcon4
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	11103	"This resource specification was automatically generated
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	11104	by the ImageEditor of ST/X."
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	11105
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	11106	"Do not manually edit this!! If it is corrupted,
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	11107	the ImageEditor may not be able to read the specification."
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	11108
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	11109	"
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	11110	self defaultIcon4 inspect
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	11111	ImageEditor openOnClass:self andSelector:#defaultIcon4
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	11112	Icon flushCachedIcons
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	11113	"
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	11114
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	11115	<resource: #image>
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	11116
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	11117	^Icon
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	11118	constantNamed:'AbstractSettingsApplication::STCCompilerSettingsAppl class defaultIcon4'
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	11119	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	11120	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	11121	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	11122	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	11123	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	11124	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	11125	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	11126	@@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	11127	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11128
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11129	!AbstractSettingsApplication::STCCompilerSettingsAppl class methodsFor:'interface specs'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11130
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11131	windowSpec
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11132	"This resource specification was automatically generated
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11133	by the UIPainter of ST/X."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11134
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11135	"Do not manually edit this!! If it is corrupted,
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11136	the UIPainter may not be able to read the specification."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11137
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11138	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11139	UIPainter new openOnClass:AbstractSettingsApplication::STCCompilerSettingsAppl andSelector:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11140	AbstractSettingsApplication::STCCompilerSettingsAppl new openInterface:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11141	AbstractSettingsApplication::STCCompilerSettingsAppl open
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11142	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11143
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11144	<resource: #canvas>
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11145
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11146	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11147	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11148	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11149	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11150	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11151	label: 'STC Compiler Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11152	name: 'STC Compiler Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11153	min: (Point 10 10)
10711 20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	11154	bounds: (Rectangle 0 0 600 602)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11155	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11156	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11157	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11158	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11159	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11160	name: 'VerticalPanel2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11161	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	11162	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11163	verticalLayout: top
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11164	horizontalSpace: 3
10707 25acaf19a3e3 x Claus Gittinger <cg@exept.de> parents: 10698 diff changeset	11165	verticalSpace: 0
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11166	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11167	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11168	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11169	(ViewSpec
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11170	name: 'SeparatingBox12'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	11171	extent: (Point 600 4)
a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	11172	)
a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	11173	(ViewSpec
10707 25acaf19a3e3 x Claus Gittinger <cg@exept.de> parents: 10698 diff changeset	11174	name: 'Box1'
25acaf19a3e3 x Claus Gittinger <cg@exept.de> parents: 10698 diff changeset	11175	component:
25acaf19a3e3 x Claus Gittinger <cg@exept.de> parents: 10698 diff changeset	11176	(SpecCollection
25acaf19a3e3 x Claus Gittinger <cg@exept.de> parents: 10698 diff changeset	11177	collection: (
25acaf19a3e3 x Claus Gittinger <cg@exept.de> parents: 10698 diff changeset	11178	(LabelSpec
25acaf19a3e3 x Claus Gittinger <cg@exept.de> parents: 10698 diff changeset	11179	name: 'Label14'
25acaf19a3e3 x Claus Gittinger <cg@exept.de> parents: 10698 diff changeset	11180	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
25acaf19a3e3 x Claus Gittinger <cg@exept.de> parents: 10698 diff changeset	11181	translateLabel: true
25acaf19a3e3 x Claus Gittinger <cg@exept.de> parents: 10698 diff changeset	11182	labelChannel: helpText
25acaf19a3e3 x Claus Gittinger <cg@exept.de> parents: 10698 diff changeset	11183	adjust: left
25acaf19a3e3 x Claus Gittinger <cg@exept.de> parents: 10698 diff changeset	11184	)
25acaf19a3e3 x Claus Gittinger <cg@exept.de> parents: 10698 diff changeset	11185	)
25acaf19a3e3 x Claus Gittinger <cg@exept.de> parents: 10698 diff changeset	11186
25acaf19a3e3 x Claus Gittinger <cg@exept.de> parents: 10698 diff changeset	11187	)
25acaf19a3e3 x Claus Gittinger <cg@exept.de> parents: 10698 diff changeset	11188	extent: (Point 600 90)
25acaf19a3e3 x Claus Gittinger <cg@exept.de> parents: 10698 diff changeset	11189	)
25acaf19a3e3 x Claus Gittinger <cg@exept.de> parents: 10698 diff changeset	11190	(ViewSpec
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11191	name: 'STCCompilationBox11'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11192	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11193	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11194	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11195	(LabelSpec
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	11196	label: 'STC Compilation to Machine Code:'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11197	name: 'Label11'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11198	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	11199	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11200	adjust: right
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11201	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11202	(PopUpListSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11203	label: 'PopUp List'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11204	name: 'StcCompilation'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11205	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	11206	tabable: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11207	model: stcCompilationSelection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11208	enableChannel: canLoadBinaries
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11209	menu: stcCompilationList
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11210	useIndex: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11211	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11212	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11213
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11214	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11215	extent: (Point 600 29)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11216	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11217	(ViewSpec
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11218	name: 'STCCommandBox1'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11219	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11220	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11221	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11222	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11223	label: 'STC Command:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11224	name: 'Label1'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	11225	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	11226	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11227	adjust: right
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11228	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11229	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11230	name: 'EntryField1'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	11231	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	11232	enableChannel: canLoadBinaries
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11233	model: stc
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11234	acceptOnLeave: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11235	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11236	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11237	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11238	acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11239	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11240	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11241
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11242	)
10707 25acaf19a3e3 x Claus Gittinger <cg@exept.de> parents: 10698 diff changeset	11243	extent: (Point 600 30)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11244	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11245	(ViewSpec
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11246	name: 'STCOptionsBox2'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11247	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11248	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11249	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11250	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11251	label: 'STC Options:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11252	name: 'Label2'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	11253	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	11254	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11255	adjust: right
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11256	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11257	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11258	name: 'EntryField2'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	11259	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	11260	enableChannel: canLoadBinaries
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11261	model: stcOptions
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11262	acceptOnLeave: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11263	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11264	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11265	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11266	acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11267	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11268	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11269
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11270	)
10707 25acaf19a3e3 x Claus Gittinger <cg@exept.de> parents: 10698 diff changeset	11271	extent: (Point 600 30)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11272	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11273	(ViewSpec
10711 20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	11274	name: 'Box2'
20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	11275	component:
20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	11276	(SpecCollection
20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	11277	collection: (
20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	11278	(LabelSpec
20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	11279	label: 'Keep Intermediate C File:'
20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	11280	name: 'Label15'
20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	11281	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	11282	translateLabel: true
20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	11283	adjust: right
20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	11284	)
20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	11285	(CheckToggleSpec
20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	11286	name: 'CheckToggle1'
20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	11287	layout: (LayoutOrigin 203 0 4 0)
20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	11288	model: stcKeepCIntermediate
20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	11289	isTriggerOnDown: true
20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	11290	showLamp: false
20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	11291	lampColor: (Color 100.0 100.0 0.0)
20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	11292	)
20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	11293	)
20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	11294
20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	11295	)
20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	11296	extent: (Point 600 30)
20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	11297	)
20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	11298	(ViewSpec
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11299	name: 'CCCommandBox3'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11300	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11301	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11302	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11303	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11304	label: 'CC Command:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11305	name: 'Label3'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	11306	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	11307	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11308	adjust: right
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11309	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11310	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11311	name: 'EntryField3'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	11312	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	11313	enableChannel: canLoadBinaries
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11314	model: cc
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11315	acceptOnLeave: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11316	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11317	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11318	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11319	acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11320	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11321	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11322
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11323	)
10707 25acaf19a3e3 x Claus Gittinger <cg@exept.de> parents: 10698 diff changeset	11324	extent: (Point 600 30)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11325	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11326	(ViewSpec
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11327	name: 'CCOptionsBox4'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11328	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11329	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11330	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11331	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11332	label: 'CC Options:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11333	name: 'Label4'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	11334	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	11335	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11336	adjust: right
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11337	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11338	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11339	name: 'EntryField4'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	11340	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	11341	enableChannel: canLoadBinaries
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11342	model: ccOptions
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11343	acceptOnLeave: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11344	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11345	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11346	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11347	acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11348	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11349	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11350
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11351	)
10707 25acaf19a3e3 x Claus Gittinger <cg@exept.de> parents: 10698 diff changeset	11352	extent: (Point 600 30)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11353	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11354	(ViewSpec
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11355	name: 'IncludeDirectoriesBox5'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11356	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11357	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11358	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11359	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11360	label: 'Include Directories:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11361	name: 'Label5'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	11362	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	11363	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11364	adjust: right
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11365	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11366	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11367	name: 'EntryField5'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	11368	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	11369	enableChannel: canLoadBinaries
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11370	model: stcIncludes
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11371	acceptOnLeave: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11372	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11373	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11374	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11375	acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11376	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11377	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11378
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11379	)
10707 25acaf19a3e3 x Claus Gittinger <cg@exept.de> parents: 10698 diff changeset	11380	extent: (Point 600 30)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11381	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11382	(ViewSpec
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11383	name: 'STCDefinesBox6'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11384	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11385	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11386	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11387	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11388	label: 'Defines:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11389	name: 'Label6'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	11390	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	11391	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11392	adjust: right
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11393	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11394	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11395	name: 'EntryField6'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	11396	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	11397	enableChannel: canLoadBinaries
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11398	model: stcDefines
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11399	acceptOnLeave: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11400	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11401	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11402	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11403	acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11404	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11405	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11406
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11407	)
10707 25acaf19a3e3 x Claus Gittinger <cg@exept.de> parents: 10698 diff changeset	11408	extent: (Point 600 30)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11409	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11410	(ViewSpec
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11411	name: 'LinkCommandBox7'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11412	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11413	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11414	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11415	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11416	label: 'Link Command:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11417	name: 'Label7'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	11418	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	11419	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11420	adjust: right
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11421	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11422	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11423	name: 'EntryField7'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	11424	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	11425	enableChannel: canLoadBinaries
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11426	model: linkCommand
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11427	acceptOnLeave: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11428	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11429	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11430	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11431	acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11432	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11433	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11434
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11435	)
10707 25acaf19a3e3 x Claus Gittinger <cg@exept.de> parents: 10698 diff changeset	11436	extent: (Point 600 30)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11437	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11438	(ViewSpec
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11439	name: 'LinkArgumentsBox8'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11440	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11441	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11442	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11443	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11444	label: 'Link Arguments:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11445	name: 'Label8'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	11446	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	11447	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11448	adjust: right
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11449	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11450	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11451	name: 'EntryField8'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	11452	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	11453	enableChannel: canLoadBinaries
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11454	model: linkArgs
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11455	acceptOnLeave: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11456	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11457	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11458	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11459	acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11460	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11461	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11462
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11463	)
10707 25acaf19a3e3 x Claus Gittinger <cg@exept.de> parents: 10698 diff changeset	11464	extent: (Point 600 30)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11465	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11466	(ViewSpec
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11467	name: 'LinkSharedArgumentsBox1'
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11468	component:
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11469	(SpecCollection
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11470	collection: (
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11471	(LabelSpec
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11472	label: 'Link Shared Arguments:'
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11473	name: 'Label12'
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11474	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	11475	translateLabel: true
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11476	adjust: right
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11477	)
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11478	(InputFieldSpec
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11479	name: 'EntryField11'
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11480	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	11481	enableChannel: canLoadBinaries
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11482	model: linkSharedArgs
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11483	acceptOnLeave: true
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11484	acceptOnReturn: true
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11485	acceptOnTab: true
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11486	acceptOnLostFocus: true
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11487	acceptOnPointerLeave: true
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11488	)
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11489	)
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11490
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11491	)
10707 25acaf19a3e3 x Claus Gittinger <cg@exept.de> parents: 10698 diff changeset	11492	extent: (Point 600 30)
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11493	)
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11494	(ViewSpec
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11495	name: 'CLibrariesBox9'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11496	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11497	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11498	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11499	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11500	label: 'C-Libraries:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11501	name: 'Label9'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	11502	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	11503	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11504	adjust: right
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11505	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11506	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11507	name: 'EntryField9'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	11508	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	11509	enableChannel: canLoadBinaries
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11510	model: stcLibraries
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11511	acceptOnLeave: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11512	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11513	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11514	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11515	acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11516	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11517	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11518
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11519	)
10707 25acaf19a3e3 x Claus Gittinger <cg@exept.de> parents: 10698 diff changeset	11520	extent: (Point 600 30)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11521	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11522	(ViewSpec
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11523	name: 'STCLibraryPathBox10'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11524	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11525	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11526	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11527	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11528	label: 'STC Library Path:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11529	name: 'Label10'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	11530	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	11531	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11532	adjust: right
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11533	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11534	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11535	name: 'EntryField10'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	11536	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	11537	enableChannel: enableStcLibraryPath
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11538	model: stcLibraryPath
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11539	acceptOnLeave: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11540	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11541	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11542	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11543	acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11544	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11545	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11546
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11547	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11548	extent: (Point 600 30)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11549	)
6866 ec908ed4b944 make command fm parents: 6860 diff changeset	11550	(ViewSpec
ec908ed4b944 make command fm parents: 6860 diff changeset	11551	name: 'MakeCommandBox'
ec908ed4b944 make command fm parents: 6860 diff changeset	11552	component:
ec908ed4b944 make command fm parents: 6860 diff changeset	11553	(SpecCollection
ec908ed4b944 make command fm parents: 6860 diff changeset	11554	collection: (
ec908ed4b944 make command fm parents: 6860 diff changeset	11555	(LabelSpec
ec908ed4b944 make command fm parents: 6860 diff changeset	11556	label: 'Make Command:'
ec908ed4b944 make command fm parents: 6860 diff changeset	11557	name: 'Label13'
ec908ed4b944 make command fm parents: 6860 diff changeset	11558	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
ec908ed4b944 make command fm parents: 6860 diff changeset	11559	translateLabel: true
ec908ed4b944 make command fm parents: 6860 diff changeset	11560	adjust: right
ec908ed4b944 make command fm parents: 6860 diff changeset	11561	)
ec908ed4b944 make command fm parents: 6860 diff changeset	11562	(InputFieldSpec
ec908ed4b944 make command fm parents: 6860 diff changeset	11563	name: 'EntryField12'
ec908ed4b944 make command fm parents: 6860 diff changeset	11564	layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
6867 35d36dde8831 * empty log message * fm parents: 6866 diff changeset	11565	model: makeCommand
6866 ec908ed4b944 make command fm parents: 6860 diff changeset	11566	acceptOnLeave: true
ec908ed4b944 make command fm parents: 6860 diff changeset	11567	acceptOnReturn: true
ec908ed4b944 make command fm parents: 6860 diff changeset	11568	acceptOnTab: true
ec908ed4b944 make command fm parents: 6860 diff changeset	11569	acceptOnLostFocus: true
ec908ed4b944 make command fm parents: 6860 diff changeset	11570	acceptOnPointerLeave: true
ec908ed4b944 make command fm parents: 6860 diff changeset	11571	)
ec908ed4b944 make command fm parents: 6860 diff changeset	11572	)
ec908ed4b944 make command fm parents: 6860 diff changeset	11573
ec908ed4b944 make command fm parents: 6860 diff changeset	11574	)
10707 25acaf19a3e3 x Claus Gittinger <cg@exept.de> parents: 10698 diff changeset	11575	extent: (Point 600 30)
6866 ec908ed4b944 make command fm parents: 6860 diff changeset	11576	)
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
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11579	)
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	)
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	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11584	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11585	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11586
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11587	!AbstractSettingsApplication::STCCompilerSettingsAppl methodsFor:'actions'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11588
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	11589	basicReadSettings
7071 72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	11590	\|t\|
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	11591
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11592	self canLoadBinaries
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11593	value:(ObjectFileLoader notNil and:[ObjectFileLoader canLoadObjectFiles]).
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11594
6536 aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	11595	self stcIncludes value:ParserFlags stcCompilationIncludes.
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	11596	self stcDefines value:ParserFlags stcCompilationDefines.
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	11597	self stcOptions value:ParserFlags stcCompilationOptions.
10711 20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	11598	self stcKeepCIntermediate value:ParserFlags stcKeepCIntermediate.
6536 aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	11599	self ccOptions value:ParserFlags ccCompilationOptions.
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	11600	self cc value:ParserFlags ccPath.
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	11601	self stc value:ParserFlags stcPath.
6866 ec908ed4b944 make command fm parents: 6860 diff changeset	11602	self makeCommand value:ParserFlags makeCommand.
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11603
7071 72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	11604	self linkCommand value:ParserFlags linkCommand.
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	11605	self linkArgs value:ParserFlags linkArgs.
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	11606	self linkSharedArgs value:ParserFlags linkSharedArgs.
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	11607
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	11608	(t := ParserFlags searchedLibraries) notNil ifTrue:[
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	11609	self stcLibraries value:(String fromStringCollection:t separatedBy:' ')
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	11610	].
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	11611	(t := ParserFlags libPath) notNil ifTrue:[
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	11612	self stcLibraryPath value:t
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11613	].
5278 67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	11614
67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	11615	self stcCompilationSelection value:(self class stcCompilationOptions
6536 aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	11616	indexOf:(ParserFlags stcCompilation)
5278 67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	11617	ifAbsent:1).
6866 ec908ed4b944 make command fm parents: 6860 diff changeset	11618
ec908ed4b944 make command fm parents: 6860 diff changeset	11619	"Modified: / 09-08-2006 / 18:49:38 / fm"
10711 20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	11620	"Modified: / 16-09-2011 / 18:45:15 / cg"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	11621	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	11622
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	11623	basicSaveSettings
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	11624
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	11625	ParserFlags stcCompilation:(self class stcCompilationOptions at:self stcCompilationSelection value).
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	11626	ParserFlags stcCompilationIncludes:self stcIncludes value.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	11627	ParserFlags stcCompilationDefines:self stcDefines value.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	11628	ParserFlags stcCompilationOptions:self stcOptions value.
10711 20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	11629	ParserFlags stcKeepCIntermediate:self stcKeepCIntermediate value.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	11630	ParserFlags ccCompilationOptions:self ccOptions value.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	11631	ParserFlags ccPath:self cc value.
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	11632	ParserFlags makeCommand:self makeCommand value.
6866 ec908ed4b944 make command fm parents: 6860 diff changeset	11633
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	11634	self stc value ~= ParserFlags stcPath ifTrue:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	11635	ParserFlags stcPath:self stc value
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	11636	].
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	11637	ParserFlags linkCommand:self linkCommand value.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	11638	ParserFlags linkArgs:self linkArgs value.
7071 72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	11639	ParserFlags linkSharedArgs:self linkSharedArgs value.
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	11640	self stcLibraries value notNil ifTrue:[
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	11641	ParserFlags searchedLibraries:(self stcLibraries value asCollectionOfWords).
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	11642	].
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	11643	stcLibraryPath notNil ifTrue:[
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	11644	ParserFlags libPath:(self stcLibraryPath value).
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	11645	].
6866 ec908ed4b944 make command fm parents: 6860 diff changeset	11646
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	11647	"Modified: / 09-08-2006 / 19:33:10 / fm"
10711 20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	11648	"Modified: / 16-09-2011 / 18:45:28 / cg"
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11649	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11650
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11651	!AbstractSettingsApplication::STCCompilerSettingsAppl methodsFor:'aspects'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11652
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11653	canLoadBinaries
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11654
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11655	canLoadBinaries isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11656	canLoadBinaries := (ObjectFileLoader notNil and:[ObjectFileLoader canLoadObjectFiles]) asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11657	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11658	^ canLoadBinaries.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11659	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11660
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11661	cc
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11662
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11663	cc isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11664	cc := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	11665	cc onChangeSend:#updateModifiedChannel to:self.
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11666	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11667	^ cc.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11668	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11669
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11670	ccOptions
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11671
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11672	ccOptions isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11673	ccOptions := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	11674	ccOptions onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11675	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11676	^ ccOptions.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11677	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11678
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11679	enableStcLibraryPath
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11680
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11681	^ (ObjectFileLoader libPath notNil and:[self canLoadBinaries])
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11682	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11683
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11684	linkArgs
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	linkArgs isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11687	linkArgs := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	11688	linkArgs onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11689	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11690	^ linkArgs.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11691	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11692
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11693	linkCommand
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	linkCommand isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11696	linkCommand := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	11697	linkCommand onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11698	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11699	^ linkCommand.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11700	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11701
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11702	linkSharedArgs
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11703
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11704	linkSharedArgs isNil ifTrue:[
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11705	linkSharedArgs := ValueHolder new.
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11706	linkSharedArgs onChangeSend:#updateModifiedChannel to:self.
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11707	].
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11708	^ linkSharedArgs.
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11709	!
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11710
6866 ec908ed4b944 make command fm parents: 6860 diff changeset	11711	makeCommand
ec908ed4b944 make command fm parents: 6860 diff changeset	11712
ec908ed4b944 make command fm parents: 6860 diff changeset	11713	makeCommand isNil ifTrue:[
ec908ed4b944 make command fm parents: 6860 diff changeset	11714	makeCommand := ValueHolder new.
ec908ed4b944 make command fm parents: 6860 diff changeset	11715	makeCommand onChangeSend:#updateModifiedChannel to:self.
ec908ed4b944 make command fm parents: 6860 diff changeset	11716	].
ec908ed4b944 make command fm parents: 6860 diff changeset	11717	^ makeCommand.
ec908ed4b944 make command fm parents: 6860 diff changeset	11718
ec908ed4b944 make command fm parents: 6860 diff changeset	11719	"Created: / 09-08-2006 / 18:49:52 / fm"
ec908ed4b944 make command fm parents: 6860 diff changeset	11720	!
ec908ed4b944 make command fm parents: 6860 diff changeset	11721
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11722	stc
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11723
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11724	stc isNil ifTrue:[
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11725	stc := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	11726	stc onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11727	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11728	^ stc.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11729	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11730
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11731	stcCompilationList
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11732
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11733	stcCompilationList isNil ifTrue:[
5278 67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	11734	stcCompilationList := (resources array:(self class stcCompilationStrings)) asList.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11735	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11736	^ stcCompilationList.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11737	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11738
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11739	stcCompilationSelection
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11740
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11741	stcCompilationSelection isNil ifTrue:[
6536 aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	11742	stcCompilationSelection := (self class stcCompilationOptions indexOf:(ParserFlags stcCompilation) ifAbsent:1) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	11743	stcCompilationSelection onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11744	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11745	^ stcCompilationSelection.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11746	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11747
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11748	stcDefines
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11749
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11750	stcDefines isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11751	stcDefines := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	11752	stcDefines onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11753	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11754	^ stcDefines.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11755	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11756
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11757	stcIncludes
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11758
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11759	stcIncludes isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11760	stcIncludes := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	11761	stcIncludes onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11762	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11763	^ stcIncludes.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11764	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11765
10711 20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	11766	stcKeepCIntermediate
20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	11767	stcKeepCIntermediate isNil ifTrue:[
20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	11768	stcKeepCIntermediate := false asValue.
20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	11769	stcKeepCIntermediate onChangeSend:#updateModifiedChannel to:self.
20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	11770	].
20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	11771	^ stcKeepCIntermediate.
20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	11772
20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	11773	"Created: / 16-09-2011 / 18:42:10 / cg"
20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	11774	!
20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	11775
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11776	stcLibraries
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11777
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11778	stcLibraries isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11779	stcLibraries := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	11780	stcLibraries onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11781	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11782	^ stcLibraries.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11783	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11784
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11785	stcLibraryPath
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11786
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11787	stcLibraryPath isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11788	stcLibraryPath := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	11789	stcLibraryPath onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11790	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11791	^ stcLibraryPath.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11792	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11793
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11794	stcOptions
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11795
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11796	stcOptions isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11797	stcOptions := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	11798	stcOptions onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11799	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11800	^ stcOptions.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11801	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11802
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	11803	!AbstractSettingsApplication::STCCompilerSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	11804
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	11805	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	11806	^ 'Launcher/compilerSettings.html'
10707 25acaf19a3e3 x Claus Gittinger <cg@exept.de> parents: 10698 diff changeset	11807	!
25acaf19a3e3 x Claus Gittinger <cg@exept.de> parents: 10698 diff changeset	11808
25acaf19a3e3 x Claus Gittinger <cg@exept.de> parents: 10698 diff changeset	11809	helpText
25acaf19a3e3 x Claus Gittinger <cg@exept.de> parents: 10698 diff changeset	11810	^ 'These settings are only relevant if methods are to be compiled directly to
25acaf19a3e3 x Claus Gittinger <cg@exept.de> parents: 10698 diff changeset	11811	machine code (i.e. using the external stc, not the builtin bytecode compiler).
25acaf19a3e3 x Claus Gittinger <cg@exept.de> parents: 10698 diff changeset	11812	Stc-compilation is mandatory for methods which contain inline-C code,
25acaf19a3e3 x Claus Gittinger <cg@exept.de> parents: 10698 diff changeset	11813	otherwise, for plain smalltalk code, is not needed.'
25acaf19a3e3 x Claus Gittinger <cg@exept.de> parents: 10698 diff changeset	11814
25acaf19a3e3 x Claus Gittinger <cg@exept.de> parents: 10698 diff changeset	11815	"Created: / 16-09-2011 / 18:18:32 / cg"
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	11816	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	11817
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11818	!AbstractSettingsApplication::STCCompilerSettingsAppl methodsFor:'queries'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11819
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11820	hasUnsavedChanges
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11821	\| searchedLibs \|
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	11822
10711 20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	11823	((ObjectFileLoader notNil and:[ObjectFileLoader canLoadObjectFiles]) ~= self canLoadBinaries value ) ifTrue:[^ true].
20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	11824
6536 aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	11825	((ParserFlags stcCompilation ? #default) ~= (self class stcCompilationOptions at:self stcCompilationSelection value)) ifTrue:[^ true].
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	11826	((ParserFlags stcCompilationIncludes) ~= self stcIncludes value) ifTrue:[^ true].
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	11827	((ParserFlags stcCompilationDefines) ~= self stcDefines value) ifTrue:[^ true].
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	11828	((ParserFlags stcCompilationOptions) ~= self stcOptions value) ifTrue:[^ true].
10711 20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	11829	((ParserFlags stcKeepCIntermediate) ~= self stcKeepCIntermediate value) ifTrue:[^ true].
6536 aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	11830	((ParserFlags ccCompilationOptions) ~= self ccOptions value) ifTrue:[^ true].
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	11831	((ParserFlags ccPath) ~= self cc value) ifTrue:[^ true].
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	11832	((ParserFlags stcPath) ~= self stc value) ifTrue:[^ true].
6866 ec908ed4b944 make command fm parents: 6860 diff changeset	11833	((ParserFlags makeCommand) ~= self makeCommand value) ifTrue:[^ true].
6536 aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	11834	((ParserFlags linkCommand) ~= self linkCommand value) ifTrue:[^ true].
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	11835	((ParserFlags linkArgs) ~= self linkArgs value) ifTrue:[^ true].
7071 72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	11836	((ParserFlags linkSharedArgs) ~= self linkSharedArgs value) ifTrue:[^ true].
6536 aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	11837	(ParserFlags libPath ~= self stcLibraryPath value) ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	11838
7071 72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	11839	searchedLibs := ParserFlags searchedLibraries.
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	11840	searchedLibs notNil ifTrue:[
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	11841	(String fromStringCollection:searchedLibs separatedBy:' ') ~= self stcLibraries value ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	11842	].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	11843	^ false.
6866 ec908ed4b944 make command fm parents: 6860 diff changeset	11844
ec908ed4b944 make command fm parents: 6860 diff changeset	11845	"Modified: / 09-08-2006 / 18:50:36 / fm"
10711 20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	11846	"Modified: / 16-09-2011 / 18:42:00 / cg"
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11847	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11848
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11849	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl class methodsFor:'defaults'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11850
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11851	exampleText
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11852
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11853	^ 'methodSelector:methodArg
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11854	"method comment:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11855	some stupid code to show the current settings"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11856
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11857	\|index\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11858
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11859	"/ another comment ...
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	11860	self at:index+1. "/ a message
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11861	self at:index put:methodArg. "/ a two arg message
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11862	self from:1 to:index put:methodArg. "/ a three arg message
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11863	methodArg ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11864	Transcript showCR:''hello''. "/ condition
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11865	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11866	methodArg ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11867	Transcript showCR:''hello''. "/ condition
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11868	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11869	Transcript showCR:''world''.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11870	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11871	[methodArg] whileTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11872	Transcript showCR:''hello''. "/ looping
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11873	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11874	[self aVeryLongConditionBlock and:[self toMakeBlockLonger]] whileTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11875	Transcript showCR:''hello''. "/ long blocks
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11876	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11877	methodArg do:[:element \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11878	Transcript showCR:''hello''. "/ looping
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11879	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11880	1 to:methodArg size do:[:index \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11881	Transcript showCR:''hello''. "/ looping
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11882	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11883	methodArg keysAndValuesDo:[:index \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11884	Transcript showCR:''hello''. "/ looping
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11885	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11886	Object errorSignal handle:[:ex \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11887	ex return
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11888	] do:[ "/ exception handling
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11889	self someAction "/ blocks
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11890	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11891	^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11892	'.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11893	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11894
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11895	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl class methodsFor:'image specs'!
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11896
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11897	defaultIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11898	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11899	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11900
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11901	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11902	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11903
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11904	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11905	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11906	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11907	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11908	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11909
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11910	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11911
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11912	^Icon
9187 fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	11913	constantNamed:'AbstractSettingsApplication::SourceCodeFormatSettingsAppl class defaultIcon'
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	11914	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	11915	*************("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	11916	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	11917	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	11918	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11919
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11920	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl class methodsFor:'interface specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11921
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11922	windowSpec
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11923	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11924	by the UIPainter of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11925
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11926	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11927	the UIPainter may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11928
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11929	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11930	UIPainter new openOnClass:AbstractSettingsApplication::SourceCodeFormatSettingsAppl andSelector:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11931	AbstractSettingsApplication::SourceCodeFormatSettingsAppl new openInterface:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11932	AbstractSettingsApplication::SourceCodeFormatSettingsAppl open
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11933	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11934
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11935	<resource: #canvas>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11936
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11937	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11938	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11939	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11940	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11941	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11942	label: 'Code Format Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11943	name: 'Code Format Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11944	min: (Point 10 10)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11945	bounds: (Rectangle 0 0 604 676)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11946	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11947	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11948	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11949	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11950	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11951	name: 'VerticalPanel3'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11952	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	11953	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11954	verticalLayout: topSpace
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11955	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11956	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11957	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11958	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11959	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11960	(VerticalPanelViewSpec
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11961	name: 'VerticalPanel1'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11962	horizontalLayout: fit
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11963	verticalLayout: bottom
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11964	horizontalSpace: 3
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11965	verticalSpace: 3
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11966	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11967	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11968	collection: (
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11969	(ViewSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11970	name: 'Box1'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11971	component:
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11972	(SpecCollection
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11973	collection: (
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11974	(CheckBoxSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11975	label: 'Space around Temporaries'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11976	name: 'CheckBox3'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11977	layout: (LayoutFrame 0 0 0 0 250 0 22 0)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11978	model: spaceAroundTemporaries
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11979	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11980	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11981	(CheckBoxSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11982	label: 'Blank line after local Var Declaration'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11983	name: 'CheckBox4'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11984	layout: (LayoutFrame 250 0 0 0 0 1 22 0)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11985	model: emptyLineAfterTemporaries
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11986	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11987	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11988	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11989
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11990	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11991	extent: (Point 604 22)
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: 'Box11'
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	(CheckBoxSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11999	label: 'Space after ''^'''
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12000	name: 'CheckBox5'
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	model: spaceAfterReturnToken
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12003	translateLabel: true
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	(CheckBoxSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12006	label: 'Space after '':'' in Keywords'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12007	name: 'CheckBox6'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12008	layout: (LayoutFrame 250 0 0 0 -5 1 22 0)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12009	model: spaceAfterKeywordSelector
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12010	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12011	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12012	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12013
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	extent: (Point 604 22)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12016	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12017	(ViewSpec
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12018	name: 'Box15'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12019	component:
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12020	(SpecCollection
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12021	collection: (
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12022	(CheckBoxSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12023	label: 'Space after ''['''
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12024	name: 'CheckBox9'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12025	layout: (LayoutFrame 0 0 0 0 250 0 22 0)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12026	model: spaceAfterBlockStart
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12027	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12028	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12029	(CheckBoxSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12030	label: 'Space before '']'''
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12031	name: 'CheckBox10'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12032	layout: (LayoutFrame 250 0 0 0 -5 1 22 0)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12033	model: spaceBeforeBlockEnd
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12034	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12035	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12036	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12037
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12038	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12039	extent: (Point 604 22)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12040	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12041	(ViewSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12042	name: 'Box12'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12043	component:
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12044	(SpecCollection
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12045	collection: (
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12046	(CheckBoxSpec
7720 a15569db7548 tabability Claus Gittinger <cg@exept.de> parents: 7608 diff changeset	12047	label: 'C-Style Blocks'
a15569db7548 tabability Claus Gittinger <cg@exept.de> parents: 7608 diff changeset	12048	name: 'CheckBox8'
a15569db7548 tabability Claus Gittinger <cg@exept.de> parents: 7608 diff changeset	12049	layout: (LayoutFrame 0 0 0 0 250 0 22 0)
a15569db7548 tabability Claus Gittinger <cg@exept.de> parents: 7608 diff changeset	12050	model: cStyleBlocks
a15569db7548 tabability Claus Gittinger <cg@exept.de> parents: 7608 diff changeset	12051	translateLabel: true
a15569db7548 tabability Claus Gittinger <cg@exept.de> parents: 7608 diff changeset	12052	)
a15569db7548 tabability Claus Gittinger <cg@exept.de> parents: 7608 diff changeset	12053	(CheckBoxSpec
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12054	label: 'Block Args on new Line'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12055	name: 'CheckBox7'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12056	layout: (LayoutFrame 250 0 0 0 -5 1 22 0)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12057	model: blockArgumentsOnNewLine
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12058	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12059	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12060	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12061
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12062	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12063	extent: (Point 604 22)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12064	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12065	(ViewSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12066	name: 'Box13'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12067	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12068	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12069	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12070	(LabelSpec
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12071	label: 'Indent:'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12072	name: 'Label1'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12073	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	12074	translateLabel: true
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12075	adjust: right
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12076	)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12077	(InputFieldSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12078	name: 'EntryField1'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12079	layout: (LayoutFrame 253 0 0 0 300 0 22 0)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12080	model: tabIndent
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12081	type: number
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12082	acceptOnReturn: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12083	acceptOnTab: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12084	acceptOnLostFocus: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12085	acceptOnPointerLeave: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12086	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12087	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12088
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12089	)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12090	extent: (Point 604 30)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12091	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12092	(ViewSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12093	name: 'Box16'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12094	component:
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12095	(SpecCollection
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12096	collection: (
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12097	(LabelSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12098	label: 'Max Length for Single Line Blocks:'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12099	name: 'Label5'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12100	layout: (LayoutFrame 0 0 0 0 250 0 22 0)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12101	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12102	adjust: right
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12103	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12104	(InputFieldSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12105	name: 'EntryField4'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12106	layout: (LayoutFrame 253 0 0 0 300 0 22 0)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12107	model: maxLengthForSingleLineBlocks
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12108	type: number
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12109	acceptOnReturn: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12110	acceptOnTab: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12111	acceptOnLostFocus: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12112	acceptOnPointerLeave: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12113	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12114	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12115
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12116	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12117	extent: (Point 604 29)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12118	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12119	(HorizontalPanelViewSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12120	name: 'HorizontalPanel1'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12121	horizontalLayout: fitSpace
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12122	verticalLayout: bottom
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12123	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12124	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12125	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12126	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12127	collection: (
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12128	(ActionButtonSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12129	label: 'Reset to ST/X Default'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12130	name: 'Button1'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12131	translateLabel: true
7720 a15569db7548 tabability Claus Gittinger <cg@exept.de> parents: 7608 diff changeset	12132	tabable: true
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12133	model: resetToStxDefault
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12134	extent: (Point 297 22)
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	12135	)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12136	(ActionButtonSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12137	label: 'Reset to RefactoryBrowser Default'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12138	name: 'Button2'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12139	translateLabel: true
7720 a15569db7548 tabability Claus Gittinger <cg@exept.de> parents: 7608 diff changeset	12140	tabable: true
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12141	model: resetToRBDefault
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12142	extent: (Point 298 22)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12143	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12144	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12145
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12146	)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12147	extent: (Point 604 30)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12148	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12149	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12150
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12151	)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12152	extent: (Point 604 180)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12153	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12154	(ViewSpec
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	12155	name: 'SpacingBox1'
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	12156	extent: (Point 604 10)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12157	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12158	(ViewSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12159	name: 'Box14'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12160	component:
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12161	(SpecCollection
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12162	collection: (
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12163	(LabelSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12164	label: 'Sample Output:'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12165	name: 'Label3'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12166	layout: (LayoutFrame 0 0 0 0 0 1 22 0)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12167	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12168	adjust: left
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12169	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12170	(TextEditorSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12171	name: 'TextEditor3'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12172	layout: (LayoutFrame 0 0 22 0 0 1 300 0)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12173	model: editorText
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12174	hasHorizontalScrollBar: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12175	hasVerticalScrollBar: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12176	isReadOnly: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12177	postBuildCallback: postBuildTextEditor:
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12178	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12179	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12180
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12181	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12182	extent: (Point 604 300)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12183	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12184	(ViewSpec
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	12185	name: 'SpacingBox2'
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	12186	extent: (Point 604 10)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12187	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12188	(CheckBoxSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12189	label: 'Auto Format'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12190	name: 'CheckBox2'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12191	model: autoFormat
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12192	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12193	extent: (Point 604 22)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12194	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12195	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12196
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12197	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12198	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12199	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12200
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12201	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12202	)
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
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12205	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'actions'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12206
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12207	basicReadSettings
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12208	reformatLocked := true.
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12209
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12210	self
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12211	readAspects:
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12212	#(
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12213	tabIndent
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12214	spaceAroundTemporaries
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12215	emptyLineAfterTemporaries
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12216	spaceAfterReturnToken
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12217	spaceAfterKeywordSelector
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12218	spaceAfterBlockStart
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12219	spaceBeforeBlockEnd
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12220	cStyleBlocks
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12221	blockArgumentsOnNewLine
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12222	maxLengthForSingleLineBlocks
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12223	)
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12224	from:RBFormatter.
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12225
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12226	self autoFormat value:currentUserPrefs autoFormatting.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12227	self updateModifiedChannel.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12228	reformatLocked := false.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12229	self reformat.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12230	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12231
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12232	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12233
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12234	currentUserPrefs autoFormatting:self autoFormat value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12235	currentUserPrefs at:#'formatter.tabIndent' put:self tabIndent value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12236	currentUserPrefs at:#'formatter.spaceAroundTemporaries' put:self spaceAroundTemporaries value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12237	currentUserPrefs at:#'formatter.emptyLineAfterTemporaries' put:self emptyLineAfterTemporaries value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12238	currentUserPrefs at:#'formatter.spaceAfterReturnToken' put:self spaceAfterReturnToken value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12239	currentUserPrefs at:#'formatter.spaceAfterKeywordSelector' put:self spaceAfterKeywordSelector value.
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	12240	currentUserPrefs at:#'formatter.spaceAfterBlockStart' put:self spaceAfterBlockStart value.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	12241	currentUserPrefs at:#'formatter.spaceBeforeBlockEnd' put:self spaceBeforeBlockEnd value.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12242	currentUserPrefs at:#'formatter.cStyleBlocks' put:self cStyleBlocks value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12243	currentUserPrefs at:#'formatter.blockArgumentsOnNewLine' put:self blockArgumentsOnNewLine value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12244	currentUserPrefs at:#'formatter.maxLengthForSingleLineBlocks' put:self maxLengthForSingleLineBlocks value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12245	RBFormatter
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12246	tabIndent:self tabIndent value;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12247	spaceAroundTemporaries:self spaceAroundTemporaries value;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12248	emptyLineAfterTemporaries:self emptyLineAfterTemporaries value;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12249	spaceAfterReturnToken:self spaceAfterReturnToken value;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12250	spaceAfterKeywordSelector:self spaceAfterKeywordSelector value;
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	12251	spaceAfterBlockStart:self spaceAfterBlockStart value;
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	12252	spaceBeforeBlockEnd:self spaceBeforeBlockEnd value;
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12253	cStyleBlocks:self cStyleBlocks value;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12254	blockArgumentsOnNewLine:self blockArgumentsOnNewLine value;
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	12255	maxLengthForSingleLineBlocks:self maxLengthForSingleLineBlocks value asInteger.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12256	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12257
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12258	reformat
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	\|tree s_tabIndent s_spaceAroundTemporaries s_emptyLineAfterTemporaries
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12261	s_spaceAfterReturnToken s_spaceAfterKeywordSelector s_cStyleBlocks
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	12262	s_maxLengthForSingleLineBlocks s_blockArgumentsOnNewLine
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	12263	s_spaceAfterBlockStart s_spaceBeforeBlockEnd\|
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	reformatLocked ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12266	"/
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12267	"/ temporary change the RBFormatters settings ...
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	s_tabIndent := RBFormatter tabIndent.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12270	s_spaceAroundTemporaries := RBFormatter spaceAroundTemporaries.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12271	s_emptyLineAfterTemporaries := RBFormatter emptyLineAfterTemporaries.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12272	s_spaceAfterReturnToken := RBFormatter spaceAfterReturnToken.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12273	s_spaceAfterKeywordSelector := RBFormatter spaceAfterKeywordSelector.
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	12274	s_spaceAfterBlockStart := RBFormatter spaceAfterBlockStart.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	12275	s_spaceBeforeBlockEnd := RBFormatter spaceBeforeBlockEnd.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12276	s_cStyleBlocks := RBFormatter cStyleBlocks.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12277	s_blockArgumentsOnNewLine := RBFormatter blockArgumentsOnNewLine.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12278	s_maxLengthForSingleLineBlocks := RBFormatter maxLengthForSingleLineBlocks.
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	RBFormatter
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12281	tabIndent:self tabIndent value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12282	spaceAroundTemporaries:self spaceAroundTemporaries value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12283	emptyLineAfterTemporaries:self emptyLineAfterTemporaries value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12284	spaceAfterReturnToken:self spaceAfterReturnToken value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12285	spaceAfterKeywordSelector:self spaceAfterKeywordSelector value;
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	12286	spaceAfterBlockStart:self spaceAfterBlockStart value;
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	12287	spaceBeforeBlockEnd:self spaceBeforeBlockEnd value;
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12288	cStyleBlocks:self cStyleBlocks value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12289	blockArgumentsOnNewLine:self blockArgumentsOnNewLine value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12290	maxLengthForSingleLineBlocks:self maxLengthForSingleLineBlocks value.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12291
5076 c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	12292	"/ tree := RBParser
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	12293	"/ parseMethod:self class exampleText
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	12294	"/ onError: [:aString :position \| nil].
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	12295	"/ tree do:[:node \|
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	12296	"/ (node ~~ tree and:[node parent isNil]) ifTrue:[
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	12297	"/ self error:'No parent for node'.
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	12298	"/ ]
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	12299	"/ ].
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	12300	"/ self editorText value:tree printString.
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	12301	self editorText value:(RBFormatter format:(self class exampleText)).
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12302
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12303	RBFormatter
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12304	tabIndent:s_tabIndent;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12305	spaceAroundTemporaries:s_spaceAroundTemporaries;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12306	emptyLineAfterTemporaries:s_emptyLineAfterTemporaries;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12307	spaceAfterReturnToken:s_spaceAfterReturnToken;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12308	spaceAfterKeywordSelector:s_spaceAfterKeywordSelector;
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	12309	spaceAfterBlockStart:s_spaceAfterBlockStart;
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	12310	spaceBeforeBlockEnd:s_spaceBeforeBlockEnd;
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12311	cStyleBlocks:s_cStyleBlocks;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12312	blockArgumentsOnNewLine:s_blockArgumentsOnNewLine;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12313	maxLengthForSingleLineBlocks:s_maxLengthForSingleLineBlocks.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12314	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12315	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12316
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12317	resetToRBDefault
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12318
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12319	reformatLocked := true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12320	self tabIndent value: 8.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12321	self spaceAfterReturnToken value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12322	self spaceAfterKeywordSelector value:true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12323	self spaceAroundTemporaries value:true.
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	12324	self spaceAfterBlockStart value:true.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	12325	self spaceBeforeBlockEnd value:true.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12326	self emptyLineAfterTemporaries value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12327	self cStyleBlocks value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12328	self blockArgumentsOnNewLine value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12329	self maxLengthForSingleLineBlocks value: 20.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12330	reformatLocked := false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12331	self reformat.
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	resetToStxDefault
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	reformatLocked := true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12337	self tabIndent value: 4.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12338	self spaceAfterReturnToken value: true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12339	self spaceAfterKeywordSelector value: false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12340	self spaceAroundTemporaries value: false.
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	12341	self spaceAfterBlockStart value:false.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	12342	self spaceBeforeBlockEnd value:false.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12343	self emptyLineAfterTemporaries value: true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12344	self cStyleBlocks value: true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12345	self blockArgumentsOnNewLine value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12346	self maxLengthForSingleLineBlocks value: 20.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12347	reformatLocked := false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12348	self reformat.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12349	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12350
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12351	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'aspects'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12352
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12353	autoFormat
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12354
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12355	autoFormat isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12356	autoFormat := currentUserPrefs autoFormatting asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	12357	autoFormat onChangeSend:#updateModifiedChannel to:self
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12358	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12359	^ autoFormat.
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
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12362	blockArgumentsOnNewLine
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12363
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12364	blockArgumentsOnNewLine isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12365	blockArgumentsOnNewLine := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12366	blockArgumentsOnNewLine addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12367	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12368	^ blockArgumentsOnNewLine.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12369	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12370
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12371	cStyleBlocks
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12372
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12373	cStyleBlocks isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12374	cStyleBlocks := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12375	cStyleBlocks addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12376	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12377	^ cStyleBlocks.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12378	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12379
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12380	editorText
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12381
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12382	editorText isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12383	editorText := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12384	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12385	^ editorText.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12386	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12387
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12388	emptyLineAfterTemporaries
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12389
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12390	emptyLineAfterTemporaries isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12391	emptyLineAfterTemporaries := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12392	emptyLineAfterTemporaries addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12393	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12394	^ emptyLineAfterTemporaries.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12395	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12396
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12397	maxLengthForSingleLineBlocks
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12398
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12399	maxLengthForSingleLineBlocks isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12400	maxLengthForSingleLineBlocks := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12401	maxLengthForSingleLineBlocks addDependent:self.
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	^ maxLengthForSingleLineBlocks.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12404	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12405
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	12406	spaceAfterBlockStart
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	12407
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	12408	spaceAfterBlockStart isNil ifTrue:[
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	12409	spaceAfterBlockStart := true asValue.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	12410	spaceAfterBlockStart addDependent:self.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	12411	].
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	12412	^ spaceAfterBlockStart.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	12413	!
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	12414
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12415	spaceAfterKeywordSelector
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12416
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12417	spaceAfterKeywordSelector isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12418	spaceAfterKeywordSelector := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12419	spaceAfterKeywordSelector addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12420	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12421	^ spaceAfterKeywordSelector.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12422	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12423
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12424	spaceAfterReturnToken
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12425
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12426	spaceAfterReturnToken isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12427	spaceAfterReturnToken := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12428	spaceAfterReturnToken addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12429	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12430	^ spaceAfterReturnToken.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12431	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12432
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12433	spaceAroundTemporaries
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12434
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12435	spaceAroundTemporaries isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12436	spaceAroundTemporaries := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12437	spaceAroundTemporaries addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12438	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12439	^ spaceAroundTemporaries.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12440	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12441
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	12442	spaceBeforeBlockEnd
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	12443
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	12444	spaceBeforeBlockEnd isNil ifTrue:[
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	12445	spaceBeforeBlockEnd := true asValue.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	12446	spaceBeforeBlockEnd addDependent:self.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	12447	].
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	12448	^ spaceBeforeBlockEnd.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	12449	!
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	12450
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12451	tabIndent
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12452
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12453	tabIndent isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12454	tabIndent := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12455	tabIndent addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12456	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12457	^ tabIndent.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12458	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12459
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12460	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'change & update'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12461
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	12462	update:something with:aParameter from:changedObject
8502 b50e19c115d9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8475 diff changeset	12463	(changedObject == self blockArgumentsOnNewLine
b50e19c115d9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8475 diff changeset	12464	or:[ changedObject == self cStyleBlocks
b50e19c115d9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8475 diff changeset	12465	or:[ changedObject == self emptyLineAfterTemporaries
b50e19c115d9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8475 diff changeset	12466	or:[ changedObject == self maxLengthForSingleLineBlocks
b50e19c115d9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8475 diff changeset	12467	or:[ changedObject == self spaceAfterKeywordSelector
b50e19c115d9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8475 diff changeset	12468	or:[ changedObject == self spaceAfterReturnToken
b50e19c115d9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8475 diff changeset	12469	or:[ changedObject == self spaceAfterBlockStart
b50e19c115d9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8475 diff changeset	12470	or:[ changedObject == self spaceBeforeBlockEnd
b50e19c115d9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8475 diff changeset	12471	or:[ changedObject == self spaceAroundTemporaries
b50e19c115d9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8475 diff changeset	12472	or:[ changedObject == self tabIndent]]]]]]]]])
b50e19c115d9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8475 diff changeset	12473	ifTrue:[
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	12474	self updateModifiedChannel.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12475	self reformat.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	12476	^ self
c72e35116b13 instable state penk parents: 5040 diff changeset	12477	].
c72e35116b13 instable state penk parents: 5040 diff changeset	12478	super
c72e35116b13 instable state penk parents: 5040 diff changeset	12479	update:something
c72e35116b13 instable state penk parents: 5040 diff changeset	12480	with:aParameter
c72e35116b13 instable state penk parents: 5040 diff changeset	12481	from:changedObject
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12482	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12483
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	12484	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	12485
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	12486	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	12487	^ 'Launcher/sourceFormatSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	12488	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	12489
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12490	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'initialization & release'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12491
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12492	initialize
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12493	super initialize.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12494	RBFormatter isNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12495	^ self warn:'Sorry, no RBFormatter class'
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12496	].
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12497	RBFormatter isLoaded ifFalse:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12498	WindowGroup activeGroup withWaitCursorDo:[RBFormatter autoload]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12499	].
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12500	reformatLocked := false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12501	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12502
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12503	postBuildTextEditor:aWidget
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12504
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12505	aWidget cursorMovementWhenUpdating:nil;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12506	scrollWhenUpdating:nil.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12507	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12508
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12509	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'queries'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12510
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12511	hasUnsavedChanges
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	12512	self autoFormat value ~= currentUserPrefs autoFormatting ? false ifTrue:[^ true].
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	12513
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	12514	(self
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	12515	hasChangedAspectIn:
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	12516	#(
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	12517	tabIndent
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	12518	spaceAroundTemporaries
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	12519	emptyLineAfterTemporaries
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	12520	spaceAfterReturnToken
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	12521	spaceAfterKeywordSelector
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	12522	spaceAfterBlockStart
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	12523	spaceBeforeBlockEnd
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	12524	cStyleBlocks
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	12525	blockArgumentsOnNewLine
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	12526	maxLengthForSingleLineBlocks
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	12527	)
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	12528	asComparedTo:RBFormatter) ifTrue:[^ true].
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	12529
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	12530	^ false
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12531	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12532
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12533	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl class methodsFor:'help specs'!
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12534
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12535	helpSpec
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12536	"This resource specification was automatically generated
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12537	by the UIHelpTool of ST/X."
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12538
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12539	"Do not manually edit this!! If it is corrupted,
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12540	the UIHelpTool may not be able to read the specification."
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12541
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12542	"
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12543	UIHelpTool openOnClass:AbstractSettingsApplication::SourceCodeManagementSettingsAppl
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12544	"
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12545
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12546	<resource: #help>
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12547
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12548	^ super helpSpec addPairsFrom:#(
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12549
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12550	#perPackageConfiguration
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12551	'Define per-package repository types here.\For any non-matching package-id, the default repository type is used.'
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12552
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12553	#moveManagerUp
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12554	'Move the selected entry up in the list.\(The first matching definition is used to determine which repository type is used.)'
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12555
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12556	#moveManagerDown
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12557	'Move the selected entry down in the list.\(The first matching definition is used to determine which repository type is used.)'
9835 b43a25708762 helps Claus Gittinger <cg@exept.de> parents: 9833 diff changeset	12558
b43a25708762 helps Claus Gittinger <cg@exept.de> parents: 9833 diff changeset	12559	#sourceCache
b43a25708762 helps Claus Gittinger <cg@exept.de> parents: 9833 diff changeset	12560	'After checkout, keep the sourcefile in a local file (to avoid repreated checkout of the same file)'
b43a25708762 helps Claus Gittinger <cg@exept.de> parents: 9833 diff changeset	12561
10738 9b524eb36600 flush Claus Gittinger <cg@exept.de> parents: 10711 diff changeset	12562	#browseSourceCache
9b524eb36600 flush Claus Gittinger <cg@exept.de> parents: 10711 diff changeset	12563	'Open a file browser on the source cache directory'
9b524eb36600 flush Claus Gittinger <cg@exept.de> parents: 10711 diff changeset	12564
9b524eb36600 flush Claus Gittinger <cg@exept.de> parents: 10711 diff changeset	12565	#flushSourceCache
9835 b43a25708762 helps Claus Gittinger <cg@exept.de> parents: 9833 diff changeset	12566	'Remove all files from the source cache. Will lead to some temporary slowdown, when sources are refetched from the repository.file)'
b43a25708762 helps Claus Gittinger <cg@exept.de> parents: 9833 diff changeset	12567
b43a25708762 helps Claus Gittinger <cg@exept.de> parents: 9833 diff changeset	12568	#condenseSourceCache
b43a25708762 helps Claus Gittinger <cg@exept.de> parents: 9833 diff changeset	12569	'Cleanup old cached versions from the source cache.\Will keep only the current (newest) version in the cache.'
b43a25708762 helps Claus Gittinger <cg@exept.de> parents: 9833 diff changeset	12570
b43a25708762 helps Claus Gittinger <cg@exept.de> parents: 9833 diff changeset	12571	#useLocalSources
9836 ae825d999ef9 helps Claus Gittinger <cg@exept.de> parents: 9835 diff changeset	12572	'If present, use the local source files (from the development system''s tree).\If checkout fails, these will always be tried as second chance.'
9835 b43a25708762 helps Claus Gittinger <cg@exept.de> parents: 9833 diff changeset	12573
b43a25708762 helps Claus Gittinger <cg@exept.de> parents: 9833 diff changeset	12574	#keepMethodSourceInImage
9928 c743ca3cc359 x Claus Gittinger <cg@exept.de> parents: 9836 diff changeset	12575	'After first file access, keep the method sources in the image itself.\All following text search operations will be much faster.\Grows the image over time (but who cares, these days)'
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12576	)
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12577
10738 9b524eb36600 flush Claus Gittinger <cg@exept.de> parents: 10711 diff changeset	12578	"Modified: / 30-09-2011 / 13:29:16 / cg"
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12579	! !
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12580
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12581	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12582
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12583	defaultIcon
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12584	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12585	by the ImageEditor of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12586
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12587	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12588	the ImageEditor may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12589
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12590	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12591	self defaultIcon inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12592	ImageEditor openOnClass:self andSelector:#defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12593	Icon flushCachedIcons
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12594	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12595
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12596	<resource: #image>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12597
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12598	^Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12599	constantNamed:#'AbstractSettingsApplication::SourceCodeManagementSettingsAppl class defaultIcon'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12600	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	12601	@@@@@@@@@@@A@PHB@0P@@@@@@@@@@@@@@@@@@@HEA \HA $JB0HD@@@@@@@@@@@@@@HLA04NC0HD@@L@@ P@@@@@@@@@@@@ED@ NDP@@@@@@@@@D@@@@@@@@
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	12602	@@@BA \FAPP@@@@@@@@@@@P@@@@@@@@@AQ@RC0@@@@@@@@@@@@@@@@@@@@@@@@TGA!!DD@@@@@@@@@@@@@@@@@@@D@PDIA08OA@@@@@@@@@@@@@@@@@@@AP S
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	12603	A0XIBPXGC0P@@@@@@@@@@@@@@@@ECAPLBPXOAP@@@@@@EQX@@@@@@@@@@@TIE@XOAP@@@@@@EQ\XE @@@@@@@@@@AP$OAP@@@@@@FQ\ZE!! V@@@@@@@@@@@E
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	12604	F0@@@@@@EQ\ZF!!(VFAX@@@@@@@@@@@@@@@@ZEQ\VE!!(ZF!!XWF @@@@@@@@@@@@@@@@@@@A\ZE!!(@@@@@@@@@@@@@@@@@@@@@@@@XE!!XZ@@@@@@@@@@@@@@@@
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	12605	@@@@@@@@EQ(V@@@@@@@@@@@@@@@@@@@@@@@@EQ\VE @@@@@@@@@@@@@@@@@@@@@@EQ VE @@@@@@@@@@@@@@F @@@@@WEQ VE!!(@@@@@@@@@@@@@@@@@E!!\W
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	12606	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	12607	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12608
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12609	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl class methodsFor:'interface specs'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12610
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12611	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12612	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12613	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12614
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12615	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12616	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12617
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12618	"
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	12619	UIPainter new openOnClass:AbstractSettingsApplication::SourceCodeManagementSettingsAppl andSelector:#windowSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	12620	AbstractSettingsApplication::SourceCodeManagementSettingsAppl new openInterface:#windowSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	12621	AbstractSettingsApplication::SourceCodeManagementSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12622	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12623
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12624	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12625
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12626	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12627	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12628	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12629	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12630	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12631	label: 'Source Code Manager Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12632	name: 'Source Code Manager Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12633	min: (Point 10 10)
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12634	bounds: (Rectangle 0 0 659 554)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12635	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12636	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12637	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12638	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12639	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12640	name: 'VerticalPanel2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12641	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	12642	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12643	verticalLayout: topSpace
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12644	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12645	verticalSpace: 20
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12646	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12647	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12648	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12649	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12650	name: 'VerticalPanel3'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12651	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12652	verticalLayout: top
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12653	horizontalSpace: 3
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12654	verticalSpace: 4
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12655	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12656	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12657	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12658	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12659	name: 'Box3'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12660	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12661	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12662	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12663	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12664	label: 'Sourcecode Management'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12665	name: 'SourcecodeManagementCheckBox'
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12666	layout: (LayoutFrame 5 0 5 0.0 256 0 27 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12667	model: useManager
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12668	translateLabel: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12669	)
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12670	(ComboListSpec
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12671	name: 'ComboList1'
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12672	layout: (LayoutFrame -151 1 5 0 -5 1 27 0)
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12673	visibilityChannel: moreThanOneManagerTypesAvailable
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12674	enableChannel: useManager
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12675	model: selectedManagerTypeIndexHolder
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12676	comboList: availableManagerTypeNames
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12677	useIndex: true
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12678	)
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12679	(LabelSpec
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12680	label: 'Default Repository Type:'
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12681	name: 'Label14'
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12682	layout: (LayoutFrame -347 1 5 0 -154 1 27 0)
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12683	translateLabel: true
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12684	adjust: right
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12685	)
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	12686	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	12687
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	12688	)
6103 d8147b126f9d * empty log message * penk parents: 6086 diff changeset	12689	extent: (Point 659 30)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12690	)
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12691	(FramedBoxSpec
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12692	label: 'Per Package Settings'
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12693	name: 'PerPackageConfiguration'
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12694	activeHelpKey: perPackageConfiguration
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12695	labelPosition: topLeft
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12696	translateLabel: true
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12697	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12698	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12699	collection: (
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12700	(VerticalPanelViewSpec
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12701	name: 'RepositoryConfigurations'
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12702	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12703	activeHelpKey: perPackageConfiguration
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12704	horizontalLayout: fit
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12705	verticalLayout: bottomFit
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12706	horizontalSpace: 3
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12707	verticalSpace: 3
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12708	component:
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12709	(SpecCollection
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12710	collection: (
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12711	(ViewSpec
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12712	name: 'RepositoryConfigurationListBox'
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12713	activeHelpKey: perPackageConfiguration
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12714	component:
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12715	(SpecCollection
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12716	collection: (
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12717	(DataSetSpec
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12718	name: 'RepositoryConfigurationList'
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	12719	layout: (LayoutFrame 0 0 0 0 -85 1 0 1)
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12720	enableChannel: useManager
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12721	model: selectedManagerPerMatchingModuleHolder
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12722	hasHorizontalScrollBar: true
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12723	hasVerticalScrollBar: true
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12724	dataList: managerPerMatchingModule
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12725	columnHolder: managerPerMatchingModuleColumns
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12726	beDependentOfRows: true
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12727	)
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	12728	(VerticalPanelViewSpec
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	12729	name: 'Buttons1'
10796 2754d9b07b70 Added test button to SCM settings application vrany parents: 10792 diff changeset	12730	layout: (LayoutFrame -80 1 0 0 0 1 -22 1)
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	12731	horizontalLayout: fit
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	12732	verticalLayout: top
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	12733	horizontalSpace: 5
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	12734	verticalSpace: 3
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	12735	component:
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	12736	(SpecCollection
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	12737	collection: (
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	12738	(ActionButtonSpec
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	12739	label: 'Add'
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	12740	name: 'ButtonAdd'
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	12741	translateLabel: true
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	12742	model: actionAdd
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	12743	extent: (Point 80 22)
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	12744	)
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	12745	(ActionButtonSpec
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	12746	label: 'Remove'
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	12747	name: 'ButtonRemove'
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	12748	translateLabel: true
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	12749	model: actionRemove
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	12750	enableChannel: canRemoveManagerPerPackageEntry
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	12751	extent: (Point 80 22)
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	12752	)
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	12753	(ActionButtonSpec
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	12754	label: 'Edit'
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	12755	name: 'ButtonEdit'
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	12756	translateLabel: true
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	12757	model: actionEdit
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	12758	enableChannel: canRemoveManagerPerPackageEntry
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	12759	extent: (Point 80 22)
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	12760	)
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	12761	(ActionButtonSpec
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	12762	label: 'Move up'
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	12763	name: 'ButtonModeUp'
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	12764	translateLabel: true
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	12765	model: actionMoveUp
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	12766	enableChannel: canMoveUp
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	12767	extent: (Point 80 22)
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	12768	)
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	12769	(ActionButtonSpec
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	12770	label: 'Move down'
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	12771	name: 'ButtonModeDown'
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	12772	translateLabel: true
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	12773	model: actionMoveDown
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	12774	enableChannel: canMoveDown
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	12775	extent: (Point 80 22)
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	12776	)
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	12777	)
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	12778
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	12779	)
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12780	)
10796 2754d9b07b70 Added test button to SCM settings application vrany parents: 10792 diff changeset	12781	(ActionButtonSpec
2754d9b07b70 Added test button to SCM settings application vrany parents: 10792 diff changeset	12782	label: 'Test'
2754d9b07b70 Added test button to SCM settings application vrany parents: 10792 diff changeset	12783	name: 'Button2'
2754d9b07b70 Added test button to SCM settings application vrany parents: 10792 diff changeset	12784	layout: (LayoutFrame -80 1 -22 1 0 1 0 1)
2754d9b07b70 Added test button to SCM settings application vrany parents: 10792 diff changeset	12785	translateLabel: true
2754d9b07b70 Added test button to SCM settings application vrany parents: 10792 diff changeset	12786	model: actionTest
2754d9b07b70 Added test button to SCM settings application vrany parents: 10792 diff changeset	12787	)
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12788	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12789
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12790	)
10796 2754d9b07b70 Added test button to SCM settings application vrany parents: 10792 diff changeset	12791	extent: (Point 623 264)
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	12792	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	12793	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	12794
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	12795	)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12796	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12797	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12798
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12799	)
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12800	extent: (Point 659 300)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12801	)
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12802	(FramedBoxSpec
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12803	label: 'Source Cache'
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12804	name: 'SourceCacheBox'
9835 b43a25708762 helps Claus Gittinger <cg@exept.de> parents: 9833 diff changeset	12805	activeHelpKey: sourceCache
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12806	labelPosition: topLeft
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12807	translateLabel: true
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12808	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12809	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12810	collection: (
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12811	(ViewSpec
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12812	name: 'SourceCacheDirBox'
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12813	layout: (LayoutFrame 0 0 0 0 0 1 30 0)
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12814	component:
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12815	(SpecCollection
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12816	collection: (
10738 9b524eb36600 flush Claus Gittinger <cg@exept.de> parents: 10711 diff changeset	12817	(FilenameInputFieldSpec
9b524eb36600 flush Claus Gittinger <cg@exept.de> parents: 10711 diff changeset	12818	name: 'FilenameEntryField1'
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12819	layout: (LayoutFrame 64 0.25 0 0 0 1 22 0)
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12820	enableChannel: useManager
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12821	model: sourceCacheDir
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12822	immediateAccept: false
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12823	acceptOnReturn: true
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12824	acceptOnTab: true
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12825	acceptOnLostFocus: true
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12826	acceptOnPointerLeave: true
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12827	)
10738 9b524eb36600 flush Claus Gittinger <cg@exept.de> parents: 10711 diff changeset	12828	(LabelSpec
9b524eb36600 flush Claus Gittinger <cg@exept.de> parents: 10711 diff changeset	12829	label: 'Source Cache Dir:'
9b524eb36600 flush Claus Gittinger <cg@exept.de> parents: 10711 diff changeset	12830	name: 'SourceCacheDirLabel'
9b524eb36600 flush Claus Gittinger <cg@exept.de> parents: 10711 diff changeset	12831	layout: (LayoutFrame 0 0.0 0 0 60 0.25 22 0)
9b524eb36600 flush Claus Gittinger <cg@exept.de> parents: 10711 diff changeset	12832	translateLabel: true
9b524eb36600 flush Claus Gittinger <cg@exept.de> parents: 10711 diff changeset	12833	adjust: right
9b524eb36600 flush Claus Gittinger <cg@exept.de> parents: 10711 diff changeset	12834	)
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12835	)
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12836
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12837	)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12838	)
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12839	(HorizontalPanelViewSpec
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12840	name: 'CacheActionsHorizontalPanel'
10811 2da3db63023c added action for "Browse cache" button vrany parents: 10796 diff changeset	12841	layout: (LayoutFrame 0 0 -25 1 0 1 0 1)
10738 9b524eb36600 flush Claus Gittinger <cg@exept.de> parents: 10711 diff changeset	12842	horizontalLayout: right
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12843	verticalLayout: center
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12844	horizontalSpace: 3
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12845	verticalSpace: 3
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12846	component:
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12847	(SpecCollection
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12848	collection: (
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12849	(ActionButtonSpec
10738 9b524eb36600 flush Claus Gittinger <cg@exept.de> parents: 10711 diff changeset	12850	label: 'Browse Cache'
9b524eb36600 flush Claus Gittinger <cg@exept.de> parents: 10711 diff changeset	12851	name: 'Button1'
9b524eb36600 flush Claus Gittinger <cg@exept.de> parents: 10711 diff changeset	12852	activeHelpKey: browseSourceCache
9b524eb36600 flush Claus Gittinger <cg@exept.de> parents: 10711 diff changeset	12853	translateLabel: true
9b524eb36600 flush Claus Gittinger <cg@exept.de> parents: 10711 diff changeset	12854	tabable: true
9b524eb36600 flush Claus Gittinger <cg@exept.de> parents: 10711 diff changeset	12855	model: browseSourceCache
9b524eb36600 flush Claus Gittinger <cg@exept.de> parents: 10711 diff changeset	12856	enableChannel: useManager
9b524eb36600 flush Claus Gittinger <cg@exept.de> parents: 10711 diff changeset	12857	extent: (Point 171 22)
9b524eb36600 flush Claus Gittinger <cg@exept.de> parents: 10711 diff changeset	12858	)
9b524eb36600 flush Claus Gittinger <cg@exept.de> parents: 10711 diff changeset	12859	(ViewSpec
9b524eb36600 flush Claus Gittinger <cg@exept.de> parents: 10711 diff changeset	12860	name: 'Box4'
9b524eb36600 flush Claus Gittinger <cg@exept.de> parents: 10711 diff changeset	12861	extent: (Point 20 10)
9b524eb36600 flush Claus Gittinger <cg@exept.de> parents: 10711 diff changeset	12862	)
9b524eb36600 flush Claus Gittinger <cg@exept.de> parents: 10711 diff changeset	12863	(ActionButtonSpec
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12864	label: 'Flush Cache now'
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12865	name: 'FlushCacheNowButton'
10738 9b524eb36600 flush Claus Gittinger <cg@exept.de> parents: 10711 diff changeset	12866	activeHelpKey: flushSourceCache
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12867	translateLabel: true
7720 a15569db7548 tabability Claus Gittinger <cg@exept.de> parents: 7608 diff changeset	12868	tabable: true
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12869	model: flushSourceCache
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12870	enableChannel: useManager
10738 9b524eb36600 flush Claus Gittinger <cg@exept.de> parents: 10711 diff changeset	12871	extent: (Point 171 22)
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12872	)
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12873	(ActionButtonSpec
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12874	label: 'Condense Cache now'
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12875	name: 'CondenseCacheNowButton'
9835 b43a25708762 helps Claus Gittinger <cg@exept.de> parents: 9833 diff changeset	12876	activeHelpKey: condenseSourceCache
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12877	translateLabel: true
7720 a15569db7548 tabability Claus Gittinger <cg@exept.de> parents: 7608 diff changeset	12878	tabable: true
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12879	model: condenseSourceCache
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12880	enableChannel: useManager
10738 9b524eb36600 flush Claus Gittinger <cg@exept.de> parents: 10711 diff changeset	12881	extent: (Point 171 22)
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12882	)
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12883	)
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12884
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12885	)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12886	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12887	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12888
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12889	)
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12890	extent: (Point 659 95)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12891	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12892	(ViewSpec
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12893	name: 'UseLocalSourceBox'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12894	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12895	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12896	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12897	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12898	label: 'If Present, Use Local Source (Suppress Checkout)'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12899	name: 'CheckBox4'
9322 8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	12900	layout: (LayoutFrame 30 0 0 0 -5 1 23 0)
9835 b43a25708762 helps Claus Gittinger <cg@exept.de> parents: 9833 diff changeset	12901	activeHelpKey: useLocalSources
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12902	enableChannel: useManager
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12903	model: localSourceFirst
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12904	translateLabel: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12905	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12906	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12907
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12908	)
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12909	extent: (Point 659 22)
9322 8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	12910	)
8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	12911	(ViewSpec
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12912	name: 'KeepMethodSourceBox'
9322 8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	12913	component:
8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	12914	(SpecCollection
8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	12915	collection: (
8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	12916	(CheckBoxSpec
8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	12917	label: 'Keep Method Source (In Image)'
8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	12918	name: 'CheckBox7'
8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	12919	layout: (LayoutFrame 30 0 0 0 -5 1 23 0)
9835 b43a25708762 helps Claus Gittinger <cg@exept.de> parents: 9833 diff changeset	12920	activeHelpKey: keepMethodSourceInImage
9322 8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	12921	enableChannel: useManager
8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	12922	model: keepMethodSource
8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	12923	translateLabel: true
8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	12924	)
8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	12925	)
8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	12926
8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	12927	)
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12928	extent: (Point 659 22)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12929	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12930	(ViewSpec
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12931	name: 'CheckForHaltSendsBox'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12932	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12933	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12934	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12935	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12936	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	12937	name: 'CheckBox5'
9322 8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	12938	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	12939	enableChannel: useManager
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12940	model: checkClassesWhenCheckingIn
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12941	translateLabel: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12942	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12943	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12944
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12945	)
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12946	extent: (Point 659 22)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	12947	)
8110 6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	12948	(ViewSpec
6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	12949	name: 'VerboseBox'
6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	12950	component:
6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	12951	(SpecCollection
6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	12952	collection: (
6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	12953	(CheckBoxSpec
6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	12954	label: 'Verbose (Trace Access on Transcript)'
6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	12955	name: 'CheckBox6'
9322 8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	12956	layout: (LayoutFrame 30 0 0 0 -5 1 23 0)
8110 6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	12957	enableChannel: useManager
6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	12958	model: verboseSourceCodeAccess
6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	12959	translateLabel: true
6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	12960	)
6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	12961	)
6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	12962
6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	12963	)
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12964	extent: (Point 659 22)
8110 6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	12965	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	12966	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	12967
933cd54deefe checkin from browser penk parents: 4292 diff changeset	12968	)
6103 d8147b126f9d * empty log message * penk parents: 6086 diff changeset	12969	extent: (Point 659 768)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12970	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12971	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12972
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12973	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12974	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12975	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12976
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12977	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12978	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12979	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12980
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12981	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl class methodsFor:'tableColumns specs'!
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12982
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12983	managerPerMatchingModuleColumns
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12984	"This resource specification was automatically generated
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12985	by the DataSetBuilder of ST/X."
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12986
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12987	"Do not manually edit this!! If it is corrupted,
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12988	the DataSetBuilder may not be able to read the specification."
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12989
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12990	"
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12991	DataSetBuilder new openOnClass:AbstractSettingsApplication::SourceCodeManagementSettingsAppl andSelector:#managerPerMatchingModuleColumns
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12992	"
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12993
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12994	<resource: #tableColumns>
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12995
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12996	^#(
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12997	(DataSetColumnSpec
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12998	label: 'Module (PackageID Match)'
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12999	labelButtonType: Button
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13000	width: 0.5
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13001	model: displayStringForPackage
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13002	menuFromApplication: false
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13003	writeSelector: package:
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13004	canSelect: false
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13005	)
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13006	(DataSetColumnSpec
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13007	label: 'Repository Type'
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13008	labelButtonType: Button
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13009	width: 0.5
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13010	model: displayStringForManagerTypeName
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13011	menuFromApplication: false
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13012	writeSelector: manager:
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13013	canSelect: false
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13014	)
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13015	)
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13016
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13017	! !
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13018
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13019	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'accessing'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13020
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13021	manager
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13022
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13023	^ Smalltalk at:#SourceCodeManager
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13024	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13025
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13026	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'actions'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13027
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13028	actionAdd
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13029	\|dlg package mgr oldEntry idx\|
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13030
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13031	dlg := PerModuleManagerSettingDialog new.
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13032	dlg open ifFalse:[ ^ self ].
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13033	package := dlg package.
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13034	mgr := dlg manager.
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13035	oldEntry := managerPerMatchingModule
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13036	detect:[:entry \| entry package = package and:[ entry manager = mgr ] ]
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13037	ifNone:nil.
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13038	oldEntry notNil
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13039	ifTrue:
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13040	[ oldEntry manager:mgr.
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13041	managerPerMatchingModule changed.
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13042	idx := managerPerMatchingModule indexOf:oldEntry. ]
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13043	ifFalse:
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13044	[ managerPerMatchingModule
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13045	add:(AbstractSourceCodeManager::PackageAndManager package:package manager:mgr).
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13046	idx := managerPerMatchingModule size. ].
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13047	selectedManagerPerMatchingModuleHolder value:idx.
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13048
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13049	"Created: / 18-04-2011 / 19:30:46 / cg"
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13050	"Modified: / 18-04-2011 / 21:24:52 / cg"
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13051	"Modified: / 09-07-2011 / 14:07:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13052	!
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13053
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13054	actionEdit
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13055	<resource: #uiCallback>
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13056
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13057	\| entry dlg \|
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13058	entry := managerPerMatchingModule at: selectedManagerPerMatchingModuleHolder value.
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13059	dlg := PerModuleManagerSettingDialog new.
10301 1ec2ef0050ca Fix vrany parents: 10299 diff changeset	13060	dlg package: entry package.
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13061	dlg manager: entry manager.
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13062	dlg open ifTrue:[
10301 1ec2ef0050ca Fix vrany parents: 10299 diff changeset	13063	entry package: dlg package.
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13064	entry manager: dlg manager.
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13065	entry changed.
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13066	]
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13067
10301 1ec2ef0050ca Fix vrany parents: 10299 diff changeset	13068	"Modified: / 09-07-2011 / 16:04:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13069	!
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13070
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13071	actionMoveDown
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13072	<resource: #uiCallback>
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13073
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13074	\| idx \|
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13075	idx := selectedManagerPerMatchingModuleHolder value.
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13076	idx == managerPerMatchingModule size ifTrue:[^self].
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13077	managerPerMatchingModule swap: idx with: idx + 1.
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13078	selectedManagerPerMatchingModuleHolder value: idx + 1
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13079
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13080	"Modified: / 09-07-2011 / 13:23:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13081	!
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13082
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13083	actionMoveUp
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13084	<resource: #uiCallback>
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13085
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13086	\| idx \|
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13087	idx := selectedManagerPerMatchingModuleHolder value.
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13088	idx == 1 ifTrue:[^self].
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13089	managerPerMatchingModule swap: idx - 1 with: idx.
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13090	selectedManagerPerMatchingModuleHolder value: idx - 1
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13091
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13092	"Modified: / 09-07-2011 / 13:23:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13093	!
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13094
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13095	actionRemove
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13096	\|idx\|
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13097
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13098	idx := self selectedManagerPerMatchingModuleHolder value.
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13099	managerPerMatchingModule removeIndex:idx.
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13100	managerPerMatchingModule size >= idx
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13101	ifTrue:[ selectedManagerPerMatchingModuleHolder value:idx. ]
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13102	ifFalse:
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13103	[ managerPerMatchingModule size >= (idx - 1)
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13104	ifTrue:[ selectedManagerPerMatchingModuleHolder value:idx - 1. ]. ].
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13105
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13106	"Created: / 18-04-2011 / 20:56:46 / cg"
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13107	!
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13108
10796 2754d9b07b70 Added test button to SCM settings application vrany parents: 10792 diff changeset	13109	actionTest
2754d9b07b70 Added test button to SCM settings application vrany parents: 10792 diff changeset	13110	<resource: #uiCallback>
2754d9b07b70 Added test button to SCM settings application vrany parents: 10792 diff changeset	13111
2754d9b07b70 Added test button to SCM settings application vrany parents: 10792 diff changeset	13112	Tools::SourceCodeManagerConfigurationTestTool open
2754d9b07b70 Added test button to SCM settings application vrany parents: 10792 diff changeset	13113
2754d9b07b70 Added test button to SCM settings application vrany parents: 10792 diff changeset	13114	"Modified: / 11-10-2011 / 08:52:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2754d9b07b70 Added test button to SCM settings application vrany parents: 10792 diff changeset	13115	!
2754d9b07b70 Added test button to SCM settings application vrany parents: 10792 diff changeset	13116
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	13117	addModule:module withData:data
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	13118	(self listOfModules includes:module) ifFalse:[
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	13119	self listOfModules add:module; sort.
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	13120	].
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	13121	rootsPerModule at:module put:data.
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	13122
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	13123	self updateModifiedChannel.
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	13124
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	13125	"Created: / 08-11-2006 / 19:25:21 / cg"
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	13126	!
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	13127
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13128	basicReadSettings
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13129	self initialize.
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13130
9322 8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	13131	self keepMethodSource value:(currentUserPrefs keepMethodSourceCode).
8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	13132
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13133	self hasManager ifTrue:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13134	self useManager value:(manager := Smalltalk at:#SourceCodeManager) notNil.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13135	self localSourceFirst value:Class tryLocalSourceFirst.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13136	self sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName).
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13137
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13138	manager notNil ifTrue:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13139	manager forgetDisabledModules.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13140	].
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13141	] ifFalse:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13142	self useManager value:false.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13143	self localSourceFirst value:false.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13144	].
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13145
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13146	self managerPerMatchingModule removeAll.
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13147	AbstractSourceCodeManager managerPerMatchingModuleDefinitions do:[:each \|
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13148	self managerPerMatchingModule add: each copy
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13149	].
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13150
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13151	self availableManagers do:[:eachManager \|
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13152	\|infoPerModule\|
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13153
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13154	infoPerModule := eachManager repositoryInfoPerModule.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13155	infoPerModule keysAndValuesDo:[:module :info \|
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13156	rootsPerModule at:module put:(Array with:eachManager with:info).
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13157	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13158	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13159
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	13160	self updateSelectedManager.
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	13161
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13162	self checkClassesWhenCheckingIn value:(currentUserPrefs at:#checkClassesWhenCheckingIn ifAbsent:true).
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13163
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13164	rootsPerModule notNil ifTrue:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13165	self listOfModules removeAll.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13166	listOfModules addAll:rootsPerModule keys asList.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13167	].
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13168	"/ self selectedPerModuleRootChanged.
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13169
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13170	"Modified: / 18-04-2011 / 21:17:01 / cg"
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13171	"Modified: / 09-07-2011 / 14:00:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13172	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13173
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13174	basicSaveSettings
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13175	\|modules\|
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13176
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13177	currentUserPrefs at:#checkClassesWhenCheckingIn put:self checkClassesWhenCheckingIn value.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13178	Class tryLocalSourceFirst:self localSourceFirst value.
9322 8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	13179	currentUserPrefs keepMethodSourceCode:(self keepMethodSource value).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13180
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13181	(self hasManager and:[self useManager value]) ifTrue:[
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13182	manager ~~ self selectedManager ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13183	manager := nil.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13184	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13185
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13186	manager isNil ifTrue:[
6997 3b32b9cdef10 care for single avail. manager Claus Gittinger <cg@exept.de> parents: 6994 diff changeset	13187	manager := self selectedManager.
3b32b9cdef10 care for single avail. manager Claus Gittinger <cg@exept.de> parents: 6994 diff changeset	13188	manager isNil ifTrue:[
3b32b9cdef10 care for single avail. manager Claus Gittinger <cg@exept.de> parents: 6994 diff changeset	13189	manager := self availableManagers first.
3b32b9cdef10 care for single avail. manager Claus Gittinger <cg@exept.de> parents: 6994 diff changeset	13190	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13191	].
7513 bd3461e85387 * empty log message * Michael Beyl <mb@exept.de> parents: 7506 diff changeset	13192	Smalltalk at:#SourceCodeManager put:manager.
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13193
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13194	manager notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13195	\| nm fn\|
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13196
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13197	nm := self sourceCacheDir value.
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	13198	nm notEmptyOrNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13199	(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	13200	(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	13201	fn recursiveMakeDirectory;
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13202	makeReadableForAll;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13203	makeWritableForAll;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13204	makeExecutableForAll.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13205	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13206	].
5318 02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	13207	(fn isDirectory
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13208	and:[fn isReadable
5318 02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	13209	and:[fn isWritable]]) ifTrue:[
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	13210	AbstractSourceCodeManager cacheDirectoryName:nm.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13211	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13212	self warn:'Invalid sourceCache directory.'
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13213	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13214	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13215	].
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13216
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13217	AbstractSourceCodeManager
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13218	managerPerMatchingModuleDefinitions:
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13219	managerPerMatchingModule asOrderedCollection.
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13220
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13221	self availableManagers do:[:eachManager \|
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13222	\|infoPerModule\|
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13223
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13224	modules := rootsPerModule select:[:entry \| entry first == eachManager].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13225	infoPerModule := Dictionary new.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13226	modules keysAndValuesDo:[:module :entry \|
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13227	entry first == eachManager ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13228	infoPerModule at:module put:(entry second).
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13229	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13230	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13231	eachManager repositoryInfoPerModule:infoPerModule.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13232	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13233
4650 c358bcfef403 source code management have no unsaved changes after enable anymore penk parents: 4635 diff changeset	13234	self sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName).
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13235
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13236	DebugView newDebugger. "/ ???
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13237	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13238	Smalltalk at:#SourceCodeManager put:nil
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13239	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13240
7494 6f26553bcc80 * empty log message * Claus Gittinger <cg@exept.de> parents: 7493 diff changeset	13241	self acceptChannel value.
6f26553bcc80 * empty log message * Claus Gittinger <cg@exept.de> parents: 7493 diff changeset	13242
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13243	"Modified: / 18-04-2011 / 21:22:14 / cg"
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13244	"Modified: / 09-07-2011 / 14:02:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13245	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13246
10811 2da3db63023c added action for "Browse cache" button vrany parents: 10796 diff changeset	13247	browseSourceCache
2da3db63023c added action for "Browse cache" button vrany parents: 10796 diff changeset	13248	<resource: #uiCallback>
2da3db63023c added action for "Browse cache" button vrany parents: 10796 diff changeset	13249
2da3db63023c added action for "Browse cache" button vrany parents: 10796 diff changeset	13250	UserPreferences current fileBrowserClass openOn:
2da3db63023c added action for "Browse cache" button vrany parents: 10796 diff changeset	13251	self sourceCacheDir value
2da3db63023c added action for "Browse cache" button vrany parents: 10796 diff changeset	13252
2da3db63023c added action for "Browse cache" button vrany parents: 10796 diff changeset	13253	"Modified: / 12-10-2011 / 11:11:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2da3db63023c added action for "Browse cache" button vrany parents: 10796 diff changeset	13254	!
2da3db63023c added action for "Browse cache" button vrany parents: 10796 diff changeset	13255
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13256	condenseSourceCache
7549 68f5d6ce4a90 * empty log message * Claus Gittinger <cg@exept.de> parents: 7548 diff changeset	13257	self withWaitCursorDo:[ AbstractSourceCodeManager condenseSourceCache ].
68f5d6ce4a90 * empty log message * Claus Gittinger <cg@exept.de> parents: 7548 diff changeset	13258	Method flushSourceStreamCache.
68f5d6ce4a90 * empty log message * Claus Gittinger <cg@exept.de> parents: 7548 diff changeset	13259
68f5d6ce4a90 * empty log message * Claus Gittinger <cg@exept.de> parents: 7548 diff changeset	13260	"Modified: / 28-11-2006 / 12:21:33 / cg"
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13261	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13262
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13263	flushSourceCache
7549 68f5d6ce4a90 * empty log message * Claus Gittinger <cg@exept.de> parents: 7548 diff changeset	13264	self withWaitCursorDo:[ AbstractSourceCodeManager flushSourceCache ].
10738 9b524eb36600 flush Claus Gittinger <cg@exept.de> parents: 10711 diff changeset	13265
9b524eb36600 flush Claus Gittinger <cg@exept.de> parents: 10711 diff changeset	13266	"Modified: / 30-09-2011 / 13:34:01 / cg"
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13267	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13268
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13269	removePerModuleRoot
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13270
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13271	\|module\|
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13272
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13273	acceptChannel value:true.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13274	module := self perModuleRootModule value.
5174 bfd29db1a419 source code management per module get apply for changes Michael Beyl <mb@exept.de> parents: 5172 diff changeset	13275	self listOfModules remove:module ifAbsent:nil.
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13276	rootsPerModule removeKey:module ifAbsent:nil.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13277	self perModuleRootModule value:nil.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13278	self perModuleRoot value:nil.
5174 bfd29db1a419 source code management per module get apply for changes Michael Beyl <mb@exept.de> parents: 5172 diff changeset	13279	self updateModifiedChannel.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13280	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13281
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13282	setupSourceCodeManager
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13283
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13284	AbstractLauncherApplication::LauncherDialogs cvsConfigurationDialog.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13285	manager := (Smalltalk at:#SourceCodeManager).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13286	manager notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13287	repositoryHolder value: manager repositoryName.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13288	sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13289	].
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13290
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13291	"Modified: / 16-08-2006 / 11:07:51 / cg"
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13292	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13293
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13294	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'aspects'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13295
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13296	acceptChannel
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13297
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13298	acceptChannel isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13299	acceptChannel := TriggerValue new.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13300	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13301	^ acceptChannel.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13302	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13303
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13304	availableManagerTypeNames
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13305	^ self availableManagers collect:[:cls \| cls managerTypeName].
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13306
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13307	"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	13308	!
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13309
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13310	availableManagers
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13311	availableManagers isNil ifTrue:[
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13312	availableManagers := AbstractSourceCodeManager availableManagers copy.
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13313	availableManagers := availableManagers sort:[:a :b \| a managerTypeName asLowercase < b managerTypeName asLowercase].
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13314	].
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13315	^ availableManagers.
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13316
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13317	"
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13318	self basicNew availableManagers
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13319	"
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13320
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13321	"Created: / 16-08-2006 / 11:01:10 / cg"
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13322	"Modified: / 18-04-2011 / 19:05:47 / cg"
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13323	!
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13324
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13325	canMoveDown
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13326	^ BlockValue
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13327	with:
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13328	[:sel \|
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13329	sel notNil
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13330	and:[sel ~~ 0
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13331	and:[sel ~~ managerPerMatchingModule size]]]
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13332	argument:(self selectedManagerPerMatchingModuleHolder)
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13333
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13334	"Created: / 18-04-2011 / 20:52:48 / cg"
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13335	"Created: / 09-07-2011 / 14:18:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13336	!
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13337
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13338	canMoveUp
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13339	^ BlockValue
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13340	with:
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13341	[:sel \|
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13342	sel notNil
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13343	and:[sel > 1]]
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13344	argument:(self selectedManagerPerMatchingModuleHolder)
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13345
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13346	"Created: / 18-04-2011 / 20:52:48 / cg"
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13347	"Created: / 09-07-2011 / 14:18:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13348	!
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13349
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13350	canRemoveManagerPerPackageEntry
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13351	^ BlockValue
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13352	with:[:sel :use \| sel notNil and:[sel ~~ 0 and:[use]] ]
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13353	argument:(self selectedManagerPerMatchingModuleHolder)
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13354	argument:(self useManager)
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13355
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13356	"Created: / 18-04-2011 / 20:52:48 / cg"
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13357	!
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13358
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13359	checkClassesWhenCheckingIn
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13360
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13361	checkClassesWhenCheckingIn isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13362	checkClassesWhenCheckingIn := (currentUserPrefs at:#checkClassesWhenCheckingIn ifAbsent:true) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	13363	checkClassesWhenCheckingIn onChangeSend:#updateModifiedChannel to:self
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13364	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13365	^ checkClassesWhenCheckingIn.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13366	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13367
9322 8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	13368	keepMethodSource
8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	13369
8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	13370	keepMethodSource isNil ifTrue:[
8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	13371	keepMethodSource := ValueHolder new.
8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	13372	keepMethodSource onChangeSend:#updateModifiedChannel to:self
8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	13373	].
8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	13374	^ keepMethodSource.
8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	13375	!
8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	13376
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13377	listOfModules
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13378
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13379	listOfModules isNil ifTrue:[
5174 bfd29db1a419 source code management per module get apply for changes Michael Beyl <mb@exept.de> parents: 5172 diff changeset	13380	rootsPerModule notNil ifTrue:[
bfd29db1a419 source code management per module get apply for changes Michael Beyl <mb@exept.de> parents: 5172 diff changeset	13381	listOfModules := rootsPerModule keys asList.
bfd29db1a419 source code management per module get apply for changes Michael Beyl <mb@exept.de> parents: 5172 diff changeset	13382	].
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13383	listOfModules sort.
5174 bfd29db1a419 source code management per module get apply for changes Michael Beyl <mb@exept.de> parents: 5172 diff changeset	13384	listOfModules onChangeSend:#updateModifiedChannel to:self
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13385	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13386	^ listOfModules.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13387	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13388
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13389	localSourceFirst
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13390
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13391	localSourceFirst isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13392	localSourceFirst := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	13393	localSourceFirst onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13394	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13395	^ localSourceFirst.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13396	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13397
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13398	managerIsCVSSourceCodeManager
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13399	managerIsCVSSourceCodeManager isNil ifTrue:[
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13400	managerIsCVSSourceCodeManager := (SourceCodeManager notNil and:
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13401	[SourceCodeManager isCVS]) asValue.
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13402	].
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13403	^ managerIsCVSSourceCodeManager.
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13404
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13405	"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	13406	!
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13407
7493 5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13408	managerIsSmallTeamSourceCodeManager
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13409	managerIsSmallTeamSourceCodeManager isNil ifTrue:[
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13410	managerIsSmallTeamSourceCodeManager := (SourceCodeManager notNil and:
7492 5b2f0c07896e * empty log message * Claus Gittinger <cg@exept.de> parents: 7490 diff changeset	13411	[SourceCodeManager isSmallTeam]) asValue.
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	13412	].
7493 5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13413	^ managerIsSmallTeamSourceCodeManager.
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13414
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13415	"Created: / 09-11-2006 / 14:33:53 / cg"
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	13416	!
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	13417
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13418	managerIsStoreSourceCodeManager
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13419	managerIsStoreSourceCodeManager isNil ifTrue:[
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13420	managerIsStoreSourceCodeManager := (SourceCodeManager notNil and:
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13421	[SourceCodeManager isStore]) asValue.
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13422	].
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13423	^ managerIsStoreSourceCodeManager.
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13424
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13425	"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	13426	!
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13427
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13428	managerPerMatchingModule
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13429	managerPerMatchingModule isNil ifTrue:[
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13430	managerPerMatchingModule := List new.
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13431	managerPerMatchingModule onChangeSend:#updateModifiedChannel to:self
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13432	].
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13433	^ managerPerMatchingModule.
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13434
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13435	"Created: / 18-04-2011 / 20:44:54 / cg"
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13436	!
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13437
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13438	managerTypeIndexToAddHolder
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13439	managerTypeIndexToAddHolder isNil ifTrue:[
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13440	managerTypeIndexToAddHolder := ValueHolder new.
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13441	].
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13442	^ managerTypeIndexToAddHolder.
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13443
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13444	"Created: / 18-04-2011 / 19:32:30 / cg"
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13445	!
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13446
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13447	managerTypeToAddHolder
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13448	managerTypeToAddHolder isNil ifTrue:[
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13449	managerTypeToAddHolder := ValueHolder new.
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13450	].
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13451	^ managerTypeToAddHolder.
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13452
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13453	"Created: / 18-04-2011 / 19:34:11 / cg"
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13454	!
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13455
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13456	moreThanOneManagerTypesAvailable
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13457	^ self availableManagers size > 1
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13458
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13459	"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	13460	!
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13461
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13462	packageToAddHolder
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13463	packageToAddHolder isNil ifTrue:[
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13464	packageToAddHolder := ValueHolder new.
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13465	].
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13466	^ packageToAddHolder.
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13467
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13468	"Created: / 18-04-2011 / 19:32:39 / cg"
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13469	!
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13470
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13471	perModuleFieldsEnableHolder
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13472
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13473	perModuleFieldsEnableHolder isNil ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13474	perModuleFieldsEnableHolder := true asValue.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13475	perModuleFieldsEnableHolder addDependent:self.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13476	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13477	^ perModuleFieldsEnableHolder.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13478	!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13479
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13480	perModuleRoot
5332 d02586ccaa63 value holder for roots per module penk parents: 5318 diff changeset	13481	perModuleRoot isNil ifTrue:[
d02586ccaa63 value holder for roots per module penk parents: 5318 diff changeset	13482	perModuleRoot := ValueHolder new.
5343 eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	13483	perModuleRoot addDependent:self.
5332 d02586ccaa63 value holder for roots per module penk parents: 5318 diff changeset	13484	].
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13485	^ perModuleRoot.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13486	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13487
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13488	perModuleRootModule
5332 d02586ccaa63 value holder for roots per module penk parents: 5318 diff changeset	13489	perModuleRootModule isNil ifTrue:[
d02586ccaa63 value holder for roots per module penk parents: 5318 diff changeset	13490	perModuleRootModule := ValueHolder new.
d02586ccaa63 value holder for roots per module penk parents: 5318 diff changeset	13491	].
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13492	^ perModuleRootModule.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13493	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13494
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13495	removeEnabled
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13496
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13497	removeEnabled isNil ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13498	removeEnabled := false asValue.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13499	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13500	^ removeEnabled.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13501	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13502
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13503	selectedManager
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13504	\|idx\|
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13505
6997 3b32b9cdef10 care for single avail. manager Claus Gittinger <cg@exept.de> parents: 6994 diff changeset	13506	self availableManagers size == 1 ifTrue:[
3b32b9cdef10 care for single avail. manager Claus Gittinger <cg@exept.de> parents: 6994 diff changeset	13507	^ self availableManagers first
3b32b9cdef10 care for single avail. manager Claus Gittinger <cg@exept.de> parents: 6994 diff changeset	13508	].
3b32b9cdef10 care for single avail. manager Claus Gittinger <cg@exept.de> parents: 6994 diff changeset	13509
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13510	idx := self selectedManagerTypeIndexHolder value.
6997 3b32b9cdef10 care for single avail. manager Claus Gittinger <cg@exept.de> parents: 6994 diff changeset	13511	(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	13512	^ self availableManagers at:idx
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13513
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13514	"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	13515	!
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13516
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13517	selectedManagerPerMatchingModuleHolder
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13518	selectedManagerPerMatchingModuleHolder isNil ifTrue:[
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13519	selectedManagerPerMatchingModuleHolder := nil asValue.
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13520	selectedManagerPerMatchingModuleHolder addDependent:self.
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13521	].
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13522	^ selectedManagerPerMatchingModuleHolder.
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13523
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13524	"Created: / 18-04-2011 / 20:49:17 / cg"
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13525	!
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13526
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13527	selectedManagerTypeIndexHolder
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	13528	\|selectedManager\|
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13529
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13530	selectedManagerTypeIndexHolder isNil ifTrue:[
6997 3b32b9cdef10 care for single avail. manager Claus Gittinger <cg@exept.de> parents: 6994 diff changeset	13531	selectedManagerTypeIndexHolder := nil asValue.
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13532	selectedManagerTypeIndexHolder onChangeEvaluate:[
7080 26d4f0a51124 * empty log message * Claus Gittinger <cg@exept.de> parents: 7071 diff changeset	13533	selectedManager := self selectedManager.
26d4f0a51124 * empty log message * Claus Gittinger <cg@exept.de> parents: 7071 diff changeset	13534	self managerIsCVSSourceCodeManager value:( selectedManager notNil and:[ selectedManager isCVS] ).
26d4f0a51124 * empty log message * Claus Gittinger <cg@exept.de> parents: 7071 diff changeset	13535	self managerIsStoreSourceCodeManager value:( selectedManager notNil and:[ selectedManager isStore] ).
7493 5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13536	self managerIsSmallTeamSourceCodeManager value:( selectedManager notNil and:[ selectedManager isSmallTeam] ).
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13537	self updateModifiedChannel
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13538	].
6997 3b32b9cdef10 care for single avail. manager Claus Gittinger <cg@exept.de> parents: 6994 diff changeset	13539
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	13540	self updateSelectedManager.
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13541	].
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13542	^ selectedManagerTypeIndexHolder.
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13543
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13544	"Created: / 16-08-2006 / 11:17:20 / cg"
7493 5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13545	"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	13546	!
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13547
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13548	selectedPerModuleRoot
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13549	selectedPerModuleRoot isNil ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13550	selectedPerModuleRoot := ValueHolder new.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13551	selectedPerModuleRoot addDependent:self.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13552	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13553	^ selectedPerModuleRoot.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13554	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13555
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13556	sourceCacheDir
5286 ab068226973e has unsaved changes penk parents: 5283 diff changeset	13557	sourceCacheDir isNil ifTrue:[
ab068226973e has unsaved changes penk parents: 5283 diff changeset	13558	sourceCacheDir := ValueHolder new.
ab068226973e has unsaved changes penk parents: 5283 diff changeset	13559	sourceCacheDir onChangeSend:#updateModifiedChannel to:self
ab068226973e has unsaved changes penk parents: 5283 diff changeset	13560	].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13561	^ sourceCacheDir.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13562	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13563
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13564	useManager
5286 ab068226973e has unsaved changes penk parents: 5283 diff changeset	13565	useManager isNil ifTrue:[
ab068226973e has unsaved changes penk parents: 5283 diff changeset	13566	useManager := ValueHolder new.
ab068226973e has unsaved changes penk parents: 5283 diff changeset	13567	useManager onChangeSend:#updateModifiedChannel to:self
ab068226973e has unsaved changes penk parents: 5283 diff changeset	13568	].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13569	^ useManager.
8110 6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	13570	!
6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	13571
6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	13572	verboseSourceCodeAccess
6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	13573	verboseSourceCodeAccess isNil ifTrue:[
6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	13574	verboseSourceCodeAccess := false asValue.
6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	13575	verboseSourceCodeAccess onChangeSend:#updateModifiedChannel to:self
6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	13576	].
6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	13577	^ verboseSourceCodeAccess.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13578	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13579
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13580	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'change & update'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13581
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13582	selectedPerModuleRootChanged
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13583	\|module entry\|
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13584
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13585	self acceptChannel value:true.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13586	module := self selectedPerModuleRoot value.
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13587	module isNil ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13588	self removeEnabled value:false.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13589	self perModuleRootModule value:' '.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13590	self perModuleRoot value:''.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13591	^ self
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	entry := rootsPerModule at:module ifAbsent:#().
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13595	(entry first = CVSSourceCodeManager) ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13596	self removeEnabled value:true.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13597	self perModuleRootModule value:module.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13598	self perModuleRoot value:(entry at:2).
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13599	] ifFalse:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13600	self removeEnabled value:false.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13601	self perModuleRootModule value:module , ' ',('<<use ',entry first managerTypeName,'>>') allBold.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13602	self perModuleRoot value:''.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13603	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13604	!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13605
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13606	sourceDirChanged
9057 94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13607	\|nm fn previousDir\|
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	13608
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	13609	manager isNil ifTrue:[^ self].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	13610
9057 94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13611	previousDir := AbstractSourceCodeManager cacheDirectoryName.
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13612
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	13613	nm := self sourceCacheDir value.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	13614	nm isEmptyOrNil ifTrue:[^ self].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	13615
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	13616	(fn := nm asFilename) exists ifFalse:[
9057 94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13617	(self confirm:(resources
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13618	stringWithCRs:'SourceCache directory "%1" does not exist.\Create ?'
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13619	with:nm)
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13620	) ifFalse:[
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13621	self sourceCacheDir value:previousDir.
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	13622	^ self.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	13623	].
9057 94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13624	fn
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13625	recursiveMakeDirectory;
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13626	makeReadableForAll;
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13627	makeWritableForAll;
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13628	makeExecutableForAll.
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13629	^ self.
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13630	].
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13631
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13632	(fn isDirectory) ifFalse:[
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13633	self warn:(resources
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13634	stringWithCRs:'Not a directory: "%1"'
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13635	with:nm).
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13636	self sourceCacheDir value:previousDir.
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13637	^ self.
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13638	].
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13639
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13640	(fn isReadable and:[fn isWritable]) ifFalse:[
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13641	(self confirm:(resources
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13642	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	13643	with:nm)
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13644	) ifFalse:[
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13645	self sourceCacheDir value:previousDir.
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13646	^ self.
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13647	].
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13648	fn
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13649	makeReadableForAll;
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13650	makeWritableForAll;
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13651	makeExecutableForAll.
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13652	].
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13653	"/ (fn isReadableForAll and:[fn isWritableForAll]) ifFalse:[
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13654	"/ (self confirm:(resources
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13655	"/ 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	13656	"/ with:nm)
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13657	"/ ) ifTrue:[
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13658	"/ fn
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13659	"/ makeReadableForAll;
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13660	"/ makeWritableForAll;
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13661	"/ makeExecutableForAll.
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13662	"/ ]
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13663	"/ ].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13664	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13665
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13666	update:something with:aParameter from:changedObject
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13667	\|idx entry\|
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13668
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13669	changedObject == sourceCacheDir ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13670	self sourceDirChanged.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13671	self updateModifiedChannel.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13672	^ self
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13673	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13674
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13675	changedObject == selectedManagerPerMatchingModuleHolder ifTrue:[
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13676	idx := changedObject value.
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13677	(idx notNil and:[idx ~~ 0]) ifTrue:[
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13678	entry := self managerPerMatchingModule at:idx.
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13679	self packageToAddHolder value:(entry package).
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13680	self managerTypeToAddHolder value:(entry managerTypeName).
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13681	].
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13682	^ self.
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	13683	].
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	13684
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13685	super update:something with:aParameter from:changedObject
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	13686
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13687	"Modified: / 18-04-2011 / 21:23:08 / cg"
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13688	"Modified: / 09-07-2011 / 14:07:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	13689	!
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	13690
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	13691	updateSelectedManager
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	13692	\|selectedManagerTypeIndex\|
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	13693
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	13694	selectedManagerTypeIndex := self availableManagers indexOf:SourceCodeManager.
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	13695	selectedManagerTypeIndex == 0 ifTrue:[
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	13696	self availableManagers size == 1 ifTrue:[
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	13697	selectedManagerTypeIndex := 1.
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	13698	].
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	13699	].
7178 1f33a61499e6 * empty log message * ca parents: 7175 diff changeset	13700	self selectedManagerTypeIndexHolder value:selectedManagerTypeIndex.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13701	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13702
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	13703	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	13704
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	13705	helpFilename
10125 8c08ad056878 language strings Claus Gittinger <cg@exept.de> parents: 10124 diff changeset	13706	^ 'Launcher/sourceRepositorySetup.html'
8c08ad056878 language strings Claus Gittinger <cg@exept.de> parents: 10124 diff changeset	13707
8c08ad056878 language strings Claus Gittinger <cg@exept.de> parents: 10124 diff changeset	13708	"Modified: / 04-07-2011 / 17:22:39 / cg"
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	13709	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	13710
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13711	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'initialization & release'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13712
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13713	initialize
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13714	(AbstractSourceCodeManager notNil) ifTrue:[ AbstractSourceCodeManager autoload ].
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	13715
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13716	managerTypePerModule := Dictionary new.
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13717
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	13718	useManager := false asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	13719	useManager onChangeSend:#updateModifiedChannel to:self.
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	13720
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	13721	sourceCacheDir := nil asValue.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	13722	sourceCacheDir addDependent:self.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	13723
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	13724	repositoryHolder := '' asValue.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	13725	rootsPerModule := Dictionary new.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	13726
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13727	self availableManagers do:[:eachManager \|
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13728	eachManager repositoryInfoPerModule
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13729	keysAndValuesDo:[:module :info \|
8356 e70467868730 * empty log message * Claus Gittinger <cg@exept.de> parents: 8326 diff changeset	13730	module withoutSeparators ~= module ifTrue:[
e70467868730 * empty log message * Claus Gittinger <cg@exept.de> parents: 8326 diff changeset	13731	self halt:'should not happen any longer'
e70467868730 * empty log message * Claus Gittinger <cg@exept.de> parents: 8326 diff changeset	13732	].
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13733	rootsPerModule at:module put:(Array with:eachManager with:info)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13734	].
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	13735	].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	13736
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13737	super initialize.
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	13738
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13739	"Modified: / 18-04-2011 / 19:37:38 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13740	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13741
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13742	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'queries'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13743
5318 02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	13744	cvsRootFromCVSRootFileOrNil
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	13745	\|cvsDir cvsRootFile cvsRoot\|
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	13746
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	13747	cvsDir := 'CVS' asFilename.
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	13748	cvsDir isDirectory ifTrue:[
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	13749	cvsRootFile := cvsDir construct:'Root'.
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	13750	cvsRootFile isReadable ifTrue:[
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	13751	cvsRoot := cvsRootFile contents firstIfEmpty:nil.
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	13752	].
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	13753	].
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	13754	^ cvsRoot
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	13755	!
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	13756
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13757	hasManager
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13758	"true if ANY source code management class is available"
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13759
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13760	^ AbstractSourceCodeManager notNil and:[AbstractSourceCodeManager isLoaded]
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13761	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13762
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13763	hasUnsavedChanges
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	13764	(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	13765	(Smalltalk at:#SourceCodeManager) ~~ self selectedManager ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	13766	(self hasManager and:[self useManager value]) ifFalse:[^ false].
5286 ab068226973e has unsaved changes penk parents: 5283 diff changeset	13767
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13768	(Class tryLocalSourceFirst ~= self localSourceFirst value) ifTrue:[^ true].
9057 94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13769	((self selectedManager cacheDirectoryName ? '') ~= (self sourceCacheDir value ? '')) ifTrue:[^ true].
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13770
6781 facbb533a366 * empty log message * Claus Gittinger <cg@exept.de> parents: 6780 diff changeset	13771	((currentUserPrefs at:#checkClassesWhenCheckingIn ifAbsent:true) ~= self checkClassesWhenCheckingIn value)
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	13772	ifTrue:[^ true].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	13773
9322 8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	13774	((currentUserPrefs keepMethodSourceCode) ~= self keepMethodSource value)
8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	13775	ifTrue:[^ true].
8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	13776
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13777	((AbstractSourceCodeManager managerPerMatchingModuleDefinitions)
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13778	~= (self managerPerMatchingModule asOrderedCollection)) ifTrue:[^ true].
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13779
7493 5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13780	self availableManagers do:[:mgr \|
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	13781	\|modules\|
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	13782
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	13783	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	13784
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	13785	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	13786	((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	13787	ifFalse:[^ true].
ae51cb7d24de adding a per-module-repository must also enable the save button Claus Gittinger <cg@exept.de> parents: 7347 diff changeset	13788	].
ae51cb7d24de adding a per-module-repository must also enable the save button Claus Gittinger <cg@exept.de> parents: 7347 diff changeset	13789	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	13790	((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	13791	ifFalse:[^ true].
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	13792	].
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	13793	].
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	13794
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	13795	^ false
7331 b8986149fdfd use CVSExecutable instead of CVSBindir Claus Gittinger <cg@exept.de> parents: 7326 diff changeset	13796
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13797	"Modified: / 18-04-2011 / 21:22:18 / cg"
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13798	"Modified: / 09-07-2011 / 14:09:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13799	! !
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13800
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13801	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl::PerModuleManagerSettingDialog class methodsFor:'interface specs'!
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13802
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13803	windowSpec
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13804	"This resource specification was automatically generated
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13805	by the UIPainter of ST/X."
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13806
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13807	"Do not manually edit this!! If it is corrupted,
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13808	the UIPainter may not be able to read the specification."
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13809
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13810	"
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13811	UIPainter new openOnClass:AbstractSettingsApplication::SourceCodeManagementSettingsAppl::PerModuleManagerSettingDialog andSelector:#windowSpec
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13812	AbstractSettingsApplication::SourceCodeManagementSettingsAppl::PerModuleManagerSettingDialog new openInterface:#windowSpec
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13813	AbstractSettingsApplication::SourceCodeManagementSettingsAppl::PerModuleManagerSettingDialog open
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13814	"
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13815
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13816	<resource: #canvas>
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13817
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13818	^
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13819	#(FullSpec
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13820	name: windowSpec
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13821	window:
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13822	(WindowSpec
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13823	label: 'Per Module Source Code Manager'
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13824	name: 'Per Module Source Code Manager'
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13825	min: (Point 10 10)
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13826	bounds: (Rectangle 0 0 581 98)
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13827	)
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13828	component:
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13829	(SpecCollection
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13830	collection: (
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13831	(ViewSpec
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13832	name: 'Content'
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13833	layout: (LayoutFrame 0 0 0 0 0 1 -30 1)
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13834	component:
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13835	(SpecCollection
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13836	collection: (
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13837	(LabelSpec
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13838	label: 'Package ID:'
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13839	name: 'Label15'
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13840	layout: (LayoutFrame 9 0 9 0 100 0 31 0)
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13841	translateLabel: true
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13842	adjust: right
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13843	)
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13844	(LabelSpec
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13845	label: 'Manager:'
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13846	name: 'Label16'
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13847	layout: (LayoutFrame 9 0 37 0 100 0 59 0)
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13848	translateLabel: true
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13849	adjust: right
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13850	)
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13851	(InputFieldSpec
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13852	name: 'EntryField1'
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13853	layout: (LayoutFrame 108 0 9 0 -9 1 31 0)
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13854	enableChannel: useManager
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13855	model: packageHolder
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13856	immediateAccept: true
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13857	acceptOnReturn: true
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13858	acceptOnTab: true
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13859	acceptOnPointerLeave: true
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13860	)
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13861	(ComboListSpec
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13862	name: 'ComboList2'
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13863	layout: (LayoutFrame 108 0 39 0 -9 1 61 0)
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13864	model: managerNameHolder
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13865	comboList: availableManagerTypeNames
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13866	useIndex: false
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13867	hidePullDownMenuButton: true
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13868	)
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13869	)
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13870
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13871	)
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13872	)
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13873	(HorizontalPanelViewSpec
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13874	name: 'Buttons'
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13875	layout: (LayoutFrame 0 0 -30 1 0 1 0 1)
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13876	horizontalLayout: fit
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13877	verticalLayout: center
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13878	horizontalSpace: 3
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13879	verticalSpace: 3
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13880	reverseOrderIfOKAtLeft: true
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13881	component:
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13882	(SpecCollection
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13883	collection: (
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13884	(ActionButtonSpec
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13885	label: 'Cancel'
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13886	name: 'Button2'
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13887	translateLabel: true
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13888	model: doCancel
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13889	extent: (Point 289 22)
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13890	)
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13891	(ActionButtonSpec
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13892	label: 'OK'
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13893	name: 'Button1'
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13894	translateLabel: true
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13895	model: doAccept
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13896	enableChannel: doAcceptEnabled
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13897	extent: (Point 289 22)
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13898	)
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13899	)
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13900
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13901	)
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13902	)
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13903	)
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13904
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13905	)
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13906	)
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13907	! !
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13908
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13909	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl::PerModuleManagerSettingDialog methodsFor:'accessing'!
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13910
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13911	manager
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13912
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13913	\| m mn\|
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13914	mn := self managerNameHolder value.
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13915	m := self availableManagers detect:[:mgr \| mgr managerTypeName = mn] ifNone:nil.
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13916	^m
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13917
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13918	"Created: / 09-07-2011 / 13:07:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13919	!
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13920
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13921	manager: aSourceCodeManager
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13922
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13923	self managerNameHolder value: aSourceCodeManager managerTypeName
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13924
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13925	"Created: / 09-07-2011 / 13:02:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13926	!
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13927
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13928	package
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13929
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13930	^self packageHolder value
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13931
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13932	"Created: / 09-07-2011 / 13:06:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13933	!
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13934
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13935	package: aString
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13936
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13937	self packageHolder value: aString
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13938
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13939	"Created: / 09-07-2011 / 13:02:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13940	! !
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13941
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13942	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl::PerModuleManagerSettingDialog methodsFor:'aspects'!
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13943
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13944	availableManagerTypeNames
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13945	^ self availableManagers collect:[:cls \| cls managerTypeName].
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13946
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13947	"Created: / 16-08-2006 / 11:16:25 / cg"
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13948	!
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13949
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13950	availableManagers
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13951	availableManagers isNil ifTrue:[
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13952	availableManagers := AbstractSourceCodeManager availableManagers copy.
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13953	availableManagers := availableManagers sort:[:a :b \| a managerTypeName asLowercase < b managerTypeName asLowercase].
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13954	].
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13955	^ availableManagers.
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13956
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13957	"
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13958	self basicNew availableManagers
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13959	"
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13960
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13961	"Created: / 16-08-2006 / 11:01:10 / cg"
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13962	"Modified: / 18-04-2011 / 19:05:47 / cg"
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13963	!
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13964
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13965	doAcceptEnabled
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13966	<resource: #uiAspect>
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13967
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13968	\|holder\|
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13969
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13970	(holder := builder bindingAt:#doAcceptEnabled) isNil ifTrue:[
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13971	holder := BlockValue
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13972	with:
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13973	[:package :manager\|
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13974	package value notEmptyOrNil and:[manager value notNil]]
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13975	argument: self packageHolder
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13976	argument: self managerHolder.
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13977
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13978	builder aspectAt:#doAcceptEnabled put:holder.
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13979	].
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13980	^ holder.
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13981
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13982	"Modified: / 09-07-2011 / 13:00:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13983	!
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13984
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13985	managerHolder
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13986	<resource: #uiAspect>
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13987
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13988	"automatically generated by UIPainter ..."
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13989
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13990	"*** the code below creates a default model when invoked."
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13991	"*** (which may not be the one you wanted)"
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13992	"*** Please change as required and accept it in the browser."
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13993	"*** (and replace this comment by something more useful ;-)"
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13994
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13995	managerNameHolder isNil ifTrue:[
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13996	managerNameHolder := ValueHolder new.
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13997	"/ if your app needs to be notified of changes, uncomment one of the lines below:
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13998	"/ managerHolder addDependent:self.
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	13999	"/ managerHolder onChangeSend:#managerHolderChanged to:self.
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	14000	].
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	14001	^ managerNameHolder.
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	14002	!
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	14003
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	14004	managerNameHolder
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	14005	<resource: #uiAspect>
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	14006
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	14007	"automatically generated by UIPainter ..."
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	14008
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	14009	"*** the code below creates a default model when invoked."
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	14010	"*** (which may not be the one you wanted)"
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	14011	"*** Please change as required and accept it in the browser."
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	14012	"*** (and replace this comment by something more useful ;-)"
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	14013
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	14014	managerNameHolder isNil ifTrue:[
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	14015	managerNameHolder := ValueHolder new.
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	14016	"/ if your app needs to be notified of changes, uncomment one of the lines below:
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	14017	"/ managerHolder addDependent:self.
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	14018	"/ managerHolder onChangeSend:#managerHolderChanged to:self.
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	14019	].
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	14020	^ managerNameHolder.
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	14021
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	14022	"Created: / 09-07-2011 / 13:05:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	14023	!
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	14024
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	14025	packageHolder
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	14026	<resource: #uiAspect>
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	14027
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	14028	"automatically generated by UIPainter ..."
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	14029
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	14030	"*** the code below creates a default model when invoked."
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	14031	"*** (which may not be the one you wanted)"
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	14032	"*** Please change as required and accept it in the browser."
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	14033	"*** (and replace this comment by something more useful ;-)"
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	14034
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	14035	packageHolder isNil ifTrue:[
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	14036	packageHolder := ValueHolder new.
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	14037	"/ if your app needs to be notified of changes, uncomment one of the lines below:
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	14038	"/ packageHolder addDependent:self.
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	14039	"/ packageHolder onChangeSend:#packageHolderChanged to:self.
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	14040	].
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	14041	^ packageHolder.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14042	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14043
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14044	!AbstractSettingsApplication::StyleSettingsAppl class methodsFor:'defaults'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14045
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14046	standardStyles
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14047
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14048	^ #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14049	'decWindows'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14050	'iris'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14051	'motif'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14052	'mswindows95'
6073 09b4a678793a more xp style Claus Gittinger <cg@exept.de> parents: 6072 diff changeset	14053	'mswindowsxp'
9071 c4f0e8993ba1 * empty log message * Claus Gittinger <cg@exept.de> parents: 9070 diff changeset	14054	'mswindowsvista'
c4f0e8993ba1 * empty log message * Claus Gittinger <cg@exept.de> parents: 9070 diff changeset	14055	"/ 'next'
6108 7e6d327225fa * empty log message * Claus Gittinger <cg@exept.de> parents: 6103 diff changeset	14056	"/ 'normal'
9070 7deb618d44ac * empty log message * Claus Gittinger <cg@exept.de> parents: 9069 diff changeset	14057	"/ 'os2'
6003 668703f77d2c * empty log message * Claus Gittinger <cg@exept.de> parents: 5991 diff changeset	14058	'sgmotif'
6073 09b4a678793a more xp style Claus Gittinger <cg@exept.de> parents: 6072 diff changeset	14059	"/ 'st80'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14060	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14061	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14062
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	14063	!AbstractSettingsApplication::StyleSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	14064
9163 431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14065	closePreviewButtonImage
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14066	^ ToolbarIconLibrary removeTabIcon
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14067	!
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14068
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14069	defaultIcon
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	14070	"This resource specification was automatically generated
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	14071	by the ImageEditor of ST/X."
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	14072
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	14073	"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	14074	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	14075
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	14076	"
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	14077	self defaultIcon2 inspect
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	14078	ImageEditor openOnClass:self andSelector:#defaultIcon2
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	14079	Icon flushCachedIcons
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	14080	"
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	14081
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	14082	<resource: #image>
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	14083
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	14084	^Icon
9803 ca480beae977 set icon resource Stefan Vogel <sv@exept.de> parents: 9797 diff changeset	14085	constantNamed:'AbstractSettingsApplication::MiscDisplaySettingsAppl class defaultIcon'
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	14086	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	14087	@@@@@@@@@@@@@@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	14088	@@@@@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	14089	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	14090	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	14091	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	14092	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	14093	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	14094
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14095	!AbstractSettingsApplication::StyleSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14096
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14097	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14098	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14099	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14100
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14101	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14102	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14103
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14104	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	14105	UIPainter new openOnClass:AbstractSettingsApplication::StyleSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	14106	AbstractSettingsApplication::StyleSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	14107	AbstractSettingsApplication::StyleSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14108	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14109
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14110	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14111
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14112	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	14113	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	14114	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	14115	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	14116	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	14117	label: 'ViewStyle Selection'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	14118	name: 'ViewStyle Selection'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	14119	min: (Point 10 10)
5576 8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	14120	bounds: (Rectangle 0 0 562 661)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14121	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	14122	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	14123	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	14124	collection: (
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14125	(VariableVerticalPanelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14126	name: 'VariableVerticalPanel1'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14127	layout: (LayoutFrame 0 0.0 0 0 0 1.0 -35 1)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14128	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14129	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14130	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14131	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14132	name: 'Box1'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14133	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14134	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14135	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14136	(TextEditorSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14137	name: 'TextEditor1'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14138	layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	14139	style: (FontDescription arial medium roman 9)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14140	model: noticeLabelHolder
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14141	hasHorizontalScrollBar: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14142	hasVerticalScrollBar: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14143	isReadOnly: true
9067 3d6f7b88f4da * empty log message * Claus Gittinger <cg@exept.de> parents: 9057 diff changeset	14144	hasKeyboardFocusInitially: false
3d6f7b88f4da * empty log message * Claus Gittinger <cg@exept.de> parents: 9057 diff changeset	14145	viewClassName: 'TextView'
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14146	postBuildCallback: postBuildHelpLabel:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14147	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14148	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14149
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14150	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14151	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14152	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14153	name: 'Box2'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14154	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14155	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14156	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14157	(VerticalPanelViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14158	name: 'VerticalPanel1'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14159	layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14160	horizontalLayout: fit
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14161	verticalLayout: topFit
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14162	horizontalSpace: 3
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14163	verticalSpace: 3
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14164	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14165	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14166	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14167	(CheckBoxSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14168	label: 'standard styles only'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14169	name: 'CheckBox1'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14170	model: showStandardStylesOnly
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14171	translateLabel: true
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	14172	extent: (Point 562 35)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14173	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14174	(SequenceViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14175	name: 'StyleList'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14176	model: selectedStyle
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14177	hasHorizontalScrollBar: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14178	hasVerticalScrollBar: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14179	doubleClickSelector: doubleClickAt:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14180	useIndex: false
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14181	sequenceList: styleList
9163 431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14182	extent: (Point 562 353)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14183	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14184	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14185
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14186	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14187	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14188	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14189
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14190	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14191	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14192	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14193
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14194	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14195	handles: (Any 0.37 1.0)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14196	)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14197	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14198	name: 'Box3'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14199	layout: (LayoutFrame 0 0 -35 1 0 1 0 1)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14200	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14201	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14202	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14203	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14204	label: 'Label'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14205	name: 'Label1'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14206	layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14207	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14208	labelChannel: infoLabelHolder
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14209	resizeForLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14210	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14211	)
9163 431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14212	(CheckBoxSpec
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14213	label: 'Preview'
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14214	name: 'CheckBox2'
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14215	layout: (LayoutFrame 417 0 9 0 553 0 31 0)
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14216	model: previewVisibleHolder
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14217	translateLabel: true
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14218	)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14219	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14220
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14221	)
5378 4054d8298e68 windowspec for view style penk parents: 5362 diff changeset	14222	)
9163 431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14223	(LabelSpec
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14224	label: 'Preview'
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14225	name: 'PreviewLabel'
9167 19af7e8b4681 * empty log message * Claus Gittinger <cg@exept.de> parents: 9163 diff changeset	14226	layout: (LayoutFrame 29 0 39 0 129 0 61 0)
9163 431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14227	level: 0
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14228	borderWidth: 1
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14229	visibilityChannel: previewVisibleHolder
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14230	backgroundColor: (Color 86.999313344015 86.999313344015 86.999313344015)
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14231	translateLabel: true
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14232	)
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14233	(NonScrollableArbitraryComponentSpec
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14234	name: 'Preview'
9167 19af7e8b4681 * empty log message * Claus Gittinger <cg@exept.de> parents: 9163 diff changeset	14235	layout: (LayoutFrame 27 0 63 0 444 0 240 0)
9163 431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14236	level: 1
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14237	visibilityChannel: previewVisibleHolder
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14238	hasBorder: false
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14239	component: ImageView
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14240	)
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14241	(ActionButtonSpec
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14242	label: 'closePreviewButtonImage'
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14243	name: 'ClosePreviewButton'
9167 19af7e8b4681 * empty log message * Claus Gittinger <cg@exept.de> parents: 9163 diff changeset	14244	layout: (LayoutFrame 423 0 41 0 443 0 63 0)
9163 431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14245	visibilityChannel: previewVisibleHolder
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14246	hasCharacterOrientedLabel: false
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14247	translateLabel: true
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14248	model: closePreview
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14249	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14250	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14251
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14252	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14253	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14254	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14255
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14256	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14257
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	14258	basicReadSettings
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	14259	"nothing done here"
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	14260	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	14261
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14262	basicSaveSettings
6029 40b96dc2621d * empty log message * ca parents: 6025 diff changeset	14263	\|newStyle\|
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	14264
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	14265	newStyle := self selectedStyle value.
4705 16cfb945d591 * empty log message * penk parents: 4675 diff changeset	14266
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	14267	self withWaitCursorDo:[
6081 74df33ee24b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 6073 diff changeset	14268	Transcript showCR:'Change style to ' , newStyle , ' ...'.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	14269	View defaultStyle:newStyle asSymbol.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	14270	].
6029 40b96dc2621d * empty log message * ca parents: 6025 diff changeset	14271	self reopenToolsAfterChangedViewStyleSetting.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	14272	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	14273
9163 431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14274	closePreview
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14275	self previewVisibleHolder value:false.
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14276	!
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14277
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14278	doubleClickAt:aLine
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14279
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14280	self saveSettings.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14281	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14282
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14283	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14284
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14285	infoLabelHolder
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14286
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14287	infoLabelHolder isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14288	infoLabelHolder := '' asValue.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14289	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14290	^ infoLabelHolder.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14291	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14292
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14293	noticeLabelHolder
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14294
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14295	noticeLabelHolder isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14296	noticeLabelHolder := '' asValue.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14297	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14298	^ noticeLabelHolder.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14299	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14300
9163 431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14301	previewVisibleHolder
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14302
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14303	previewVisibleHolder isNil ifTrue:[
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14304	previewVisibleHolder := ValueHolder new.
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14305	previewVisibleHolder onChangeSend:#changeInfoLabel to:self.
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14306	].
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14307	^ previewVisibleHolder.
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14308	!
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14309
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14310	selectedStyle
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14311
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14312	selectedStyle isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14313	selectedStyle := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14314	selectedStyle addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14315	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14316	^ selectedStyle.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14317	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14318
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14319	showStandardStylesOnly
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14320
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14321	showStandardStylesOnly isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14322	showStandardStylesOnly := true asValue.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14323	showStandardStylesOnly addDependent:self.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14324	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14325	^ showStandardStylesOnly.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14326	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14327
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14328	styleList
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	14329
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	14330	styleList isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	14331	styleList := List new.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	14332	styleList addDependent:self.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	14333	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	14334	^ styleList.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14335	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14336
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14337	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14338
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14339	changeInfoLabel
9163 431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14340	\|nm sheet comment previewFile previewImage imgView labelView\|
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14341
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14342	comment := ''.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14343	nm := self selectedStyle value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14344	nm notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14345	sheet := ViewStyle fromFile:(nm , '.style').
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14346	comment := (sheet at:#comment ifAbsent:'') withoutSeparators.
9163 431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14347	previewFile := sheet at:#previewFileName ifAbsent:nil.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14348	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14349	comment := comment withCRs asStringCollection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14350	comment size == 1 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14351	comment := comment first
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14352	].
9163 431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14353	self infoLabelHolder value:comment.
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14354
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14355	self previewVisibleHolder value ifTrue:[
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14356	self builder notNil ifTrue:[
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14357	labelView := self componentAt:#PreviewLabel.
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14358	labelView label:'Sorry - no preview available'.
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14359
9167 19af7e8b4681 * empty log message * Claus Gittinger <cg@exept.de> parents: 9163 diff changeset	14360	imgView := (self componentAt:#Preview).
19af7e8b4681 * empty log message * Claus Gittinger <cg@exept.de> parents: 9163 diff changeset	14361	imgView image:nil.
19af7e8b4681 * empty log message * Claus Gittinger <cg@exept.de> parents: 9163 diff changeset	14362
9163 431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14363	previewFile notEmptyOrNil ifTrue:[
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14364	previewImage := Image fromFile:'../../doc/online/pictures' asFilename / previewFile.
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14365	previewImage notNil ifTrue:[
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14366	labelView label:'Preview'.
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14367	imgView adjust:#fitBig; image:previewImage.
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14368	]
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14369	].
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14370	labelView forceResizeHorizontally.
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14371	]
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14372	]
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14373	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14374
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	14375	update:something with:aParameter from:changedObject
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14376	changedObject == self showStandardStylesOnly ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14377	self updateList.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	14378	^ self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14379	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14380	changedObject == self selectedStyle ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14381	self changeInfoLabel.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	14382	self updateModifiedChannel.
c72e35116b13 instable state penk parents: 5040 diff changeset	14383	^ self
c72e35116b13 instable state penk parents: 5040 diff changeset	14384	].
c72e35116b13 instable state penk parents: 5040 diff changeset	14385	super
c72e35116b13 instable state penk parents: 5040 diff changeset	14386	update:something
c72e35116b13 instable state penk parents: 5040 diff changeset	14387	with:aParameter
c72e35116b13 instable state penk parents: 5040 diff changeset	14388	from:changedObject
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14389	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14390
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14391	updateList
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14392
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14393	\|listOfStyles lastSelection\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14394
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14395	lastSelection := self selectedStyle value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14396	listOfStyles := styleDirectoryContents select:[:aFileName \| aFileName asFilename hasSuffix:'style'].
7485 041323d3ca7b use nameWithoutSuffix Claus Gittinger <cg@exept.de> parents: 7440 diff changeset	14397	listOfStyles := listOfStyles collect:[:aFileName \| aFileName asFilename nameWithoutSuffix].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14398	Filename isCaseSensitive ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14399	listOfStyles := listOfStyles collect:[:aStyleName \| aStyleName asLowercase].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14400	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14401	listOfStyles remove:'generic' ifAbsent:nil; remove:'mswindows3' ifAbsent:nil.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14402	self showStandardStylesOnly value ifTrue:[
6086 1d3d8652e87d * empty log message * Claus Gittinger <cg@exept.de> parents: 6081 diff changeset	14403	listOfStyles := listOfStyles select:[:aStyleName \| self class standardStyles includes:aStyleName asLowercase].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14404	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14405
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14406	listOfStyles sort.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14407	self styleList contents:listOfStyles.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14408	self selectedStyle value:lastSelection.
7485 041323d3ca7b use nameWithoutSuffix Claus Gittinger <cg@exept.de> parents: 7440 diff changeset	14409
041323d3ca7b use nameWithoutSuffix Claus Gittinger <cg@exept.de> parents: 7440 diff changeset	14410	"Modified: / 07-11-2006 / 13:58:09 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14411	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14412
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	14413	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	14414
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	14415	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	14416	^ 'Launcher/styleSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	14417	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	14418
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14419	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14420
9163 431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14421	commonPostBuild
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14422	super commonPostBuild.
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14423	self changeInfoLabel
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14424	!
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14425
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14426	commonPostBuildWith:aBuilder
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14427	super commonPostBuildWith:aBuilder.
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14428	!
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14429
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14430	initialize
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14431
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14432	\|someRsrcFile resourceDir\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14433
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	14434	super initialize.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	14435
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14436	someRsrcFile := Smalltalk getSystemFileName:('resources' asFilename constructString:'normal.style').
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14437	someRsrcFile isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14438	someRsrcFile := Smalltalk getResourceFileName:'normal.style' forPackage:'stx:libview'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14439	someRsrcFile isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14440	someRsrcFile := Smalltalk getResourceFileName:'styles/normal.style' forPackage:'stx:libview'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14441	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14442	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14443	someRsrcFile notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14444	resourceDir := someRsrcFile asFilename directoryName
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14445	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14446	resourceDir := Smalltalk getSystemFileName:'resources'.
4635 6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	14447	resourceDir isNil ifTrue:[
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	14448	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	14449	^ self
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	14450	].
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	14451	].
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	14452
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	14453	[
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	14454	styleDirectoryContents := resourceDir asFilename directoryContents.
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	14455	] on:FileStream openErrorSignal do:[:ex\|
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	14456	self warn:'no styles found (unaccessable ''resources'' directory)'.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14457	^ self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14458	].
4635 6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	14459
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14460	self updateList.
6086 1d3d8652e87d * empty log message * Claus Gittinger <cg@exept.de> parents: 6081 diff changeset	14461	(self class standardStyles includes:View defaultStyle asLowercase) ifFalse:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14462	self showStandardStylesOnly value:false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14463	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14464	self selectedStyle value:(View defaultStyle).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14465	self noticeLabelHolder value:(resources at:'STYLE_MSG' default:'Select a Style') withCRs.
5378 4054d8298e68 windowspec for view style penk parents: 5362 diff changeset	14466	!
4054d8298e68 windowspec for view style penk parents: 5362 diff changeset	14467
4054d8298e68 windowspec for view style penk parents: 5362 diff changeset	14468	postBuildHelpLabel:aWidget
4054d8298e68 windowspec for view style penk parents: 5362 diff changeset	14469	aWidget level:0.
4054d8298e68 windowspec for view style penk parents: 5362 diff changeset	14470	aWidget scrolledView backgroundColor:self window viewBackground.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14471	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14472
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14473	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14474
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14475	hasUnsavedChanges
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14476
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14477	^ (self selectedStyle value ~= View defaultStyle)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14478	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14479
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14480	!AbstractSettingsApplication::SyntaxColorSettingsAppl class methodsFor:'defaults'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14481
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14482	emphasisList
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14483
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14484	^ #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14485	#normal
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14486	#underline
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14487	#'red underline'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14488	#underwave
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14489	#'red underwave'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14490	#bold
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14491	#boldUnderline
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14492	#'bold+red underline'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14493	#boldUnderwave
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14494	#'bold+red underwave'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14495	#italic
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14496	#italicUnderline
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14497	#'italic+red underline'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14498	#italicUnderwave
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14499	#'italic+red underwave'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14500	#reverse
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14501	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14502	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14503
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14504	exampleText
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14505
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14506	^ 'methodSelector:methodArg
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14507	"method comment:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14508	some stupid code to show the current settings"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14509
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14510	\|methodVar\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14511
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14512	"/ another comment ...
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14513	self at:methodArg. "/ a message
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14514	self fooBarBaz:methodVar. "/ a bad message
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14515	methodVar := Array new:1.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14516	unknonVar := 1. "/ a bad variable
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14517	UnknonVar := 1. "/ another bad variable
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14518	"self bar:methodVar. detect commented code easily"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14519	1 to:5 do:[:i \| self at:i + 1].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14520	Transcript showCR:''some string'' , #someSymbol.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14521	^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14522	'.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14523	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14524
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14525	fontList
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14526
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14527	^ #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14528	normal
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14529	underline
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14530	#'red underline'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14531	underwave
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14532	#'red underwave'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14533	bold
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14534	boldUnderline
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14535	#'bold+red underline'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14536	boldUnderwave
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14537	#'bold+red underwave'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14538	italic
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14539	italicUnderline
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14540	#'italic+red underline'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14541	italicUnderwave
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14542	#'italic+red underwave'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14543	reverse
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14544	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14545	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14546
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14547	!AbstractSettingsApplication::SyntaxColorSettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14548
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14549	defaultIcon
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14550	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14551	by the ImageEditor of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14552
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14553	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14554	the ImageEditor may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14555
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14556	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14557	self defaultIcon inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14558	ImageEditor openOnClass:self andSelector:#defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14559	Icon flushCachedIcons
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14560	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14561
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14562	<resource: #image>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14563
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14564	^Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14565	constantNamed:#'AbstractSettingsApplication::SyntaxColorSettingsAppl class defaultIcon'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	14566	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	14567	DQDQDQDQDQDQDQDTQDQDQDQDQDQDPQQ@QDADQBP$QDP!!E@QDQ@QDIBQDP$DTADQDADQDQDQBPQPDQDPDQDQDQBQAE@QDQ@QDQDQDIDDTADQDADQDQDIDPQPD
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	14568	QDPDQDQDP$QAEDADPDQDQDP$QDDTQDQDQDQDQDQDPQQDADQDQDQDQDQAEDADQDQDQDQDQDDTPDQ@QDADQDQDPQP@A@PDA@Q@QDQAEDADA@PDADQDQDDTPDPD
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	14569	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	14570	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14571
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14572	!AbstractSettingsApplication::SyntaxColorSettingsAppl class methodsFor:'interface specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14573
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14574	windowSpec
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14575	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14576	by the UIPainter of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14577
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14578	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14579	the UIPainter may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14580
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14581	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14582	UIPainter new openOnClass:AbstractSettingsApplication::SyntaxColorSettingsAppl andSelector:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14583	AbstractSettingsApplication::SyntaxColorSettingsAppl new openInterface:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14584	AbstractSettingsApplication::SyntaxColorSettingsAppl open
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14585	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14586
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14587	<resource: #canvas>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14588
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14589	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	14590	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	14591	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	14592	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	14593	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	14594	label: 'Syntax Color Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	14595	name: 'Syntax Color Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	14596	min: (Point 10 10)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14597	bounds: (Rectangle 0 0 695 609)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14598	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	14599	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	14600	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	14601	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	14602	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	14603	name: 'VerticalPanel2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	14604	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	14605	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	14606	verticalLayout: topSpace
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	14607	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	14608	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	14609	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	14610	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	14611	collection: (
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14612	(ViewSpec
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14613	name: 'ElementSelectionBox'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	14614	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	14615	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	14616	collection: (
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14617	(LabelSpec
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14618	label: 'Element:'
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14619	name: 'Label4'
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14620	layout: (LayoutFrame 0 0 0 0 100 0 22 0)
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14621	translateLabel: true
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14622	adjust: right
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14623	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14624	(ComboListSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14625	name: 'ComboList3'
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14626	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	14627	enableChannel: syntaxColoring
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14628	model: syntaxElementSelection
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14629	comboList: syntaxElementList
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14630	useIndex: false
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14631	hidePullDownMenuButton: false
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14632	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14633	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14634
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14635	)
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14636	extent: (Point 695 25)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14637	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14638	(ViewSpec
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14639	name: 'ColorBox'
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14640	component:
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14641	(SpecCollection
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14642	collection: (
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14643	(LabelSpec
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14644	label: 'Color:'
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14645	name: 'Label2'
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14646	layout: (LayoutFrame 40 0 0 0 140 0 22 0)
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14647	translateLabel: true
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14648	adjust: right
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14649	)
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14650	(ColorMenuSpec
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14651	name: 'ColorMenu2'
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14652	layout: (LayoutFrame 140 0 0 0 0 1 22 0)
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14653	enableChannel: syntaxColoring
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14654	model: syntaxColor
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14655	labelsAreColored: true
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14656	)
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14657	)
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14658
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14659	)
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14660	extent: (Point 695 25)
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14661	)
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14662	(ViewSpec
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14663	name: 'EmphasisBox'
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14664	component:
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14665	(SpecCollection
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14666	collection: (
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14667	(LabelSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14668	label: 'Emphasis:'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14669	name: 'Label1'
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14670	layout: (LayoutFrame 40 0 0 0 140 0 22 0)
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14671	translateLabel: true
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14672	adjust: right
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14673	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14674	(ComboListSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14675	name: 'ComboList5'
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14676	layout: (LayoutFrame 140 0 0 0 0 1 22 0)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14677	enableChannel: syntaxColoring
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14678	model: syntaxEmphasisSelection
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14679	comboList: syntaxEmphasisList
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14680	useIndex: false
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14681	hidePullDownMenuButton: false
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14682	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14683	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14684
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14685	)
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14686	extent: (Point 695 25)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14687	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14688	(ViewSpec
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14689	name: 'ResetBox'
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14690	component:
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14691	(SpecCollection
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14692	collection: (
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14693	(ActionButtonSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14694	label: 'Reset To:'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14695	name: 'Button2'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14696	layout: (LayoutFrame 0 0 -22 1 150 0 0 1)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14697	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14698	model: resetToColorScheme
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14699	enableChannel: syntaxColoring
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14700	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14701	(ComboListSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14702	name: 'ComboList4'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14703	layout: (LayoutFrame 150 0 -22 1 0 1 0 1)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14704	enableChannel: syntaxColoring
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14705	model: resetListSelection
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14706	comboList: resetList
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14707	useIndex: false
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14708	hidePullDownMenuButton: false
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14709	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14710	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14711
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14712	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14713	extent: (Point 695 35)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14714	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14715	(ViewSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14716	name: 'SpacingBox1'
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14717	extent: (Point 695 10)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14718	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14719	(LabelSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14720	label: 'Sample Output:'
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14721	name: 'SampleLabel3'
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14722	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14723	adjust: left
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14724	extent: (Point 695 22)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14725	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14726	(TextEditorSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14727	name: 'TextEditor2'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14728	enableChannel: syntaxColoring
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14729	model: coloredText
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14730	hasHorizontalScrollBar: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14731	hasVerticalScrollBar: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14732	isReadOnly: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14733	extent: (Point 695 280)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14734	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14735	(ViewSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14736	name: 'SpacingBox2'
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14737	extent: (Point 695 10)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14738	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14739	(CheckBoxSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14740	label: 'Syntax Coloring'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14741	name: 'CheckBox1'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14742	model: syntaxColoring
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14743	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14744	extent: (Point 695 22)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14745	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14746	(CheckBoxSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14747	label: 'Immediate Selector Check'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14748	name: 'ImmediateSelectorCheckBox'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14749	enableChannel: syntaxColoring
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14750	model: fullSelectorCheck
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14751	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14752	extent: (Point 695 22)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14753	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14754	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14755
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14756	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14757	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14758	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14759
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14760	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14761	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14762	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14763
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14764	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'actions'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14765
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	14766	basicReadSettings
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	14767	\|colorList resetListLoc\|
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	14768
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	14769	oldUserPreferences notNil ifTrue:[
6781 facbb533a366 * empty log message * Claus Gittinger <cg@exept.de> parents: 6780 diff changeset	14770	(UserPreferences reset; current) addAll:oldUserPreferences
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	14771	].
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	14772
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	14773	self
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	14774	readAspects:
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	14775	#(
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	14776	syntaxColoring
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	14777	fullSelectorCheck
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	14778	)
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	14779	from:currentUserPrefs.
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	14780
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	14781	oldUserPreferences := currentUserPrefs copy.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	14782	colorList := UserPreferences syntaxColorNames.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	14783	resetListLoc := currentUserPrefs listOfPredefinedSyntaxColoringSchemes
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	14784	collect:[:entry \| entry second].
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	14785	self resetList value:resetListLoc.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	14786	self resetListSelection value:resetListLoc first.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	14787	self syntaxEmphasisList value:self class emphasisList.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	14788	self syntaxElementList value:colorList.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	14789	self syntaxElementSelection value:(colorList at:1).
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	14790	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	14791
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14792	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	14793
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	14794	oldUserPreferences := currentUserPrefs copy.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	14795	currentUserPrefs syntaxColoring:self syntaxColoring value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	14796	currentUserPrefs at:#fullSelectorCheck put:self fullSelectorCheck value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	14797	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	14798
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14799	recolor
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14800	\|text\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14801
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14802	self syntaxColoring value ifTrue:[
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14803	text := SyntaxHighlighter
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14804	formatMethod:self class exampleText
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14805	in:nil
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14806	using:currentUserPrefs.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14807	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14808	text := self class exampleText.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14809	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14810	self coloredText value:text
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14811	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14812
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14813	resetToColorScheme
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14814	\|resetSelector\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14815
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	14816	resetSelector := resetListDictionary
c72e35116b13 instable state penk parents: 5040 diff changeset	14817	keyAtValue:(self resetListSelection value).
c72e35116b13 instable state penk parents: 5040 diff changeset	14818	currentUserPrefs perform:resetSelector.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14819	self recolor.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	14820	self updateModifiedChannel
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14821	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14822
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14823	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'aspects'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14824
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14825	coloredText
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14826
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14827	coloredText isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14828	coloredText := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14829	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14830	^ coloredText.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14831	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14832
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14833	fullSelectorCheck
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14834
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14835	fullSelectorCheck isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14836	fullSelectorCheck := currentUserPrefs fullSelectorCheck asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	14837	fullSelectorCheck onChangeSend:#updateModifiedChannel to:self
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14838	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14839	^ fullSelectorCheck.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14840	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14841
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14842	resetList
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14843
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14844	resetList isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14845	resetList := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14846	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14847	^ resetList.
7099 786bfd931b07 control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 7080 diff changeset	14848
786bfd931b07 control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 7080 diff changeset	14849	"Modified: / 08-09-2006 / 16:00:58 / cg"
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14850	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14851
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14852	resetListSelection
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14853
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14854	resetListSelection isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14855	resetListSelection := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14856	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14857	^ resetListSelection.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14858	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14859
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14860	syntaxColor
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14861
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14862	syntaxColor isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14863	syntaxColor := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14864	syntaxColor addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14865	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14866	^ syntaxColor.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14867	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14868
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14869	syntaxColoring
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14870
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14871	syntaxColoring isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14872	syntaxColoring := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14873	syntaxColoring addDependent:self.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	14874	syntaxColoring onChangeSend:#updateModifiedChannel to:self.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14875	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14876	^ syntaxColoring.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14877	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14878
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14879	syntaxElementList
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14880	syntaxElementList isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14881	syntaxElementList := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14882	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14883	^ syntaxElementList.
7099 786bfd931b07 control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 7080 diff changeset	14884
786bfd931b07 control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 7080 diff changeset	14885	"Modified: / 08-09-2006 / 16:01:05 / cg"
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14886	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14887
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14888	syntaxElementSelection
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14889
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14890	syntaxElementSelection isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14891	syntaxElementSelection := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14892	syntaxElementSelection addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14893	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14894	^ syntaxElementSelection.
7099 786bfd931b07 control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 7080 diff changeset	14895
786bfd931b07 control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 7080 diff changeset	14896	"Modified: / 08-09-2006 / 16:01:08 / cg"
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14897	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14898
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14899	syntaxEmphasisList
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	14900	syntaxEmphasisList isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	14901	syntaxEmphasisList := ValueHolder new.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	14902	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	14903	^ syntaxEmphasisList.
7099 786bfd931b07 control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 7080 diff changeset	14904
786bfd931b07 control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 7080 diff changeset	14905	"Modified: / 08-09-2006 / 16:01:13 / cg"
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	14906	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	14907
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14908	syntaxEmphasisSelection
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14909
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14910	syntaxEmphasisSelection isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14911	syntaxEmphasisSelection := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14912	syntaxEmphasisSelection addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14913	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14914	^ syntaxEmphasisSelection.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14915	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14916
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14917	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'change & update'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14918
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14919	getEmphasis:anEmphasisOrSymbol
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14920	" return emphasis Symbol for emphasis or emphasis for emphasis symbol "
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14921
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14922	^ emphasisDictionary at:anEmphasisOrSymbol ifAbsent:[nil]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14923	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14924
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14925	syntaxColorChanged
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14926	currentUserPrefs at:(self syntaxColorSelector) put:(self syntaxColor value).
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14927	self recolor.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	14928	self updateModifiedChannel
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14929	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14930
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14931	syntaxElementSelectionChanged
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14932
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14933	\| syntaxEmphasisValue \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14934
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14935	self syntaxColor value:(currentUserPrefs perform:(self syntaxColorSelector)).
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14936	syntaxEmphasisValue := (currentUserPrefs perform:(self syntaxEmphasisSelector)).
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14937	self syntaxEmphasisSelection value:(self getEmphasis:syntaxEmphasisValue).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14938	self recolor.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14939	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14940
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14941	syntaxEmphasisSelectionChanged
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14942	\|em\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14943
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14944	em := self getEmphasis:self syntaxEmphasisSelection value.
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14945	currentUserPrefs at:(self syntaxEmphasisSelector) put:em.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14946	self recolor.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	14947	self updateModifiedChannel
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14948	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14949
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14950	update:something with:aParameter from:changedObject
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14951	changedObject == self syntaxElementSelection ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14952	self syntaxElementSelectionChanged.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14953	^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14954	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14955	changedObject == self syntaxColor ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14956	self syntaxColorChanged.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14957	^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14958	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14959	changedObject == self syntaxEmphasisSelection ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14960	self syntaxEmphasisSelectionChanged.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14961	^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14962	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14963	changedObject == self syntaxColoring ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14964	self recolor.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14965	^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14966	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14967
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14968	super update:something with:aParameter from:changedObject
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14969	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14970
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	14971	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	14972
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	14973	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	14974	^ 'Launcher/sourceSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	14975	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	14976
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14977	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'initialization & release'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14978
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14979	initialize
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14980	self initializeEmphasisDictionary.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	14981	super initialize.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	14982
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14983	resetListDictionary := Dictionary new.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	14984	currentUserPrefs listOfPredefinedSyntaxColoringSchemes do:[:entry \|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	14985	resetListDictionary at:(entry at:1) put:(entry at:2)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	14986	].
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14987	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14988
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14989	initializeEmphasisDictionary
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14990
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14991	emphasisDictionary := Dictionary new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14992	self class emphasisList do:[ : entry \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14993	entry == #'red underline' ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14994	emphasisDictionary at:entry put:(Array with:#underline with:(#underlineColor->Color red)).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14995	emphasisDictionary at:(Array with:#underline with:(#underlineColor->Color red)) put:entry.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14996	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14997	entry == #'red underwave' ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14998	emphasisDictionary at:entry put:(Array with:#underwave with:(#underlineColor->Color red)).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14999	emphasisDictionary at:(Array with:#underwave with:(#underlineColor->Color red)) put:entry.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15000	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15001	entry == #'bold+red underline' ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15002	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	15003	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	15004	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15005	entry == #'bold+red underwave' ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15006	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	15007	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	15008	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15009	entry == #'italic+red underline' ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15010	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	15011	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	15012	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15013	entry == #'italic+red underwave' ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15014	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	15015	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	15016	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15017	emphasisDictionary at:entry put:entry
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15018	]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15019	]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15020	]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15021	]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15022	]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15023	]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15024	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15025	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15026
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15027	release
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15028
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15029	oldUserPreferences notNil ifTrue:[
5943 df089099d96d Use #addAll: instead of #declareAllFrom:, since #declareAllFrom: Stefan Vogel <sv@exept.de> parents: 5920 diff changeset	15030	(UserPreferences reset; current) addAll:oldUserPreferences
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15031	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15032	super release
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15033	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15034
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15035	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'queries'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15036
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15037	hasUnsavedChanges
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15038	\|colorList colorPerformer emphasisPerformer\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15039
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15040	colorList := UserPreferences syntaxColorNames.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15041	colorList do:[:syntaxElement \|
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	15042	colorPerformer := (self syntaxColorSelectorForElement:syntaxElement).
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	15043	emphasisPerformer := (self syntaxEmphasisSelectorForElement:syntaxElement).
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15044	((oldUserPreferences perform:colorPerformer) ~= (currentUserPrefs perform:colorPerformer)) ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15045	^ true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15046	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15047	((oldUserPreferences perform:emphasisPerformer) ~= (currentUserPrefs perform:emphasisPerformer)) ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15048	^ true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15049	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15050	syntaxElement
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15051	].
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	15052
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	15053	(self
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	15054	hasChangedAspectIn:
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	15055	#(
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	15056	syntaxColoring
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	15057	fullSelectorCheck
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	15058	)
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	15059	asComparedTo:currentUserPrefs) ifTrue:[^ true].
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	15060
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15061	^ false
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15062	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15063
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15064	syntaxColorSelector
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	15065	^ (self syntaxColorSelectorForElement:self syntaxElementSelection value)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15066	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15067
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15068	syntaxColorSelectorForElement:aSyntaxElement
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	15069	^ (aSyntaxElement replChar:$ withString: '') asLowercaseFirst asSymbol
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15070	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15071
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15072	syntaxEmphasisSelector
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15073
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	15074	^ self syntaxEmphasisSelectorForElement:(self syntaxElementSelection value)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15075	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15076
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15077	syntaxEmphasisSelectorForElement:anEmElement
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	15078	^ (((self syntaxColorSelectorForElement:anEmElement) readStream upToAll: 'Color'), 'Emphasis')
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	15079	asLowercaseFirst asSymbol
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
7819 30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15082	!AbstractSettingsApplication::SystemBrowserSettingsAppl class methodsFor:'image specs'!
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15083
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15084	defaultIcon
7838 dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	15085	<resource: #programImage>
dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	15086
7819 30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15087	^ ToolbarIconLibrary systemBrowser24x24Icon
7838 dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	15088
dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	15089	"Modified: / 17-09-2007 / 11:35:15 / cg"
7819 30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15090	! !
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15091
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15092	!AbstractSettingsApplication::SystemBrowserSettingsAppl class methodsFor:'interface specs'!
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15093
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15094	windowSpec
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15095	"This resource specification was automatically generated
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15096	by the UIPainter of ST/X."
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15097
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15098	"Do not manually edit this!! If it is corrupted,
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15099	the UIPainter may not be able to read the specification."
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15100
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15101	"
8203 3e66cc59ba5c add #showSearchBarInBrowser fm parents: 8151 diff changeset	15102	UIPainter new openOnClass:AbstractSettingsApplication::SystemBrowserSettingsAppl andSelector:#windowSpec
3e66cc59ba5c add #showSearchBarInBrowser fm parents: 8151 diff changeset	15103	AbstractSettingsApplication::SystemBrowserSettingsAppl new openInterface:#windowSpec
3e66cc59ba5c add #showSearchBarInBrowser fm parents: 8151 diff changeset	15104	AbstractSettingsApplication::SystemBrowserSettingsAppl open
7819 30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15105	"
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15106
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15107	<resource: #canvas>
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15108
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15109	^
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15110	#(FullSpec
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15111	name: windowSpec
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15112	window:
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15113	(WindowSpec
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15114	label: 'Tool Settings'
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15115	name: 'Tool Settings'
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15116	min: (Point 10 10)
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15117	bounds: (Rectangle 0 0 607 786)
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15118	)
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15119	component:
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15120	(SpecCollection
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15121	collection: (
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15122	(VerticalPanelViewSpec
10778 c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15123	name: 'SettingsPanel'
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15124	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
7819 30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15125	horizontalLayout: fit
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15126	verticalLayout: top
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15127	horizontalSpace: 3
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15128	verticalSpace: 3
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15129	component:
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15130	(SpecCollection
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15131	collection: (
10778 c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15132	(FramedBoxSpec
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15133	label: 'Settings'
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15134	name: 'ToolsSettingsPanel'
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15135	labelPosition: topLeft
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15136	translateLabel: true
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15137	component:
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15138	(SpecCollection
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15139	collection: (
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15140	(VerticalPanelViewSpec
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15141	name: 'ToolSettingsVPanel'
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15142	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15143	horizontalLayout: fit
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15144	verticalLayout: top
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15145	horizontalSpace: 3
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15146	verticalSpace: 3
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15147	component:
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15148	(SpecCollection
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15149	collection: (
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15150	(CheckBoxSpec
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15151	label: 'Show Accept/Cancel Bar in Editor'
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15152	name: 'ShowAcceptCancelBarInBrowser'
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15153	model: showAcceptCancelBarInBrowser
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15154	translateLabel: true
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15155	extent: (Point 571 25)
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15156	)
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15157	(CheckBoxSpec
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15158	label: 'Show Search Bar in Browser'
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15159	name: 'ShowSearchBarInBrowser'
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15160	model: useSearchBarInBrowser
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15161	translateLabel: true
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15162	extent: (Point 571 25)
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15163	)
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15164	(CheckBoxSpec
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15165	label: 'Show Method Template'
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15166	name: 'MethodTemplate'
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15167	model: showMethodTemplate
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15168	translateLabel: true
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15169	extent: (Point 571 25)
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15170	)
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15171	(CheckBoxSpec
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15172	label: 'Use the new CodeView2 (EXPERIMENTAL)'
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15173	name: 'UserCodeView2'
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15174	model: useCodeView2InTools
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15175	translateLabel: true
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15176	extent: (Point 571 25)
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15177	)
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15178	(CheckBoxSpec
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15179	label: 'Use the Embedded Test Runner'
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15180	name: 'UseEmbeddedTestRunner'
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15181	model: showEmbeddedTestRunnerInBrowser
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15182	translateLabel: true
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15183	extent: (Point 571 25)
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15184	)
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15185	(CheckBoxSpec
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15186	label: 'Show Bookmarks Bar'
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15187	name: 'ShowBookmarksBar'
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15188	model: showBookmarkBar
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15189	translateLabel: true
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15190	extent: (Point 571 25)
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15191	)
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15192	(CheckBoxSpec
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15193	label: 'Sort and Indent Classes by Inheritance'
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15194	name: 'SortAndIndentClassesByInheritance'
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15195	model: sortAndIndentClassesByInheritance
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15196	translateLabel: true
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15197	extent: (Point 571 25)
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15198	)
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15199	(CheckBoxSpec
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15200	label: 'Web Browser Like Layout (Toolbars are Part of the Tab - EXPERIMENTAL)'
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15201	name: 'CheckBox1'
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15202	initiallyInvisible: true
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15203	model: webBrowserLikeLayout
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15204	translateLabel: true
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15205	extent: (Point 607 25)
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15206	)
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15207	(CheckBoxSpec
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15208	label: 'Show Local Navigation History (Separate History per Browser Tab)'
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15209	name: 'CheckBox2'
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15210	model: showLocalHistory
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15211	translateLabel: true
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15212	extent: (Point 571 25)
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15213	)
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15214	(CheckBoxSpec
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15215	label: 'Show Global Navigation History (One Global History Among All Browser Windows)'
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15216	name: 'CheckBox3'
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15217	model: showGlobalHistory
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15218	translateLabel: true
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15219	extent: (Point 571 25)
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15220	)
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15221	(CheckBoxSpec
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15222	label: 'Use In-place Search In Browser Lists (EXPERIMENTAL)'
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15223	name: 'CheckBox4'
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15224	model: useInPlaceSearchInBrowserLists
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15225	translateLabel: true
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15226	extent: (Point 571 22)
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15227	)
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15228	)
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15229
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15230	)
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15231	)
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15232	)
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15233
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15234	)
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15235	extent: (Point 607 300)
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15236	useDynamicPreferredHeight: true
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15237	)
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15238	(FramedBoxSpec
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15239	label: 'Menu Layout'
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15240	name: 'MenyLayoutPanel'
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15241	labelPosition: topLeft
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15242	translateLabel: true
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15243	component:
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15244	(SpecCollection
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15245	collection: (
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15246	(VerticalPanelViewSpec
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15247	name: 'MenyLayoutVPanel'
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15248	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15249	horizontalLayout: fit
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15250	verticalLayout: top
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15251	horizontalSpace: 3
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15252	verticalSpace: 3
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15253	component:
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15254	(SpecCollection
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15255	collection: (
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15256	(LabelSpec
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15257	label: 'Source code management menu layout'
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15258	name: 'SCMMenuLayoutLabel'
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15259	translateLabel: true
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15260	adjust: left
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15261	extent: (Point 571 22)
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15262	)
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15263	(RadioButtonSpec
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15264	label: 'Compact (EXPERIMENTAL)'
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15265	name: 'SCMMenuLayoutCompact'
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15266	translateLabel: true
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15267	model: sourceCodeManagementMenuLayout
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15268	isTriggerOnDown: true
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15269	select: 'compact'
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15270	extent: (Point 571 22)
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15271	)
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15272	(RadioButtonSpec
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15273	label: 'Inline (EXPERIMENTAL)'
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15274	name: 'SCMMenuLayoutInline'
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15275	translateLabel: true
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15276	model: sourceCodeManagementMenuLayout
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15277	isTriggerOnDown: true
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15278	select: 'inline'
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15279	extent: (Point 571 22)
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15280	)
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15281	(RadioButtonSpec
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15282	label: 'Old (default)'
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15283	name: 'SCMMenuLayoutOld'
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15284	translateLabel: true
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15285	model: sourceCodeManagementMenuLayout
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15286	isTriggerOnDown: true
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15287	select: 'old'
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15288	extent: (Point 571 22)
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15289	)
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15290	)
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15291
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15292	)
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15293	)
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15294	)
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15295
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15296	)
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15297	useDefaultExtent: true
10418 d2c09f0a39a2 Added "Use In-place Search In Browser Lists" setting vrany parents: 10301 diff changeset	15298	)
7819 30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15299	)
8203 3e66cc59ba5c add #showSearchBarInBrowser fm parents: 8151 diff changeset	15300
7819 30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15301	)
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15302	)
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15303	)
8203 3e66cc59ba5c add #showSearchBarInBrowser fm parents: 8151 diff changeset	15304
7819 30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15305	)
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15306	)
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15307	! !
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15308
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15309	!AbstractSettingsApplication::SystemBrowserSettingsAppl methodsFor:'actions'!
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15310
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15311	basicReadSettings
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15312	self
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15313	readAspects:
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15314	#(
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15315	showAcceptCancelBarInBrowser
8916 1e3dc9435b97 * empty log message * fm parents: 8846 diff changeset	15316	useSearchBarInBrowser
10124 5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	15317	showMethodTemplate
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	15318	useCodeView2InTools
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	15319	showEmbeddedTestRunnerInBrowser
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	15320	showBookmarkBar
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	15321	webBrowserLikeLayout
10241 0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	15322	sortAndIndentClassesByInheritance
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	15323	showGlobalHistory
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	15324	showLocalHistory
10418 d2c09f0a39a2 Added "Use In-place Search In Browser Lists" setting vrany parents: 10301 diff changeset	15325	useInPlaceSearchInBrowserLists
10778 c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15326	sourceCodeManagementMenuLayout
10241 0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	15327
7819 30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15328	)
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15329	from:currentUserPrefs.
10124 5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	15330
10778 c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15331	"Modified: / 06-10-2011 / 18:57:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
7819 30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15332	!
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15333
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15334	basicSaveSettings
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15335	self
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15336	writeAspects:
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15337	#(
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15338	showAcceptCancelBarInBrowser
8916 1e3dc9435b97 * empty log message * fm parents: 8846 diff changeset	15339	useSearchBarInBrowser
10124 5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	15340	showMethodTemplate
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	15341	useCodeView2InTools
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	15342	showEmbeddedTestRunnerInBrowser
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	15343	showBookmarkBar
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	15344	webBrowserLikeLayout
10241 0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	15345	sortAndIndentClassesByInheritance
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	15346	showGlobalHistory
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	15347	showLocalHistory
10418 d2c09f0a39a2 Added "Use In-place Search In Browser Lists" setting vrany parents: 10301 diff changeset	15348	useInPlaceSearchInBrowserLists
10778 c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15349	sourceCodeManagementMenuLayout
7819 30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15350	)
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15351	to:currentUserPrefs.
10124 5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	15352
10778 c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15353	"Modified: / 06-10-2011 / 18:57:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
7819 30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15354	! !
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15355
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15356	!AbstractSettingsApplication::SystemBrowserSettingsAppl methodsFor:'aspects'!
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15357
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15358	showAcceptCancelBarInBrowser
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15359	showAcceptCancelBarInBrowser isNil ifTrue:[
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15360	showAcceptCancelBarInBrowser := false asValue.
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15361	showAcceptCancelBarInBrowser onChangeSend:#updateModifiedChannel to:self
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15362	].
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15363	^ showAcceptCancelBarInBrowser.
8203 3e66cc59ba5c add #showSearchBarInBrowser fm parents: 8151 diff changeset	15364	!
3e66cc59ba5c add #showSearchBarInBrowser fm parents: 8151 diff changeset	15365
10124 5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	15366	showBookmarkBar
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	15367	"return/create the 'showMethodTemplate' value holder (automatically generated)"
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	15368
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	15369	showBookmarkBar isNil ifTrue:[
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	15370	showBookmarkBar := ValueHolder new.
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	15371	showBookmarkBar onChangeSend:#updateModifiedChannel to:self
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	15372
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	15373	].
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	15374	^ showBookmarkBar
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	15375
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	15376	"Created: / 18-05-2011 / 16:51:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	15377	!
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	15378
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	15379	showEmbeddedTestRunnerInBrowser
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	15380	"return/create the 'showEmbeddedTestRunnerInBrowser' value holder (automatically generated)"
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	15381
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	15382	showEmbeddedTestRunnerInBrowser isNil ifTrue:[
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	15383	showEmbeddedTestRunnerInBrowser := ValueHolder new.
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	15384	showEmbeddedTestRunnerInBrowser onChangeSend:#updateModifiedChannel to:self
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	15385	].
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	15386	^ showEmbeddedTestRunnerInBrowser
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	15387
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	15388	"Modified: / 11-03-2010 / 10:12:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	15389	!
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	15390
10241 0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	15391	showGlobalHistory
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	15392
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	15393	showGlobalHistory isNil ifTrue:[
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	15394	showGlobalHistory := false asValue.
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	15395	showGlobalHistory onChangeSend:#updateModifiedChannel to:self
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	15396	].
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	15397	^ showGlobalHistory.
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	15398
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	15399	"Created: / 07-07-2011 / 00:05:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	15400	!
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	15401
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	15402	showLocalHistory
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	15403
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	15404	showLocalHistory isNil ifTrue:[
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	15405	showLocalHistory := false asValue.
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	15406	showLocalHistory onChangeSend:#updateModifiedChannel to:self
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	15407	].
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	15408	^ showLocalHistory.
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	15409
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	15410	"Created: / 07-07-2011 / 00:05:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	15411	!
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	15412
10124 5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	15413	showMethodTemplate
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	15414	"return/create the 'showMethodTemplate' value holder (automatically generated)"
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	15415
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	15416	showMethodTemplate isNil ifTrue:[
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	15417	showMethodTemplate := ValueHolder new.
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	15418	showMethodTemplate onChangeSend:#updateModifiedChannel to:self
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	15419
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	15420	].
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	15421	^ showMethodTemplate
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	15422
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	15423	"Modified: / 11-03-2010 / 10:08:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	15424	!
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	15425
10241 0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	15426	sortAndIndentClassesByInheritance
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	15427
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	15428	sortAndIndentClassesByInheritance isNil ifTrue:[
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	15429	sortAndIndentClassesByInheritance := false asValue.
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	15430	sortAndIndentClassesByInheritance onChangeSend:#updateModifiedChannel to:self
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	15431	].
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	15432	^ sortAndIndentClassesByInheritance.
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	15433
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	15434	"Created: / 06-07-2011 / 23:50:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	15435	!
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	15436
10778 c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15437	sourceCodeManagementMenuLayout
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15438	sourceCodeManagementMenuLayout isNil ifTrue:[
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15439	sourceCodeManagementMenuLayout := #old asValue.
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15440	sourceCodeManagementMenuLayout onChangeSend:#updateModifiedChannel to:self
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15441	].
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15442	^ sourceCodeManagementMenuLayout.
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15443
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15444	"Created: / 06-10-2011 / 18:57:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15445	!
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15446
10124 5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	15447	useCodeView2InTools
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	15448	"return/create the 'useCodeView2InTools' value holder (automatically generated)"
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	15449
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	15450	useCodeView2InTools isNil ifTrue:[
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	15451	useCodeView2InTools := ValueHolder new.
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	15452	useCodeView2InTools onChangeSend:#updateModifiedChannel to:self
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	15453
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	15454	].
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	15455	^ useCodeView2InTools
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	15456
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	15457	"Modified: / 11-03-2010 / 10:09:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	15458	!
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	15459
10418 d2c09f0a39a2 Added "Use In-place Search In Browser Lists" setting vrany parents: 10301 diff changeset	15460	useInPlaceSearchInBrowserLists
d2c09f0a39a2 Added "Use In-place Search In Browser Lists" setting vrany parents: 10301 diff changeset	15461	useInPlaceSearchInBrowserLists isNil ifTrue:[
d2c09f0a39a2 Added "Use In-place Search In Browser Lists" setting vrany parents: 10301 diff changeset	15462	useInPlaceSearchInBrowserLists := false asValue.
d2c09f0a39a2 Added "Use In-place Search In Browser Lists" setting vrany parents: 10301 diff changeset	15463	useInPlaceSearchInBrowserLists onChangeSend:#updateModifiedChannel to:self
d2c09f0a39a2 Added "Use In-place Search In Browser Lists" setting vrany parents: 10301 diff changeset	15464	].
d2c09f0a39a2 Added "Use In-place Search In Browser Lists" setting vrany parents: 10301 diff changeset	15465	^ useInPlaceSearchInBrowserLists.
d2c09f0a39a2 Added "Use In-place Search In Browser Lists" setting vrany parents: 10301 diff changeset	15466
d2c09f0a39a2 Added "Use In-place Search In Browser Lists" setting vrany parents: 10301 diff changeset	15467	"Created: / 28-07-2011 / 09:36:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
d2c09f0a39a2 Added "Use In-place Search In Browser Lists" setting vrany parents: 10301 diff changeset	15468	!
d2c09f0a39a2 Added "Use In-place Search In Browser Lists" setting vrany parents: 10301 diff changeset	15469
8916 1e3dc9435b97 * empty log message * fm parents: 8846 diff changeset	15470	useSearchBarInBrowser
8325 1a34a35f4eec * empty log message * Claus Gittinger <cg@exept.de> parents: 8296 diff changeset	15471	"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	15472	(like in firefox). False if a dialog is to be opened."
1a34a35f4eec * empty log message * Claus Gittinger <cg@exept.de> parents: 8296 diff changeset	15473
8916 1e3dc9435b97 * empty log message * fm parents: 8846 diff changeset	15474	useSearchBarInBrowser isNil ifTrue:[
1e3dc9435b97 * empty log message * fm parents: 8846 diff changeset	15475	useSearchBarInBrowser := true asValue.
1e3dc9435b97 * empty log message * fm parents: 8846 diff changeset	15476	useSearchBarInBrowser onChangeSend:#updateModifiedChannel to:self
1e3dc9435b97 * empty log message * fm parents: 8846 diff changeset	15477	].
1e3dc9435b97 * empty log message * fm parents: 8846 diff changeset	15478	^ useSearchBarInBrowser.
10124 5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	15479	!
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	15480
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	15481	webBrowserLikeLayout
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	15482	"true, if the search-entry fields are shown in the browser itself
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	15483	(like in firefox). False if a dialog is to be opened."
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	15484
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	15485	webBrowserLikeLayout isNil ifTrue:[
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	15486	webBrowserLikeLayout := false asValue.
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	15487	webBrowserLikeLayout onChangeSend:#updateModifiedChannel to:self
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	15488	].
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	15489	^ webBrowserLikeLayout.
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	15490
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	15491	"Created: / 07-06-2011 / 14:34:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
7819 30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15492	! !
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15493
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	15494	!AbstractSettingsApplication::SystemBrowserSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	15495
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	15496	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	15497	^ 'Launcher/browserSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	15498	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	15499
7819 30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15500	!AbstractSettingsApplication::SystemBrowserSettingsAppl methodsFor:'queries'!
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15501
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15502	hasUnsavedChanges
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15503	(self
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15504	hasChangedAspectIn:
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15505	#(
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15506	showAcceptCancelBarInBrowser
8916 1e3dc9435b97 * empty log message * fm parents: 8846 diff changeset	15507	useSearchBarInBrowser
10124 5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	15508	showMethodTemplate
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	15509	useCodeView2InTools
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	15510	showEmbeddedTestRunnerInBrowser
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	15511	showBookmarkBar
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	15512	webBrowserLikeLayout
10241 0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	15513	sortAndIndentClassesByInheritance
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	15514	showGlobalHistory
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	15515	showLocalHistory
10418 d2c09f0a39a2 Added "Use In-place Search In Browser Lists" setting vrany parents: 10301 diff changeset	15516	useInPlaceSearchInBrowserLists
10778 c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15517	sourceCodeManagementMenuLayout
7819 30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15518	)
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15519	asComparedTo:currentUserPrefs) ifTrue:[^ true].
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15520	^ false.
10124 5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	15521
10778 c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	15522	"Modified: / 06-10-2011 / 18:58:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
7819 30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15523	! !
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15524
9627 a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15525	!AbstractSettingsApplication::SystemMessageSettingsAppl class methodsFor:'help specs'!
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15526
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15527	helpSpec
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15528	"This resource specification was automatically generated
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15529	by the UIHelpTool of ST/X."
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15530
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15531	"Do not manually edit this!! If it is corrupted,
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15532	the UIHelpTool may not be able to read the specification."
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15533
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15534	"
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15535	UIHelpTool openOnClass:AbstractSettingsApplication::SystemMessageSettingsAppl
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15536	"
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15537
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15538	<resource: #help>
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15539
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15540	^ super helpSpec addPairsFrom:#(
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15541
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15542	#showToolTips
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15543	''
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15544
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15545	#toolTipAutoHideDelay
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15546	''
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15547
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15548	)
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15549	! !
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15550
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15551	!AbstractSettingsApplication::SystemMessageSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15552
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15553	defaultIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15554	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15555	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15556
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15557	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15558	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15559
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15560	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15561	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15562	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15563	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15564	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15565
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15566	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15567
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15568	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15569	constantNamed:#'AbstractSettingsApplication::SystemMessageSettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15570	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	15571	@@@@@@@@@@@@@PDA@P@@@@@@@@@@@@@@@@@@@@@@@PHB@0D@@@@@@@@@@@@@@@@@@@@@@PHDAPLC@P@@@@@@@@@@@@@@@@@@@@DBA PGA0 @@@@@@@@@@@@@
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	15572	@@@@@@@A@ XDA0\H@@@@@@@@@@@@@@@@@@@@@PHIA@(J@@@@@@@@@@@@@@@@@@@@@@DAB00MCP@@@@@@@@@@@@@@@@@@@@@@@@DN@@@@@@@@@@@@@@@@@@@@
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	15573	@@@@@@@AC @@@@@@@@@@@@@@@@@@@@@@@@@@@P8@@@@@@@@@@@@@@@@@@@@@@@<OC0PNDA@@DQD@@@@@@@@@@@@@@@<RD1LTEQXVE1 XDP@@@@@@@@@@@@@O
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	15574	D!!LSEATVE!!\XFAD@@@@@@@@@@@@@C1HSD1$UEAPZF1,\@@@@@@@@@@@@@@<RGQ4YF!!PTEAXVG@@@@@@@@@@@@@@OD!!4]FQ(TEAPVE!!0@@@@@@@@@@@@@C1H]
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	15575	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	15576	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	15577	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15578
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15579	!AbstractSettingsApplication::SystemMessageSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15580
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15581	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15582	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15583	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15584
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15585	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15586	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15587
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15588	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	15589	UIPainter new openOnClass:AbstractSettingsApplication::SystemMessageSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	15590	AbstractSettingsApplication::SystemMessageSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	15591	AbstractSettingsApplication::SystemMessageSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15592	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15593
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15594	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15595
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15596	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15597	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15598	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15599	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15600	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15601	label: 'Messages Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15602	name: 'Messages Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15603	min: (Point 10 10)
8623 7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15604	bounds: (Rectangle 0 0 561 478)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15605	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15606	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15607	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15608	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15609	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15610	name: 'VerticalPanel2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15611	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	15612	horizontalLayout: fitSpace
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15613	verticalLayout: topSpace
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15614	horizontalSpace: 5
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15615	verticalSpace: 5
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15616	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15617	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15618	collection: (
6166 92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15619	(FramedBoxSpec
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15620	label: 'Info & Error Messages'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15621	name: 'FramedBox1'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15622	labelPosition: topLeft
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15623	translateLabel: true
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15624	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15625	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15626	collection: (
6166 92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15627	(CheckBoxSpec
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15628	label: 'VM Info Messages'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15629	name: 'VMInfoMessages'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15630	layout: (LayoutFrame 5 0 5 0 -5 1 27 0)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15631	model: vmInfo
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15632	translateLabel: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15633	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15634	(CheckBoxSpec
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15635	label: 'VM Error Messages'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15636	name: 'VMErrorMessages'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15637	layout: (LayoutFrame 5 0 30 0 -5 1 52 0)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15638	model: vmErrors
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15639	translateLabel: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15640	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15641	(CheckBoxSpec
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15642	label: 'Display Error Messages (Xlib, Xtlib, WinAPI ...)'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15643	name: 'DisplayErrorMessages'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15644	layout: (LayoutFrame 5 0 55 0 -5 1 77 0)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15645	model: displayErrors
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15646	translateLabel: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15647	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15648	(CheckBoxSpec
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15649	label: 'Other Info Messages'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15650	name: 'OtherInfoMessages'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15651	layout: (LayoutFrame 5 0 80 0 -5 1 102 0)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15652	model: classInfos
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15653	translateLabel: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	15654	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	15655	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	15656
933cd54deefe checkin from browser penk parents: 4292 diff changeset	15657	)
6166 92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15658	extent: (Point 551 133)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15659	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15660	(FramedBoxSpec
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15661	label: 'Audible Bell'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15662	name: 'FramedBox3'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15663	labelPosition: topLeft
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15664	translateLabel: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15665	component:
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15666	(SpecCollection
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15667	collection: (
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15668	(CheckBoxSpec
8623 7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15669	label: 'Beep Generally Enabled'
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15670	name: 'beepEnabled'
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15671	layout: (LayoutFrame 5 0 5 0 226 0 27 0)
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15672	model: beepEnabled
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15673	translateLabel: true
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15674	)
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15675	(CheckBoxSpec
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15676	label: 'Beep in Editor'
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15677	name: 'CheckBox7'
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15678	layout: (LayoutFrame 40 0 30 0 300 0 52 0)
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15679	enableChannel: beepEnabled
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15680	model: beepInEditor
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15681	translateLabel: true
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15682	)
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15683	(CheckBoxSpec
6166 92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15684	label: 'Beep for Info Dialogs'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15685	name: 'CheckBox3'
8623 7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15686	layout: (LayoutFrame 40 0 55 0 300 0 77 0)
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15687	enableChannel: beepEnabled
6166 92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15688	model: beepForInfoDialog
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15689	translateLabel: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15690	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15691	(CheckBoxSpec
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15692	label: 'Beep for Warning Dialogs'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15693	name: 'CheckBox4'
8623 7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15694	layout: (LayoutFrame 40 0 80 0 300 0 102 0)
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15695	enableChannel: beepEnabled
6166 92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15696	model: beepForWarningDialog
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15697	translateLabel: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15698	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15699	(CheckBoxSpec
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15700	label: 'Beep for Error Dialogs'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15701	name: 'CheckBox5'
8623 7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15702	layout: (LayoutFrame 40 0 105 0 300 0 127 0)
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15703	enableChannel: beepEnabled
6166 92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15704	model: beepForErrorDialog
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15705	translateLabel: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15706	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15707	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15708
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15709	)
8623 7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15710	extent: (Point 551 164)
6166 92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15711	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15712	(FramedBoxSpec
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15713	label: 'Help'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15714	name: 'FramedBox4'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15715	labelPosition: topLeft
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15716	translateLabel: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15717	component:
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15718	(SpecCollection
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15719	collection: (
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15720	(CheckBoxSpec
7941 c8d90d772c3c * empty log message * Claus Gittinger <cg@exept.de> parents: 7925 diff changeset	15721	label: 'Tooltips (FlyBy Help)'
6166 92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15722	name: 'CheckBox6'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15723	layout: (LayoutFrame 5 0 5 0 -5 1 27 0)
9627 a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15724	activeHelpKey: showToolTips
6781 facbb533a366 * empty log message * Claus Gittinger <cg@exept.de> parents: 6780 diff changeset	15725	model: flyByHelpActive
6166 92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15726	translateLabel: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15727	)
9627 a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15728	(InputFieldSpec
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15729	name: 'EntryField1'
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15730	layout: (LayoutFrame -72 1 5 0 -16 1 27 0)
9628 a429f12b2c55 x Claus Gittinger <cg@exept.de> parents: 9627 diff changeset	15731	enableChannel: flyByHelpActive
a429f12b2c55 x Claus Gittinger <cg@exept.de> parents: 9627 diff changeset	15732	model: toolTipAutoHideDelay
9627 a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15733	type: timeDurationOrNil
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15734	acceptOnReturn: true
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15735	acceptOnTab: true
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15736	acceptOnPointerLeave: true
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15737	)
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15738	(LabelSpec
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15739	label: 'Autohide after:'
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15740	name: 'Label1'
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15741	layout: (LayoutFrame -260 1 6 0 -76 1 28 0)
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15742	activeHelpKey: toolTipAutoHideDelay
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15743	translateLabel: true
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15744	adjust: right
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15745	)
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15746	(LabelSpec
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15747	label: '(s)'
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15748	name: 'Label2'
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15749	layout: (LayoutFrame -13 1 6 0 7 1 28 0)
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15750	translateLabel: true
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15751	adjust: left
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15752	)
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15753	)
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15754
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15755	)
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15756	extent: (Point 551 62)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15757	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15758	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15759
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15760	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15761	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15762	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15763
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15764	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15765	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15766	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15767
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15768	!AbstractSettingsApplication::SystemMessageSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15769
9627 a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15770	aspects
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15771	^ #(
8623 7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15772	beepEnabled
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15773	beepInEditor
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	15774	beepForInfoDialog
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	15775	beepForWarningDialog
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	15776	beepForErrorDialog
6781 facbb533a366 * empty log message * Claus Gittinger <cg@exept.de> parents: 6780 diff changeset	15777	flyByHelpActive
9627 a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15778	toolTipAutoHideDelay
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15779	)
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15780
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15781	"Created: / 10-11-2010 / 12:07:42 / cg"
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15782	!
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15783
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15784	basicReadSettings
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15785	self readAspects:(self aspects) from:currentUserPrefs.
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	15786
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15787	self vmInfo value:ObjectMemory infoPrinting.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15788	self vmErrors value:ObjectMemory debugPrinting.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15789	self classInfos value:Object infoPrinting.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15790	self displayErrors value:DeviceWorkstation errorPrinting.
9610 64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	15791
9627 a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15792	"Modified: / 10-11-2010 / 12:08:03 / cg"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15793	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15794
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15795	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	15796
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	15797	ObjectMemory infoPrinting:self vmInfo value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	15798	ObjectMemory debugPrinting:self vmErrors value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	15799	Object infoPrinting:self classInfos value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	15800	DeviceWorkstation errorPrinting:self displayErrors value.
6163 00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	15801
9627 a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15802	self writeAspects:(self aspects) to:currentUserPrefs.
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15803
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15804	"Modified: / 10-11-2010 / 12:08:14 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15805	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15806
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15807	!AbstractSettingsApplication::SystemMessageSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15808
8623 7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15809	beepEnabled
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15810	beepEnabled isNil ifTrue:[
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15811	beepEnabled := true asValue.
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15812	beepEnabled onChangeSend:#updateModifiedChannel to:self
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15813	].
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15814	^ beepEnabled.
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15815	!
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15816
6163 00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	15817	beepForErrorDialog
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	15818	beepForErrorDialog isNil ifTrue:[
6781 facbb533a366 * empty log message * Claus Gittinger <cg@exept.de> parents: 6780 diff changeset	15819	beepForErrorDialog := currentUserPrefs beepForErrorDialog asValue.
6163 00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	15820	beepForErrorDialog onChangeSend:#updateModifiedChannel to:self
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	15821	].
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	15822	^ beepForErrorDialog.
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	15823	!
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	15824
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	15825	beepForInfoDialog
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	15826	beepForInfoDialog isNil ifTrue:[
6781 facbb533a366 * empty log message * Claus Gittinger <cg@exept.de> parents: 6780 diff changeset	15827	beepForInfoDialog := currentUserPrefs beepForInfoDialog asValue.
6163 00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	15828	beepForInfoDialog onChangeSend:#updateModifiedChannel to:self
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	15829	].
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	15830	^ beepForInfoDialog.
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	15831	!
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	15832
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	15833	beepForWarningDialog
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	15834	beepForWarningDialog isNil ifTrue:[
6781 facbb533a366 * empty log message * Claus Gittinger <cg@exept.de> parents: 6780 diff changeset	15835	beepForWarningDialog := currentUserPrefs beepForWarningDialog asValue.
6163 00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	15836	beepForWarningDialog onChangeSend:#updateModifiedChannel to:self
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	15837	].
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	15838	^ beepForWarningDialog.
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	15839	!
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	15840
8623 7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15841	beepInEditor
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15842	beepInEditor isNil ifTrue:[
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15843	beepInEditor := true asValue.
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15844	beepInEditor onChangeSend:#updateModifiedChannel to:self
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15845	].
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15846	^ beepInEditor.
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15847	!
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15848
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15849	changeFileName
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15850
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15851	changeFileName isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15852	changeFileName := ObjectMemory nameForChanges asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	15853	changeFileName onChangeSend:#updateModifiedChannel to:self
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15854	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15855	^ changeFileName.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15856	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15857
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15858	classInfos
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15859
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15860	classInfos isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15861	classInfos := Object infoPrinting asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	15862	classInfos onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15863	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15864	^ classInfos.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15865	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15866
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15867	displayErrors
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15868
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15869	displayErrors isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15870	displayErrors := DeviceWorkstation errorPrinting asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	15871	displayErrors onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15872	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15873	^ displayErrors.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15874	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15875
6781 facbb533a366 * empty log message * Claus Gittinger <cg@exept.de> parents: 6780 diff changeset	15876	flyByHelpActive
6166 92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15877	flyByHelp isNil ifTrue:[
6781 facbb533a366 * empty log message * Claus Gittinger <cg@exept.de> parents: 6780 diff changeset	15878	flyByHelp := currentUserPrefs flyByHelpActive asValue.
6166 92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15879	flyByHelp onChangeSend:#updateModifiedChannel to:self
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15880	].
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15881	^ flyByHelp.
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15882	!
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15883
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15884	logDoits
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15885
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15886	logDoits isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15887	logDoits := Smalltalk logDoits asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	15888	logDoits onChangeSend:#updateModifiedChannel to:self
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15889	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15890	^ logDoits.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15891	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15892
9627 a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15893	toolTipAutoHideDelay
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15894	toolTipAutoHideDelay isNil ifTrue:[
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15895	toolTipAutoHideDelay := 10 seconds asValue.
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15896	toolTipAutoHideDelay onChangeSend:#updateModifiedChannel to:self
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15897	].
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15898	^ toolTipAutoHideDelay.
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15899
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15900	"Created: / 10-11-2010 / 12:07:10 / cg"
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15901	!
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15902
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15903	updChanges
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15904
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15905	updChanges isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15906	updChanges := Class updatingChanges asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	15907	updChanges onChangeSend:#updateModifiedChannel to:self
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15908	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15909	^ updChanges.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15910	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15911
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15912	vmErrors
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15913
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15914	vmErrors isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15915	vmErrors := ObjectMemory debugPrinting asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	15916	vmErrors onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15917	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15918	^ vmErrors.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15919	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15920
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15921	vmInfo
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15922
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15923	vmInfo isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15924	vmInfo := ObjectMemory infoPrinting asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	15925	vmInfo onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15926	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15927	^ vmInfo.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15928	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15929
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	15930	!AbstractSettingsApplication::SystemMessageSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	15931
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	15932	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	15933	^ 'Launcher/messageSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	15934	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	15935
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15936	!AbstractSettingsApplication::SystemMessageSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15937
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15938	hasUnsavedChanges
9627 a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15939	(self hasChangedAspectIn:(self aspects) asComparedTo:currentUserPrefs) ifTrue:[^ true].
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	15940
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	15941	self vmInfo value ~= ObjectMemory infoPrinting ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	15942	self vmErrors value ~= ObjectMemory debugPrinting ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	15943	self classInfos value ~= Object infoPrinting ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	15944	self displayErrors value ~= DeviceWorkstation errorPrinting ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	15945	^ false
9610 64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	15946
9627 a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15947	"Modified: / 10-11-2010 / 12:08:25 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15948	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15949
8273 ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15950	!AbstractSettingsApplication::ToolsSettingsAppl class methodsFor:'help specs'!
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15951
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15952	flyByHelpSpec
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15953	"This resource specification was automatically generated
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15954	by the UIHelpTool of ST/X."
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15955
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15956	"Do not manually edit this!! If it is corrupted,
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15957	the UIHelpTool may not be able to read the specification."
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15958
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15959	"
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15960	UIHelpTool openOnClass:AbstractSettingsApplication::ToolsSettingsAppl
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15961	"
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15962
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15963	<resource: #help>
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15964
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15965	^ super flyByHelpSpec addPairsFrom:#(
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15966
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15967	#autoRaiseTranscript
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15968	'Autoraise the Transcript window when messages are added.'
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15969
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15970	#useNewFileBrowser
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15971	'Use the new, improved FileBrowser (as opposed to the simpler, older version)'
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15972
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15973	#useNewSystemBrowser
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15974	'Use the new, improved SystemBrowser (as opposed to the simpler, older version)'
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15975
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15976	#showClockInLauncher
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15977	'Show the current time in the Launcher'
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15978
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15979	#transcriptBufferSize
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15980	'Number of lines that are remembered in the Transcript'
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15981
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15982	#useSmalltalkDocumentView
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15983	'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	15984	)
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15985	! !
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15986
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15987	!AbstractSettingsApplication::ToolsSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15988
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15989	defaultIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15990	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15991	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15992
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15993	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15994	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15995
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15996	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15997	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15998	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15999	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	16000	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	16001
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	16002	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	16003
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	16004	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	16005	constantNamed:#'AbstractSettingsApplication::ToolsSettingsAppl class defaultIcon'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	16006	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	16007	*****************************@@@@@@@@@@@@@J(@@@@@@@@@@@@@ @@@F(QD@@@@@B@@@@B((QD@@@@J(@@@@@@JLQ@@@@ @B$@@@)CD@@@B*@@
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	16008	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	16009	@@@@@@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	16010	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	16011
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16012	!AbstractSettingsApplication::ToolsSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16013
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16014	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16015	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16016	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16017
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16018	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16019	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16020
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16021	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	16022	UIPainter new openOnClass:AbstractSettingsApplication::ToolsSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	16023	AbstractSettingsApplication::ToolsSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	16024	AbstractSettingsApplication::ToolsSettingsAppl open
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	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16028
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16029	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16030	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16031	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16032	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16033	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16034	label: 'Tool Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16035	name: 'Tool Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16036	min: (Point 10 10)
5576 8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	16037	bounds: (Rectangle 0 0 607 786)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16038	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16039	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16040	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16041	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16042	(VerticalPanelViewSpec
10294 123b913079b4 eclipseStyleMenus Claus Gittinger <cg@exept.de> parents: 10279 diff changeset	16043	layout: (LayoutFrame 0 0.0 0 0 0 1.0 451 0)
5576 8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	16044	horizontalLayout: fit
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16045	verticalLayout: top
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16046	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16047	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16048	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16049	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16050	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16051	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16052	label: 'Use the New System Browser'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16053	name: 'NewSystemBrowser'
8273 ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16054	activeHelpKey: useNewSystemBrowser
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16055	model: useNewSystemBrowser
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16056	translateLabel: true
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	16057	extent: (Point 607 25)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16058	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16059	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16060	label: 'Use the New File Browser'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16061	name: 'NewFileBrowser'
8273 ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16062	activeHelpKey: useNewFileBrowser
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16063	model: useNewFileBrowser
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16064	translateLabel: true
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	16065	extent: (Point 607 25)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16066	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16067	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16068	label: 'Use the New VersionDiff Browser'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16069	name: 'VersionDiffBrowser'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16070	model: useNewVersionDiffBrowser
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16071	translateLabel: true
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	16072	extent: (Point 607 25)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16073	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16074	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16075	label: 'Use the New FileTree File Dialog'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16076	name: 'UseNewFileDialogCheckBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16077	model: useNewFileDialog
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16078	translateLabel: true
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	16079	extent: (Point 607 25)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16080	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16081	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16082	label: 'Use the New Settings Dialog'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16083	name: 'UseNewSettinsApplicationCheckBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16084	model: useNewSettingsApplication
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16085	translateLabel: true
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	16086	extent: (Point 607 25)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16087	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16088	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16089	label: 'Use the New Process Monitor'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16090	name: 'UseNewProcessMonitor'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16091	model: useProcessMonitorV2
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16092	translateLabel: true
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	16093	extent: (Point 607 25)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16094	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16095	(CheckBoxSpec
10191 500c830c6bed +useTestRunner2 Claus Gittinger <cg@exept.de> parents: 10125 diff changeset	16096	label: 'Use the New TestRunner2'
500c830c6bed +useTestRunner2 Claus Gittinger <cg@exept.de> parents: 10125 diff changeset	16097	name: 'CheckBox3'
500c830c6bed +useTestRunner2 Claus Gittinger <cg@exept.de> parents: 10125 diff changeset	16098	model: useTestRunner2
500c830c6bed +useTestRunner2 Claus Gittinger <cg@exept.de> parents: 10125 diff changeset	16099	translateLabel: true
500c830c6bed +useTestRunner2 Claus Gittinger <cg@exept.de> parents: 10125 diff changeset	16100	extent: (Point 607 25)
500c830c6bed +useTestRunner2 Claus Gittinger <cg@exept.de> parents: 10125 diff changeset	16101	)
500c830c6bed +useTestRunner2 Claus Gittinger <cg@exept.de> parents: 10125 diff changeset	16102	(CheckBoxSpec
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16103	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	16104	name: 'ChangesBrowser'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16105	model: useNewChangesBrowser
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16106	translateLabel: true
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	16107	extent: (Point 607 25)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16108	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16109	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16110	label: 'Use Hierarchical Inspector (not yet recommended)'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16111	name: 'HierarchicalInspector'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16112	model: useNewInspector
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16113	translateLabel: true
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	16114	extent: (Point 607 25)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16115	)
6742 62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	16116	(CheckBoxSpec
62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	16117	label: 'Use the Smalltalk Document Viewer'
62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	16118	name: 'UseSmalltalkDocumentViewer'
8273 ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16119	activeHelpKey: useSmalltalkDocumentView
6742 62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	16120	model: useSmalltalkDocumentViewer
62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	16121	translateLabel: true
62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	16122	extent: (Point 607 25)
62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	16123	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16124	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16125	name: 'Box2'
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	16126	extent: (Point 607 20)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16127	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16128	(CheckBoxSpec
8118 a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	16129	label: 'Show "Tip Of The Day" at Startup'
a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	16130	name: 'CheckBox1'
a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	16131	model: showTipOfTheDayAtStartup
a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	16132	translateLabel: true
a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	16133	extent: (Point 607 25)
a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	16134	)
a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	16135	(CheckBoxSpec
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16136	label: 'Show Clock in Launcher'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16137	name: 'Clock'
8273 ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16138	activeHelpKey: showClockInLauncher
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16139	model: showClockInLauncher
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16140	translateLabel: true
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	16141	extent: (Point 607 25)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16142	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16143	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16144	name: 'Box3'
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	16145	extent: (Point 607 19)
5576 8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	16146	)
8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	16147	(HorizontalPanelViewSpec
8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	16148	name: 'HorizontalPanel1'
8081 8cc8c1cc6538 Fix field size for "Transcript Buffer Size" Stefan Vogel <sv@exept.de> parents: 8036 diff changeset	16149	horizontalLayout: left
5576 8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	16150	verticalLayout: center
8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	16151	horizontalSpace: 3
8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	16152	verticalSpace: 3
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16153	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16154	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16155	collection: (
8273 ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16156	(ViewSpec
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16157	name: 'Box4'
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16158	extent: (Point 20 10)
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16159	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16160	(LabelSpec
10582 83776c1cdb25 label Claus Gittinger <cg@exept.de> parents: 10418 diff changeset	16161	label: 'Transcript''s Buffer Size:'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16162	name: 'Label1'
8273 ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16163	activeHelpKey: transcriptBufferSize
5576 8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	16164	translateLabel: true
8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	16165	resizeForLabel: true
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16166	adjust: right
8273 ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16167	useDefaultExtent: true
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16168	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16169	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16170	name: 'Transcripts Buffer Size'
8273 ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16171	activeHelpKey: transcriptBufferSize
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16172	model: transcriptBufferSize
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16173	type: number
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16174	immediateAccept: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16175	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16176	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16177	acceptOnLostFocus: true
8081 8cc8c1cc6538 Fix field size for "Transcript Buffer Size" Stefan Vogel <sv@exept.de> parents: 8036 diff changeset	16178	numChars: 8
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16179	acceptOnPointerLeave: true
8273 ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16180	extent: (Point 78 22)
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16181	)
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16182	(LabelSpec
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16183	label: '(Lines)'
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16184	name: 'Label2'
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16185	activeHelpKey: transcriptBufferSize
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16186	translateLabel: true
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16187	resizeForLabel: true
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16188	adjust: right
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16189	useDefaultExtent: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	16190	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	16191	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	16192
933cd54deefe checkin from browser penk parents: 4292 diff changeset	16193	)
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	16194	extent: (Point 607 35)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16195	)
8273 ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16196	(CheckBoxSpec
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16197	label: 'Autoraise Transcript'
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16198	name: 'CheckBox2'
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16199	activeHelpKey: autoRaiseTranscript
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16200	model: autoRaiseTranscript
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16201	translateLabel: true
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16202	extent: (Point 607 24)
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16203	)
10294 123b913079b4 eclipseStyleMenus Claus Gittinger <cg@exept.de> parents: 10279 diff changeset	16204	(CheckBoxSpec
123b913079b4 eclipseStyleMenus Claus Gittinger <cg@exept.de> parents: 10279 diff changeset	16205	label: 'Eclipse Style Menus (where implemented)'
123b913079b4 eclipseStyleMenus Claus Gittinger <cg@exept.de> parents: 10279 diff changeset	16206	name: 'CheckBox4'
123b913079b4 eclipseStyleMenus Claus Gittinger <cg@exept.de> parents: 10279 diff changeset	16207	activeHelpKey: autoRaiseTranscript
123b913079b4 eclipseStyleMenus Claus Gittinger <cg@exept.de> parents: 10279 diff changeset	16208	model: eclipseStyleMenus
123b913079b4 eclipseStyleMenus Claus Gittinger <cg@exept.de> parents: 10279 diff changeset	16209	translateLabel: true
123b913079b4 eclipseStyleMenus Claus Gittinger <cg@exept.de> parents: 10279 diff changeset	16210	extent: (Point 607 24)
123b913079b4 eclipseStyleMenus Claus Gittinger <cg@exept.de> parents: 10279 diff changeset	16211	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16212	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16213
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16214	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16215	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16216	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16217
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16218	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16219	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16220	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16221
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16222	!AbstractSettingsApplication::ToolsSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16223
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	16224	basicReadSettings
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	16225	self
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	16226	readAspects:
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	16227	#(
10294 123b913079b4 eclipseStyleMenus Claus Gittinger <cg@exept.de> parents: 10279 diff changeset	16228	eclipseStyleMenus
10191 500c830c6bed +useTestRunner2 Claus Gittinger <cg@exept.de> parents: 10125 diff changeset	16229	useTestRunner2
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	16230	useNewInspector
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	16231	useNewChangesBrowser
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	16232	useNewSystemBrowser
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	16233	useNewVersionDiffBrowser
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	16234	useNewFileBrowser
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	16235	useNewFileDialog
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	16236	useNewSettingsApplication
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	16237	useProcessMonitorV2
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	16238	useSmalltalkDocumentViewer
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	16239	showClockInLauncher
8118 a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	16240	showTipOfTheDayAtStartup
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	16241	)
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	16242	from:currentUserPrefs.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	16243
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	16244	Transcript current isExternalStream ifFalse:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	16245	self transcriptBufferSize value:Transcript current lineLimit.
8273 ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16246	self autoRaiseTranscript value:Transcript current autoRaise.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	16247	].
10191 500c830c6bed +useTestRunner2 Claus Gittinger <cg@exept.de> parents: 10125 diff changeset	16248
10294 123b913079b4 eclipseStyleMenus Claus Gittinger <cg@exept.de> parents: 10279 diff changeset	16249	"Modified: / 08-07-2011 / 13:42:03 / cg"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	16250	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	16251
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16252	basicSaveSettings
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	16253	\|showClock launcher reopenLauncher newSystemBrowserClass transcript\|
5594 06aba5d1bb6e NewSystemBrowser -> Tools::NewSystemBrowser Claus Gittinger <cg@exept.de> parents: 5583 diff changeset	16254
8118 a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	16255	reopenLauncher := false.
a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	16256
5594 06aba5d1bb6e NewSystemBrowser -> Tools::NewSystemBrowser Claus Gittinger <cg@exept.de> parents: 5583 diff changeset	16257	newSystemBrowserClass := Tools::NewSystemBrowser ? NewSystemBrowser.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16258
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	16259	self
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	16260	writeAspects:
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	16261	#(
10294 123b913079b4 eclipseStyleMenus Claus Gittinger <cg@exept.de> parents: 10279 diff changeset	16262	eclipseStyleMenus
10191 500c830c6bed +useTestRunner2 Claus Gittinger <cg@exept.de> parents: 10125 diff changeset	16263	useTestRunner2
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	16264	useNewInspector
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	16265	useNewChangesBrowser
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	16266	useNewVersionDiffBrowser
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	16267	useNewFileDialog
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	16268	useProcessMonitorV2
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	16269	useSmalltalkDocumentViewer
8118 a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	16270	showTipOfTheDayAtStartup
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	16271	)
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	16272	to:currentUserPrefs.
6742 62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	16273
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	16274	currentUserPrefs useNewSettingsApplication ~= self useNewSettingsApplication value ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	16275	currentUserPrefs useNewSettingsApplication:self useNewSettingsApplication value.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	16276	].
5083 7fdf1e8c8f03 reopen launcher when systemBrowser setting changes Claus Gittinger <cg@exept.de> parents: 5080 diff changeset	16277
7fdf1e8c8f03 reopen launcher when systemBrowser setting changes Claus Gittinger <cg@exept.de> parents: 5080 diff changeset	16278	currentUserPrefs useNewSystemBrowser ~= self useNewSystemBrowser value ifTrue:[
7fdf1e8c8f03 reopen launcher when systemBrowser setting changes Claus Gittinger <cg@exept.de> parents: 5080 diff changeset	16279	currentUserPrefs useNewSystemBrowser:self useNewSystemBrowser value.
5594 06aba5d1bb6e NewSystemBrowser -> Tools::NewSystemBrowser Claus Gittinger <cg@exept.de> parents: 5583 diff changeset	16280	(self useNewSystemBrowser value and:[newSystemBrowserClass isLoaded]) ifTrue:[
06aba5d1bb6e NewSystemBrowser -> Tools::NewSystemBrowser Claus Gittinger <cg@exept.de> parents: 5583 diff changeset	16281	newSystemBrowserClass installInLauncher.
5083 7fdf1e8c8f03 reopen launcher when systemBrowser setting changes Claus Gittinger <cg@exept.de> parents: 5080 diff changeset	16282	] ifFalse:[
5594 06aba5d1bb6e NewSystemBrowser -> Tools::NewSystemBrowser Claus Gittinger <cg@exept.de> parents: 5583 diff changeset	16283	newSystemBrowserClass removeFromLauncher.
5083 7fdf1e8c8f03 reopen launcher when systemBrowser setting changes Claus Gittinger <cg@exept.de> parents: 5080 diff changeset	16284	].
7fdf1e8c8f03 reopen launcher when systemBrowser setting changes Claus Gittinger <cg@exept.de> parents: 5080 diff changeset	16285	reopenLauncher := true.
7fdf1e8c8f03 reopen launcher when systemBrowser setting changes Claus Gittinger <cg@exept.de> parents: 5080 diff changeset	16286	].
7fdf1e8c8f03 reopen launcher when systemBrowser setting changes Claus Gittinger <cg@exept.de> parents: 5080 diff changeset	16287
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16288	(Smalltalk at:#FileBrowserV2) isBehavior ifTrue:[
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	16289	currentUserPrefs useNewFileBrowser ~= self useNewFileBrowser value ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	16290	currentUserPrefs useNewFileBrowser:self useNewFileBrowser value.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	16291	(self useNewFileBrowser value and:[FileBrowserV2 isLoaded]) ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	16292	FileBrowserV2 installInLauncher.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	16293	] ifFalse:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16294	FileBrowserV2 removeFromLauncher.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	16295	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	16296	reopenLauncher := true.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	16297	]
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16298	].
5627 d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	16299
d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	16300	transcript := Transcript current.
d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	16301	(transcript notNil and:[transcript isExternalStream not]) ifTrue:[
8273 ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16302	transcript lineLimit:self transcriptBufferSize value.
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16303	transcript autoRaise:self autoRaiseTranscript value.
5627 d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	16304	launcher := transcript application.
d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	16305	].
d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	16306
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16307	showClock := self showClockInLauncher value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16308	currentUserPrefs showClockInLauncher ~= showClock ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16309	currentUserPrefs showClockInLauncher:showClock.
5627 d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	16310	launcher notNil ifTrue:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16311	showClock ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16312	launcher startClock
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16313	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16314	launcher stopClock
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16315	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16316	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16317	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16318	Inspector := currentUserPrefs inspectorClassSetting.
5627 d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	16319
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	16320	reopenLauncher ifTrue:[
5627 d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	16321	launcher notNil ifTrue:[
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	16322	launcher reopenLauncher.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	16323	]
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	16324	].
10191 500c830c6bed +useTestRunner2 Claus Gittinger <cg@exept.de> parents: 10125 diff changeset	16325
10294 123b913079b4 eclipseStyleMenus Claus Gittinger <cg@exept.de> parents: 10279 diff changeset	16326	"Modified: / 08-07-2011 / 13:42:06 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16327	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16328
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16329	!AbstractSettingsApplication::ToolsSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16330
8273 ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16331	autoRaiseTranscript
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16332	autoRaiseTranscript isNil ifTrue:[
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16333	autoRaiseTranscript := false asValue.
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16334	autoRaiseTranscript onChangeSend:#updateModifiedChannel to:self
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16335	].
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16336	^ autoRaiseTranscript.
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16337
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16338	"Modified: / 21-09-2006 / 00:39:54 / cg"
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16339	!
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16340
10294 123b913079b4 eclipseStyleMenus Claus Gittinger <cg@exept.de> parents: 10279 diff changeset	16341	eclipseStyleMenus
123b913079b4 eclipseStyleMenus Claus Gittinger <cg@exept.de> parents: 10279 diff changeset	16342	eclipseStyleMenus isNil ifTrue:[
123b913079b4 eclipseStyleMenus Claus Gittinger <cg@exept.de> parents: 10279 diff changeset	16343	eclipseStyleMenus := false asValue.
123b913079b4 eclipseStyleMenus Claus Gittinger <cg@exept.de> parents: 10279 diff changeset	16344	eclipseStyleMenus onChangeSend:#updateModifiedChannel to:self
123b913079b4 eclipseStyleMenus Claus Gittinger <cg@exept.de> parents: 10279 diff changeset	16345	].
123b913079b4 eclipseStyleMenus Claus Gittinger <cg@exept.de> parents: 10279 diff changeset	16346	^ eclipseStyleMenus.
123b913079b4 eclipseStyleMenus Claus Gittinger <cg@exept.de> parents: 10279 diff changeset	16347
123b913079b4 eclipseStyleMenus Claus Gittinger <cg@exept.de> parents: 10279 diff changeset	16348	"Modified: / 21-09-2006 / 00:39:54 / cg"
123b913079b4 eclipseStyleMenus Claus Gittinger <cg@exept.de> parents: 10279 diff changeset	16349	"Created: / 08-07-2011 / 13:42:13 / cg"
123b913079b4 eclipseStyleMenus Claus Gittinger <cg@exept.de> parents: 10279 diff changeset	16350	!
123b913079b4 eclipseStyleMenus Claus Gittinger <cg@exept.de> parents: 10279 diff changeset	16351
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16352	showClockInLauncher
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	16353	showClockInLauncher isNil ifTrue:[
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	16354	showClockInLauncher := false asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	16355	showClockInLauncher onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	16356	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	16357	^ showClockInLauncher.
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	16358
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	16359	"Modified: / 21-09-2006 / 00:39:54 / cg"
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	16360	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	16361
8118 a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	16362	showTipOfTheDayAtStartup
a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	16363	showTipOfTheDayAtStartup isNil ifTrue:[
a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	16364	showTipOfTheDayAtStartup := false asValue.
a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	16365	showTipOfTheDayAtStartup onChangeSend:#updateModifiedChannel to:self
a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	16366	].
a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	16367	^ showTipOfTheDayAtStartup.
a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	16368
a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	16369	"Modified: / 21-09-2006 / 00:39:54 / cg"
a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	16370	!
a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	16371
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16372	transcriptBufferSize
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	16373	transcriptBufferSize isNil ifTrue:[
5627 d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	16374	transcriptBufferSize := 600 asValue. "/ Transcript current lineLimit asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	16375	transcriptBufferSize onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	16376	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	16377	^ transcriptBufferSize.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	16378	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	16379
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16380	useNewChangesBrowser
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	16381	useNewChangesBrowser isNil ifTrue:[
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	16382	useNewChangesBrowser := false asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	16383	useNewChangesBrowser onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	16384	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	16385	^ useNewChangesBrowser.
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	16386
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	16387	"Modified: / 21-09-2006 / 00:39:37 / cg"
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	16388	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	16389
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16390	useNewFileBrowser
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	16391	useNewFileBrowser isNil ifTrue:[
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	16392	useNewFileBrowser := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	16393	useNewFileBrowser onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	16394	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	16395	^ useNewFileBrowser.
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	16396
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	16397	"Modified: / 21-09-2006 / 00:39:19 / cg"
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	16398	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	16399
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16400	useNewFileDialog
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	16401	useNewFileDialog isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	16402	useNewFileDialog := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	16403	useNewFileDialog onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	16404	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	16405	^ useNewFileDialog.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	16406	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	16407
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16408	useNewInspector
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	16409	useNewInspector isNil ifTrue:[
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	16410	useNewInspector := false asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	16411	useNewInspector onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	16412	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	16413	^ useNewInspector.
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	16414
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	16415	"Modified: / 21-09-2006 / 00:38:41 / cg"
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	16416	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	16417
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16418	useNewSettingsApplication
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	16419	useNewSettingsApplication isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	16420	useNewSettingsApplication := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	16421	useNewSettingsApplication onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	16422	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	16423	^ useNewSettingsApplication.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	16424	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	16425
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16426	useNewSystemBrowser
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	16427	useNewSystemBrowser isNil ifTrue:[
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	16428	useNewSystemBrowser := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	16429	useNewSystemBrowser onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	16430	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	16431	^ useNewSystemBrowser.
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	16432
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	16433	"Modified: / 21-09-2006 / 00:39:02 / cg"
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	16434	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	16435
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16436	useNewVersionDiffBrowser
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	16437	useNewVersionDiffBrowser isNil ifTrue:[
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	16438	useNewVersionDiffBrowser := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	16439	useNewVersionDiffBrowser onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	16440	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	16441	^ useNewVersionDiffBrowser.
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	16442
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	16443	"Modified: / 21-09-2006 / 00:38:56 / cg"
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	16444	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	16445
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16446	useProcessMonitorV2
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	16447	useProcessMonitorV2 isNil ifTrue:[
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	16448	useProcessMonitorV2 := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	16449	useProcessMonitorV2 onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	16450	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	16451	^ useProcessMonitorV2.
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	16452
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	16453	"Modified: / 21-09-2006 / 00:38:50 / cg"
6742 62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	16454	!
62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	16455
62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	16456	useSmalltalkDocumentViewer
62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	16457	useSmalltalkDocumentViewer isNil ifTrue:[
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	16458	useSmalltalkDocumentViewer := nil asValue.
6742 62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	16459	useSmalltalkDocumentViewer onChangeSend:#updateModifiedChannel to:self
62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	16460	].
62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	16461	^ useSmalltalkDocumentViewer.
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	16462
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	16463	"Modified: / 21-09-2006 / 00:03:13 / cg"
10191 500c830c6bed +useTestRunner2 Claus Gittinger <cg@exept.de> parents: 10125 diff changeset	16464	!
500c830c6bed +useTestRunner2 Claus Gittinger <cg@exept.de> parents: 10125 diff changeset	16465
500c830c6bed +useTestRunner2 Claus Gittinger <cg@exept.de> parents: 10125 diff changeset	16466	useTestRunner2
500c830c6bed +useTestRunner2 Claus Gittinger <cg@exept.de> parents: 10125 diff changeset	16467	useTestRunner2 isNil ifTrue:[
500c830c6bed +useTestRunner2 Claus Gittinger <cg@exept.de> parents: 10125 diff changeset	16468	useTestRunner2 := true asValue.
500c830c6bed +useTestRunner2 Claus Gittinger <cg@exept.de> parents: 10125 diff changeset	16469	useTestRunner2 onChangeSend:#updateModifiedChannel to:self
500c830c6bed +useTestRunner2 Claus Gittinger <cg@exept.de> parents: 10125 diff changeset	16470	].
500c830c6bed +useTestRunner2 Claus Gittinger <cg@exept.de> parents: 10125 diff changeset	16471	^ useTestRunner2.
500c830c6bed +useTestRunner2 Claus Gittinger <cg@exept.de> parents: 10125 diff changeset	16472
500c830c6bed +useTestRunner2 Claus Gittinger <cg@exept.de> parents: 10125 diff changeset	16473	"Modified: / 21-09-2006 / 00:39:19 / cg"
500c830c6bed +useTestRunner2 Claus Gittinger <cg@exept.de> parents: 10125 diff changeset	16474	"Created: / 06-07-2011 / 13:52:33 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16475	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16476
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	16477	!AbstractSettingsApplication::ToolsSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	16478
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	16479	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	16480	^ 'Launcher/toolSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	16481	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	16482
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16483	!AbstractSettingsApplication::ToolsSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16484
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16485	hasUnsavedChanges
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	16486	(self
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	16487	hasChangedAspectIn:
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	16488	#(
10295 7c7b9ba6a2c2 eclipseStyleMenus Claus Gittinger <cg@exept.de> parents: 10294 diff changeset	16489	eclipseStyleMenus
10191 500c830c6bed +useTestRunner2 Claus Gittinger <cg@exept.de> parents: 10125 diff changeset	16490	useTestRunner2
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	16491	useNewInspector
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	16492	useNewChangesBrowser
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	16493	useNewSystemBrowser
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	16494	useNewVersionDiffBrowser
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	16495	useNewFileBrowser
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	16496	useNewFileDialog
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	16497	useNewSettingsApplication
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	16498	useProcessMonitorV2
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	16499	useSmalltalkDocumentViewer
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	16500	showClockInLauncher
8118 a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	16501	showTipOfTheDayAtStartup
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	16502	)
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	16503	asComparedTo:currentUserPrefs) ifTrue:[^ true].
6742 62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	16504
5627 d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	16505	Transcript current isExternalStream ifFalse:[
d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	16506	(self transcriptBufferSize value ~= Transcript current lineLimit) ifTrue:[^ true].
8273 ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16507	(self autoRaiseTranscript value ~= Transcript current autoRaise) ifTrue:[^ true].
5627 d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	16508	].
d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	16509	^ false.
10191 500c830c6bed +useTestRunner2 Claus Gittinger <cg@exept.de> parents: 10125 diff changeset	16510
10295 7c7b9ba6a2c2 eclipseStyleMenus Claus Gittinger <cg@exept.de> parents: 10294 diff changeset	16511	"Modified: / 08-07-2011 / 13:42:46 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16512	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16513
4226 44e2f83cc526 initial checkin penk parents: diff changeset	16514	!AbstractSettingsApplication class methodsFor:'documentation'!
44e2f83cc526 initial checkin penk parents: diff changeset	16515
10295 7c7b9ba6a2c2 eclipseStyleMenus Claus Gittinger <cg@exept.de> parents: 10294 diff changeset	16516	version
10893 b90f27b8dfd4 changed: #subEntryRawSettingsList Claus Gittinger <cg@exept.de> parents: 10811 diff changeset	16517	^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.410 2011-11-24 17:34:29 cg Exp $'
10295 7c7b9ba6a2c2 eclipseStyleMenus Claus Gittinger <cg@exept.de> parents: 10294 diff changeset	16518	!
7c7b9ba6a2c2 eclipseStyleMenus Claus Gittinger <cg@exept.de> parents: 10294 diff changeset	16519
8846 a5a4031ee2cc Smalltalk language -> UserPreferences current language Claus Gittinger <cg@exept.de> parents: 8793 diff changeset	16520	version_CVS
10893 b90f27b8dfd4 changed: #subEntryRawSettingsList Claus Gittinger <cg@exept.de> parents: 10811 diff changeset	16521	^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.410 2011-11-24 17:34:29 cg Exp $'
b90f27b8dfd4 changed: #subEntryRawSettingsList Claus Gittinger <cg@exept.de> parents: 10811 diff changeset	16522	! !

author	Claus Gittinger <cg@exept.de>
	Thu, 24 Nov 2011 18:34:29 +0100
changeset 10893	b90f27b8dfd4
parent 10811	2da3db63023c
child 10900	b798071a4587
permissions	-rw-r--r--