hg/stx-libtool: AbstractSettingsApplication.st@d769436f958c (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	"
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	12
4226 44e2f83cc526 initial checkin penk parents: diff changeset	13	"{ Package: 'stx:libtool' }"
44e2f83cc526 initial checkin penk parents: diff changeset	14
44e2f83cc526 initial checkin penk parents: diff changeset	15	ApplicationModel subclass:#AbstractSettingsApplication
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	16	instanceVariableNames:'settingsString currentUserPrefs modifiedChannel settingsDialog
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	17	requestor'
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	18	classVariableNames:''
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	19	poolDictionaries:''
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	20	category:'Interface-Smalltalk'
4226 44e2f83cc526 initial checkin penk parents: diff changeset	21	!
44e2f83cc526 initial checkin penk parents: diff changeset	22
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	23	AbstractSettingsApplication subclass:#ByteCodeCompilerSettingsAppl
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	24	instanceVariableNames:'allowQualifiedNames warnDollar warnOldStyle fullDebugSupport
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	25	warnCommonMistakes warnUnderscore keepSource constantFolding
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	26	warnCompatibility constantFoldingOptions warnings warnSTX
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	27	allowDollar allowReservedWordsAsSelectors immutableArrays
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	28	allowOldStyleAssignment allowUnderscore allowDolphinExtensions
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	29	warnUnusedVars allowSqueakExtensions justInTimeCompilation
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	30	canLoadBinaries constantFoldingSelection enableUnderscore
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	31	enableDollar'
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	32	classVariableNames:''
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	33	poolDictionaries:''
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	34	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	35	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	36
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	37	AbstractSettingsApplication subclass:#DebuggerSettingsAppl
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	38	instanceVariableNames:'showErrorNotifier showVerboseStack allowSendMailFromDebugger'
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	39	classVariableNames:''
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	40	poolDictionaries:''
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	41	privateIn:AbstractSettingsApplication
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	42	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	43
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	44	AbstractSettingsApplication subclass:#DisplaySettingsAppl
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	45	instanceVariableNames:'isColorMonitor useFixGrayPaletteLabel useFixPalette sizeY
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	46	clipEncodingListSelection sizeX monitorList ditherList
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	47	clipEncodingList ditherListSelection deepIcons monitorSelection
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	48	useFixPaletteLabel visualIsPseudoColor ditherSymsNotNil
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	49	useFixGrayPalette sizeInfos screen ditherStyles ditherSyms
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	50	screenDepthVisualLabelHolder maxCopyBufferSize'
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	51	classVariableNames:''
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	52	poolDictionaries:''
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	53	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	54	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	55
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	56	AbstractSettingsApplication subclass:#EditSettingsAppl
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	57	instanceVariableNames:'st80EditingMode tabsIs4 st80DoubleClickSelectMode
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	58	searchDialogIsModal startTextDragWithControl'
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	59	classVariableNames:''
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	60	poolDictionaries:''
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	61	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	62	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	63
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	64	AbstractSettingsApplication subclass:#FontSettingsAppl
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	65	instanceVariableNames:'filter allOfThem labelDef buttonDef listDef menuDef textDef
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	66	allFontLabelHolder buttonsFontLabelHolder textFontLabelHolder
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	67	labelsFontLabelHolder listsFontLabelHolder menusFontLabelHolder
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	68	allLabel buttonsLabel textLabel labelLabel listsLabel menuLabel'
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	69	classVariableNames:''
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	70	poolDictionaries:''
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	71	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	72	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	73
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	74	AbstractSettingsApplication subclass:#GeneralCompilerSettingsAppl
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	75	instanceVariableNames:'st80EditingMode tabsIs4 st80DoubleClickSelectMode
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	76	searchDialogIsModal startTextDragWithControl catchClassRedefs
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	77	fullHistoryUpdate historyLines keepSourceSelection keepSource
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	78	hasHistoryManager canLoadBinaries loadBinaries catchMethodRedefs'
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	79	classVariableNames:''
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	80	poolDictionaries:''
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	81	privateIn:AbstractSettingsApplication
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	82	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	83
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	84	AbstractSettingsApplication subclass:#HTTPStartServerSettingsApplication
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	85	instanceVariableNames:'portNumberChannel informationLabel hasNoCreatedServerChannel
6426 d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	86	hasCreatedServerChannel useFcgiHolder'
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	87	classVariableNames:'CreatedServers'
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	88	poolDictionaries:''
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	89	privateIn:AbstractSettingsApplication
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	90	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	91
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	92	AbstractSettingsApplication subclass:#KbdMappingSettingsAppl
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	93	instanceVariableNames:'selectedRawKey macroTextHolder selectedFunctionKey
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	94	labelTextHolder functionKeyList rawKeyList mappings'
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	95	classVariableNames:''
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	96	poolDictionaries:''
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	97	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	98	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	99
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	100	AbstractSettingsApplication subclass:#LanguageSettingsAppl
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	101	instanceVariableNames:'languageHolder languageIndexHolder languageList
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	102	languageListHolder listOfLanguages translatedLanguages
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	103	noticeLabelHolder currentFlagAndLanguageChannel
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	104	currentLanguageLabel perLanguageResources'
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	105	classVariableNames:''
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	106	poolDictionaries:''
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	107	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	108	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	109
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	110	AbstractSettingsApplication subclass:#MemorySettingsAppl
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	111	instanceVariableNames:'newSpaceSize maxOldSpace fastMoreLimit warningLabelHolder
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	112	codeTrigger codeLimit oldIncr compressLimit igcFreeLimit igcLimit
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	113	igcFreeAmount stackLimit supportsJustInTimeCompilation'
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	114	classVariableNames:''
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	115	poolDictionaries:''
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	116	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	117	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	118
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	119	AbstractSettingsApplication subclass:#MiscCommunicationSettingsAppl
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	120	instanceVariableNames:'remoteBrowsingEnabled windowMigrationEnabled
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	121	windowMigrationPassword windowMigrationAuthenticate
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	122	enablePasswordCheck'
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	123	classVariableNames:''
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	124	poolDictionaries:''
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	125	privateIn:AbstractSettingsApplication
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	126	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	127
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	128	AbstractSettingsApplication subclass:#MiscDisplaySettingsAppl
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	129	instanceVariableNames:'returnFocus focusFollowsMouse beepEnabled takeFocus
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	130	activateOnClick nativeWidgets nativeDialogs shadows
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	131	opaqueVariablePanelResize formatHostNameinWindowLabels
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	132	opaqueTableColumnResize hostNameInLabelHolder showAccelerators
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	133	newWindowLabelFormat formatHostNameWindowLabel'
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	134	classVariableNames:''
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	135	poolDictionaries:''
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	136	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	137	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	138
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	139	AbstractSettingsApplication subclass:#OsiSettingsAppl
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	140	instanceVariableNames:'osiACSEConnectionLogging osiROSEErrorLogging osiCMISEErrorLogging
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	141	osiACSEErrorLogging osiROSEPresent osiCMISEPresent
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	142	osiCMISEMessageLogging osiACSEDataLogging
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	143	osiROSEInvokationLogging osiACSEPresent osiROSEResponseLogging'
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	144	classVariableNames:''
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	145	poolDictionaries:''
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	146	privateIn:AbstractSettingsApplication
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	147	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	148
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	149	AbstractSettingsApplication subclass:#PrinterSettingsAppl
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	150	instanceVariableNames:'selectedUnit supportsColor topMargin rightMargin bottomMargin
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	151	landscape pageFormatList pageFormat unitList leftMargin
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	152	possiblePrinters printerType printerTypeSelection
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	153	printCommandList commandList printCommand printFilename
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	154	enableFormat enablelandscape enableMargins enableColorBox'
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	155	classVariableNames:''
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	156	poolDictionaries:''
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	157	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	158	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	159
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	160	AbstractSettingsApplication subclass:#ProcessorSchedulerSettingsAppl
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	161	instanceVariableNames:'dynamicPrios preemptive'
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	162	classVariableNames:''
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	163	poolDictionaries:''
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	164	privateIn:AbstractSettingsApplication
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	165	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	166
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	167	AbstractSettingsApplication subclass:#RDoItServerSettingsAppl
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	168	instanceVariableNames:'rDoitLogging rDoitsEnabled rDoitErrorLogging hasRDoitServer
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	169	rDoitErrorDebugging rDoitServerPortOrPath'
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	170	classVariableNames:''
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	171	poolDictionaries:''
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	172	privateIn:AbstractSettingsApplication
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	173	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	174
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	175	AbstractSettingsApplication subclass:#STCCompilerSettingsAppl
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	176	instanceVariableNames:'cc ccOptions stcIncludes linkCommand stc linkArgs linkSharedArgs
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	177	canLoadBinaries stcDefines stcLibraries stcOptions stcLibraryPath
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	178	stcCompilationSelection stcCompilationList'
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	179	classVariableNames:''
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	180	poolDictionaries:''
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	181	privateIn:AbstractSettingsApplication
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	182	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	183
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	184	AbstractSettingsApplication subclass:#SourceCodeFormatSettingsAppl
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	185	instanceVariableNames:'spaceAfterKeywordSelector emptyLineAfterTemporaries tabIndent
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	186	autoFormat cStyleBlocks editorText maxLengthForSingleLineBlocks
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	187	blockArgumentsOnNewLine spaceAfterReturnToken
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	188	spaceAroundTemporaries spaceAfterBlockStart spaceBeforeBlockEnd
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	189	oldUserPreferences reformatLocked'
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	190	classVariableNames:''
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	191	poolDictionaries:''
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	192	privateIn:AbstractSettingsApplication
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	193	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	194
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	195	AbstractSettingsApplication subclass:#SourceCodeManagementSettingsAppl
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	196	instanceVariableNames:'sourceCacheDir useManager condenseSourceCache
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	197	syntaxColorConfiguration setupSourceCodeManager
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	198	checkClassesWhenCheckingIn formattingConfiguration
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	199	flushSourceCache localSourceFirst cvsIsSetup repositoryHolder
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	200	manager repository listOfModules cvsRootPrototypeList
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	201	addPerModuleRoot removeEnabled perModuleRootModule acceptChannel
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	202	removePerModuleRoot perModuleRoot cvsRootHolder
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	203	selectedPerModuleRoot cvsBinDirectoryHolder rootsPerModule
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	204	cvsLoginInModuleEnabled cvsLoginEnabled'
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	205	classVariableNames:''
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	206	poolDictionaries:''
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	207	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	208	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	209
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	210	AbstractSettingsApplication subclass:#StyleSettingsAppl
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	211	instanceVariableNames:'showStandardStylesOnly styleList selectedStyle
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	212	styleDirectoryContents infoLabelHolder noticeLabelHolder'
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	213	classVariableNames:''
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	214	poolDictionaries:''
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	215	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	216	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	217
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	218	AbstractSettingsApplication subclass:#SyntaxColorSettingsAppl
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	219	instanceVariableNames:'coloredText syntaxColor syntaxColors resetList resetListSelection
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	220	fullSelectorCheck syntaxColoring oldUserPreferences
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	221	syntaxFontSelector syntaxFonts syntaxElementList
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	222	syntaxElementSelection syntaxEmphasisList syntaxEmphasisSelection
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	223	emphasisDictionary resetListDictionary'
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	224	classVariableNames:''
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	225	poolDictionaries:''
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	226	privateIn:AbstractSettingsApplication
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	227	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	228
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	229	AbstractSettingsApplication subclass:#SystemMessageSettingsAppl
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	230	instanceVariableNames:'classInfos vmInfo vmErrors displayErrors logDoits updChanges
6163 00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	231	changeFileName beepForInfoDialog beepForWarningDialog
6166 92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	232	beepForErrorDialog flyByHelp'
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	233	classVariableNames:''
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	234	poolDictionaries:''
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	235	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	236	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	237
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	238	AbstractSettingsApplication subclass:#ToolsSettingsAppl
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	239	instanceVariableNames:'useNewVersionDiffBrowser transcriptBufferSize useNewInspector
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	240	showClockInLauncher useNewChangesBrowser useNewFileBrowser
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	241	useNewSystemBrowser useNewFileDialog useNewSettingsApplication
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	242	useProcessMonitorV2'
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	243	classVariableNames:''
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	244	poolDictionaries:''
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	245	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	246	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	247
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	248	!AbstractSettingsApplication class methodsFor:'documentation'!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	249
5140 36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	250	copyright
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	251	"
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	252	COPYRIGHT (c) 2002 by eXept Software AG
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	253	All Rights Reserved
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	254
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	255	This software is furnished under a license and may be used
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	256	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	257	inclusion of the above copyright notice. This software may not
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	258	be provided or otherwise made available to, or used by, any
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	259	other person. No title to or ownership of the software is
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	260	hereby transferred.
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	261	"
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	262	! !
4226 44e2f83cc526 initial checkin penk parents: diff changeset	263
4292 68504047f229 * empty log message * penk parents: 4286 diff changeset	264	!AbstractSettingsApplication class methodsFor:'defaults'!
68504047f229 * empty log message * penk parents: 4286 diff changeset	265
68504047f229 * empty log message * penk parents: 4286 diff changeset	266	classResources
68504047f229 * empty log message * penk parents: 4286 diff changeset	267
68504047f229 * empty log message * penk parents: 4286 diff changeset	268	^ AbstractLauncherApplication classResources
5563 5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	269	!
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	270
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	271	resourcePackName
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	272	^ AbstractLauncherApplication resourcePackName
4292 68504047f229 * empty log message * penk parents: 4286 diff changeset	273	! !
68504047f229 * empty log message * penk parents: 4286 diff changeset	274
5283 9264c15059e7 category change penk parents: 5280 diff changeset	275	!AbstractSettingsApplication class methodsFor:'interface specs'!
9264c15059e7 category change penk parents: 5280 diff changeset	276
9264c15059e7 category change penk parents: 5280 diff changeset	277	windowSpec
9264c15059e7 category change penk parents: 5280 diff changeset	278	self subclassResponsibility
9264c15059e7 category change penk parents: 5280 diff changeset	279	! !
9264c15059e7 category change penk parents: 5280 diff changeset	280
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	281	!AbstractSettingsApplication class methodsFor:'queries'!
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	282
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	283	isVisualStartable
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	284	"return true, if this application can be started via #open.
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	285	(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	286
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	287	(self == AbstractSettingsApplication) ifTrue:[^ false "I am abstract"].
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	288	^ super isVisualStartable
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	289	! !
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	290
4705 16cfb945d591 * empty log message * penk parents: 4675 diff changeset	291	!AbstractSettingsApplication methodsFor:'accessing'!
16cfb945d591 * empty log message * penk parents: 4675 diff changeset	292
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	293	requestor:something
4705 16cfb945d591 * empty log message * penk parents: 4675 diff changeset	294	"set the value of the instance variable 'requestor' (automatically generated)"
16cfb945d591 * empty log message * penk parents: 4675 diff changeset	295
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	296	requestor := something.
5031 86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	297	!
86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	298
86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	299	settingsDialog
86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	300	^ settingsDialog
86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	301	!
86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	302
86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	303	settingsDialog:something
86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	304	settingsDialog := something.
4705 16cfb945d591 * empty log message * penk parents: 4675 diff changeset	305	! !
16cfb945d591 * empty log message * penk parents: 4675 diff changeset	306
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	307	!AbstractSettingsApplication methodsFor:'actions'!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	308
4598 330907eab7e0 * empty log message * penk parents: 4581 diff changeset	309	evaluateModified
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	310	self obsoleteMethodWarning.
c72e35116b13 instable state penk parents: 5040 diff changeset	311	^ self updateModifiedChannel.
4598 330907eab7e0 * empty log message * penk parents: 4581 diff changeset	312	!
330907eab7e0 * empty log message * penk parents: 4581 diff changeset	313
6029 40b96dc2621d * empty log message * ca parents: 6025 diff changeset	314	reopenToolsAfterChangedViewStyleSetting
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	315	\|app transcript\|
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	316
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	317	DebugView newDebugger.
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	318	transcript := Transcript current.
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	319	(transcript notNil and:[transcript isExternalStream not]) ifTrue:[
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	320	app := transcript topView application.
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	321	(app respondsTo:#reopenLauncher) ifTrue:[
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	322	app reopenLauncher.
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	323	].
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	324	].
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	325	!
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	326
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	327	saveRequest
4944 fce7d52d36da * empty log message * Claus Gittinger <cg@exept.de> parents: 4941 diff changeset	328	^ self saveRequestAsking:self askForChangeOnRelease
4941 42d9b274824d askForSaving fixed Claus Gittinger <cg@exept.de> parents: 4899 diff changeset	329	!
42d9b274824d askForSaving fixed Claus Gittinger <cg@exept.de> parents: 4899 diff changeset	330
42d9b274824d askForSaving fixed Claus Gittinger <cg@exept.de> parents: 4899 diff changeset	331	saveRequestAsking:askForChangeOnRelease
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	332	\|result\|
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	333
6383 62aec07a7f42 * empty log message * Claus Gittinger <cg@exept.de> parents: 6358 diff changeset	334	self hasUnsavedChanges ifTrue:[
4941 42d9b274824d askForSaving fixed Claus Gittinger <cg@exept.de> parents: 4899 diff changeset	335	askForChangeOnRelease ifTrue:[
4825 97ccd5a946f4 next step penk parents: 4813 diff changeset	336	result := self confirmWithCancel:(resources
6383 62aec07a7f42 * empty log message * Claus Gittinger <cg@exept.de> parents: 6358 diff changeset	337	string:'Apply changed %1 ?' with:settingsString allBold).
4825 97ccd5a946f4 next step penk parents: 4813 diff changeset	338	] ifFalse:[
97ccd5a946f4 next step penk parents: 4813 diff changeset	339	result := true.
97ccd5a946f4 next step penk parents: 4813 diff changeset	340	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	341	result isNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	342	^ false
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	343	].
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	344	result ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	345	self saveSettings
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	346	] ifFalse:[
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	347	self readSettings
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	348	]
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	349	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	350	^ true
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	351	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	352
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	353	saveSettingsIfUnsavedChangesArePresent
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	354	self hasUnsavedChanges ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	355	self saveSettings.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	356	self modifiedChannel value:false
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	357	].
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	358	!
c72e35116b13 instable state penk parents: 5040 diff changeset	359
c72e35116b13 instable state penk parents: 5040 diff changeset	360	updateModifiedChannel
c72e35116b13 instable state penk parents: 5040 diff changeset	361	self modifiedChannel value:self hasUnsavedChanges
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	362	! !
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	363
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	364	!AbstractSettingsApplication methodsFor:'aspects'!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	365
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	366	modifiedChannel
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	367
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	368	modifiedChannel isNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	369	modifiedChannel := false asValue.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	370	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	371	^ modifiedChannel
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	372	! !
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	373
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	374	!AbstractSettingsApplication methodsFor:'initialization'!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	375
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	376	initialize
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	377	super initialize.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	378	resources := self class classResources.
6125 09320e47ccb2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6108 diff changeset	379	self initializeCurrentUserPreferences.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	380	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	381	"/ self readSettings.
6125 09320e47ccb2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6108 diff changeset	382	!
09320e47ccb2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6108 diff changeset	383
09320e47ccb2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6108 diff changeset	384	initializeCurrentUserPreferences
09320e47ccb2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6108 diff changeset	385	currentUserPrefs := UserPreferences current.
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	386	! !
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	387
5078 9fafc6b058bc new middleButtonMenu for remove service in SettingsDialog penk parents: 5076 diff changeset	388	!AbstractSettingsApplication methodsFor:'menu'!
9fafc6b058bc new middleButtonMenu for remove service in SettingsDialog penk parents: 5076 diff changeset	389
5080 9c9736712295 middleButtonMenu fix penk parents: 5078 diff changeset	390	settingsDialogPopUpMenu
5078 9fafc6b058bc new middleButtonMenu for remove service in SettingsDialog penk parents: 5076 diff changeset	391	^ nil
9fafc6b058bc new middleButtonMenu for remove service in SettingsDialog penk parents: 5076 diff changeset	392	! !
9fafc6b058bc new middleButtonMenu for remove service in SettingsDialog penk parents: 5076 diff changeset	393
4324 289972d3e455 * empty log message * penk parents: 4319 diff changeset	394	!AbstractSettingsApplication methodsFor:'protocol'!
289972d3e455 * empty log message * penk parents: 4319 diff changeset	395
4873 3ffb8a8812ec * empty log message * penk parents: 4851 diff changeset	396	askForChangeOnRelease
5011 42d7fed9da6a ask for changes Claus Gittinger <cg@exept.de> parents: 4986 diff changeset	397	^ true "/ false
4825 97ccd5a946f4 next step penk parents: 4813 diff changeset	398	!
97ccd5a946f4 next step penk parents: 4813 diff changeset	399
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	400	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	401
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	402	self subclassResponsibility.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	403	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	404
4324 289972d3e455 * empty log message * penk parents: 4319 diff changeset	405	help
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	406	\|filename\|
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	407
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	408	filename := self helpFilename.
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	409	filename isNil ifTrue:[
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	410	self warn:'Sorry - no help available here.'.
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	411	^ self.
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	412	].
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	413	self withWaitCursorDo:[
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	414	HTMLDocumentView openFullOnHelpFile:filename
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	415	].
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	416	!
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	417
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	418	helpFilename
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	419	"subclasses must return the relative name of a helpFile
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	420	in the doc/online/<language>/help directory.
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	421	Or nil, if no help is available."
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	422
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	423	self subclassResponsibility
4324 289972d3e455 * empty log message * penk parents: 4319 diff changeset	424	!
4226 44e2f83cc526 initial checkin penk parents: diff changeset	425
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	426	readSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	427	self subclassResponsibility
4240 f196089fe934 next stage for settings penk parents: 4228 diff changeset	428	!
f196089fe934 next stage for settings penk parents: 4228 diff changeset	429
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	430	saveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	431	self basicSaveSettings.
6125 09320e47ccb2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6108 diff changeset	432
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	433	self modifiedChannel value:false.
4226 44e2f83cc526 initial checkin penk parents: diff changeset	434	! !
44e2f83cc526 initial checkin penk parents: diff changeset	435
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	436	!AbstractSettingsApplication methodsFor:'queries'!
1bde09704293 * empty log message * penk parents: 4893 diff changeset	437
6358 582d839d5b93 * empty log message * Claus Gittinger <cg@exept.de> parents: 6346 diff changeset	438	hasUnsavedChanges
582d839d5b93 * empty log message * Claus Gittinger <cg@exept.de> parents: 6346 diff changeset	439
582d839d5b93 * empty log message * Claus Gittinger <cg@exept.de> parents: 6346 diff changeset	440	^ self subclassResponsibility
582d839d5b93 * empty log message * Claus Gittinger <cg@exept.de> parents: 6346 diff changeset	441	!
582d839d5b93 * empty log message * Claus Gittinger <cg@exept.de> parents: 6346 diff changeset	442
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	443	itemPathName
6389 9f4010737320 code cleanup Claus Gittinger <cg@exept.de> parents: 6383 diff changeset	444	^ settingsDialog getNameOfApplication:self.
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	445	! !
1bde09704293 * empty log message * penk parents: 4893 diff changeset	446
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	447	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class methodsFor:'defaults'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	448
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	449	constantFoldingOptions
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	450
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	451	^ #( nil #level1 #level2 #full )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	452	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	453
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	454	constantFoldingStrings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	455
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	456	^ #('disabled' 'level1 (always safe)' 'level2 (usually safe)' 'full')
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	457	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	458
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	459	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class methodsFor:'image specs'!
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	460
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	461	defaultIcon
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	462	^ self defaultIcon3
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	463	!
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	464
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	465	defaultIcon1
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	466	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	467	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	468
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	469	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	470	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	471
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	472	"
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	473	self defaultIcon1 inspect
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	474	ImageEditor openOnClass:self andSelector:#defaultIcon1
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	475	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	476	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	477
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	478	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	479
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	480	^Icon
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	481	constantNamed:#'AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class defaultIcon1'
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	482	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	483	@@@@@@@@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	484	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	485	!
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	486
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	487	defaultIcon2
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	488	"This resource specification was automatically generated
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	489	by the ImageEditor of ST/X."
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	490
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	491	"Do not manually edit this!! If it is corrupted,
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	492	the ImageEditor may not be able to read the specification."
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	493
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	494	"
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	495	self defaultIcon2 inspect
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	496	ImageEditor openOnClass:self andSelector:#defaultIcon2
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	497	Icon flushCachedIcons
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	498	"
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	499
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	500	<resource: #image>
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	501
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	502	^Icon
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	503	constantNamed:#'AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class defaultIcon2'
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	504	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	505	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	506	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	507	@@@@@@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	508	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	509	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	510	@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	511	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	512	!
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	513
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	514	defaultIcon3
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	515	"This resource specification was automatically generated
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	516	by the ImageEditor of ST/X."
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	517
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	518	"Do not manually edit this!! If it is corrupted,
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	519	the ImageEditor may not be able to read the specification."
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	520
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	521	"
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	522	self defaultIcon3 inspect
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	523	ImageEditor openOnClass:self andSelector:#defaultIcon3
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	524	Icon flushCachedIcons
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	525	"
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	526
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	527	<resource: #image>
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	528
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	529	^Icon
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	530	constantNamed:#'AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class defaultIcon3'
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	531	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	532	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	533	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	534	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	535	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	536	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	537	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	538	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]
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	539	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	540
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	541	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class methodsFor:'interface specs'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	542
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	543	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	544	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	545	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	546
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	547	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	548	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	549
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	550	"
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	551	UIPainter new openOnClass:AbstractSettingsApplication::ByteCodeCompilerSettingsAppl andSelector:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	552	AbstractSettingsApplication::ByteCodeCompilerSettingsAppl new openInterface:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	553	AbstractSettingsApplication::ByteCodeCompilerSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	554	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	555
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	556	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	557
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	558	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	559	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	560	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	561	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	562	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	563	label: 'Byte Code Compiler Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	564	name: 'Byte Code Compiler Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	565	min: (Point 10 10)
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	566	bounds: (Rectangle 0 0 600 514)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	567	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	568	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	569	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	570	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	571	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	572	name: 'VerticalPanel1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	573	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	574	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	575	verticalLayout: top
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	576	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	577	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	578	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	579	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	580	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	581	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	582	label: 'Just in Time Compilation to Machine Code'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	583	name: 'JustInTimeCompilation'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	584	model: justInTimeCompilation
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	585	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	586	extent: (Point 600 25)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	587	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	588	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	589	name: 'Separator3'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	590	extent: (Point 600 3)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	591	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	592	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	593	label: 'Allow Underscore in Identifiers'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	594	name: 'AllowUnderscoreInIdentifiers'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	595	model: allowUnderscore
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	596	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	597	extent: (Point 600 22)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	598	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	599	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	600	label: 'Allow Dollar in Identifiers'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	601	name: 'AllowDollarInIdentifiers'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	602	model: allowDollar
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	603	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	604	extent: (Point 600 22)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	605	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	606	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	607	label: 'Allow VW3 QualifiedNames'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	608	name: 'AllowVW3QualifiedNames'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	609	model: allowQualifiedNames
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	610	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	611	extent: (Point 600 22)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	612	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	613	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	614	label: 'Allow Squeak Extensions'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	615	name: 'AllowSqueakExtensions'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	616	model: allowSqueakExtensions
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	617	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	618	extent: (Point 600 22)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	619	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	620	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	621	label: 'Allow Dolphin Extensions'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	622	name: 'AllowDolphinExtensions'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	623	model: allowDolphinExtensions
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	624	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	625	extent: (Point 600 22)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	626	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	627	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	628	label: 'Allow OldStyle Assignment (_)'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	629	name: 'AllowOldStyleAssignment'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	630	model: allowOldStyleAssignment
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	631	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	632	extent: (Point 600 22)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	633	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	634	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	635	label: 'Allow Reserved Words as Selector (self)'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	636	name: 'AllowReservedWordsAsSelector'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	637	model: allowReservedWordsAsSelectors
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	638	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	639	extent: (Point 600 22)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	640	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	641	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	642	name: 'Separator4'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	643	extent: (Point 600 3)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	644	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	645	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	646	label: 'Warnings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	647	name: 'Warnings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	648	model: warnings
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	649	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	650	extent: (Point 600 22)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	651	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	652	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	653	name: 'Box2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	654	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	655	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	656	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	657	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	658	name: 'VerticalPanel2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	659	layout: (LayoutFrame 20 0 0 0 600 0 150 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	660	horizontalLayout: left
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	661	verticalLayout: center
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	662	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	663	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	664	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	665	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	666	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	667	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	668	label: 'ST/X Extensions'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	669	name: 'STXExtensions'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	670	enableChannel: warnings
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	671	model: warnSTX
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	672	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	673	extent: (Point 600 22)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	674	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	675	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	676	label: 'Underscores in Identifiers'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	677	name: 'UnderscoresInIdentifiers'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	678	enableChannel: enableUnderscore
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	679	model: warnUnderscore
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	680	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	681	extent: (Point 600 22)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	682	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	683	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	684	label: 'Dollars in Identifiers'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	685	name: 'DollarsInIdentifiers'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	686	enableChannel: enableDollar
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	687	model: warnDollar
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	688	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	689	extent: (Point 600 22)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	690	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	691	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	692	label: 'Unused Method Variables'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	693	name: 'UnusedMethodVariables'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	694	enableChannel: warnings
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	695	model: warnUnusedVars
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	696	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	697	extent: (Point 600 22)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	698	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	699	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	700	label: 'OldStyle Assignment'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	701	name: 'OldStyleAssignment'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	702	enableChannel: warnings
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	703	model: warnOldStyle
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	704	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	705	extent: (Point 600 22)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	706	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	707	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	708	label: 'Common Mistakes'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	709	name: 'CommonMistakes'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	710	enableChannel: warnings
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	711	model: warnCommonMistakes
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	712	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	713	extent: (Point 600 22)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	714	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	715	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	716	label: 'Possible Incompatibilities'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	717	name: 'PossibleIncompatibilities'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	718	enableChannel: warnings
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	719	model: warnCompatibility
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	720	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	721	extent: (Point 600 22)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	722	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	723	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	724
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	725	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	726	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	727	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	728
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	729	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	730	extent: (Point 600 160)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	731	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	732	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	733	name: 'Separator5'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	734	extent: (Point 600 2)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	735	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	736	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	737	label: 'Literal Arrays are Immutable'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	738	name: 'LiteralArraysAreImmutable'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	739	model: immutableArrays
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	740	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	741	extent: (Point 600 22)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	742	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	743	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	744	label: 'Full Debug Info'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	745	name: 'FullDebugInfo'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	746	model: fullDebugSupport
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	747	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	748	extent: (Point 600 22)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	749	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	750	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	751	name: 'Separator6'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	752	extent: (Point 600 2)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	753	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	754	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	755	name: 'Box1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	756	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	757	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	758	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	759	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	760	label: 'Constant Folding:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	761	name: 'ConstantFoldingLabel'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	762	layout: (LayoutFrame 0 0 0 0 229 0 22 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	763	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	764	adjust: right
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	765	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	766	(PopUpListSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	767	label: 'PopUp List'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	768	name: 'ConstantFolding'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	769	layout: (LayoutFrame 234 0 0 0 -5 1 22 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	770	tabable: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	771	model: constantFoldingSelection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	772	menu: constantFolding
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	773	useIndex: true
4428 00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	774	)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	775	)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	776
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	777	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	778	extent: (Point 600 22)
4428 00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	779	)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	780	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	781
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	782	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	783	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	784	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	785
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	786	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	787	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	788	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	789
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	790	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'actions'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	791
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	792	basicSaveSettings
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	793
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	794	Compiler warnings:self warnings value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	795	Compiler warnSTXSpecials:self warnSTX value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	796	Compiler warnOldStyleAssignment:self warnOldStyle value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	797	Compiler warnUnderscoreInIdentifier:self warnUnderscore value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	798	Compiler warnDollarInIdentifier:self warnDollar value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	799	Compiler warnCommonMistakes:self warnCommonMistakes value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	800	Compiler warnPossibleIncompatibilities:self warnCompatibility value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	801	Compiler warnUnusedVars:self warnUnusedVars value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	802	Compiler allowUnderscoreInIdentifier:self allowUnderscore value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	803	Compiler allowDollarInIdentifier:self allowDollar value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	804	Compiler allowSqueakExtensions:self allowSqueakExtensions value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	805	Compiler allowDolphinExtensions:self allowDolphinExtensions value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	806	Compiler allowQualifiedNames:self allowQualifiedNames value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	807	Compiler allowOldStyleAssignment:self allowOldStyleAssignment value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	808	Compiler allowReservedWordsAsSelectors:self allowReservedWordsAsSelectors value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	809
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	810	Compiler arraysAreImmutable:self immutableArrays value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	811	self fullDebugSupport value ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	812	Compiler lineNumberInfo:#full.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	813	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	814	Compiler lineNumberInfo:true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	815	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	816
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	817	Compiler foldConstants:(self class constantFoldingOptions at:self constantFoldingSelection value).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	818
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	819	self supportsJustInTimeCompilation ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	820	\| justInTime \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	821	justInTime := self justInTimeCompilation value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	822	justInTime ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	823	Method allInstancesDo:[:m \| m checked:false].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	824	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	825	ObjectMemory justInTimeCompilation:justInTime.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	826	ObjectMemory fullSingleStepSupport:self fullDebugSupport value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	827	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	828	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	829
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	830	helpFilename
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	831	^ 'Launcher/compilerSettings.html'
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	832	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	833
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	834	readSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	835	self allowDollar value:(Compiler allowDollarInIdentifier ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	836	self allowDolphinExtensions
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	837	value:(Compiler allowDolphinExtensions ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	838	self allowOldStyleAssignment
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	839	value:(Compiler allowOldStyleAssignment ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	840	self allowQualifiedNames value:(Compiler allowQualifiedNames ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	841	self allowReservedWordsAsSelectors
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	842	value:(Compiler allowReservedWordsAsSelectors ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	843	self allowSqueakExtensions value:(Compiler allowSqueakExtensions ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	844	self allowUnderscore value:(Compiler allowUnderscoreInIdentifier ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	845	self constantFoldingSelection
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	846	value:(self class constantFoldingOptions indexOf:Compiler foldConstants
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	847	ifAbsent:3).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	848	self supportsJustInTimeCompilation ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	849	self fullDebugSupport value:(ObjectMemory fullSingleStepSupport ? false)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	850	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	851	self fullDebugSupport value:(Compiler lineNumberInfo == #full)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	852	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	853	self immutableArrays value:(Compiler arraysAreImmutable ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	854	self supportsJustInTimeCompilation ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	855	self justInTimeCompilation
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	856	value:(ObjectMemory justInTimeCompilation ? false)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	857	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	858	self justInTimeCompilation value:false
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	859	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	860	self warnCommonMistakes value:(Compiler warnCommonMistakes ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	861	self warnCompatibility
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	862	value:(Compiler warnPossibleIncompatibilities ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	863	self warnDollar value:(Compiler warnDollarInIdentifier ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	864	self warnOldStyle value:(Compiler warnOldStyleAssignment ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	865	self warnSTX value:(Compiler warnSTXSpecials ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	866	self warnUnderscore value:(Compiler warnUnderscoreInIdentifier ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	867	self warnUnusedVars value:(Compiler warnUnusedVars ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	868	self warnings value:(Compiler warnings ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	869	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	870	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	871
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	872	stcCompilerSettings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	873
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	874	AbstractLauncherApplication::LauncherDialogs stcCompilerSettings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	875	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	876
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	877	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'aspects'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	878
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	879	allowDollar
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	880
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	881	allowDollar isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	882	allowDollar := (Compiler allowDollarInIdentifier ? false) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	883	allowDollar onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	884	allowDollar addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	885	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	886	^ allowDollar.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	887	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	888
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	889	allowDolphinExtensions
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	890
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	891	allowDolphinExtensions isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	892	allowDolphinExtensions := (Compiler allowDolphinExtensions ? false) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	893	allowDolphinExtensions onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	894	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	895	^ allowDolphinExtensions.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	896	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	897
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	898	allowOldStyleAssignment
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	899
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	900	allowOldStyleAssignment isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	901	allowOldStyleAssignment := (Compiler allowOldStyleAssignment ? false) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	902	allowOldStyleAssignment onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	903	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	904	^ allowOldStyleAssignment.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	905	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	906
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	907	allowQualifiedNames
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	908
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	909	allowQualifiedNames isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	910	allowQualifiedNames := (Compiler allowQualifiedNames ? false) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	911	allowQualifiedNames onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	912	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	913	^ allowQualifiedNames.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	914	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	915
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	916	allowReservedWordsAsSelectors
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	917
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	918	allowReservedWordsAsSelectors isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	919	allowReservedWordsAsSelectors := (Compiler allowReservedWordsAsSelectors ? false) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	920	allowReservedWordsAsSelectors onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	921	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	922	^ allowReservedWordsAsSelectors.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	923	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	924
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	925	allowSqueakExtensions
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	926
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	927	allowSqueakExtensions isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	928	allowSqueakExtensions := (Compiler allowSqueakExtensions ? false) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	929	allowSqueakExtensions onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	930	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	931	^ allowSqueakExtensions.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	932	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	933
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	934	allowUnderscore
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	935
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	936	allowUnderscore isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	937	allowUnderscore := (Compiler allowUnderscoreInIdentifier ? false) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	938	allowUnderscore onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	939	allowUnderscore addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	940	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	941	^ allowUnderscore.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	942	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	943
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	944	constantFolding
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	945
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	946	constantFolding isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	947	constantFolding := (resources array:(self class constantFoldingStrings)) asList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	948	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	949	^ constantFolding.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	950	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	951
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	952	constantFoldingOptions
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	953
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	954	constantFoldingOptions isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	955	constantFoldingOptions := self class constantFoldingOptions.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	956	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	957	^ constantFoldingOptions.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	958	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	959
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	960	constantFoldingSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	961
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	962	constantFoldingSelection isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	963	\| index \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	964	index := self class constantFoldingOptions indexOf:Compiler foldConstants ifAbsent:3.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	965	constantFoldingSelection := index asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	966	constantFoldingSelection onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	967	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	968	^ constantFoldingSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	969	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	970
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	971	enableDollar
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	972
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	973	enableDollar isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	974	enableDollar := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	975	enableDollar addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	976	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	977	^ enableDollar.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	978	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	979
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	980	enableUnderscore
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	981	"automatically generated by UIPainter ..."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	982
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	983	"*** the code below creates a default model when invoked."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	984	"*** (which may not be the one you wanted)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	985	"*** Please change as required and accept it in the browser."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	986	"*** (and replace this comment by something more useful ;-)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	987
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	988	enableUnderscore isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	989	enableUnderscore := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	990	"/ if your app needs to be notified of changes, uncomment one of the lines below:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	991	"/ enableUnderscore addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	992	"/ enableUnderscore onChangeSend:#enableUnderscoreChanged to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	993	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	994	^ enableUnderscore.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	995	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	996
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	997	fullDebugSupport
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	998
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	999	fullDebugSupport isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1000	self supportsJustInTimeCompilation ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1001	fullDebugSupport := (ObjectMemory fullSingleStepSupport ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1002	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1003	fullDebugSupport := (Compiler lineNumberInfo == #full) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1004	].
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1005	fullDebugSupport onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1006	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1007	^ fullDebugSupport.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1008	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1009
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1010	immutableArrays
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1011
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1012	immutableArrays isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1013	immutableArrays := (Compiler arraysAreImmutable ? false) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1014	immutableArrays onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1015	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1016	^ immutableArrays.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1017	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1018
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1019	justInTimeCompilation
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1020
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1021	justInTimeCompilation isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1022	self supportsJustInTimeCompilation ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1023	justInTimeCompilation := (ObjectMemory justInTimeCompilation ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1024	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1025	justInTimeCompilation := false asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1026	].
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1027	justInTimeCompilation onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1028	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1029	^ justInTimeCompilation.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1030	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1031
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1032	warnCommonMistakes
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1033
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1034	warnCommonMistakes isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1035	warnCommonMistakes := (Compiler warnCommonMistakes ? false) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1036	warnCommonMistakes onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1037	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1038	^ warnCommonMistakes.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1039	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1040
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1041	warnCompatibility
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1042
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1043	warnCompatibility isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1044	warnCompatibility := (Compiler warnPossibleIncompatibilities ? false) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1045	warnCompatibility onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1046	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1047	^ warnCompatibility.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1048	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1049
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1050	warnDollar
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1051
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1052	warnDollar isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1053	warnDollar := (Compiler warnDollarInIdentifier ? false) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1054	warnDollar onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1055	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1056	^ warnDollar.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1057	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1058
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1059	warnOldStyle
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1060
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1061	warnOldStyle isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1062	warnOldStyle := (Compiler warnOldStyleAssignment ? false) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1063	warnOldStyle onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1064	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1065	^ warnOldStyle.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1066	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1067
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1068	warnSTX
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1069
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1070	warnSTX isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1071	warnSTX := (Compiler warnSTXSpecials ? false) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1072	warnSTX onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1073	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1074	^ warnSTX.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1075	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1076
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1077	warnUnderscore
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1078
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1079	warnUnderscore isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1080	warnUnderscore := (Compiler warnUnderscoreInIdentifier ? false) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1081	warnUnderscore onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1082	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1083	^ warnUnderscore.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1084	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1085
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1086	warnUnusedVars
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1087
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1088	warnUnusedVars isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1089	warnUnusedVars := (Compiler warnUnusedVars ? false) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1090	warnUnusedVars onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1091	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1092	^ warnUnusedVars.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1093	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1094
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1095	warnings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1096
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1097	warnings isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1098	warnings := (Compiler warnings ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1099	warnings addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1100	warnings changed.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1101	warnings onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1102	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1103	^ warnings.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1104	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1105
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1106	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'change & update'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1107
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1108	update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1109	changedObject == self warnings ifTrue:[
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	1110	changedObject value ifTrue:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1111	self enableUnderscore value:self allowUnderscore value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1112	self enableDollar value:self allowDollar value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1113	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1114	self enableUnderscore value:false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1115	self enableDollar value:false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1116	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1117	^ self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1118	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1119	(changedObject == self allowDollar or:[changedObject == self allowUnderscore]) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1120	self warnings changed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1121	^ self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1122	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1123
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1124	super update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1125	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1126
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1127	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'queries'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1128
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1129	hasUnsavedChanges
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	1130	((Compiler warnings ? false) ~= self warnings value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	1131	((Compiler warnSTXSpecials ? false) ~= self warnSTX value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	1132	((Compiler warnOldStyleAssignment ? false) ~= self warnOldStyle value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	1133	((Compiler warnUnderscoreInIdentifier ? false) ~= self warnUnderscore value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	1134	((Compiler warnDollarInIdentifier ? false) ~= self warnDollar value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	1135	((Compiler warnCommonMistakes ? false) ~= self warnCommonMistakes value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	1136	((Compiler warnPossibleIncompatibilities ? false) ~= self warnCompatibility value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	1137	((Compiler warnUnusedVars ? false) ~= self warnUnusedVars value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	1138	((Compiler allowUnderscoreInIdentifier ? false) ~= self allowUnderscore value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	1139	((Compiler allowDollarInIdentifier ? false) ~= self allowDollar value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	1140	((Compiler allowSqueakExtensions ? false) ~= self allowSqueakExtensions value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	1141	((Compiler allowDolphinExtensions ? false) ~= self allowDolphinExtensions value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	1142	((Compiler allowQualifiedNames ? false) ~= self allowQualifiedNames value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	1143	((Compiler allowOldStyleAssignment ? false) ~= self allowOldStyleAssignment value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	1144	((Compiler allowReservedWordsAsSelectors ? false) ~= self allowReservedWordsAsSelectors value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	1145	((Compiler arraysAreImmutable ? false) ~= self immutableArrays value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	1146	((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	1147	((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	1148	((ObjectMemory justInTimeCompilation ? false) ~= self justInTimeCompilation value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	1149	^ false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1150	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1151
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1152	supportsJustInTimeCompilation
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1153
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1154	^ ObjectMemory supportsJustInTimeCompilation
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1155	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1156
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1157	!AbstractSettingsApplication::DebuggerSettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1158
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1159	defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1160	<resource: #programImage>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1161
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1162	^ ToolbarIconLibrary bugReporter24x24Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1163	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1164
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1165	!AbstractSettingsApplication::DebuggerSettingsAppl class methodsFor:'interface specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1166
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1167	windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1168	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1169	by the UIPainter of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1170
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1171	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1172	the UIPainter may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1173
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1174	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1175	UIPainter new openOnClass:AbstractSettingsApplication::DebuggerSettingsAppl andSelector:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1176	AbstractSettingsApplication::DebuggerSettingsAppl new openInterface:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1177	AbstractSettingsApplication::DebuggerSettingsAppl open
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1178	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1179
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1180	<resource: #canvas>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1181
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1182	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1183	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1184	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1185	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1186	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1187	label: 'Debugger Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1188	name: 'Debugger Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1189	min: (Point 10 10)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1190	bounds: (Rectangle 14 46 614 366)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1191	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1192	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1193	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1194	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1195	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1196	name: 'VerticalPanel2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1197	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	1198	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1199	verticalLayout: top
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1200	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1201	verticalSpace: 5
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1202	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1203	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1204	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1205	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1206	name: 'VerticalPanel5'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1207	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1208	verticalLayout: topSpace
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1209	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1210	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1211	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1212	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1213	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1214	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1215	name: 'Box10'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1216	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1217	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1218	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1219	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1220	label: 'Show Error Notifier before Opening Debugger'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1221	name: 'ShowErrorNotifierCheckBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1222	layout: (LayoutFrame 5 0 5 0 -5 1 27 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1223	model: showErrorNotifier
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1224	translateLabel: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1225	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1226	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1227
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1228	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1229	extent: (Point 600 30)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1230	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1231	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1232	name: 'Box11'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1233	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1234	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1235	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1236	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1237	label: 'Verbose Backtrace by Default in Debugger'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1238	name: 'ShowVerboseStackCheckBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1239	layout: (LayoutFrame 5 0 5 0 -5 1 27 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1240	model: showVerboseStack
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1241	translateLabel: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1242	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1243	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1244
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1245	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1246	extent: (Point 600 30)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1247	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1248	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1249	name: 'Box12'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1250	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1251	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1252	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1253	(CheckBoxSpec
6018 4f403b3bd8ea * empty log message * Claus Gittinger <cg@exept.de> parents: 6017 diff changeset	1254	label: 'Allow Sending of Error Reports from Debugger'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1255	name: 'CheckBox6'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1256	layout: (LayoutFrame 5 0 5 0 -5 1 27 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1257	model: allowSendMailFromDebugger
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1258	translateLabel: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1259	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1260	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1261
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1262	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1263	extent: (Point 600 30)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1264	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1265	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1266
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1267	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1268	extent: (Point 600 320)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1269	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1270	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1271
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1272	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1273	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1274	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1275
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1276	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1277	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1278	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1279
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1280	!AbstractSettingsApplication::DebuggerSettingsAppl methodsFor:'actions'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1281
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1282	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1283	currentUserPrefs allowSendMailFromDebugger:self allowSendMailFromDebugger value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1284	self showErrorNotifier value ifFalse:[
6165 2bd97fffdf95 EmergencyHandlers have been relocated to NoHandlerError long ago Stefan Vogel <sv@exept.de> parents: 6163 diff changeset	1285	NoHandlerError emergencyHandler:nil
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1286	] ifTrue:[
6165 2bd97fffdf95 EmergencyHandlers have been relocated to NoHandlerError long ago Stefan Vogel <sv@exept.de> parents: 6163 diff changeset	1287	NoHandlerError emergencyHandler:(AbstractLauncherApplication notifyingEmergencyHandler)
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1288	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1289	DebugView defaultVerboseBacktrace:self showVerboseStack value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1290	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1291
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	1292	helpFilename
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	1293	^ 'Launcher/debuggerSettings.html'
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1294	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1295
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1296	readSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1297	self allowSendMailFromDebugger
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1298	value:currentUserPrefs allowSendMailFromDebugger.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1299	self showErrorNotifier value:(NoHandlerError emergencyHandler
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1300	== AbstractLauncherApplication notifyingEmergencyHandler).
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1301	self showVerboseStack value:(DebugView defaultVerboseBacktrace ? false).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1302	self modifiedChannel value:false
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1303	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1304
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1305	!AbstractSettingsApplication::DebuggerSettingsAppl methodsFor:'aspects'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1306
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1307	allowSendMailFromDebugger
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1308
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1309	allowSendMailFromDebugger isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1310	allowSendMailFromDebugger := currentUserPrefs allowSendMailFromDebugger asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1311	allowSendMailFromDebugger onChangeSend:#updateModifiedChannel to:self
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1312	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1313	^ allowSendMailFromDebugger.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1314	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1315
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1316	showErrorNotifier
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1317
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1318	showErrorNotifier isNil ifTrue:[
4566 af369740e2bc Replace referneces to Exception. Stefan Vogel <sv@exept.de> parents: 4563 diff changeset	1319	showErrorNotifier := (NoHandlerError emergencyHandler == AbstractLauncherApplication notifyingEmergencyHandler) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1320	showErrorNotifier onChangeSend:#updateModifiedChannel to:self
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1321	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1322	^ showErrorNotifier.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1323	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1324
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1325	showVerboseStack
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1326
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1327	showVerboseStack isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1328	showVerboseStack := (DebugView defaultVerboseBacktrace ? false) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1329	showVerboseStack onChangeSend:#updateModifiedChannel to:self
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1330	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1331	^ showVerboseStack.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1332	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1333
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1334	!AbstractSettingsApplication::DebuggerSettingsAppl methodsFor:'queries'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1335
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1336	hasUnsavedChanges
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	1337	self showErrorNotifier value ~= (NoHandlerError emergencyHandler == AbstractLauncherApplication notifyingEmergencyHandler) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	1338	DebugView defaultVerboseBacktrace ? false ~= self showVerboseStack value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	1339	(UserPreferences current at:#allowSendMailFromDebugger ifAbsent:true) ~= self allowSendMailFromDebugger value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	1340	^ false
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1341	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1342
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1343	!AbstractSettingsApplication::DisplaySettingsAppl class methodsFor:'defaults'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1344
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1345	clipEncodingStrings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1346
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1347	^ #('untranslated' 'iso8859' 'jis' 'jis7' 'shift-JIS' 'EUC' 'big5')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1348	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1349
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1350	clipEncodingSyms
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1351
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1352	^ #(nil #iso8859 #jis #jis7 #sjis #euc #big5)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1353	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1354
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1355	staticGrayOrGrayScaleDitherStrings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1356
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1357	^ #('threshold' 'ordered dither' 'error diffusion')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1358	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1359
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1360	staticGrayOrGrayScaleDitherSyms
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1361
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1362	^ #(threshold ordered floydSteinberg)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1363	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1364
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1365	trueColorDitherStrings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1366
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1367	^ #('nearest color' 'error diffusion')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1368	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1369
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1370	trueColorDitherSyms
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1371
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1372	^ #(ordered floydSteinberg)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1373	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1374
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1375	!AbstractSettingsApplication::DisplaySettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1376
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1377	defaultIcon
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	1378	<resource: #programImage>
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	1379
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	1380	^ ToolbarIconLibrary displayScreenIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1381	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1382
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1383	!AbstractSettingsApplication::DisplaySettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1384
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1385	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1386	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1387	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1388
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1389	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1390	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1391
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1392	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	1393	UIPainter new openOnClass:AbstractSettingsApplication::DisplaySettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	1394	AbstractSettingsApplication::DisplaySettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	1395	AbstractSettingsApplication::DisplaySettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1396	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1397
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1398	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1399
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1400	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1401	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1402	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1403	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1404	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1405	label: 'Display Screen Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1406	name: 'Display Screen Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1407	min: (Point 10 10)
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	1408	bounds: (Rectangle 0 0 600 378)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1409	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1410	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1411	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1412	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1413	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1414	label: 'Actual Visible Screen Area:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1415	name: 'ActualVisibleScreenAreaLabel'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1416	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	1417	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1418	adjust: left
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1419	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1420	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1421	label: 'Common Sizes:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1422	name: 'CommonSizesLabel'
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	1423	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	1424	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1425	adjust: right
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1426	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1427	(PopUpListSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1428	label: 'monitor size'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1429	name: 'MonitorSelectionPopUpList'
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	1430	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	1431	tabable: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1432	model: monitorSelection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1433	menu: monitorList
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1434	useIndex: true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1435	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1436	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1437	label: 'Screen Size:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1438	name: 'ScreenSizeLabel'
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	1439	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	1440	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1441	adjust: right
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1442	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1443	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1444	name: 'SizeXEntryField'
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	1445	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	1446	model: sizeX
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1447	type: number
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1448	immediateAccept: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1449	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1450	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1451	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1452	acceptOnPointerLeave: true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1453	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1454	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1455	label: ' x '
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1456	name: 'xLabel'
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	1457	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	1458	translateLabel: true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1459	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1460	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1461	name: 'SizeYEntryField'
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	1462	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	1463	model: sizeY
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1464	type: number
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1465	immediateAccept: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1466	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1467	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1468	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1469	acceptOnPointerLeave: true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1470	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1471	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1472	label: '(mm)'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1473	name: 'mmLabel'
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	1474	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	1475	translateLabel: true
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	1476	adjust: left
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1477	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1478	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1479	name: 'Separator1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1480	layout: (LayoutFrame 0 0.0 105 0 0 1.0 109 0)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1481	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1482	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1483	name: 'ScreenDepthVisualLabel'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1484	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	1485	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1486	labelChannel: screenDepthVisualLabelHolder
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1487	adjust: left
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1488	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1489	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1490	name: 'Separator2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1491	layout: (LayoutFrame 0 0.0 139 0 0 1.0 143 0)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1492	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1493	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1494	label: 'Color Monitor'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1495	name: 'ColorMonitorCheckBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1496	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	1497	model: isColorMonitor
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1498	translateLabel: true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1499	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1500	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1501	label: 'Use Fix Color Palette'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1502	name: 'FixColorPaletteCheckBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1503	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	1504	enableChannel: visualIsPseudoColor
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1505	model: useFixPalette
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1506	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1507	labelChannel: useFixPaletteLabel
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1508	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1509	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1510	label: 'Use Fix Gray Color Palette'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1511	name: 'UseFixGrayPaletteCheckBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1512	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	1513	enableChannel: visualIsPseudoColor
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1514	model: useFixGrayPalette
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1515	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1516	labelChannel: useFixGrayPaletteLabel
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1517	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1518	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1519	label: 'Image Display:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1520	name: 'ImageDisplayLabel'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1521	layout: (LayoutFrame 0 0 230 0 205 0 252 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1522	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1523	adjust: right
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1524	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1525	(PopUpListSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1526	label: 'image display'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1527	name: 'DitherListPopUpList'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1528	layout: (LayoutFrame 205 0 230 0 -5 1 252 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1529	tabable: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1530	model: ditherListSelection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1531	enableChannel: ditherSymsNotNil
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1532	menu: ditherList
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1533	useIndex: true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1534	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1535	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1536	label: 'Allow Colored/Grayscale Icons'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1537	name: 'AllowColoredGrayscaleIconsCheckBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1538	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	1539	model: deepIcons
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1540	translateLabel: true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1541	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1542	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1543	name: 'Separator3'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1544	layout: (LayoutFrame 0 0.0 288 0 0 1.0 292 0)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1545	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1546	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1547	label: 'ClipBoard Encoding:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1548	name: 'ClipBoardEncodingLabel'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1549	layout: (LayoutFrame 0 0 303 0 205 0 325 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1550	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1551	adjust: right
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1552	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1553	(PopUpListSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1554	label: 'image display'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1555	name: 'ClipEncodingListPopUpList'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1556	layout: (LayoutFrame 205 0 303 0 -5 1 325 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1557	tabable: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1558	model: clipEncodingListSelection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1559	menu: clipEncodingList
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1560	useIndex: true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1561	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1562	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1563	name: 'Separator4'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1564	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	1565	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1566	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1567	label: 'Max. CopyBuffer Size:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1568	name: 'MaxCopyBufferSizeLabel'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1569	layout: (LayoutFrame 0 0 330 0 205 0 352 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1570	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1571	adjust: right
5086 b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	1572	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1573	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1574	name: 'MaxCopyBufferEntryField'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1575	layout: (LayoutFrame 205 0 330 0 300 0 352 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1576	model: maxCopyBufferSize
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1577	type: fileSize
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1578	immediateAccept: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1579	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1580	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1581	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1582	acceptOnPointerLeave: true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1583	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1584	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1585
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1586	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1587	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1588	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1589
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1590	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1591
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1592	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1593
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1594	Image flushDeviceImages.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1595
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1596	screen visualType == #PseudoColor ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1597	self useFixPalette value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1598	Color colorAllocationFailSignal handle:[:ex \|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1599	self warn:'Could not allocate colors.'.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1600	] do:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1601	Color getColorsRed:4 green:8 blue:4 on:screen
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1602	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1603	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1604	screen releaseFixColors
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1605	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1606
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1607	self useFixGrayPalette value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1608	Color colorAllocationFailSignal handle:[:ex \|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1609	self warn:'Could not allocate colors.'.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1610	] do:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1611	Color getGrayColors:32 on:screen
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1612	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1613	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1614	screen releaseFixGrayColors
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1615	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1616	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1617	screen hasColors:self isColorMonitor value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1618	screen widthInMillimeter:self sizeX value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1619	screen heightInMillimeter:self sizeY value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1620
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1621	screen supportsDeepIcons:self deepIcons value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1622	ditherSyms notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1623	Image ditherAlgorithm:(ditherSyms at:self ditherListSelection value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1624	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1625
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1626	WindowGroup activeGroup withWaitCursorDo:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1627	View defaultStyle:(View defaultStyle).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1628	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1629
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1630	screen clipBoardEncoding:(self class clipEncodingSyms at:self clipEncodingListSelection value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1631	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1632
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	1633	helpFilename
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	1634	^ 'Launcher/screenSettings.html'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1635	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1636
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1637	readSettings
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1638	self useFixPalette value:screen fixColors notNil.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1639	self useFixGrayPalette value:screen fixGrayColors notNil.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1640	self isColorMonitor value:screen hasColors.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1641	self sizeX value:screen widthInMillimeter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1642	self sizeY value:screen heightInMillimeter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1643	self deepIcons value:screen supportsDeepIcons.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1644	ditherSyms notNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1645	self ditherListSelection
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1646	value:(ditherSyms indexOf:(Image ditherAlgorithm) ifAbsent:#threshold)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1647	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1648	self clipEncodingListSelection
6037 4ee47a9ce56a Unify naming: clipBoard->clipboard Stefan Vogel <sv@exept.de> parents: 6030 diff changeset	1649	value:(self class clipEncodingSyms indexOf:screen clipboardEncoding
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1650	ifAbsent:1).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1651	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1652	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1653
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1654	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1655
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1656	clipEncodingList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1657
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1658	clipEncodingList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1659	clipEncodingList := (resources array:self class clipEncodingStrings) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1660	"/ if your app needs to be notified of changes, uncomment one of the lines below:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1661	"/ clipEncodingList addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1662	"/ clipEncodingList onChangeSend:#clipEncodingListChanged to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1663	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1664	^ clipEncodingList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1665	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1666
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1667	clipEncodingListSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1668
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1669	clipEncodingListSelection isNil ifTrue:[
6037 4ee47a9ce56a Unify naming: clipBoard->clipboard Stefan Vogel <sv@exept.de> parents: 6030 diff changeset	1670	clipEncodingListSelection := (self class clipEncodingSyms indexOf:screen clipboardEncoding ifAbsent:1) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1671	clipEncodingListSelection onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1672	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1673	^ clipEncodingListSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1674	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1675
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1676	deepIcons
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1677
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1678	deepIcons isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1679	deepIcons := screen supportsDeepIcons asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1680	deepIcons onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1681	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1682	^ deepIcons.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1683	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1684
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1685	ditherList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1686
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1687	ditherList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1688	ditherList := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1689	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1690	^ ditherList.
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	ditherListSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1694
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1695	ditherListSelection isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1696	ditherSyms notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1697	ditherListSelection := (ditherSyms indexOf:(Image ditherAlgorithm) ifAbsent:#threshold) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1698	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1699	ditherListSelection := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1700	].
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1701	ditherListSelection onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1702	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1703	^ ditherListSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1704	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1705
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1706	ditherSymsNotNil
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1707
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1708	ditherSymsNotNil isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1709	ditherSymsNotNil := ditherSyms notNil asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1710	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1711	^ ditherSymsNotNil.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1712	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1713
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1714	isColorMonitor
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1715
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1716	isColorMonitor isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1717	isColorMonitor := screen hasColors asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1718	isColorMonitor onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1719	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1720	^ isColorMonitor.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1721	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1722
5086 b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	1723	maxCopyBufferSize
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	1724
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	1725	maxCopyBufferSize isNil ifTrue:[
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	1726	maxCopyBufferSize := (810241024) asValue.
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	1727	maxCopyBufferSize addDependent:self.
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	1728	maxCopyBufferSize changed.
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	1729	maxCopyBufferSize onChangeSend:#updateModifiedChannel to:self.
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	1730	].
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	1731	^ maxCopyBufferSize.
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	1732	!
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	1733
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1734	monitorList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1735
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1736	monitorList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1737	monitorList := (resources array:(sizeInfos collect:[:entry \| entry at:1])) asList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1738	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1739	^ monitorList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1740	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1741
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1742	monitorSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1743
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1744	monitorSelection isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1745	monitorSelection := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1746	monitorSelection addDependent:self.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1747	monitorSelection onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1748	monitorSelection changed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1749	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1750	^ monitorSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1751	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1752
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1753	screenDepthVisualLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1754
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1755	screenDepthVisualLabelHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1756	screenDepthVisualLabelHolder := (resources string:'Screen: Depth: %1 Visual: %2 (%3)'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1757	with:screen depth printString
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1758	with:screen visualType
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1759	with:screen serverVendor) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1760	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1761	^ screenDepthVisualLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1762	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1763
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1764	sizeX
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1765
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1766	sizeX isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1767	sizeX := screen widthInMillimeter asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1768	sizeX addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1769	sizeX changed.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1770	sizeX onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1771	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1772	^ sizeX.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1773	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1774
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1775	sizeY
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1776
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1777	sizeY isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1778	sizeY := screen heightInMillimeter asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1779	sizeY addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1780	sizeY changed.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1781	sizeY onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1782	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1783	^ sizeY.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1784	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1785
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1786	useFixGrayPalette
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1787
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1788	useFixGrayPalette isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1789	useFixGrayPalette := screen fixGrayColors notNil asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1790	useFixGrayPalette onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1791	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1792	^ useFixGrayPalette.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1793	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1794
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1795	useFixGrayPaletteLabel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1796
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1797	useFixGrayPaletteLabel isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1798	useFixGrayPaletteLabel := (resources string:'Use Fix Gray Color Palette %1' with:'(32)') asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1799	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1800	^ useFixGrayPaletteLabel.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1801	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1802
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1803	useFixPalette
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1804
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1805	useFixPalette isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1806	useFixPalette := screen fixColors notNil asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1807	useFixPalette onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1808	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1809	^ useFixPalette.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1810	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1811
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1812	useFixPaletteLabel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1813
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1814	useFixPaletteLabel isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1815	useFixPaletteLabel := (resources string:'Use Fix Color Palette %1' with:'(4x8x4)') asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1816	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1817	^ useFixPaletteLabel.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1818	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1819
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1820	visualIsPseudoColor
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1821
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1822	visualIsPseudoColor isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1823	visualIsPseudoColor := (screen visualType == #PseudoColor) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1824	visualIsPseudoColor onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1825	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1826	^ visualIsPseudoColor.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1827	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1828
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1829	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1830
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1831	monitorSelectionChanged
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1832
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1833	\| sel sizeInfoEntry sizes\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1834
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1835	sel := self monitorSelection value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1836	(sel notNil and:[sel ~~ 0]) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1837	sizeInfoEntry := sizeInfos at:sel.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1838	sizes := sizeInfoEntry at:2.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1839	self sizeX value:(sizes at:1).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1840	self sizeY value:(sizes at:2).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1841	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1842	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1843
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1844	sizeXorYChanged
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1845	\| sizes idx\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1846
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1847	sizes := sizeInfos collect:[:entry \| entry at:2].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1848	idx := sizes findFirst:[:entry \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1849	((entry at:1) = sizeX value)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1850	and:[((entry at:2) = sizeY value)]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1851	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1852	idx ~~ 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1853	self monitorSelection value:idx
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1854	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1855	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1856
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1857	update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1858	changedObject == self monitorSelection ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1859	self monitorSelectionChanged.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1860	^ self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1861	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1862	(changedObject == self sizeX or:[self sizeY]) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1863	self sizeXorYChanged.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1864	^ self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1865	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1866
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1867	super update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1868	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1869
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1870	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1871
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1872	initialize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1873
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1874	\| listOfSizes visual\|
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1875
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1876	screen := Screen current.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1877
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1878	listOfSizes := self class classResources at:'LIST_OF_OFFERED_SCREEN_SIZES' default:#default.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1879	listOfSizes == #default ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1880	"/ nothing in resource file; offer at least some.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1881	sizeInfos := #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1882	( '11.3'' (235mm x 175mm) LCD' (235 175) )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1883	( '17'' (325mm x 245mm)' (325 245) )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1884	( '19'' (340mm x 270mm)' (340 270) )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1885	( '20'' (350mm x 280mm)' (350 280) )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1886	( '21'' (365mm x 285mm)' (365 285) )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1887	).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1888	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1889	sizeInfos := resources array:listOfSizes.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1890	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1891	visual := screen visualType.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1892	(visual == #StaticGray or:[visual == #GrayScale]) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1893	ditherStyles := self class staticGrayOrGrayScaleDitherStrings.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1894	ditherSyms := self class staticGrayOrGrayScaleDitherSyms.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1895	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1896	visual ~~ #TrueColor ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1897	ditherStyles := self class trueColorDitherStrings.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1898	ditherSyms := self class trueColorDitherSyms.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1899	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1900	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1901	super initialize.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1902
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1903	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1904
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1905	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1906
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1907	hasUnsavedChanges
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	1908	self useFixPalette value ~= screen fixColors notNil ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	1909	self useFixGrayPalette value ~= screen fixGrayColors notNil ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	1910	self isColorMonitor value ~= screen hasColors ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	1911	self sizeX value ~= screen widthInMillimeter ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	1912	self sizeY value ~= screen heightInMillimeter ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	1913
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	1914	self deepIcons value ~= screen supportsDeepIcons ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	1915	ditherSyms notNil ifTrue:[
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	1916	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	1917	].
6037 4ee47a9ce56a Unify naming: clipBoard->clipboard Stefan Vogel <sv@exept.de> parents: 6030 diff changeset	1918	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	1919	^ false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1920	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1921
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1922	!AbstractSettingsApplication::EditSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1923
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1924	defaultIcon
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	1925	<resource: #programImage>
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	1926
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	1927	^ ToolbarIconLibrary editorIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1928	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1929
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1930	!AbstractSettingsApplication::EditSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1931
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1932	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1933	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1934	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1935
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1936	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1937	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1938
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1939	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	1940	UIPainter new openOnClass:AbstractSettingsApplication::EditSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	1941	AbstractSettingsApplication::EditSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	1942	AbstractSettingsApplication::EditSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1943	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1944
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1945	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1946
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1947	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1948	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1949	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1950	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1951	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1952	label: 'Editor Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1953	name: 'Editor Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1954	min: (Point 10 10)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1955	bounds: (Rectangle 14 46 614 366)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1956	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1957	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1958	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1959	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1960	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1961	name: 'VerticalPanel2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1962	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	1963	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1964	verticalLayout: top
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1965	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1966	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1967	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1968	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1969	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1970	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1971	name: 'VerticalPanel1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1972	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1973	verticalLayout: top
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1974	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1975	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1976	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1977	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1978	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1979	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1980	label: 'CTRL-Key to Start TextDrag'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1981	name: 'CTRLKeyStTextDragCheckBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1982	model: startTextDragWithControl
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1983	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1984	extent: (Point 600 23)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1985	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1986	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1987	label: 'SearchBox is Modal'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1988	name: 'SearchBoxModalCheckBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1989	model: searchDialogIsModal
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1990	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1991	extent: (Point 600 23)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1992	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1993	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1994	label: 'Tab Stops in Multiples of 4'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1995	name: 'TabStopsMultiples4CheckBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1996	model: tabsIs4
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1997	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1998	extent: (Point 600 23)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1999	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2000	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2001	label: 'Double Click Select Behavior as in ST80'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2002	name: 'DoubleClickSelectBehaviorST80CheckBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2003	model: st80DoubleClickSelectMode
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2004	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2005	extent: (Point 600 23)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2006	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2007	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2008	label: 'Cursor has ST80 Line-end Behavior'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2009	name: 'CursorST80LineEndBehaviorCheckBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2010	model: st80EditingMode
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2011	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2012	extent: (Point 600 23)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2013	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2014	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2015
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2016	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2017	extent: (Point 600 127)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2018	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2019	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2020
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2021	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2022	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2023	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2024
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2025	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2026	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2027	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2028
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2029	!AbstractSettingsApplication::EditSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2030
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2031	basicSaveSettings
5291 695fffec14ef * empty log message * Claus Gittinger <cg@exept.de> parents: 5289 diff changeset	2032	\|prefs\|
695fffec14ef * empty log message * Claus Gittinger <cg@exept.de> parents: 5289 diff changeset	2033
695fffec14ef * empty log message * Claus Gittinger <cg@exept.de> parents: 5289 diff changeset	2034	prefs := UserPreferences current.
695fffec14ef * empty log message * Claus Gittinger <cg@exept.de> parents: 5289 diff changeset	2035
695fffec14ef * empty log message * Claus Gittinger <cg@exept.de> parents: 5289 diff changeset	2036	prefs st80EditMode:(self st80EditingMode value).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2037	TextView st80SelectMode:(self st80DoubleClickSelectMode value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2038	tabsIs4 value ~~ (ListView userDefaultTabPositions = ListView tab4Positions) ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2039	ListView userDefaultTabPositions:(self tabsIs4 value ifTrue:[ListView tab4Positions] ifFalse:[ListView tab8Positions]).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2040	ListView allSubInstancesDo:[:eachKindOfListView \|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2041	self tabsIs4 value ifTrue:[eachKindOfListView setTab4] ifFalse:[eachKindOfListView setTab8]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2042	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2043	].
5291 695fffec14ef * empty log message * Claus Gittinger <cg@exept.de> parents: 5289 diff changeset	2044	prefs searchDialogIsModal:self searchDialogIsModal value.
695fffec14ef * empty log message * Claus Gittinger <cg@exept.de> parents: 5289 diff changeset	2045	prefs startTextDragWithControl:self startTextDragWithControl value.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2046	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2047
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	2048	helpFilename
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	2049	^ 'Launcher/editSettings.html'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2050	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2051
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2052	readSettings
5915 d7d685d60d82 * empty log message * Claus Gittinger <cg@exept.de> parents: 5912 diff changeset	2053	\|prefs\|
d7d685d60d82 * empty log message * Claus Gittinger <cg@exept.de> parents: 5912 diff changeset	2054
d7d685d60d82 * empty log message * Claus Gittinger <cg@exept.de> parents: 5912 diff changeset	2055	prefs := UserPreferences current.
d7d685d60d82 * empty log message * Claus Gittinger <cg@exept.de> parents: 5912 diff changeset	2056
d7d685d60d82 * empty log message * Claus Gittinger <cg@exept.de> parents: 5912 diff changeset	2057	self st80EditingMode value:prefs st80EditMode.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2058	self st80DoubleClickSelectMode value:TextView st80SelectMode.
5915 d7d685d60d82 * empty log message * Claus Gittinger <cg@exept.de> parents: 5912 diff changeset	2059	self tabsIs4 value:(ListView userDefaultTabPositions = ListView tab4Positions).
d7d685d60d82 * empty log message * Claus Gittinger <cg@exept.de> parents: 5912 diff changeset	2060	self searchDialogIsModal value:prefs searchDialogIsModal.
d7d685d60d82 * empty log message * Claus Gittinger <cg@exept.de> parents: 5912 diff changeset	2061	self startTextDragWithControl value:prefs startTextDragWithControl.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2062	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2063	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2064
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2065	!AbstractSettingsApplication::EditSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2066
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2067	searchDialogIsModal
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2068
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2069	searchDialogIsModal isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2070	searchDialogIsModal := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	2071	searchDialogIsModal onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2072	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2073	^ searchDialogIsModal.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2074	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2075
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2076	st80DoubleClickSelectMode
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2077
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2078	st80DoubleClickSelectMode isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2079	st80DoubleClickSelectMode := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	2080	st80DoubleClickSelectMode onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2081	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2082	^ st80DoubleClickSelectMode.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2083	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2084
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2085	st80EditingMode
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2086
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2087	st80EditingMode isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2088	st80EditingMode := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	2089	st80EditingMode onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2090	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2091	^ st80EditingMode.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2092	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2093
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2094	startTextDragWithControl
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2095
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2096	startTextDragWithControl isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2097	startTextDragWithControl := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	2098	startTextDragWithControl onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2099	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2100	^ startTextDragWithControl.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2101	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2102
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2103	tabsIs4
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2104
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2105	tabsIs4 isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2106	tabsIs4 := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	2107	tabsIs4 onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2108	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2109	^ tabsIs4.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2110	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2111
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2112	!AbstractSettingsApplication::EditSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2113
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2114	hasUnsavedChanges
5915 d7d685d60d82 * empty log message * Claus Gittinger <cg@exept.de> parents: 5912 diff changeset	2115	currentUserPrefs st80EditMode ~= (self st80EditingMode value) ifTrue:[^ true].
d7d685d60d82 * empty log message * Claus Gittinger <cg@exept.de> parents: 5912 diff changeset	2116	TextView st80SelectMode ~= (self st80DoubleClickSelectMode value) ifTrue:[^ true].
d7d685d60d82 * empty log message * Claus Gittinger <cg@exept.de> parents: 5912 diff changeset	2117	tabsIs4 value ~~ (ListView userDefaultTabPositions = ListView tab4Positions) ifTrue:[
d7d685d60d82 * empty log message * Claus Gittinger <cg@exept.de> parents: 5912 diff changeset	2118	ListView userDefaultTabPositions ~= (self tabsIs4 value
d7d685d60d82 * empty log message * Claus Gittinger <cg@exept.de> parents: 5912 diff changeset	2119	ifTrue:[ListView tab4Positions]
d7d685d60d82 * empty log message * Claus Gittinger <cg@exept.de> parents: 5912 diff changeset	2120	ifFalse:[ListView tab8Positions]) ifTrue:[^ true].
d7d685d60d82 * empty log message * Claus Gittinger <cg@exept.de> parents: 5912 diff changeset	2121	].
d7d685d60d82 * empty log message * Claus Gittinger <cg@exept.de> parents: 5912 diff changeset	2122	currentUserPrefs searchDialogIsModal ~= self searchDialogIsModal value ifTrue:[^ true].
d7d685d60d82 * empty log message * Claus Gittinger <cg@exept.de> parents: 5912 diff changeset	2123	currentUserPrefs startTextDragWithControl ~= self startTextDragWithControl value ifTrue:[^ true].
d7d685d60d82 * empty log message * Claus Gittinger <cg@exept.de> parents: 5912 diff changeset	2124	^ false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2125	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2126
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2127	!AbstractSettingsApplication::FontSettingsAppl class methodsFor:'defaults'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2128
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2129	widgetList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2130
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2131	^ #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2132	'All'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2133	'Labels'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2134	'Buttons'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2135	'Lists'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2136	'Menus'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2137	'Edited Text'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2138	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2139	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2140
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2141	!AbstractSettingsApplication::FontSettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2142
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2143	defaultIcon
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	2144	<resource: #programImage>
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	2145
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	2146	^ ToolbarIconLibrary fontIcon
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2147	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2148
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2149	defaultIcon2
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2150	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2151	by the ImageEditor of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2152
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2153	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2154	the ImageEditor may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2155
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2156	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2157	self defaultIcon2 inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2158	ImageEditor openOnClass:self andSelector:#defaultIcon2
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2159	Icon flushCachedIcons
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2160	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2161
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2162	<resource: #image>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2163
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2164	^Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2165	constantNamed:#'AbstractSettingsApplication::FontSettingsAppl class defaultIcon2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2166	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	2167	@@@@@@@@@@@@@@@@@@@@@!!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	2168	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	2169	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	2170	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2171
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2172	!AbstractSettingsApplication::FontSettingsAppl class methodsFor:'instance creation'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2173
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2174	fontForEncoding:encodingMatch
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2175
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2176	\| inst \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2177
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2178	inst := self new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2179	inst encodingMatch:encodingMatch.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2180	self initialize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2181	self open.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2182	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2183
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2184	!AbstractSettingsApplication::FontSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2185
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2186	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2187	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2188	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2189
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2190	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2191	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2192
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2193	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2194	UIPainter new openOnClass:AbstractSettingsApplication::FontSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2195	AbstractSettingsApplication::FontSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2196	AbstractSettingsApplication::FontSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2197	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2198
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2199	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2200
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2201	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2202	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2203	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2204	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2205	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2206	label: 'Font Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2207	name: 'Font Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2208	min: (Point 10 10)
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	2209	bounds: (Rectangle 0 0 512 657)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2210	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2211	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2212	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2213	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2214	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2215	name: 'VerticalPanel1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2216	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	2217	horizontalLayout: fitSpace
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2218	verticalLayout: center
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2219	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2220	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2221	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2222	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2223	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2224	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2225	name: 'AllBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2226	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2227	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2228	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2229	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2230	label: 'All (Others)'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2231	name: 'All'
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	2232	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	2233	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2234	adjust: left
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2235	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2236	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2237	label: 'Label'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2238	name: 'AllFont'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2239	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	2240	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2241	labelChannel: allFontLabelHolder
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2242	adjust: left
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2243	postBuildCallback: postBuildAllFontLabel:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2244	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2245	(ActionButtonSpec
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	2246	label: 'Change...'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2247	name: 'ChangeAll'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2248	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	2249	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2250	model: changeAllFont
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2251	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2252	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2253	name: 'Separator1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2254	layout: (LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2255	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2256	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2257
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2258	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2259	extent: (Point 490 50)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2260	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2261	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2262	name: 'LabelsBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2263	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2264	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2265	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2266	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2267	label: 'Labels'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2268	name: 'Labels'
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	2269	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	2270	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2271	adjust: left
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2272	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2273	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2274	label: 'Labels'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2275	name: 'LabelsFont'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2276	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	2277	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2278	labelChannel: labelsFontLabelHolder
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2279	adjust: left
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2280	postBuildCallback: postBuildLabelsFontLabel:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2281	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2282	(ActionButtonSpec
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	2283	label: 'Change...'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2284	name: 'ChangeLabels'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2285	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	2286	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2287	model: changeLabelsFont
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2288	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2289	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2290	name: 'Separator6'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2291	layout: (LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2292	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2293	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2294
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2295	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2296	extent: (Point 490 50)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2297	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2298	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2299	name: 'ButtonsBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2300	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2301	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2302	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2303	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2304	label: 'Buttons'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2305	name: 'Buttons'
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	2306	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	2307	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2308	adjust: left
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2309	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2310	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2311	label: 'Buttons Font'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2312	name: 'ButtonsFont'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2313	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	2314	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2315	labelChannel: buttonsFontLabelHolder
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2316	adjust: left
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2317	postBuildCallback: postBuildButtonsFontLabel:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2318	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2319	(ActionButtonSpec
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	2320	label: 'Change...'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2321	name: 'Change Buttons'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2322	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	2323	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2324	model: changeButtonsFont
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2325	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2326	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2327	name: 'Separator7'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2328	layout: (LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2329	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2330	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2331
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2332	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2333	extent: (Point 490 50)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2334	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2335	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2336	name: 'ListsBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2337	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2338	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2339	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2340	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2341	label: 'Lists'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2342	name: 'Lists'
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	2343	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	2344	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2345	adjust: left
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2346	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2347	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2348	label: 'Lists Font'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2349	name: 'ListsFont'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2350	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	2351	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2352	labelChannel: listsFontLabelHolder
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2353	adjust: left
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2354	postBuildCallback: postBuildListsFontLabel:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2355	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2356	(ActionButtonSpec
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	2357	label: 'Change...'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2358	name: 'ChangeLists'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2359	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	2360	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2361	model: changeListsFont
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2362	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2363	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2364	name: 'Separator8'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2365	layout: (LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2366	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2367	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2368
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2369	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2370	extent: (Point 490 50)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2371	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2372	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2373	name: 'MenusBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2374	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2375	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2376	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2377	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2378	label: 'Menus'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2379	name: 'Menus'
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	2380	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	2381	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2382	adjust: left
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2383	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2384	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2385	label: 'Menus Font'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2386	name: 'MenusFont'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2387	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	2388	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2389	labelChannel: menusFontLabelHolder
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2390	adjust: left
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2391	postBuildCallback: postBuildMenuesFontLabel:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2392	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2393	(ActionButtonSpec
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	2394	label: 'Change...'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2395	name: 'ChangeMenus'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2396	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	2397	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2398	model: changeMenusFont
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2399	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2400	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2401	name: 'Separator9'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2402	layout: (LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2403	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2404	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2405
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2406	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2407	extent: (Point 490 50)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2408	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2409	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2410	name: 'TextBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2411	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2412	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2413	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2414	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2415	label: 'Text'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2416	name: 'Text'
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	2417	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	2418	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2419	adjust: left
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2420	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2421	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2422	label: 'Text Font'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2423	name: 'TextFont'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2424	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	2425	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2426	labelChannel: textFontLabelHolder
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2427	adjust: left
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2428	postBuildCallback: postBuildTextFontLabel:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2429	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2430	(ActionButtonSpec
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	2431	label: 'Change...'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2432	name: 'ChangeText'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2433	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	2434	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2435	model: changeTextFont
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2436	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2437	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2438	name: 'Separator10'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2439	layout: (LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2440	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2441	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2442
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2443	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2444	extent: (Point 490 50)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2445	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2446	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2447
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2448	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2449	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2450	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2451
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2452	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2453	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2454	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2455
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2456	!AbstractSettingsApplication::FontSettingsAppl methodsFor:'accessing'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2457
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2458	encodingMatch:aEncodingMatch
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2459
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2460	aEncodingMatch notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2461	filter := [:f \| f encoding notNil
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2462	and:[aEncodingMatch match:f encoding]].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2463	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2464	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2465
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2466	!AbstractSettingsApplication::FontSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2467
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2468	basicSaveSettings
5464 4f59a3bc9fb2 * empty log message * ca parents: 5448 diff changeset	2469	\|fn\|
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2470
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2471	Label defaultFont:self labelDef value.
5551 24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	2472
24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	2473	fn := self buttonDef value.
24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	2474	Button defaultFont:fn.
24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	2475	Toggle defaultFont:fn.
24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	2476
24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	2477	fn := self textDef value.
24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	2478	TextView withAllSubclasses do:[:cls \| cls defaultFont:fn].
24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	2479
24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	2480	fn := self listDef value.
24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	2481	SelectionInListView withAllSubclasses do:[:cls \| cls defaultFont:fn].
24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	2482
5464 4f59a3bc9fb2 * empty log message * ca parents: 5448 diff changeset	2483	fn := self menuDef value.
5551 24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	2484	ListView defaultFont:fn.
5464 4f59a3bc9fb2 * empty log message * ca parents: 5448 diff changeset	2485	MenuView defaultFont:fn.
4f59a3bc9fb2 * empty log message * ca parents: 5448 diff changeset	2486	MenuPanel defaultFont:fn.
4f59a3bc9fb2 * empty log message * ca parents: 5448 diff changeset	2487	NoteBookView defaultFont:fn.
5551 24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	2488	PullDownMenu defaultFont:fn.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2489	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2490
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2491	changeAllFont
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2492	\|f\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2493
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2494	f := FontPanel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2495	fontFromUserInitial:(self allOfThem value)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2496	title:(resources string:'Font for %1' with:'All')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2497	filter:filter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2498	f notNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2499	self allOfThem value:(f onDevice:allLabel device).
6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2500	self labelDef value:(f onDevice:labelLabel device).
6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2501	self buttonDef value:(f onDevice:buttonsLabel device).
6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2502	self listDef value:(f onDevice:listsLabel device).
6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2503	self menuDef value:(f onDevice:menuLabel device).
6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2504	self textDef value:(f onDevice:textLabel device).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2505	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2506	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2507
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2508	changeButtonsFont
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2509
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2510	\|f\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2511
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2512	f := FontPanel
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2513	fontFromUserInitial:(self buttonDef value)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2514	title:(resources string:'Font for %1' with:'All')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2515	filter:filter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2516	f notNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2517	self buttonDef value:(f onDevice:buttonsLabel device).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2518	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2519	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2520
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2521	changeLabelsFont
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2522	\|f \|
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2523
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2524	f := FontPanel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2525	fontFromUserInitial:(self labelDef value)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2526	title:(resources string:'Font for %1' with:'Labels')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2527	filter:filter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2528	f notNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2529	self labelDef value:(f onDevice:labelLabel device).
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2530	].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2531	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2532
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2533	changeListsFont
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2534	\|f\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2535
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2536	f := FontPanel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2537	fontFromUserInitial:(self listDef value)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2538	title:(resources string:'Font for %1' with:'Lists')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2539	filter:filter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2540	f notNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2541	self listDef value:(f onDevice:listsLabel device).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2542	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2543	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2544
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2545	changeMenusFont
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2546	\|f\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2547
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2548	f := FontPanel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2549	fontFromUserInitial:(self menuDef value)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2550	title:(resources string:'Font for %1' with:'Menus')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2551	filter:filter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2552	f notNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2553	self menuDef value:(f onDevice:menuLabel device).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2554	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2555	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2556
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2557	changeTextFont
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2558	\|f\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2559
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2560	f := FontPanel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2561	fontFromUserInitial:(self textDef value)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2562	title:(resources string:'Font for %1' with:'Edited Text')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2563	filter:filter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2564	f notNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2565	self textDef value:(f onDevice:textLabel device).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2566	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2567	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2568
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	2569	helpFilename
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	2570	^ 'Launcher/fontSettings.html'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2571	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2572
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2573	readSettings
5448 93dda6ed83a2 readStyleSheetAndUpdateAllStyleCaches not for every read settings penk parents: 5441 diff changeset	2574	"/ View readStyleSheetAndUpdateAllStyleCaches.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2575	self labelDef value:Label defaultFont.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2576	self buttonDef value:Button defaultFont.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2577	self listDef value:SelectionInListView defaultFont.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2578	self menuDef value:MenuView defaultFont.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2579	self textDef value:TextView defaultFont.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2580	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2581	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2582
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2583	!AbstractSettingsApplication::FontSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2584
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2585	allFontLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2586
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2587	allFontLabelHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2588	allFontLabelHolder := '' asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2589	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2590	^ allFontLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2591	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2592
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2593	allOfThem
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2594	"return/create the 'allOfThem' value holder (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2595
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2596	allOfThem isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2597	allOfThem := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2598	allOfThem addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2599	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2600	^ allOfThem
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2601	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2602
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2603	buttonDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2604	"return/create the 'buttonDef' value holder (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2605
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2606	buttonDef isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2607	buttonDef := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2608	buttonDef addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2609	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2610	^ buttonDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2611	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2612
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2613	buttonsFontLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2614
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2615	buttonsFontLabelHolder isNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2616	buttonsFontLabelHolder := '' asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2617	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2618	^ buttonsFontLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2619	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2620
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2621	labelDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2622	"return/create the 'labelDef' value holder (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2623
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2624	labelDef isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2625	labelDef := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2626	labelDef addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2627	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2628	^ labelDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2629	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2630
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2631	labelsFontLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2632
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2633	labelsFontLabelHolder isNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2634	labelsFontLabelHolder := '' asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2635	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2636	^ labelsFontLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2637	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2638
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2639	listDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2640	"return/create the 'listDef' value holder (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2641
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2642	listDef isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2643	listDef := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2644	listDef addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2645	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2646	^ listDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2647	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2648
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2649	listsFontLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2650
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2651	listsFontLabelHolder isNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2652	listsFontLabelHolder := '' asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2653	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2654	^ listsFontLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2655	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2656
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2657	menuDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2658	"return/create the 'menuDef' value holder (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2659
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2660	menuDef isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2661	menuDef := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2662	menuDef addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2663	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2664	^ menuDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2665	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2666
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2667	menusFontLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2668
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2669	menusFontLabelHolder isNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2670	menusFontLabelHolder := '' asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2671	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2672	^ menusFontLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2673	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2674
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2675	textDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2676	"return/create the 'textDef' value holder (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2677
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2678	textDef isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2679	textDef := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2680	textDef addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2681	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2682	^ textDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2683	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2684
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2685	textFontLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2686
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2687	textFontLabelHolder isNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2688	textFontLabelHolder := '' asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2689	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2690	^ textFontLabelHolder.
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	!AbstractSettingsApplication::FontSettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2694
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2695	update:something with:aParameter from:changedObject
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2696	builder notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2697	changedObject == self allOfThem ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2698	self updateFontOfLabel:allLabel andFontNameHolder:(self allFontLabelHolder) from:changedObject.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2699	^ self.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2700	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2701	changedObject == self labelDef ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2702	self updateFontOfLabel:labelLabel andFontNameHolder:(self labelsFontLabelHolder) from:changedObject.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2703	^ self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2704	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2705	changedObject == self buttonDef ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2706	self updateFontOfLabel:buttonsLabel andFontNameHolder:(self buttonsFontLabelHolder) from:changedObject.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2707	^ self.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2708	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2709	changedObject == self listDef ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2710	self updateFontOfLabel:listsLabel andFontNameHolder:(self listsFontLabelHolder) from:changedObject.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2711	^ self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2712	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2713	changedObject == self menuDef ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2714	self updateFontOfLabel:menuLabel andFontNameHolder:(self menusFontLabelHolder) from:changedObject.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2715	^ self.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2716	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2717	changedObject == self textDef ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2718	self updateFontOfLabel:textLabel andFontNameHolder:(self textFontLabelHolder) from:changedObject.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2719	^ self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2720	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2721	].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2722	super update:something with:aParameter from:changedObject
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2723	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2724
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2725	updateAllFontLabels
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2726	self update:#value with:nil from:self allOfThem.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2727	self update:#value with:nil from:self labelDef.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2728	self update:#value with:nil from:self buttonDef.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2729	self update:#value with:nil from:self listDef.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2730	self update:#value with:nil from:self menuDef.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2731	self update:#value with:nil from:self textDef.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2732	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2733
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2734	updateFontOfLabel:labelWidget andFontNameHolder:fontNameHolder from:changedObject
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	2735	\|f label\|
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2736
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2737	f := changedObject value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2738	labelWidget font:f.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2739	label := f isNil ifTrue:[
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	2740	''
c72e35116b13 instable state penk parents: 5040 diff changeset	2741	] ifFalse:[
c72e35116b13 instable state penk parents: 5040 diff changeset	2742	f userFriendlyName
c72e35116b13 instable state penk parents: 5040 diff changeset	2743	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2744	fontNameHolder value:label.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	2745	self updateModifiedChannel
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2746	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2747
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2748	!AbstractSettingsApplication::FontSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2749
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2750	postBuildAllFontLabel:aWidget
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2751
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2752	allLabel := aWidget.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2753	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2754
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2755	postBuildButtonsFontLabel:aWidget
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2756
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2757	buttonsLabel := aWidget.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2758	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2759
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2760	postBuildLabelsFontLabel:aWidget
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2761
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2762	labelLabel := aWidget.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2763	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2764
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2765	postBuildListsFontLabel:aWidget
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2766
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2767	listsLabel := aWidget.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2768	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2769
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2770	postBuildMenuesFontLabel:aWidget
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2771
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2772	menuLabel := aWidget.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2773	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2774
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2775	postBuildTextFontLabel:aWidget
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2776
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2777	textLabel := aWidget.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2778	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2779
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2780	postBuildWith:aBuilder
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2781	"/ self readSettings.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2782	self updateAllFontLabels.
4438 74e64acf5dd0 font settings loadrequest on postBuild now penk parents: 4434 diff changeset	2783	super postBuildWith:aBuilder
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2784	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2785
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2786	!AbstractSettingsApplication::FontSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2787
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2788	hasUnsavedChanges
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	2789	self labelDef value ~= Label defaultFont ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	2790	self buttonDef value ~= Button defaultFont ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	2791	self listDef value ~= SelectionInListView defaultFont ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	2792	self menuDef value ~= MenuView defaultFont ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	2793	self textDef value ~= TextView defaultFont ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	2794	^ false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2795	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2796
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2797	!AbstractSettingsApplication::GeneralCompilerSettingsAppl class methodsFor:'defaults'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2798
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2799	keepSourceOptions
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2800
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2801	^ #( keep reference absReference sourceReference discard )
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2802	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2803
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2804	keepSourceStrings
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2805
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2806	^ #('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	2807	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2808
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2809	!AbstractSettingsApplication::GeneralCompilerSettingsAppl class methodsFor:'image specs'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2810
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2811	defaultIcon
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2812	^ self defaultIcon3
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2813	!
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2814
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2815	defaultIcon1
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2816	"This resource specification was automatically generated
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2817	by the ImageEditor of ST/X."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2818
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2819	"Do not manually edit this!! If it is corrupted,
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2820	the ImageEditor may not be able to read the specification."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2821
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2822	"
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2823	self defaultIcon1 inspect
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2824	ImageEditor openOnClass:self andSelector:#defaultIcon1
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2825	Icon flushCachedIcons
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2826	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2827
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2828	<resource: #image>
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2829
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2830	^Icon
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2831	constantNamed:#'AbstractSettingsApplication::GeneralCompilerSettingsAppl class defaultIcon1'
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	2832	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	2833	@@@@@@@@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	2834	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	2835	!
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2836
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2837	defaultIcon3
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2838	"This resource specification was automatically generated
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2839	by the ImageEditor of ST/X."
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2840
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2841	"Do not manually edit this!! If it is corrupted,
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2842	the ImageEditor may not be able to read the specification."
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2843
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2844	"
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2845	self defaultIcon3 inspect
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2846	ImageEditor openOnClass:self andSelector:#defaultIcon3
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2847	Icon flushCachedIcons
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2848	"
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2849
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2850	<resource: #image>
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2851
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2852	^Icon
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2853	constantNamed:#'AbstractSettingsApplication::GeneralCompilerSettingsAppl class defaultIcon3'
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2854	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	2855	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	2856	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	2857	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	2858	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	2859	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	2860	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	2861	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	2862	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2863
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2864	!AbstractSettingsApplication::GeneralCompilerSettingsAppl class methodsFor:'interface specs'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2865
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2866	windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2867	"This resource specification was automatically generated
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2868	by the UIPainter of ST/X."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2869
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2870	"Do not manually edit this!! If it is corrupted,
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2871	the UIPainter may not be able to read the specification."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2872
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2873	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2874	UIPainter new openOnClass:AbstractSettingsApplication::GeneralCompilerSettingsAppl andSelector:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2875	AbstractSettingsApplication::GeneralCompilerSettingsAppl new openInterface:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2876	AbstractSettingsApplication::GeneralCompilerSettingsAppl open
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2877	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2878
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2879	<resource: #canvas>
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2880
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2881	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2882	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2883	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2884	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2885	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2886	label: 'General Compiler Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2887	name: 'General Compiler Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2888	min: (Point 10 10)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2889	max: (Point 1024 768)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2890	bounds: (Rectangle 14 46 614 366)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2891	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2892	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2893	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2894	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2895	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2896	name: 'VerticalPanel2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2897	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	2898	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2899	verticalLayout: top
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2900	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2901	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2902	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2903	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2904	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2905	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2906	label: 'Catch Method Redefinitions'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2907	name: 'CatchMethodRedefinitions'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2908	model: catchMethodRedefs
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2909	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2910	extent: (Point 600 25)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2911	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2912	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2913	label: 'Catch Class Redefinitions'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2914	name: 'CatchClassRedefinitions'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2915	model: catchClassRedefs
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2916	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2917	extent: (Point 600 25)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2918	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2919	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2920	label: 'Keep History Line in Methods'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2921	name: 'KeepHistoryLineinMethods'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2922	model: historyLines
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2923	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2924	extent: (Point 600 25)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2925	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2926	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2927	label: 'Keep Full Class History'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2928	name: 'KeepFullClassHistory'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2929	enableChannel: hasHistoryManager
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2930	model: fullHistoryUpdate
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2931	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2932	extent: (Point 600 25)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2933	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2934	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2935	name: 'Box1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2936	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2937	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2938	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2939	(PopUpListSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2940	label: 'PopUp List'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2941	name: 'KeepSourceSelection'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2942	layout: (LayoutFrame 200 0 0 0 -5 1 22 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2943	tabable: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2944	model: keepSourceSelection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2945	menu: keepSource
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2946	useIndex: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2947	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2948	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2949	label: 'FileIn Source Mode:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2950	name: 'FileInSourceModeLabel'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2951	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	2952	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2953	adjust: right
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2954	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2955	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2956
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2957	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2958	extent: (Point 600 30)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2959	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2960	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2961	name: 'Separator1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2962	extent: (Point 600 3)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2963	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2964	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2965	label: 'If Present, Load Binary Objects when Autoloading'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2966	name: 'LoadBinaryObjectsWhenAutoloading'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2967	enableChannel: canLoadBinaries
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2968	model: loadBinaries
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2969	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2970	extent: (Point 600 25)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2971	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2972	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2973
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2974	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2975	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2976	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2977
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2978	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2979	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2980	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2981
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2982	!AbstractSettingsApplication::GeneralCompilerSettingsAppl methodsFor:'actions'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2983
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2984	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2985
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2986	ClassCategoryReader sourceMode:(self class keepSourceOptions at:self keepSourceSelection value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2987	Class catchClassRedefinitions:self catchClassRedefs value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2988	Class catchMethodRedefinitions:self catchMethodRedefs value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2989	HistoryManager notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2990	HistoryManager fullHistoryUpdate:self fullHistoryUpdate value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2991	self historyLines value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2992	HistoryManager activate
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2993	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2994	HistoryManager deactivate
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2995	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2996	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2997	Smalltalk loadBinaries:self loadBinaries value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2998	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2999
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	3000	helpFilename
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	3001	^ 'Launcher/compilerSettings.html'
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3002	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3003
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3004	readSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3005	self keepSourceSelection value:(self class keepSourceOptions
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3006	indexOf:ClassCategoryReader sourceMode
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3007	ifAbsent:1).
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3008	self catchClassRedefs value:(Class catchClassRedefinitions ? false).
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3009	self catchMethodRedefs value:(Class catchMethodRedefinitions ? false).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3010	self canLoadBinaries ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3011	self loadBinaries value:Smalltalk loadBinaries
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3012	] ifFalse:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3013	self loadBinaries value:false
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3014	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3015	self hasHistoryManager ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3016	self fullHistoryUpdate value:(HistoryManager fullHistoryUpdate ? false)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3017	] ifFalse:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3018	self fullHistoryUpdate value:false
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3019	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3020	self historyLines value:self hasHistoryManager.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3021	self modifiedChannel value:false
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3022	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3023
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3024	!AbstractSettingsApplication::GeneralCompilerSettingsAppl methodsFor:'aspects'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3025
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3026	canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3027
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3028	canLoadBinaries isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3029	canLoadBinaries := (ObjectFileLoader notNil and:[ObjectFileLoader canLoadObjectFiles]) asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3030	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3031	^ canLoadBinaries.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3032	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3033
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3034	catchClassRedefs
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3035
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3036	catchClassRedefs isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3037	catchClassRedefs := (Class catchClassRedefinitions ? false) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	3038	catchClassRedefs onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3039	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3040	^ catchClassRedefs.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3041	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3042
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3043	catchMethodRedefs
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3044
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3045	catchMethodRedefs isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3046	catchMethodRedefs := (Class catchMethodRedefinitions ? false) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	3047	catchMethodRedefs onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3048	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3049	^ catchMethodRedefs.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3050	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3051
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3052	fullHistoryUpdate
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3053
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3054	fullHistoryUpdate isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3055	self hasHistoryManager ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3056	fullHistoryUpdate := (HistoryManager fullHistoryUpdate ? false) asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3057	] ifFalse:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3058	fullHistoryUpdate := false asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3059	].
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	3060	fullHistoryUpdate onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3061	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3062	^ fullHistoryUpdate.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3063	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3064
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3065	hasHistoryManager
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3066
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3067	^ HistoryManager notNil and:[HistoryManager isLoaded and:[HistoryManager isActive]]
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3068	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3069
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	3070	historyLines
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3071
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3072	historyLines isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3073	historyLines := self hasHistoryManager asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	3074	historyLines onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3075	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3076	^ historyLines.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3077	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3078
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3079	keepSource
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3080
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3081	keepSource isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3082	keepSource := (resources array:(self class keepSourceStrings)) asList.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3083	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3084	^ keepSource.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3085	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3086
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3087	keepSourceSelection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3088
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3089	keepSourceSelection isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3090	keepSourceSelection := (self class keepSourceOptions indexOf:ClassCategoryReader sourceMode ifAbsent:1) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	3091	keepSourceSelection onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3092	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3093	^ keepSourceSelection.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3094	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3095
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3096	loadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3097
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3098	loadBinaries isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3099	self canLoadBinaries ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3100	loadBinaries:= Smalltalk loadBinaries asValue
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3101	] ifFalse:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3102	loadBinaries:= false asValue
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3103	].
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	3104	loadBinaries onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3105	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3106	^ loadBinaries.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3107	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3108
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3109	!AbstractSettingsApplication::GeneralCompilerSettingsAppl methodsFor:'queries'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3110
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3111	hasUnsavedChanges
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	3112	((HistoryManager fullHistoryUpdate ? false) ~= self fullHistoryUpdate value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	3113	((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	3114	((Class catchMethodRedefinitions ? false) ~= self catchMethodRedefs value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	3115	((Class catchClassRedefinitions ? false) ~= self catchClassRedefs value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	3116	((Smalltalk loadBinaries ? false) ~= self loadBinaries value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	3117	((self hasHistoryManager) ~= self historyLines value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	3118	^ false.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3119	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3120
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3121	!AbstractSettingsApplication::HTTPStartServerSettingsApplication class methodsFor:'image specs'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3122
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3123	defaultIcon
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3124	"This resource specification was automatically generated
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3125	by the ImageEditor of ST/X."
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3126
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3127	"Do not manually edit this!! If it is corrupted,
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3128	the ImageEditor may not be able to read the specification."
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3129
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3130	"
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3131	self defaultIcon inspect
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3132	ImageEditor openOnClass:self andSelector:#defaultIcon
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3133	Icon flushCachedIcons
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3134	"
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3135
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3136	<resource: #image>
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3137
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3138	^Icon
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	3139	constantNamed:#'AbstractSettingsApplication::HTTPStartServerSettingsApplication class defaultIcon'
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3140	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	3141	@@@@@@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	3142	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	3143	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	3144	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	3145	K2</K2</KSXEL@@@@@@@@@@@@@@+K"<AJB (JB46AS@@@@@@@@@@@@@@J28/@@@@@@@/M T0@@@@@@@@@@@@@B,.R41LSD1LSSXEL@@@@@@@@@@@@@@+K#8(
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	3146	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	3147	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3148
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3149	!AbstractSettingsApplication::HTTPStartServerSettingsApplication class methodsFor:'interface specs'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3150
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3151	windowSpec
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3152	"This resource specification was automatically generated
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3153	by the UIPainter of ST/X."
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3154
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3155	"Do not manually edit this!! If it is corrupted,
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3156	the UIPainter may not be able to read the specification."
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3157
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3158	"
4726 8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3159	UIPainter new openOnClass:AbstractSettingsApplication::HTTPStartServerSettingsApplication andSelector:#windowSpec
8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3160	AbstractSettingsApplication::HTTPStartServerSettingsApplication new openInterface:#windowSpec
8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3161	AbstractSettingsApplication::HTTPStartServerSettingsApplication open
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3162	"
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3163
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3164	<resource: #canvas>
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3165
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3166	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3167	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3168	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3169	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3170	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3171	label: 'HTTP Server Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3172	name: 'HTTP Server Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3173	min: (Point 10 10)
6426 d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	3174	bounds: (Rectangle 0 0 539 630)
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3175	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3176	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3177	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3178	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3179	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3180	name: 'VerticalPanel1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3181	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	3182	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3183	verticalLayout: top
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3184	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3185	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3186	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3187	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3188	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3189	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3190	name: 'VerticalPanel4'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3191	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3192	verticalLayout: topSpace
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3193	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3194	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3195	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3196	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3197	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3198	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3199	name: 'Box19'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3200	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3201	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3202	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3203	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3204	label: 'Label'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3205	name: 'Label2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3206	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	3207	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3208	labelChannel: informationLabel
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3209	resizeForLabel: false
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3210	adjust: left
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3211	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3212	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3213
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3214	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3215	extent: (Point 539 200)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3216	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3217	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3218	name: 'Box18'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3219	extent: (Point 539 20)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3220	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3221	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3222	name: 'Box17'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3223	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3224	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3225	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3226	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3227	label: 'Port:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3228	name: 'Label1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3229	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	3230	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3231	adjust: right
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3232	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3233	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3234	name: 'EntryField1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3235	layout: (LayoutFrame 40 0 20 0 100 0 42 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3236	model: portNumberChannel
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3237	type: number
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3238	immediateAccept: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3239	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3240	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3241	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3242	acceptOnPointerLeave: false
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3243	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3244	(ActionButtonSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3245	label: 'Create new HTTP Server'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3246	name: 'Button4'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3247	layout: (LayoutFrame 125 0 20 0 -5 1 42 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3248	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3249	model: createServer
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3250	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3251	(ActionButtonSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3252	label: 'Create Server from Settingsfile...'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3253	name: 'Button6'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3254	layout: (LayoutFrame 125 0 51 0 -5 1 73 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3255	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3256	model: createServerFromFile
5049 3df132763949 instable state penk parents: 5044 diff changeset	3257	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3258	(ActionButtonSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3259	label: 'Remove all HTTP Servers'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3260	name: 'Button5'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3261	layout: (LayoutFrame 125 0 82 0 -5 1 104 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3262	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3263	model: removeAllServers
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3264	enableChannel: hasCreatedServerChannel
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3265	)
6426 d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	3266	(CheckBoxSpec
d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	3267	label: 'FastCGI'
d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	3268	name: 'CheckBox1'
d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	3269	layout: (LayoutFrame 19 0 57 0 116 0 79 0)
d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	3270	model: useFcgiHolder
d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	3271	translateLabel: true
d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	3272	)
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3273	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3274
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3275	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3276	extent: (Point 539 120)
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3277	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3278	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3279
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3280	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3281	extent: (Point 539 620)
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3282	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3283	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3284
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3285	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3286	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3287	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3288
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3289	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3290	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3291	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3292
5346 7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3293	!AbstractSettingsApplication::HTTPStartServerSettingsApplication class methodsFor:'servers access'!
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3294
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3295	addCreatedServer:aServer
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3296	self createdServers add:aServer.
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3297	!
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3298
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3299	createdServers
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3300	CreatedServers isNil ifTrue:[
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3301	CreatedServers := Set new.
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3302	].
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3303	^ CreatedServers
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3304	!
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3305
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3306	removeAllCreatedServer
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3307	self createdServers removeAll.
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3308	!
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3309
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3310	removeCreatedServer:aServer
5355 aa7b1d44d7a8 remove server from createdServers penk parents: 5346 diff changeset	3311	self createdServers remove:aServer ifAbsent:nil.
5346 7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3312	! !
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3313
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3314	!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'actions'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3315
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3316	basicSaveSettings
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3317
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3318	^ self
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3319	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3320
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3321	createServer
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3322
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3323	\| newServer port runningServers\|
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3324
5387 50ee62275b2a wait cursor immediately after press createServer penk parents: 5378 diff changeset	3325	self withWaitCursorDo:[
6426 d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	3326	self serverClass isNil ifTrue:[
6135 7c6536c11c6d * empty log message * Claus Gittinger <cg@exept.de> parents: 6125 diff changeset	3327	self warn:'The "HTTPServer" class is missing - cannot create server.'.
7c6536c11c6d * empty log message * Claus Gittinger <cg@exept.de> parents: 6125 diff changeset	3328	^ self.
7c6536c11c6d * empty log message * Claus Gittinger <cg@exept.de> parents: 6125 diff changeset	3329	].
7c6536c11c6d * empty log message * Claus Gittinger <cg@exept.de> parents: 6125 diff changeset	3330
5387 50ee62275b2a wait cursor immediately after press createServer penk parents: 5378 diff changeset	3331	port := self portNumberChannel value.
6426 d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	3332	runningServers := self serverClass runningServers.
5387 50ee62275b2a wait cursor immediately after press createServer penk parents: 5378 diff changeset	3333	runningServers notEmpty ifTrue:[
50ee62275b2a wait cursor immediately after press createServer penk parents: 5378 diff changeset	3334	runningServers do:[:aServer \|
50ee62275b2a wait cursor immediately after press createServer penk parents: 5378 diff changeset	3335	aServer port = port asInteger ifTrue:[
50ee62275b2a wait cursor immediately after press createServer penk parents: 5378 diff changeset	3336	Dialog warn:'There is already a Server for port ', port asString.
50ee62275b2a wait cursor immediately after press createServer penk parents: 5378 diff changeset	3337	^ self
50ee62275b2a wait cursor immediately after press createServer penk parents: 5378 diff changeset	3338	]
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3339	]
5387 50ee62275b2a wait cursor immediately after press createServer penk parents: 5378 diff changeset	3340	].
50ee62275b2a wait cursor immediately after press createServer penk parents: 5378 diff changeset	3341	runningServers addDependent:self.
50ee62275b2a wait cursor immediately after press createServer penk parents: 5378 diff changeset	3342
6426 d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	3343	(port = self serverClass defaultPort) ifTrue:[
d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	3344	newServer := self serverClass newServerWithDefaultServiceListOn:port.
5214 3d2819b038bd server inserts default services only for default server penk parents: 5212 diff changeset	3345	] ifFalse:[
6426 d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	3346	newServer := self serverClass newServerOnPort:port.
5214 3d2819b038bd server inserts default services only for default server penk parents: 5212 diff changeset	3347	].
5346 7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3348	self class addCreatedServer:newServer.
4893 39dec723f6ad * empty log message * penk parents: 4886 diff changeset	3349	self createServerApplicationFor:newServer.
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3350	]
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3351	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3352
4893 39dec723f6ad * empty log message * penk parents: 4886 diff changeset	3353	createServerApplicationFor:aServerInstance
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	3354	\|settingsApp itemPathName newItem openApps\|
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3355
6389 9f4010737320 code cleanup Claus Gittinger <cg@exept.de> parents: 6383 diff changeset	3356	openApps := settingsDialog getAllChildrenAppsForApplication:self childrenClass:HTTPServerSettingsAppl.
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	3357	(openApps contains:[:app \| app httpServerInstance == aServerInstance]) ifTrue:[
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3358	" already have an Item for this application "
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3359	^ self
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3360	].
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	3361
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3362	settingsApp := HTTPServerSettingsAppl basicNew.
5031 86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	3363	settingsApp settingsDialog:self settingsDialog.
4893 39dec723f6ad * empty log message * penk parents: 4886 diff changeset	3364	settingsApp httpServerInstance:aServerInstance.
5038 c605d7909165 * empty log message * penk parents: 5035 diff changeset	3365	settingsApp defaultSettingsApplication:false.
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3366	settingsApp basicInitialize.
5044 fea72184bd8e instable state penk parents: 5041 diff changeset	3367	itemPathName := self itemPathName , '/', settingsApp nameInSettingsDialog.
5038 c605d7909165 * empty log message * penk parents: 5035 diff changeset	3368	newItem := self settingsDialog addApplClass:#'HTTPServerSettingsAppl' withName:itemPathName.
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3369	newItem application:settingsApp.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3370	self createdServerChanged.
5038 c605d7909165 * empty log message * penk parents: 5035 diff changeset	3371	self settingsDialog expandItemForApplication:self.
5280 a68af81b7b2c readSettings after create penk parents: 5278 diff changeset	3372	settingsApp readSettings.
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3373	settingsApp initialize.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3374	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3375
5049 3df132763949 instable state penk parents: 5044 diff changeset	3376	createServerFromFile
3df132763949 instable state penk parents: 5044 diff changeset	3377
5055 b3cba6441579 ready to use penk parents: 5049 diff changeset	3378	\| newServer fileName runningServers newServerPort answer\|
5049 3df132763949 instable state penk parents: 5044 diff changeset	3379
6426 d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	3380	runningServers := self serverClass runningServers.
5049 3df132763949 instable state penk parents: 5044 diff changeset	3381	fileName := Dialog requestFileName:'Select a HTTPServer Settings File'
6426 d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	3382	default:(self serverClass settingsFilename)
5049 3df132763949 instable state penk parents: 5044 diff changeset	3383	pattern:'*xml'
3df132763949 instable state penk parents: 5044 diff changeset	3384	fromDirectory:(Filename currentDirectory).
3df132763949 instable state penk parents: 5044 diff changeset	3385	fileName isEmptyOrNil ifTrue:[ ^ self].
5055 b3cba6441579 ready to use penk parents: 5049 diff changeset	3386	self withWaitCursorDo:[
6426 d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	3387	newServer := self serverClass serverFromSettingsFile:(fileName asFilename).
5055 b3cba6441579 ready to use penk parents: 5049 diff changeset	3388	newServer notNil ifTrue:[
b3cba6441579 ready to use penk parents: 5049 diff changeset	3389	newServerPort := newServer port.
b3cba6441579 ready to use penk parents: 5049 diff changeset	3390	runningServers notEmpty ifTrue:[
b3cba6441579 ready to use penk parents: 5049 diff changeset	3391	[self hasServerForPort:newServerPort] whileTrue:[
b3cba6441579 ready to use penk parents: 5049 diff changeset	3392	answer := Dialog
b3cba6441579 ready to use penk parents: 5049 diff changeset	3393	request:('There is already a Server for port ', newServerPort asString, ' Please select another one')
b3cba6441579 ready to use penk parents: 5049 diff changeset	3394	initialAnswer:self portNumberChannel value asString.
b3cba6441579 ready to use penk parents: 5049 diff changeset	3395	answer isEmpty ifTrue:[
b3cba6441579 ready to use penk parents: 5049 diff changeset	3396	^ self
b3cba6441579 ready to use penk parents: 5049 diff changeset	3397	].
b3cba6441579 ready to use penk parents: 5049 diff changeset	3398	newServerPort := answer asNumber.
5049 3df132763949 instable state penk parents: 5044 diff changeset	3399	]
5055 b3cba6441579 ready to use penk parents: 5049 diff changeset	3400	].
b3cba6441579 ready to use penk parents: 5049 diff changeset	3401	newServer port:newServerPort.
b3cba6441579 ready to use penk parents: 5049 diff changeset	3402	runningServers addDependent:self.
5346 7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3403	self class addCreatedServer:newServer.
5055 b3cba6441579 ready to use penk parents: 5049 diff changeset	3404	self createServerApplicationFor:newServer.
5049 3df132763949 instable state penk parents: 5044 diff changeset	3405	].
3df132763949 instable state penk parents: 5044 diff changeset	3406	].
3df132763949 instable state penk parents: 5044 diff changeset	3407	!
3df132763949 instable state penk parents: 5044 diff changeset	3408
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	3409	createServerSubApplicationsForRunningServers
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3410
5346 7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3411	\|runningServers serverToStart\|
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3412
6426 d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	3413	(self serverClass notNil and:[self serverClass isLoaded]) ifFalse:[ ^ self].
d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	3414
d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	3415	runningServers := self serverClass runningServers.
5346 7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3416	serverToStart := runningServers asSet.
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3417	serverToStart addAll:self class createdServers.
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3418	serverToStart isEmpty ifTrue:[ ^ self].
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3419	serverToStart := serverToStart asOrderedCollection.
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3420	serverToStart sort:[:a :b \| a port < b port].
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3421	serverToStart do:[:aHttpServerInstance \|
4893 39dec723f6ad * empty log message * penk parents: 4886 diff changeset	3422	self createServerApplicationFor:aHttpServerInstance.
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3423	]
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3424	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3425
5055 b3cba6441579 ready to use penk parents: 5049 diff changeset	3426	hasServerForPort:newServerPort
b3cba6441579 ready to use penk parents: 5049 diff changeset	3427
6426 d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	3428	self serverClass runningServers do:[:aServer \|
5055 b3cba6441579 ready to use penk parents: 5049 diff changeset	3429	aServer port = newServerPort ifTrue:[
b3cba6441579 ready to use penk parents: 5049 diff changeset	3430	^ true
b3cba6441579 ready to use penk parents: 5049 diff changeset	3431	]
b3cba6441579 ready to use penk parents: 5049 diff changeset	3432	].
b3cba6441579 ready to use penk parents: 5049 diff changeset	3433	^ false
b3cba6441579 ready to use penk parents: 5049 diff changeset	3434	!
b3cba6441579 ready to use penk parents: 5049 diff changeset	3435
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	3436	helpFilename
5362 12d488573309 helpFilename in httpStartServerSettings Claus Gittinger <cg@exept.de> parents: 5355 diff changeset	3437	^ 'HTTPServer/index.html'
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	3438	!
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	3439
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3440	readSettings
6426 d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	3441	(self serverClass notNil and:[HTTPServer isLoaded]) ifTrue:[
d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	3442	self serverClass runningServers removeDependent:self.
d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	3443	self serverClass runningServers addDependent:self.
4883 45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3444	].
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	3445	self createServerSubApplicationsForRunningServers.
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3446	self createdServerChanged.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3447	self modifiedChannel value:false.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3448	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3449
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3450	removeAllServerSubApplications
6389 9f4010737320 code cleanup Claus Gittinger <cg@exept.de> parents: 6383 diff changeset	3451	settingsDialog removeAllSubApplicationsFor:self
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3452	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3453
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3454	removeAllServers
6426 d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	3455	self serverClass isLoaded ifTrue:[
d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	3456	self serverClass terminateAllServers.
4883 45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3457	].
5346 7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3458	self class removeAllCreatedServer.
4883 45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3459	self removeAllServerSubApplications.
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3460	self createdServerChanged.
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3461	!
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3462
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3463	setPortOnFreePort
6389 9f4010737320 code cleanup Claus Gittinger <cg@exept.de> parents: 6383 diff changeset	3464	\|highestUsedPortNr portToUse instances\|
4893 39dec723f6ad * empty log message * penk parents: 4886 diff changeset	3465
6426 d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	3466	(self serverClass notNil and:[self serverClass isLoaded]) ifFalse:[
4893 39dec723f6ad * empty log message * penk parents: 4886 diff changeset	3467	portToUse := 8080
39dec723f6ad * empty log message * penk parents: 4886 diff changeset	3468	] ifTrue:[
6426 d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	3469	instances := self serverClass runningServers asSet.
6389 9f4010737320 code cleanup Claus Gittinger <cg@exept.de> parents: 6383 diff changeset	3470	instances addAll:((settingsDialog getAllChildrenAppsForApplication:self) collect:[:aApp\| aApp httpServerInstance]).
5040 1500f0fdf4dd instable state penk parents: 5038 diff changeset	3471	highestUsedPortNr := instances
6426 d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	3472	inject:(self serverClass defaultPort - 1)
4893 39dec723f6ad * empty log message * penk parents: 4886 diff changeset	3473	into:[:maxSoFar :thisServer \| thisServer port max:maxSoFar].
39dec723f6ad * empty log message * penk parents: 4886 diff changeset	3474
39dec723f6ad * empty log message * penk parents: 4886 diff changeset	3475	portToUse := highestUsedPortNr + 1
39dec723f6ad * empty log message * penk parents: 4886 diff changeset	3476	].
39dec723f6ad * empty log message * penk parents: 4886 diff changeset	3477	self portNumberChannel value:portToUse.
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3478	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3479
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3480	!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'aspects'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3481
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3482	hasCreatedServerChannel
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3483	"automatically generated by UIPainter ..."
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3484
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3485	"*** the code below creates a default model when invoked."
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3486	"*** (which may not be the one you wanted)"
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3487	"*** Please change as required and accept it in the browser."
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3488	"*** (and replace this comment by something more useful ;-)"
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3489
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3490	hasCreatedServerChannel isNil ifTrue:[
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3491	hasCreatedServerChannel := true asValue.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3492	"/ if your app needs to be notified of changes, uncomment one of the lines below:
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3493	"/ hasCreatedServerChannel addDependent:self.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3494	"/ hasCreatedServerChannel onChangeSend:#hasCreatedServerChannelChanged to:self.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3495	].
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3496	^ hasCreatedServerChannel.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3497	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3498
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3499	informationLabel
4726 8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3500	^ resources
8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3501	string:'HTTPSTARTINFO'
8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3502	default:
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	3503	'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	3504	(i.e. it is possible to serve multiple ports)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	3505
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	3506	Once created, select the individual server in the left tree,
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	3507	configure its services, and finally start it up.'
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3508	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3509
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3510	portNumberChannel
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3511
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3512	portNumberChannel isNil ifTrue:[
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3513	portNumberChannel := ValueHolder new.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3514	].
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3515	^ portNumberChannel.
6426 d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	3516	!
d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	3517
d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	3518	useFcgiHolder
d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	3519	useFcgiHolder isNil ifTrue:[
d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	3520	useFcgiHolder := false asValue.
d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	3521	].
d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	3522	^ useFcgiHolder.
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3523	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3524
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3525	!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'change & update'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3526
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3527	createdServerChanged
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3528
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3529	self hasCreatedServerChannel value:self hasCreatedServer.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3530	self setPortOnFreePort.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3531	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3532
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3533	runningServersChanged
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	3534	self createServerSubApplicationsForRunningServers.
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3535	self setPortOnFreePort.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3536	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3537
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3538	update:something with:aParameter from:changedObject
6426 d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	3539	self serverClass isLoaded ifTrue:[
d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	3540	changedObject == self serverClass runningServers ifTrue:[
4883 45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3541	self runningServersChanged.
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3542	^ self.
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3543	]
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3544	].
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3545	super update:something with:aParameter from:changedObject
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3546	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3547
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3548	!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'initialization & release'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3549
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3550	release
6426 d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	3551	(self serverClass notNil and:[HTTPServer isLoaded]) ifTrue:[
d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	3552	self serverClass runningServers removeDependent:self.
4883 45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3553	]
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3554	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3555
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3556	!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'queries'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3557
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3558	hasCreatedServer
6389 9f4010737320 code cleanup Claus Gittinger <cg@exept.de> parents: 6383 diff changeset	3559	^ (settingsDialog getAllChildrenAppsForApplication:self childrenClass:HTTPServerSettingsAppl)
9f4010737320 code cleanup Claus Gittinger <cg@exept.de> parents: 6383 diff changeset	3560	notEmpty
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3561	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3562
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3563	hasUnsavedChanges
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3564
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3565	^ false
6426 d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	3566	!
d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	3567
d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	3568	serverClass
d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	3569	self useFcgiHolder value ifTrue:[
d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	3570	^ FCGIServer.
d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	3571	].
d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	3572	^ HTTPServer
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3573	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3574
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3575	!AbstractSettingsApplication::KbdMappingSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3576
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3577	defaultIcon
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	3578	<resource: #programImage>
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	3579
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	3580	^ ToolbarIconLibrary keyboardMappingIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3581	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3582
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3583	!AbstractSettingsApplication::KbdMappingSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3584
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3585	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3586	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3587	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3588
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3589	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3590	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3591
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3592	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	3593	UIPainter new openOnClass:AbstractSettingsApplication::KbdMappingSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3594	AbstractSettingsApplication::KbdMappingSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3595	AbstractSettingsApplication::KbdMappingSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3596	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3597
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3598	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3599
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3600	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3601	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3602	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3603	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3604	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3605	label: 'Keyboard Mapping Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3606	name: 'Keyboard Mapping Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3607	min: (Point 10 10)
5576 8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	3608	bounds: (Rectangle 0 0 491 653)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3609	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3610	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3611	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3612	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3613	(VariableVerticalPanelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3614	name: 'VariableVerticalPanel1'
5576 8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	3615	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	3616	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3617	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3618	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3619	(VariableHorizontalPanelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3620	name: 'VariableHorizontalPanel1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3621	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3622	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3623	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3624	(SequenceViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3625	name: 'RawKeyList'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3626	model: selectedRawKey
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3627	hasHorizontalScrollBar: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3628	hasVerticalScrollBar: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3629	useIndex: false
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3630	sequenceList: rawKeyList
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3631	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3632	(SequenceViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3633	name: 'FunctionKeyList'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3634	model: selectedFunctionKey
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3635	hasHorizontalScrollBar: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3636	hasVerticalScrollBar: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3637	useIndex: false
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3638	sequenceList: functionKeyList
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3639	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3640	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3641
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3642	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3643	handles: (Any 0.5 1.0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3644	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3645	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3646	name: 'Box1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3647	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3648	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3649	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3650	(TextEditorSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3651	name: 'MacroText'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3652	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	3653	model: macroTextHolder
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3654	hasHorizontalScrollBar: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3655	hasVerticalScrollBar: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3656	isReadOnly: true
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
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3659	label: 'Macro text (if any):'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3660	name: 'MacroTextLabel'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3661	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	3662	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3663	adjust: left
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3664	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3665	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3666
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3667	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3668	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3669	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3670
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3671	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3672	handles: (Any 0.5 1.0)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3673	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3674	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3675	label: 'NoticeText'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3676	name: 'Text'
5576 8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	3677	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	3678	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3679	labelChannel: labelTextHolder
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3680	resizeForLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3681	adjust: left
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3682	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3683	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3684
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3685	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3686	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3687	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3688
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3689	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3690
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3691	basicSaveSettings
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3692	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3693
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	3694	helpFilename
5741 28a546bab7e8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5734 diff changeset	3695	^ 'Launcher/keyboardSetting.html'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3696	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3697
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3698	readSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3699	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3700	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3701
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3702	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3703
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3704	functionKeyList
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3705	"automatically generated by UIPainter ..."
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3706
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3707	"*** the code below creates a default model when invoked."
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3708	"*** (which may not be the one you wanted)"
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3709	"*** Please change as required and accept it in the browser."
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3710	"*** (and replace this comment by something more useful ;-)"
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3711
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3712	functionKeyList isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3713	functionKeyList := ValueHolder new.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3714	"/ if your app needs to be notified of changes, uncomment one of the lines below:
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3715	"/ functionKeyList addDependent:self.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3716	"/ functionKeyList onChangeSend:#functionKeyListChanged to:self.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3717	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3718	^ functionKeyList.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3719	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3720
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3721	labelTextHolder
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3722	"automatically generated by UIPainter ..."
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3723
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3724	"*** the code below creates a default model when invoked."
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3725	"*** (which may not be the one you wanted)"
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3726	"*** Please change as required and accept it in the browser."
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3727	"*** (and replace this comment by something more useful ;-)"
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3728
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3729	labelTextHolder isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3730	labelTextHolder := ValueHolder new.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3731	"/ if your app needs to be notified of changes, uncomment one of the lines below:
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3732	"/ labelTextHolder addDependent:self.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3733	"/ labelTextHolder onChangeSend:#labelTextHolderChanged to:self.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3734	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3735	^ labelTextHolder.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3736	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3737
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3738	macroTextHolder
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3739	"automatically generated by UIPainter ..."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3740
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3741	"*** the code below creates a default model when invoked."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3742	"*** (which may not be the one you wanted)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3743	"*** Please change as required and accept it in the browser."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3744	"*** (and replace this comment by something more useful ;-)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3745
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3746	macroTextHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3747	macroTextHolder := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3748	"/ if your app needs to be notified of changes, uncomment one of the lines below:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3749	"/ macroTextHolder addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3750	"/ macroTextHolder onChangeSend:#macroTextHolderChanged to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3751	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3752	^ macroTextHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3753	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3754
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3755	rawKeyList
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3756
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3757	rawKeyList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3758	rawKeyList := List new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3759	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3760	^ rawKeyList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3761	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3762
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3763	selectedFunctionKey
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3764
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3765	selectedFunctionKey isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3766	selectedFunctionKey := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3767	selectedFunctionKey addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3768	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3769	^ selectedFunctionKey.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3770	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3771
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3772	selectedRawKey
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3773
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3774	selectedRawKey isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3775	selectedRawKey := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3776	selectedRawKey addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3777	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3778	^ selectedRawKey.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3779	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3780
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3781	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3782
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3783	changeFunctionKeySelection
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3784
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3785	\|raw\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3786	raw := self selectedRawKey value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3787	self selectedFunctionKey value:(mappings at:raw asSymbol) asString.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3788	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3789
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3790	changeMacroText
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3791
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3792	\|f macro indent\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3793
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3794	f := self selectedFunctionKey value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3795	(f startsWith:'Cmd') ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3796	f := f copyFrom:4
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3797	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3798	macro := UserPreferences current functionKeySequences
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3799	at:(f asSymbol) ifAbsent:nil.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3800	macro notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3801	macro := macro asStringCollection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3802	indent := macro
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3803	inject:99999 into:[:min :element \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3804	\|stripped\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3805
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3806	stripped := element withoutLeadingSeparators.
6264 039dc5c1710b slight code cleanup Claus Gittinger <cg@exept.de> parents: 6256 diff changeset	3807	stripped isEmpty ifTrue:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3808	min
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3809	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3810	min min:(element size - stripped size)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3811	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3812	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3813	indent ~~ 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3814	macro := macro collect:[:line \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3815	line size > indent ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3816	line copyFrom:indent+1
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3817	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3818	line
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3819	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3820	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3821	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3822	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3823	macroTextHolder value:macro.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3824	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3825
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3826	changeRawKeySelection
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3827	\|f raw\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3828
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3829	f := self selectedFunctionKey value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3830	raw := mappings keyAtValue:f asString.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3831	raw isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3832	raw := mappings keyAtValue:f first.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3833	raw isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3834	raw := mappings keyAtValue:f asSymbol.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3835	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3836	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3837	self selectedRawKey value:raw.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3838	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3839
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3840	update:something with:aParameter from:changedObject
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3841	changedObject == self selectedFunctionKey ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3842	self changeRawKeySelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3843	self changeMacroText.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3844	^ self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3845	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3846	changedObject == self selectedRawKey ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3847	self changeFunctionKeySelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3848	^ self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3849	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3850	super update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3851	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3852
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3853	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3854
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3855	closeDownViews
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3856	"This is a hook method generated by the Browser.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3857	It will be invoked when your app/dialog-window is really closed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3858	See also #closeDownViews, which is invoked before and may suppress the close
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3859	or ask the user for confirmation."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3860
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3861	"/ change the code below as required ...
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3862	"/ This should cleanup any leftover resources
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3863	"/ (for example, temporary files)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3864	"/ super closeRequest will initiate the closeDown
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3865
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3866	"/ add your code here
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3867
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3868	"/ do not remove the one below ...
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3869	^ super closeDownViews
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3870	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3871
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3872	initialize
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3873
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3874	super initialize.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3875
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3876	mappings := Screen current keyboardMap.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3877
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3878	rawKeyList := (mappings keys asArray collect:[:key \| key asString]) sort.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3879	functionKeyList := (mappings values asSet asArray collect:[:key \| key asString]) sort.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3880
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3881	self labelTextHolder value:(resources at:'KEY_MSG2' default:'keyboard mapping:') withCRs.
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	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3885
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3886	hasUnsavedChanges
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3887
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3888	^ false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3889	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3890
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3891	!AbstractSettingsApplication::LanguageSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3892
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3893	defaultIcon
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	3894	<resource: #programImage>
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	3895
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	3896	^ ToolbarIconLibrary languagesIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3897	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3898
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3899	!AbstractSettingsApplication::LanguageSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3900
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3901	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3902	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3903	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3904
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3905	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3906	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3907
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3908	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	3909	UIPainter new openOnClass:AbstractSettingsApplication::LanguageSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3910	AbstractSettingsApplication::LanguageSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3911	AbstractSettingsApplication::LanguageSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3912	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3913
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3914	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3915
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3916	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3917	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3918	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3919	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3920	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3921	label: 'Language Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3922	name: 'Language Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3923	min: (Point 10 10)
6058 d0add4dd0d80 * empty log message * Claus Gittinger <cg@exept.de> parents: 6037 diff changeset	3924	bounds: (Rectangle 0 0 571 939)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3925	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3926	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3927	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3928	collection: (
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	3929	(TextEditorSpec
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	3930	name: 'TextEditor1'
5556 f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	3931	layout: (LayoutFrame 0 0 24 0 0 1.0 161 0)
6058 d0add4dd0d80 * empty log message * Claus Gittinger <cg@exept.de> parents: 6037 diff changeset	3932	style: (FontDescription helvetica medium roman 10 #'iso10646-1')
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	3933	model: noticeLabelHolder
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	3934	hasHorizontalScrollBar: true
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	3935	hasVerticalScrollBar: true
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	3936	miniScrollerHorizontal: true
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	3937	autoHideScrollBars: true
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	3938	isReadOnly: true
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	3939	postBuildCallback: postBuildHelpLabel:
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3940	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3941	(LabelSpec
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	3942	label: 'Current Language:'
5556 f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	3943	name: 'Label1'
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	3944	layout: (LayoutFrame 0 0 0 0 -233 1 20 0)
5556 f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	3945	translateLabel: true
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	3946	labelChannel: currentLanguageLabel
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	3947	adjust: right
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	3948	)
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	3949	(LabelSpec
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3950	label: 'Label'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3951	name: 'CurrentLang'
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	3952	layout: (LayoutFrame -233 1 0 0 0 1 20 0)
6058 d0add4dd0d80 * empty log message * Claus Gittinger <cg@exept.de> parents: 6037 diff changeset	3953	style: (FontDescription arial bold roman 10 nil)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3954	translateLabel: true
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	3955	labelChannel: currentFlagAndLanguageChannel
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3956	adjust: left
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3957	)
5556 f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	3958	(InputFieldSpec
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	3959	name: 'EntryField1'
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	3960	layout: (LayoutFrame 2 0.0 160 0 -2 1.0 184 0)
5556 f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	3961	model: languageHolder
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	3962	acceptOnReturn: true
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	3963	acceptOnTab: true
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	3964	acceptOnLostFocus: true
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	3965	acceptOnPointerLeave: true
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	3966	)
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	3967	(SequenceViewSpec
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	3968	name: 'List1'
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	3969	layout: (LayoutFrame 2 0.0 186 0 -2 1.0 -30 1.0)
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	3970	model: languageIndexHolder
5556 f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	3971	hasHorizontalScrollBar: true
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	3972	hasVerticalScrollBar: true
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	3973	doubleClickSelector: doubleClick:
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	3974	useIndex: true
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	3975	sequenceList: languageListHolder
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3976	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3977	(HorizontalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3978	name: 'HorizontalPanel1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3979	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	3980	horizontalLayout: center
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3981	verticalLayout: center
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3982	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3983	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3984	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3985	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3986	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3987	(ActionButtonSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3988	label: 'Reread Language Resources'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3989	name: 'RereadResourcesButton'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3990	translateLabel: true
5556 f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	3991	resizeForLabel: true
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3992	model: rereadResourceFiles
5556 f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	3993	useDefaultExtent: true
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3994	)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3995	)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3996
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3997	)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3998	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3999	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4000
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4001	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4002	)
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	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'accessing'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4006
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4007	languageList
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4008	"return the value of the instance variable 'languageList' (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4009
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4010	^ languageList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4011	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4012
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4013	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4014
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4015	basicSaveSettings
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4016	\|fontPref fontPrefs language oldLanguage languageString territory enc
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4017	answer matchingFonts l screen switch dialog anyWrong\|
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4018
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4019	self withWaitCursorDo:[
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4020	languageString := translatedLanguages at:(self languageIndexHolder value).
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4021	language := self languageHolder value.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4022	(language includes:$-) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4023	l := language asCollectionOfSubstringsSeparatedBy:$-.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4024	language := l at:1.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4025	territory := l at:2.
5837 470e67fd9d0a * empty log message * Claus Gittinger <cg@exept.de> parents: 5825 diff changeset	4026	territory isNil ifTrue:[
470e67fd9d0a * empty log message * Claus Gittinger <cg@exept.de> parents: 5825 diff changeset	4027	territory := language string copyTo:2
470e67fd9d0a * empty log message * Claus Gittinger <cg@exept.de> parents: 5825 diff changeset	4028	].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4029	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4030
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4031	"/ check if the new language needs a differently encoded font;
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4032	"/ ask user to switch font and allow cancellation.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4033	"/ Otherwise, you are left with unreadable menu & button items ...
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4034
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4035	oldLanguage := Smalltalk language.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4036	Smalltalk language:language asSymbol.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4037	ResourcePack flushCachedResourcePacks.
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4038
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4039	"/ refetch resources ...
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4040	resources := AbstractLauncherApplication classResources.
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4041	fontPrefs := resources at:'PREFERRED_FONT_ENCODINGS' default:nil.
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4042	fontPrefs isNil ifTrue:[
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4043	fontPref := resources at:'PREFERRED_FONT_ENCODING' default:nil.
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4044	fontPref isNil ifTrue:[
5700 61de7f81a8fb * empty log message * Claus Gittinger <cg@exept.de> parents: 5627 diff changeset	4045	fontPrefs := #(#'iso10646-1')
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4046	] ifFalse:[
5700 61de7f81a8fb * empty log message * Claus Gittinger <cg@exept.de> parents: 5627 diff changeset	4047	fontPrefs := #(#'iso10646-1') , (Array with:fontPref).
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4048	]
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4049	].
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	4050
9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	4051	"/ 'normalize' names of encodings
5700 61de7f81a8fb * empty log message * Claus Gittinger <cg@exept.de> parents: 5627 diff changeset	4052	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	4053	fontPrefs := fontPrefs select:[:each \| each notNil] thenCollect:[:each \| each nameOfEncoding].
5700 61de7f81a8fb * empty log message * Claus Gittinger <cg@exept.de> parents: 5627 diff changeset	4054	fontPrefs isEmpty ifTrue:[
61de7f81a8fb * empty log message * Claus Gittinger <cg@exept.de> parents: 5627 diff changeset	4055	fontPrefs := #(#'iso10464-1')
61de7f81a8fb * empty log message * Claus Gittinger <cg@exept.de> parents: 5627 diff changeset	4056	].
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4057	fontPref := fontPrefs first.
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4058
5580 11cec5eb8c93 * empty log message * Claus Gittinger <cg@exept.de> parents: 5576 diff changeset	4059	Smalltalk setLanguage:#en.
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4060	ResourcePack flushCachedResourcePacks.
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4061	resources := AbstractLauncherApplication classResources.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4062
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4063	switch := true.
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4064	anyWrong := false.
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4065	(Array
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4066	with:MenuView defaultFont
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4067	"/ with:ListView defaultFont
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4068	with:EditTextView defaultFont
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4069	with:Button defaultFont)
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4070	do:[:fn \|
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4071	enc := fn encoding.
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4072	(fontPrefs contains:[:pref \| CharacterEncoder isEncoding:pref subSetOf:enc])
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4073	ifFalse:[
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4074	anyWrong := true
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4075	].
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4076	].
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4077	anyWrong ifTrue:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4078	"/ look if there is one at all.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4079	screen := Screen current.
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4080	matchingFonts := screen listOfAvailableFonts
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4081	select:[:f \| fontPrefs contains:[:pref \|
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4082	CharacterEncoder
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4083	isEncoding:pref subSetOf:(f encoding ? 'ascii')]].
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4084
6264 039dc5c1710b slight code cleanup Claus Gittinger <cg@exept.de> parents: 6256 diff changeset	4085	matchingFonts isEmpty ifTrue:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4086	"/ flush and try again - just in case, the font path has changed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4087	screen flushListOfAvailableFonts.
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4088	matchingFonts := screen listOfAvailableFonts
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4089	select:[:f \| fontPrefs contains:[:pref \|
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4090	CharacterEncoder
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4091	isEncoding:pref subSetOf:(f encoding ? 'ascii')]].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4092	].
6264 039dc5c1710b slight code cleanup Claus Gittinger <cg@exept.de> parents: 6256 diff changeset	4093	matchingFonts isEmpty ifTrue:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4094	(Dialog
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4095	confirm:(resources
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4096	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	4097	with:fontPref) withCRs)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4098	ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4099	switch := false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4100	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4101	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4102	answer := Dialog
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4103	confirmWithCancel:(resources
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4104	string:'Some font(s) is not %1-encoded.\\Change it ?'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4105	with:fontPref) withCRs
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4106	labels:(resources
5109 27daba118da2 * empty log message * Claus Gittinger <cg@exept.de> parents: 5101 diff changeset	4107	array:#('Cancel' 'No' 'Yes'))
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4108	default:3.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4109	answer isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4110	switch := false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4111	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4112	answer ifTrue:[
5495 61664e06a5d7 * empty log message * Claus Gittinger <cg@exept.de> parents: 5479 diff changeset	4113	switch := (AbstractLauncherApplication::LauncherDialogs fontBoxForEncoding:fontPref)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4114	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4115	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4116	].
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	switch ifTrue:[
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4120	Transcript showCR:'Changing language setting to ' , languageString string , ' (' , language , ')...'.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4121	Smalltalk language:language asSymbol.
5837 470e67fd9d0a * empty log message * Claus Gittinger <cg@exept.de> parents: 5825 diff changeset	4122	Smalltalk languageTerritory:(territory ? language) asSymbol.
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4123	ResourcePack flushCachedResourcePacks.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4124	"/ ResourcePack flushCachedResourcePacks - already done by language-change
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4125	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4126	].
4327 076dfc82d0ed * empty log message * penk parents: 4324 diff changeset	4127	switch ifTrue:[
6389 9f4010737320 code cleanup Claus Gittinger <cg@exept.de> parents: 6383 diff changeset	4128	(dialog := settingsDialog) notNil ifTrue:[
5212 5ddf75438c57 checkin from browser Claus Gittinger <cg@exept.de> parents: 5181 diff changeset	4129	dialog reopenLauncher.
4327 076dfc82d0ed * empty log message * penk parents: 4324 diff changeset	4130	] ifFalse:[
076dfc82d0ed * empty log message * penk parents: 4324 diff changeset	4131	NewLauncher current reopenLauncher.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4132	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4133	DebugView newDebugger.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4134	].
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4135	self updateForChangedLanguage.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4136	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4137
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4138	doubleClick:aEntry
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4139	self saveSettingsIfUnsavedChangesArePresent.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4140	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4141
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4142	helpFilename
5741 28a546bab7e8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5734 diff changeset	4143	^ 'Launcher/languageSetting.html'
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4144	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4145
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4146	readSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4147	self languageHolder value:self currentLanguage.
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4148	self currentFlagAndLanguageChannel value:self currentLanguage.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4149	self modifiedChannel value:false
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4150	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4151
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4152	rereadResourceFiles
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4153	ResourcePack flushCachedResourcePacks.
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4154	perLanguageResources := nil.
5576 8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	4155	self withWaitCursorDo:[
8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	4156	self updateForChangedLanguage.
8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	4157	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4158
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4159	"/ Smalltalk language:(Smalltalk language).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4160	"/ Smalltalk languageTerritory:(Smalltalk languageTerritory).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4161
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4162	Smalltalk changed:#Language.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4163	Smalltalk changed:#LanguageTerritory.
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4164	!
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4165
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4166	updateForChangedLanguage
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4167	self initializeLanguages.
5721 effab3aca7ff * empty log message * Claus Gittinger <cg@exept.de> parents: 5719 diff changeset	4168	languageListHolder value:languageList.
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4169	self languageListHolder value:languageList.
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4170	self currentFlagAndLanguageChannel value:self currentLanguage.
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4171	self setCurrentLanguageLabel.
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4172	self setNoticeLabel.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4173	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4174
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4175	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4176
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4177	currentFlagAndLanguageChannel
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4178	currentFlagAndLanguageChannel isNil ifTrue:[
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4179	currentFlagAndLanguageChannel := self currentLanguage asValue.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4180	].
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4181	^ currentFlagAndLanguageChannel.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4182	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4183
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4184	currentLanguageLabel
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4185	currentLanguageLabel isNil ifTrue:[
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4186	currentLanguageLabel := ValueHolder new.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4187	self setCurrentLanguageLabel.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4188	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4189	^ currentLanguageLabel.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4190	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4191
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4192	languageHolder
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4193	languageHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4194	languageHolder := self currentLanguage asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	4195	languageHolder onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4196	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4197	^ languageHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4198	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4199
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4200	languageIndexChanged
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4201	\|langIdx\|
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4202
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4203	langIdx := self languageIndexHolder value ? 1.
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4204	self languageHolder value:(listOfLanguages at:langIdx).
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4205	self updateModifiedChannel.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4206	!
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4207
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4208	languageIndexHolder
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4209	languageIndexHolder isNil ifTrue:[
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4210	languageIndexHolder := (self currentLanguageIndex) asValue.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4211	languageIndexHolder onChangeSend:#languageIndexChanged to:self.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4212	].
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4213	^ languageIndexHolder.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4214	!
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4215
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4216	languageListHolder
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4217	languageListHolder isNil ifTrue:[
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4218	languageListHolder := self languageList asValue.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4219	].
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4220	^ languageListHolder.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4221	!
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4222
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4223	noticeLabelHolder
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4224	noticeLabelHolder isNil ifTrue:[
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4225	noticeLabelHolder := ValueHolder new.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4226	self setNoticeLabel.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4227	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4228	^ noticeLabelHolder.
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4229	!
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4230
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4231	setCurrentLanguageLabel
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4232	currentLanguageLabel value: (resources string:'Current Language:')
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4233	!
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4234
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4235	setNoticeLabel
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	4236	noticeLabelHolder
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	4237	value: ((resources at:'LANG_MSG' default:'Select a Language') withCRs).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4238	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4239
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4240	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4241
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4242	initialize
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4243	self initializeLanguages.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4244	super initialize.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4245	!
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4246
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4247	initializeLanguages
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4248	\|flags enResources savedLanguage savedLanguageTerritory enLanguages nativeLanguages languages listOfLanguageKeys\|
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4249
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4250	resources := self class classResources.
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	4251	listOfLanguages := resources at:'LIST_OF_OFFERED_LANGUAGES' default:#('default' 'en' ).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4252	listOfLanguages := listOfLanguages asOrderedCollection.
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4253	listOfLanguageKeys := listOfLanguages collect:[:l \| l copyReplaceAll:$- with:$_ ].
5563 5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	4254
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	4255	(perLanguageResources notNil
4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	4256	and:[ (perLanguageResources includesKey:#en) not
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4257	and:[ (perLanguageResources includesKey:#'en_us') not ]])
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	4258	ifTrue:[
4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	4259	perLanguageResources := nil.
4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	4260	].
4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	4261
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4262	perLanguageResources isNil ifTrue:[
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4263	perLanguageResources := Dictionary new.
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4264
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4265	listOfLanguageKeys do:[:eachLang \|
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4266	savedLanguage := Language.
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4267	savedLanguageTerritory := LanguageTerritory.
5573 71a51c6df6a4 checkin from browser Claus Gittinger <cg@exept.de> parents: 5569 diff changeset	4268	ResourcePack flushCachedResourcePacks.
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4269	[
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4270	\|rsc lang terr\|
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4271
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4272	lang := terr := eachLang.
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4273	(lang includes:$_) ifTrue:[
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4274	terr := lang copyFrom:4.
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4275	lang := lang copyTo:2.
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4276	].
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4277	Language := lang asSymbol.
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4278	LanguageTerritory := terr asSymbol.
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4279	rsc := ResourcePack for:(self class) cached:false.
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4280	perLanguageResources at:eachLang asSymbol put:rsc.
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4281	] ensure:[
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4282	Language := savedLanguage.
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4283	LanguageTerritory := savedLanguageTerritory.
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4284	].
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4285	].
5573 71a51c6df6a4 checkin from browser Claus Gittinger <cg@exept.de> parents: 5569 diff changeset	4286	ResourcePack flushCachedResourcePacks.
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4287	].
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4288	enResources := perLanguageResources at:#en ifAbsent:[perLanguageResources at:#'en_us'].
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4289
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4290	enLanguages := listOfLanguageKeys
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4291	collect:[:lang \| \|item\|
5563 5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	4292	item := enResources at:('LANG_' , lang) default:nil.
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	4293	item isNil ifTrue:[
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	4294	lang
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4295	] ifFalse:[
5563 5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	4296	item isString ifTrue:[
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	4297	item
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	4298	] ifFalse:[
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	4299	item at:1
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	4300	]
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4301	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4302	].
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4303
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4304	nativeLanguages := listOfLanguageKeys
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4305	collect:[:lang \| \|item enLang\|
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4306	item := enResources at:('LANG_' , lang) default:nil.
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4307	item isNil ifTrue:[
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4308	enLang := lang
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4309	] ifFalse:[
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4310	item isString ifTrue:[
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4311	enLang := item
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4312	] ifFalse:[
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4313	enLang := item at:1
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4314	]
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4315	].
5583 2da80c3bc608 * empty log message * Claus Gittinger <cg@exept.de> parents: 5580 diff changeset	4316	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	4317	].
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4318
5563 5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	4319	languages := enLanguages
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	4320	collect:[:enLang \| \|item\|
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	4321	item := resources at:enLang default:enLang.
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	4322	].
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	4323
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4324	flags := listOfLanguageKeys collect:[:lang \| \|item coll\|
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4325	item := resources at:('FLAG_' , lang) default:nil.
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4326	item notNil ifTrue:[
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4327	item
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4328	] ifFalse:[
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4329	coll := lang asCollectionOfSubstringsSeparatedBy:$_.
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4330	(coll size > 1
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4331	and:[(item := resources at:('FLAG_' , coll last) default:nil) notNil])
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4332	ifTrue:[
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4333	item
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4334	] ifFalse:[
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4335	item := resources at:('LANG_' , lang).
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4336	item isArray ifTrue:[
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4337	item at:2
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4338	] ifFalse:[
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4339	nil
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4340	]
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4341	]
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4342	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4343	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4344	flags := flags collect:[:nm \| \|img d\| nm notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4345	img := Image fromFile:nm.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4346	img isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4347	d := Smalltalk getPackageDirectoryForPackage:'stx:goodies'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4348	img := Image fromFile:(d construct:nm).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4349	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4350	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4351	nil
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4352	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4353	].
5563 5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	4354
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4355
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4356	translatedLanguages := (1 to:languages size) collect:[:idx \|
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4357	\|l eL nL s\|
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4358
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4359	l := languages at:idx.
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4360	eL := enLanguages at:idx.
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4361	nL := nativeLanguages at:idx.
5734 67a9878b31bc * empty log message * Claus Gittinger <cg@exept.de> parents: 5721 diff changeset	4362
67a9878b31bc * empty log message * Claus Gittinger <cg@exept.de> parents: 5721 diff changeset	4363	s := nL.
67a9878b31bc * empty log message * Claus Gittinger <cg@exept.de> parents: 5721 diff changeset	4364	eL ~= nL ifTrue:[
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4365	s := s , ' / ' , eL
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4366	].
5734 67a9878b31bc * empty log message * Claus Gittinger <cg@exept.de> parents: 5721 diff changeset	4367	(l ~= nL and:[l ~= eL]) ifTrue:[
67a9878b31bc * empty log message * Claus Gittinger <cg@exept.de> parents: 5721 diff changeset	4368	s := s , ' / ' , l
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4369	].
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4370	s
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4371	].
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4372
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4373	languageList := translatedLanguages
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4374	with:flags
5563 5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	4375	collect:[:lang :flag \| LabelAndIcon icon:flag string:lang.].
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	4376	!
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	4377
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	4378	postBuildHelpLabel:aWidget
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	4379	aWidget level:0.
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	4380	aWidget scrolledView backgroundColor:self window viewBackground.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4381	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4382
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4383	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4384
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4385	currentLanguage
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4386	^ languageList at:(self currentLanguageIndex)
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4387	!
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4388
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4389	currentLanguageIndex
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4390	\| langIdx \|
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4391
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4392	(Language ~= LanguageTerritory) ifTrue:[
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4393	langIdx := listOfLanguages indexOf:(Language , '-' , LanguageTerritory) ifAbsent:nil.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4394	].
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4395	langIdx isNil ifTrue:[
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4396	langIdx := listOfLanguages indexOf:Language ifAbsent:nil.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4397	].
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4398	langIdx isNil ifTrue:[
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4399	langIdx := listOfLanguages indexOf:'en' ifAbsent:nil.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4400	langIdx isNil ifTrue:[
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4401	langIdx := listOfLanguages indexOf:'en-us' ifAbsent:nil.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4402
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4403	langIdx isNil ifTrue:[
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4404	langIdx := 1.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4405	]
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4406	]
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4407	].
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4408	^ langIdx
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4409	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4410
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4411	hasUnsavedChanges
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4412	^ (self languageHolder value) ~= (self currentLanguage)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4413	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4414
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4415	!AbstractSettingsApplication::MemorySettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4416
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4417	defaultIcon
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	4418	<resource: #programImage>
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	4419
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	4420	^ ToolbarIconLibrary memoryIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4421	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4422
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4423	!AbstractSettingsApplication::MemorySettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4424
5433 f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4425	windowSpec
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4426	"This resource specification was automatically generated
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4427	by the UIPainter of ST/X."
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4428
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4429	"Do not manually edit this!! If it is corrupted,
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4430	the UIPainter may not be able to read the specification."
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4431
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4432	"
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4433	UIPainter new openOnClass:AbstractSettingsApplication::MemorySettingsAppl andSelector:#windowSpec
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4434	AbstractSettingsApplication::MemorySettingsAppl new openInterface:#windowSpec
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4435	AbstractSettingsApplication::MemorySettingsAppl open
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4436	"
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4437
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4438	<resource: #canvas>
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4439
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4440	^
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4441	#(FullSpec
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4442	name: windowSpec
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4443	window:
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4444	(WindowSpec
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4445	label: 'Memory Manager Settings'
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4446	name: 'Memory Manager Settings'
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4447	min: (Point 10 10)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4448	bounds: (Rectangle 13 23 465 745)
5433 f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4449	)
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4450	component:
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4451	(SpecCollection
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4452	collection: (
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4453	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4454	label: 'Label'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4455	name: 'Label1'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4456	layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 50 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4457	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4458	labelChannel: warningLabelHolder
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4459	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4460	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4461	(VerticalPanelViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4462	name: 'VerticalPanel1'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4463	layout: (LayoutFrame 0 0.0 50 0 0 1.0 0 1.0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4464	horizontalLayout: fit
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4465	verticalLayout: top
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4466	horizontalSpace: 0
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4467	verticalSpace: 3
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4468	ignoreInvisibleComponents: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4469	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4470	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4471	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4472	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4473	name: 'NewSpaceSizeBox'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4474	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4475	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4476	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4477	(InputFieldSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4478	name: 'EntryField23'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4479	layout: (LayoutFrame -95 1 3 0 -5 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4480	model: newSpaceSize
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4481	type: fileSize
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4482	acceptOnReturn: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4483	acceptOnTab: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4484	acceptOnLostFocus: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4485	acceptOnPointerLeave: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4486	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4487	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4488	label: 'Size of NewSpace:'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4489	name: 'Label44'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4490	layout: (LayoutFrame 0 0 3 0 -95 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4491	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4492	adjust: right
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4493	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4494	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4495	label: 'Size of newSpace where objects are created'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4496	name: 'Label45'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4497	layout: (LayoutFrame 0 0.0 23 0 0 1.0 43 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4498	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4499	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4500	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4501	(DividerSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4502	name: 'Separator24'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4503	layout: (LayoutFrame 0 0.0 0 0 0 1.0 3 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4504	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4505	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4506
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4507	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4508	extent: (Point 452 43)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4509	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4510	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4511	name: 'MaximumMemoryLimitBox'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4512	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4513	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4514	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4515	(InputFieldSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4516	name: 'EntryField24'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4517	layout: (LayoutFrame -95 1 3 0 -5 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4518	model: maxOldSpace
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4519	type: fileSize
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4520	formatString: ''
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4521	acceptOnReturn: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4522	acceptOnTab: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4523	acceptOnLostFocus: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4524	acceptOnPointerLeave: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4525	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4526	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4527	label: 'Maximum Memory Limit:'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4528	name: 'Label46'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4529	layout: (LayoutFrame 0 0 3 0 -95 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4530	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4531	adjust: right
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4532	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4533	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4534	label: 'Never allocate more than this amount of memory'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4535	name: 'Label47'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4536	layout: (LayoutFrame 0 0.0 23 0 0 1.0 43 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4537	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4538	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4539	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4540	(DividerSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4541	name: 'Separator25'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4542	layout: (LayoutFrame 0 0.0 0 0 0 1.0 3 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4543	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4544	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4545
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4546	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4547	extent: (Point 452 43)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4548	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4549	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4550	name: 'QuickAllocationLimitBox'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4551	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4552	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4553	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4554	(InputFieldSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4555	name: 'EntryField14'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4556	layout: (LayoutFrame -95 1 3 0 -5 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4557	model: fastMoreLimit
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4558	type: fileSize
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4559	acceptOnReturn: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4560	acceptOnTab: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4561	acceptOnLostFocus: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4562	acceptOnPointerLeave: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4563	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4564	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4565	label: 'Quick Allocation Limit:'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4566	name: 'Label26'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4567	layout: (LayoutFrame 0 0 3 0 -95 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4568	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4569	adjust: right
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4570	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4571	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4572	label: 'Quickly allocate more memory (suppress GC) up to this limit'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4573	name: 'Label27'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4574	layout: (LayoutFrame 0 0.0 23 0 0 1.0 43 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4575	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4576	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4577	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4578	(DividerSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4579	name: 'Separator15'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4580	layout: (LayoutFrame 0 0.0 0 0 0 1.0 3 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4581	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4582	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4583
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4584	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4585	extent: (Point 452 43)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4586	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4587	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4588	name: 'IncrementalGCAllocationTriggerBox'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4589	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4590	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4591	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4592	(InputFieldSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4593	name: 'EntryField25'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4594	layout: (LayoutFrame -95 1 3 0 -5 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4595	model: igcLimit
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4596	type: fileSize
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4597	acceptOnReturn: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4598	acceptOnTab: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4599	acceptOnLostFocus: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4600	acceptOnPointerLeave: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4601	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4602	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4603	label: 'Incremental GC Allocation Trigger:'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4604	name: 'Label48'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4605	layout: (LayoutFrame 0 0 3 0 -95 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4606	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4607	adjust: right
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4608	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4609	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4610	label: 'Start IGC whenever this amount has been allocated'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4611	name: 'Label49'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4612	layout: (LayoutFrame 0 0.0 23 0 0 1.0 43 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4613	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4614	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4615	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4616	(DividerSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4617	name: 'Separator26'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4618	layout: (LayoutFrame 0 0.0 0 0 0 1.0 3 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4619	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4620	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4621
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4622	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4623	extent: (Point 452 43)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4624	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4625	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4626	name: 'IncrementalGCFreespaceTriggerBox'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4627	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4628	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4629	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4630	(InputFieldSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4631	name: 'EntryField26'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4632	layout: (LayoutFrame -95 1 3 0 -5 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4633	model: igcFreeLimit
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4634	type: fileSize
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4635	acceptOnReturn: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4636	acceptOnTab: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4637	acceptOnLostFocus: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4638	acceptOnPointerLeave: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4639	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4640	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4641	label: 'Incremental GC Freespace Trigger:'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4642	name: 'Label50'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4643	layout: (LayoutFrame 0 0 3 0 -95 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4644	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4645	adjust: right
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4646	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4647	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4648	label: 'Start IGC whenever freespace drops below this'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4649	name: 'Label51'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4650	layout: (LayoutFrame 0 0.0 23 0 0 1.0 43 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4651	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4652	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4653	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4654	(DividerSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4655	name: 'Separator27'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4656	layout: (LayoutFrame 0 0.0 0 0 0 1.0 3 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4657	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4658	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4659
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4660	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4661	extent: (Point 452 43)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4662	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4663	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4664	name: 'GCAmountBox'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4665	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4666	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4667	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4668	(InputFieldSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4669	name: 'EntryField17'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4670	layout: (LayoutFrame -95 1 3 0 -5 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4671	model: igcFreeAmount
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4672	type: fileSize
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4673	acceptOnReturn: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4674	acceptOnTab: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4675	acceptOnLostFocus: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4676	acceptOnPointerLeave: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4677	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4678	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4679	label: 'Incremental GC Amount:'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4680	name: 'Label32'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4681	layout: (LayoutFrame 0 0 3 0 -95 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4682	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4683	adjust: right
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4684	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4685	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4686	label: 'Try to keep this amount for peak requests'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4687	name: 'Label33'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4688	layout: (LayoutFrame 0 0.0 23 0 0 1.0 43 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4689	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4690	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4691	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4692	(DividerSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4693	name: 'Separator18'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4694	layout: (LayoutFrame 0 0.0 0 0 0 1.0 3 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4695	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4696	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4697
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4698	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4699	extent: (Point 452 43)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4700	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4701	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4702	name: 'OldspaceIncrementBox'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4703	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4704	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4705	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4706	(InputFieldSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4707	name: 'EntryField18'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4708	layout: (LayoutFrame -95 1 3 0 -5 1.0 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4709	model: oldIncr
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4710	type: fileSize
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4711	acceptOnReturn: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4712	acceptOnTab: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4713	acceptOnLostFocus: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4714	acceptOnPointerLeave: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4715	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4716	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4717	label: 'Oldspace Increment:'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4718	name: 'Label34'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4719	layout: (LayoutFrame 0 0 3 0 -95 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4720	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4721	adjust: right
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4722	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4723	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4724	label: 'Increase oldSpace in chunks of this size'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4725	name: 'Label35'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4726	layout: (LayoutFrame 0 0.0 23 0 0 1.0 43 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4727	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4728	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4729	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4730	(DividerSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4731	name: 'Separator19'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4732	layout: (LayoutFrame 0 0.0 0 0 0 1.0 3 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4733	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4734	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4735
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4736	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4737	extent: (Point 452 43)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4738	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4739	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4740	name: 'OldSpaceCompressLimitBox'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4741	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4742	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4743	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4744	(InputFieldSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4745	name: 'EntryField19'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4746	layout: (LayoutFrame -95 1 3 0 -5 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4747	model: compressLimit
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4748	type: fileSize
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4749	acceptOnReturn: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4750	acceptOnTab: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4751	acceptOnLostFocus: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4752	acceptOnPointerLeave: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4753	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4754	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4755	label: 'Oldspace Compress Limit:'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4756	name: 'Label36'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4757	layout: (LayoutFrame 0 0 3 0 -95 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4758	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4759	adjust: right
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4760	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4761	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4762	label: 'Use 2-pass compressing GC if > 0 and more memory is in use'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4763	name: 'Label37'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4764	layout: (LayoutFrame 0 0.0 23 0 0 1.0 43 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4765	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4766	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4767	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4768	(DividerSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4769	name: 'Separator20'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4770	layout: (LayoutFrame 0 0.0 0 0 0 1.0 3 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4771	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4772	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4773
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4774	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4775	extent: (Point 452 43)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4776	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4777	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4778	name: 'StackLimitBox'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4779	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4780	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4781	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4782	(InputFieldSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4783	name: 'EntryField20'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4784	layout: (LayoutFrame -95 1 3 0 -5 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4785	enableChannel: supportsJustInTimeCompilation
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4786	model: stackLimit
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4787	type: fileSize
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4788	acceptOnReturn: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4789	acceptOnTab: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4790	acceptOnLostFocus: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4791	acceptOnPointerLeave: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4792	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4793	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4794	label: 'Stack Limit:'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4795	name: 'Label38'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4796	layout: (LayoutFrame 0 0 3 0 -95 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4797	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4798	adjust: right
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4799	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4800	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4801	label: 'Trigger recursionInterrupt if more stack is used by a process'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4802	name: 'Label39'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4803	layout: (LayoutFrame 0 0.0 23 0 0 1.0 43 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4804	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4805	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4806	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4807	(DividerSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4808	name: 'Separator21'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4809	layout: (LayoutFrame 0 0.0 0 0 0 1.0 3 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4810	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4811	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4812
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4813	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4814	extent: (Point 452 43)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4815	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4816	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4817	name: 'CodeLimitBox'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4818	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4819	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4820	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4821	(InputFieldSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4822	name: 'EntryField21'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4823	layout: (LayoutFrame -95 1 3 0 -5 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4824	enableChannel: supportsJustInTimeCompilation
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4825	model: codeLimit
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4826	type: fileSize
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4827	acceptOnReturn: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4828	acceptOnTab: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4829	acceptOnLostFocus: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4830	acceptOnPointerLeave: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4831	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4832	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4833	label: 'Dynamic code Limit:'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4834	name: 'Label40'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4835	layout: (LayoutFrame 0 0 3 0 -95 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4836	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4837	adjust: right
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4838	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4839	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4840	label: 'Flush dynamic compiled code to stay within this limit'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4841	name: 'Label41'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4842	layout: (LayoutFrame 0 0.0 23 0 0 1.0 43 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4843	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4844	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4845	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4846	(DividerSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4847	name: 'Separator22'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4848	layout: (LayoutFrame 0 0.0 0 0 0 1.0 3 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4849	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4850	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4851
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4852	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4853	extent: (Point 452 43)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4854	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4855	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4856	name: 'CodeTriggerBox'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4857	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4858	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4859	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4860	(InputFieldSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4861	name: 'EntryField22'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4862	layout: (LayoutFrame -95 1 3 0 -5 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4863	model: codeTrigger
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4864	type: fileSize
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4865	acceptOnReturn: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4866	acceptOnTab: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4867	acceptOnLostFocus: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4868	acceptOnPointerLeave: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4869	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4870	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4871	label: 'Dynamic code Limit:'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4872	name: 'Label42'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4873	layout: (LayoutFrame 0 0 3 0 -95 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4874	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4875	adjust: right
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4876	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4877	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4878	label: 'Start incremental GC whenever this amount of code has been allocated'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4879	name: 'Label43'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4880	layout: (LayoutFrame 0 0.0 23 0 0 1.0 43 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4881	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4882	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4883	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4884	(DividerSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4885	name: 'Separator23'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4886	layout: (LayoutFrame 0 0.0 0 0 0 1.0 3 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4887	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4888	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4889
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4890	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4891	extent: (Point 452 43)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4892	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4893	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4894
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4895	)
5433 f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4896	)
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4897	)
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4898
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4899	)
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4900	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4901	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4902
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4903	!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4904
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4905	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4906
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4907	ObjectMemory freeSpaceGCAmount:self igcFreeAmount value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4908	ObjectMemory freeSpaceGCLimit:self igcFreeLimit value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4909	ObjectMemory incrementalGCLimit:self igcLimit value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4910	ObjectMemory newSpaceSize:self newSpaceSize value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4911	ObjectMemory oldSpaceIncrement:self oldIncr value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4912	Process defaultMaximumStackSize:self stackLimit value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4913	ObjectMemory fastMoreOldSpaceLimit:self fastMoreLimit value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4914	ObjectMemory maxOldSpace:self maxOldSpace value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4915	ObjectMemory oldSpaceCompressLimit:self compressLimit value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4916	ObjectMemory dynamicCodeLimit:self codeLimit value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4917	ObjectMemory dynamicCodeGCTrigger:self codeTrigger value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4918	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4919
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4920	helpFilename
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4921	^ 'Launcher/memorySettings.html'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4922	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4923
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4924	readSettings
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4925	self igcLimit value:ObjectMemory incrementalGCLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4926	self igcFreeLimit value:ObjectMemory freeSpaceGCLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4927	self igcFreeAmount value:ObjectMemory freeSpaceGCAmount.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4928	self newSpaceSize value:ObjectMemory newSpaceSize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4929	self oldIncr value:ObjectMemory oldSpaceIncrement.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4930	self compressLimit value:ObjectMemory oldSpaceCompressLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4931	self codeLimit value:ObjectMemory dynamicCodeLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4932	self codeTrigger value:ObjectMemory dynamicCodeGCTrigger.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4933	self stackLimit value:Process defaultMaximumStackSize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4934	self fastMoreLimit value:(ObjectMemory fastMoreOldSpaceLimit:-1).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4935	self maxOldSpace value:ObjectMemory maxOldSpace.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4936	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4937	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4938
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4939	!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4940
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4941	codeLimit
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4942
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4943	codeLimit isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4944	codeLimit := ObjectMemory dynamicCodeLimit asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	4945	codeLimit onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4946	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4947	^ codeLimit.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4948	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4949
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4950	codeTrigger
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4951
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4952	codeTrigger isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4953	codeTrigger := ObjectMemory dynamicCodeGCTrigger asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	4954	codeTrigger onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4955	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4956	^ codeTrigger.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4957	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4958
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4959	compressLimit
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4960
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4961	compressLimit isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4962	compressLimit := ObjectMemory oldSpaceCompressLimit asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	4963	compressLimit onChangeSend:#updateModifiedChannel to:self
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4964	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4965	^ compressLimit.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4966	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4967
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4968	fastMoreLimit
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4969
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4970	fastMoreLimit isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4971	fastMoreLimit := (ObjectMemory fastMoreOldSpaceLimit:-1) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	4972	fastMoreLimit onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4973	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4974	^ fastMoreLimit.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4975	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4976
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4977	igcFreeAmount
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4978
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4979	igcFreeAmount isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4980	igcFreeAmount := ObjectMemory freeSpaceGCAmount asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	4981	igcFreeAmount onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4982	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4983	^ igcFreeAmount.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4984	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4985
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4986	igcFreeLimit
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4987
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4988	igcFreeLimit isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4989	igcFreeLimit := ObjectMemory freeSpaceGCLimit asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	4990	igcFreeLimit onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4991	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4992	^ igcFreeLimit.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4993	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4994
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4995	igcLimit
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4996
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4997	igcLimit isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4998	igcLimit := ObjectMemory incrementalGCLimit asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	4999	igcLimit onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5000	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5001	^ igcLimit.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5002	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5003
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5004	maxOldSpace
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5005
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5006	maxOldSpace isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5007	maxOldSpace := ObjectMemory maxOldSpace asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5008	maxOldSpace onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5009	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5010	^ maxOldSpace.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5011	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5012
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5013	newSpaceSize
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5014
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5015	newSpaceSize isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5016	newSpaceSize := ObjectMemory newSpaceSize asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5017	newSpaceSize onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5018	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5019	^ newSpaceSize.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5020	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5021
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5022	oldIncr
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5023
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5024	oldIncr isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5025	oldIncr := ObjectMemory oldSpaceIncrement asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5026	oldIncr onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5027	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5028	^ oldIncr.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5029	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5030
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5031	stackLimit
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5032
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5033	stackLimit isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5034	stackLimit := Process defaultMaximumStackSize asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5035	stackLimit onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5036	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5037	^ stackLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5038	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5039
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5040	supportsJustInTimeCompilation
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5041
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5042	^ ObjectMemory supportsJustInTimeCompilation.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5043	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5044
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5045	warningLabelHolder
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5046
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5047	warningLabelHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5048	warningLabelHolder := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5049	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5050	^ warningLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5051	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5052
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5053	!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5054
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5055	initialize
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5056	super initialize.
5576 8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	5057	self warningLabelHolder
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	5058	value:(StringCollection
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	5059	with:(resources string:'Warning - invalid settings may result in failures or poor performance.')
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	5060	with:(resources string:'You have been warned.') allBold
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	5061	).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5062	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5063
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5064	!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5065
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5066	hasUnsavedChanges
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	5067	ObjectMemory freeSpaceGCAmount ~= self igcFreeAmount value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	5068	ObjectMemory freeSpaceGCLimit ~= self igcFreeLimit value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	5069	ObjectMemory incrementalGCLimit ~= self igcLimit value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	5070	ObjectMemory newSpaceSize ~= self newSpaceSize value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	5071	ObjectMemory oldSpaceIncrement ~= self oldIncr value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	5072	Process defaultMaximumStackSize ~= self stackLimit value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	5073	(ObjectMemory fastMoreOldSpaceLimit:-1) ~= self fastMoreLimit value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	5074	ObjectMemory maxOldSpace ~= self maxOldSpace value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	5075	ObjectMemory oldSpaceCompressLimit ~= self compressLimit value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	5076	ObjectMemory dynamicCodeLimit ~= self codeLimit value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	5077	ObjectMemory dynamicCodeGCTrigger ~= self codeTrigger value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	5078	^ false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5079	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5080
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5081	!AbstractSettingsApplication::MiscCommunicationSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5082
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5083	defaultIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5084	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5085	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5086
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5087	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5088	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5089
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5090	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5091	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5092	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5093	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5094	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5095
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5096	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5097
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5098	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5099	constantNamed:#'AbstractSettingsApplication::MiscCommunicationSettingsAppl class defaultIcon'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	5100	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	5101	@@!!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	5102	]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	5103	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	5104	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5105
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5106	!AbstractSettingsApplication::MiscCommunicationSettingsAppl class methodsFor:'interface specs'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5107
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5108	windowSpec
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5109	"This resource specification was automatically generated
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5110	by the UIPainter of ST/X."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5111
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5112	"Do not manually edit this!! If it is corrupted,
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5113	the UIPainter may not be able to read the specification."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5114
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5115	"
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5116	UIPainter new openOnClass:AbstractSettingsApplication::MiscCommunicationSettingsAppl andSelector:#windowSpec
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5117	AbstractSettingsApplication::MiscCommunicationSettingsAppl new openInterface:#windowSpec
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5118	AbstractSettingsApplication::MiscCommunicationSettingsAppl open
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5119	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5120
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5121	<resource: #canvas>
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5122
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5123	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5124	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5125	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5126	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5127	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5128	label: 'Communication Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5129	name: 'Communication Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5130	min: (Point 10 10)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5131	bounds: (Rectangle 14 46 614 560)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5132	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5133	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5134	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5135	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5136	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5137	name: 'VerticalPanel1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5138	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	5139	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5140	verticalLayout: top
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5141	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5142	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5143	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5144	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5145	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5146	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5147	label: 'Remote browsing'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5148	name: 'Label1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5149	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5150	extent: (Point 600 22)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5151	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5152	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5153	name: 'Box1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5154	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5155	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5156	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5157	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5158	label: 'Remote browsing enabled'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5159	name: 'CheckBox1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5160	layout: (LayoutFrame 5 0 0 0 600 0 22 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5161	enableChannel: hasRemoteBrowsingSupport
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5162	model: remoteBrowsingEnabled
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5163	translateLabel: true
5086 b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	5164	)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	5165	)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	5166
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	5167	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5168	extent: (Point 600 23)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5169	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5170	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5171	name: 'Separator1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5172	extent: (Point 600 4)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5173	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5174	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5175	label: 'Window migration'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5176	name: 'Label2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5177	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5178	extent: (Point 600 22)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5179	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5180	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5181	name: 'Box2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5182	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5183	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5184	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5185	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5186	label: 'Window migration enabled'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5187	name: 'CheckBox2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5188	layout: (LayoutFrame 5 0 0 0 600 0 22 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5189	enableChannel: hasWindowMigrationServer
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5190	model: windowMigrationEnabled
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5191	translateLabel: true
5086 b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	5192	)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	5193	)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	5194
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	5195	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5196	extent: (Point 600 23)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5197	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5198	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5199	name: 'Box3'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5200	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5201	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5202	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5203	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5204	label: 'Password check'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5205	name: 'CheckBox3'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5206	layout: (LayoutFrame 5 0 0 0 600 0 22 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5207	enableChannel: enablePasswordCheck
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5208	model: windowMigrationAuthenticate
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5209	translateLabel: true
5086 b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	5210	)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	5211	)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	5212
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	5213	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5214	extent: (Point 600 22)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5215	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5216	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5217	name: 'Box4'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5218	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5219	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5220	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5221	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5222	label: 'Password:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5223	name: 'Label3'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5224	layout: (LayoutFrame 0 0 0 0 150 0 22 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5225	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5226	adjust: right
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5227	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5228	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5229	name: 'EntryField1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5230	layout: (LayoutFrame 150 0 0 0 -5 1 22 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5231	enableChannel: windowMigrationAuthenticate
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5232	model: windowMigrationPassword
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5233	type: password
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5234	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5235	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5236	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5237	acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5238	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5239	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5240
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5241	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5242	extent: (Point 600 22)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5243	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5244	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5245
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5246	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5247	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5248	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5249
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5250	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5251	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5252	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5253
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5254	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'actions'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5255
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5256	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5257
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5258	self hasRemoteBrowsingSupport ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5259	self remoteBrowsingEnabled value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5260	SmalltalkShareServer serverRunning ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5261	SmalltalkShareServer killAll
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5262	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5263	] ifFalse:[
6250 5b0673ccff1c refactored intention revealing code: Claus Gittinger <cg@exept.de> parents: 6202 diff changeset	5264	SmalltalkShareServer serverRunning ifFalse:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5265	SmalltalkShareServer start.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5266	"/ must wait a bit; give it a chance to
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5267	"/ really start (before checking)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5268	Delay waitForSeconds:0.5.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5269	SmalltalkShareServer serverRunning ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5270	self warn:'SmalltalkShareServer startup failed (see stderr).'
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5271	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5272	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5273	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5274	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5275	self hasWindowMigrationServer ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5276	self windowMigrationAuthenticate value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5277	WindowMigrationServer password:self windowMigrationPassword value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5278	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5279	WindowMigrationServer password:nil
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5280	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5281	self windowMigrationEnabled value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5282	WindowMigrationServer serverRunning ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5283	WindowMigrationServer stop
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5284	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5285	] ifFalse:[
6250 5b0673ccff1c refactored intention revealing code: Claus Gittinger <cg@exept.de> parents: 6202 diff changeset	5286	WindowMigrationServer serverRunning ifFalse:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5287	WindowMigrationServer start.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5288	"/ must wait a bit; give it a chance to
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5289	"/ really start (before checking)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5290	Delay waitForSeconds:0.5.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5291	WindowMigrationServer serverRunning ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5292	self warn:'WindowMigrationServer startup failed (see stderr).'
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5293	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5294	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5295	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5296	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5297	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5298
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	5299	helpFilename
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	5300	^ 'Launcher/communicationsSettings.html'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5301	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5302
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5303	readSettings
5020 85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	5304	self remoteBrowsingEnabled
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	5305	value:(self hasRemoteBrowsingSupport
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	5306	and:[SmalltalkShareServer isLoaded and:[SmalltalkShareServer serverRunning]]).
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	5307	self windowMigrationEnabled
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	5308	value:(self hasWindowMigrationServer
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	5309	and:[ WindowMigrationServer isLoaded
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	5310	and:[WindowMigrationServer serverRunning]
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5311	]).
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5312	(self hasWindowMigrationServer and:[WindowMigrationServer isLoaded]) ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5313	self windowMigrationPassword value:WindowMigrationServer password.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5314	self windowMigrationAuthenticate
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5315	value:self windowMigrationPassword value notNil
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5316	] ifFalse:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5317	self windowMigrationPassword value:nil.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5318	self windowMigrationAuthenticate value:false
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5319	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5320	self modifiedChannel value:false
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5321	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5322
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5323	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'aspects'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5324
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5325	enablePasswordCheck
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5326
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5327	enablePasswordCheck isNil ifTrue:[
6251 de1297cac10e refadctored intention revealing code: Claus Gittinger <cg@exept.de> parents: 6250 diff changeset	5328	self hasWindowMigrationServer ifFalse:[
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5329	enablePasswordCheck := false asValue.
6251 de1297cac10e refadctored intention revealing code: Claus Gittinger <cg@exept.de> parents: 6250 diff changeset	5330	] ifTrue:[
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5331	enablePasswordCheck := self windowMigrationEnabled.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5332	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5333	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5334	^ enablePasswordCheck.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5335	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5336
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5337	remoteBrowsingEnabled
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5338
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5339	remoteBrowsingEnabled isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5340	remoteBrowsingEnabled := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5341	remoteBrowsingEnabled onChangeSend:#updateModifiedChannel to:self.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5342	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5343	^ remoteBrowsingEnabled.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5344	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5345
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5346	windowMigrationAuthenticate
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5347
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5348	windowMigrationAuthenticate isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5349	windowMigrationAuthenticate := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5350	windowMigrationAuthenticate onChangeSend:#updateModifiedChannel to:self.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5351	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5352	^ windowMigrationAuthenticate.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5353	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5354
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5355	windowMigrationEnabled
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5356
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5357	windowMigrationEnabled isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5358	windowMigrationEnabled := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5359	windowMigrationEnabled onChangeSend:#updateModifiedChannel to:self.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5360	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5361	^ windowMigrationEnabled.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5362	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5363
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5364	windowMigrationPassword
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5365
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5366	windowMigrationPassword isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5367	windowMigrationPassword := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5368	windowMigrationPassword onChangeSend:#updateModifiedChannel to:self.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5369	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5370	^ windowMigrationPassword.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5371	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5372
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5373	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'initialization & release'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5374
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5375	initialize
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5376	super initialize.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5377	self readSettings.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5378	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5379
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5380	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'queries'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5381
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5382	hasRemoteBrowsingSupport
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5383
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5384	^ SmalltalkShareServer notNil
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5385	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5386
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5387	hasUnsavedChanges
5020 85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	5388	(self hasRemoteBrowsingSupport and:[SmalltalkShareServer isLoaded]) ifTrue:[
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	5389	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	5390	].
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	5391	self hasWindowMigrationServer ifTrue:[
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	5392	WindowMigrationServer isLoaded ifFalse:[
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	5393	self windowMigrationEnabled value ifTrue:[
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	5394	WindowMigrationServer autoload.
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	5395	].
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	5396	].
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	5397	(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	5398	(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	5399	(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	5400	].
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	5401	^ false
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5402	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5403
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5404	hasWindowMigrationServer
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5405
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5406	^ WindowMigrationServer notNil
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5407	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5408
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5409	!AbstractSettingsApplication::MiscDisplaySettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5410
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5411	defaultIcon
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5412	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5413	by the ImageEditor of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5414
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5415	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5416	the ImageEditor may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5417
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5418	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5419	self defaultIcon inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5420	ImageEditor openOnClass:self andSelector:#defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5421	Icon flushCachedIcons
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5422	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5423
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5424	<resource: #image>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5425
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5426	^Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5427	constantNamed:#'AbstractSettingsApplication::MiscDisplaySettingsAppl class defaultIcon'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5428	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	5429	@@@@@@@@@@@@@@DA@@@@@@@@@@@@@@@@@@@@@@@@@@DB@0D@@@@@@@@@@@@@@@@@@@@@@@DB@0LD@P@@@@@@@@@@@@@@@@@@@@DB@0LDA@DA@@@@@@@@@@@@
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	5430	@@@@@@TB@ HDA@XF@PD@@@@@@@@@@@@@@@TB@ HB@ \FA H@P@@@@@@@@@@@@TB@ HB@ HBB@XIB@ A@@@@@@@@@@TB@ HB@ HB@ (KB@ KB0DC@@@@@@TB
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	5431	@ HB@ HB@ HB@ ,KB0LC@P@@@@@@APHB@ HB@ HBB (JB0LC@0HL@@4MCP4MCP4MCP4MCP4MCP4AC HE@@@MCPHCC0<PDQHRD1PB@0LM@ DE@@@@CP4B@0<O
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	5432	DADRD!!LT@ LCCPHE@@@@@@4M@08UEQTVE!!XWE0LNC 4E@@@@@@@EAPHB@ HB@ HB@ HJB (E@@@@@@@@APTB@ HB@ HB@ HBB (JAP@@@@@@@@TE@ HB@ HB
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	5433	@ HBB (JB T@@@@@@@@EAPHB@ HB@ HB@ (JB (E@@@@@@@@APTB@ HB@ HB@ HJB (JAP@@@@@@@@TE@ HB@ HB@ HBB (JB T@@@@@@@@EAPHB@ HB@ HB
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	5434	B (JB (E@@@@@@@@APTEAPTEAPTEAPTEAPTEAP@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 32 96 80 240 240 240 192 192 192 64 144 128 80 80 80 48 112 112 48 128 128 32 96 96 48 128 112 224 224 224 32 80 80 64 96 96 0 80 128 128 128 128 16 144 192 16 128 176 16 128 160 0 112 160 0 112 144 0 96 144 16 112 144 0 96 128 0 80 112]; mask:((ImageMask new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@C@@@G @@O0@@_8@@?<@A?>@C??@G??0O??0G??8???0??? ???@??>@??<@??<@??<@??<@??<@??<@??<@??<@') ; yourself); yourself]
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5435	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5436
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5437	!AbstractSettingsApplication::MiscDisplaySettingsAppl class methodsFor:'interface specs'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5438
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5439	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5440	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5441	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5442
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5443	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5444	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5445
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5446	"
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5447	UIPainter new openOnClass:AbstractSettingsApplication::MiscDisplaySettingsAppl andSelector:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5448	AbstractSettingsApplication::MiscDisplaySettingsAppl new openInterface:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5449	AbstractSettingsApplication::MiscDisplaySettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5450	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5451
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5452	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5453
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5454	^
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	5455	#(FullSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	5456	name: windowSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	5457	window:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	5458	(WindowSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	5459	label: 'Display settings'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	5460	name: 'Display settings'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	5461	min: (Point 10 10)
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	5462	bounds: (Rectangle 0 0 445 483)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5463	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	5464	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	5465	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	5466	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	5467	(VerticalPanelViewSpec
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5468	name: 'VerticalPanel1'
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	5469	layout: (LayoutFrame 0 0 0 0 0 1 434 0)
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5470	horizontalLayout: fitSpace
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5471	verticalLayout: topSpace
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5472	horizontalSpace: 5
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	5473	verticalSpace: 3
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	5474	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	5475	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	5476	collection: (
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5477	(CheckBoxSpec
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	5478	label: 'Use Native Widgets (Experimental & Unfinished Feature)'
6014 5ec12867ba18 * empty log message * ca parents: 6013 diff changeset	5479	name: 'NativeWidgets'
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5480	enableChannel: displaySupportsNativeWidgets
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5481	model: nativeWidgets
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5482	translateLabel: true
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	5483	extent: (Point 435 22)
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5484	)
6014 5ec12867ba18 * empty log message * ca parents: 6013 diff changeset	5485	(CheckBoxSpec
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	5486	label: 'Use Native Dialogs (Experimental & Unfinished Feature)'
6014 5ec12867ba18 * empty log message * ca parents: 6013 diff changeset	5487	name: 'NativeDialogs'
5ec12867ba18 * empty log message * ca parents: 6013 diff changeset	5488	enableChannel: displaySupportsNativeDialogs
5ec12867ba18 * empty log message * ca parents: 6013 diff changeset	5489	model: nativeDialogs
5ec12867ba18 * empty log message * ca parents: 6013 diff changeset	5490	translateLabel: true
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	5491	extent: (Point 435 22)
6014 5ec12867ba18 * empty log message * ca parents: 6013 diff changeset	5492	)
6012 6736ffa4ba2f * empty log message * ca parents: 6008 diff changeset	5493	(ViewSpec
6736ffa4ba2f * empty log message * ca parents: 6008 diff changeset	5494	name: 'SeparatingSpace1'
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	5495	extent: (Point 435 5)
6012 6736ffa4ba2f * empty log message * ca parents: 6008 diff changeset	5496	)
6736ffa4ba2f * empty log message * ca parents: 6008 diff changeset	5497	(DividerSpec
6736ffa4ba2f * empty log message * ca parents: 6008 diff changeset	5498	name: 'Separator1'
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	5499	extent: (Point 435 4)
6012 6736ffa4ba2f * empty log message * ca parents: 6008 diff changeset	5500	)
6736ffa4ba2f * empty log message * ca parents: 6008 diff changeset	5501	(ViewSpec
6736ffa4ba2f * empty log message * ca parents: 6008 diff changeset	5502	name: 'SeparatingSpace2'
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	5503	extent: (Point 435 5)
6012 6736ffa4ba2f * empty log message * ca parents: 6008 diff changeset	5504	)
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5505	(CheckBoxSpec
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5506	label: 'Shadows under PopUp Views'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5507	name: 'shadows'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5508	model: shadows
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5509	translateLabel: true
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	5510	extent: (Point 435 22)
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5511	)
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5512	(CheckBoxSpec
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5513	label: 'Beeper enabled'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5514	name: 'beepEnabled'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5515	model: beepEnabled
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5516	translateLabel: true
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	5517	extent: (Point 435 22)
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5518	)
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5519	(CheckBoxSpec
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5520	label: 'Boxes Return Focus to Previously Active View'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5521	name: 'returnFocus'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5522	model: returnFocus
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5523	translateLabel: true
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	5524	extent: (Point 435 22)
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5525	)
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5526	(CheckBoxSpec
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5527	label: 'Views Catch Focus when Mapped'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5528	name: 'takeFocus'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5529	model: takeFocus
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5530	translateLabel: true
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	5531	extent: (Point 435 22)
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5532	)
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5533	(CheckBoxSpec
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5534	label: 'Show Accelerator Keys in Menus'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5535	name: 'showAccelerators'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5536	model: showAccelerators
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5537	translateLabel: true
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	5538	extent: (Point 435 22)
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5539	)
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5540	(CheckBoxSpec
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5541	label: 'Raise & Activate Windows on Click'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5542	name: 'activateOnClick'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5543	model: activateOnClick
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5544	translateLabel: true
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	5545	extent: (Point 435 22)
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5546	)
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5547	(CheckBoxSpec
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5548	label: 'Focus Follows Mouse'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5549	name: 'focusFollowsMouse'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5550	model: focusFollowsMouse
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5551	translateLabel: true
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	5552	extent: (Point 435 22)
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5553	)
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5554	(CheckBoxSpec
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5555	label: 'Opaque Variable Panel Resizing'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5556	name: 'opaqueVariablePanelResize'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5557	model: opaqueVariablePanelResize
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5558	translateLabel: true
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	5559	extent: (Point 435 22)
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5560	)
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5561	(CheckBoxSpec
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5562	label: 'Opaque Table Column Resizing'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5563	name: 'opaqueTableColumnResize'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5564	model: opaqueTableColumnResize
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5565	translateLabel: true
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	5566	extent: (Point 435 22)
6013 7e8dd712b45f * empty log message * ca parents: 6012 diff changeset	5567	)
7e8dd712b45f * empty log message * ca parents: 6012 diff changeset	5568	(ViewSpec
7e8dd712b45f * empty log message * ca parents: 6012 diff changeset	5569	name: 'SeparatingSpace3'
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	5570	extent: (Point 435 4)
6013 7e8dd712b45f * empty log message * ca parents: 6012 diff changeset	5571	)
7e8dd712b45f * empty log message * ca parents: 6012 diff changeset	5572	(DividerSpec
7e8dd712b45f * empty log message * ca parents: 6012 diff changeset	5573	name: 'Separator2'
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	5574	extent: (Point 435 4)
6013 7e8dd712b45f * empty log message * ca parents: 6012 diff changeset	5575	)
7e8dd712b45f * empty log message * ca parents: 6012 diff changeset	5576	(ViewSpec
7e8dd712b45f * empty log message * ca parents: 6012 diff changeset	5577	name: 'SeparatingSpace4'
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	5578	extent: (Point 435 3)
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5579	)
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5580	(LabelSpec
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5581	label: 'Label'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5582	name: 'Label1'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5583	translateLabel: true
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5584	labelChannel: formatHostNameWindowLabel
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5585	adjust: right
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5586	useDefaultExtent: true
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5587	)
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5588	(ViewSpec
6012 6736ffa4ba2f * empty log message * ca parents: 6008 diff changeset	5589	name: 'WindowLabelBox'
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	5590	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	5591	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	5592	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	5593	(CheckBoxSpec
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5594	label: 'Window Label Format'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5595	name: 'hostNameInLabelHolder'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5596	layout: (LayoutFrame 0 0 -22 1 216 0 0 1)
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5597	model: hostNameInLabelHolder
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5598	translateLabel: true
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5599	)
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5600	(InputFieldSpec
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5601	name: 'hostNameInLabelEntryField'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5602	layout: (LayoutFrame 218 0 -22 1 -5 1 0 1)
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5603	enableChannel: hostNameInLabelHolder
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5604	model: newWindowLabelFormat
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5605	immediateAccept: true
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5606	acceptOnReturn: true
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5607	acceptOnTab: true
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5608	acceptOnLostFocus: true
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5609	acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5610	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5611	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5612
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5613	)
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	5614	extent: (Point 435 30)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5615	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5616	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5617
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5618	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5619	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5620	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5621
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5622	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5623	)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5624	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5625
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5626	!AbstractSettingsApplication::MiscDisplaySettingsAppl methodsFor:'actions'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5627
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5628	basicSaveSettings
6030 94eba9f547a2 * empty log message * ca parents: 6029 diff changeset	5629	\|currentScreen mustReopenTools\|
94eba9f547a2 * empty log message * ca parents: 6029 diff changeset	5630
94eba9f547a2 * empty log message * ca parents: 6029 diff changeset	5631	currentScreen := Screen current.
94eba9f547a2 * empty log message * ca parents: 6029 diff changeset	5632
6025 70cd59f93dbb * empty log message * Claus Gittinger <cg@exept.de> parents: 6023 diff changeset	5633	self displaySupportsNativeWidgets ifTrue:[
6030 94eba9f547a2 * empty log message * ca parents: 6029 diff changeset	5634	currentScreen nativeWidgets ~= self nativeWidgets value ifTrue:[
94eba9f547a2 * empty log message * ca parents: 6029 diff changeset	5635	mustReopenTools := true.
94eba9f547a2 * empty log message * ca parents: 6029 diff changeset	5636	currentScreen nativeWidgets:self nativeWidgets value.
94eba9f547a2 * empty log message * ca parents: 6029 diff changeset	5637	].
6025 70cd59f93dbb * empty log message * Claus Gittinger <cg@exept.de> parents: 6023 diff changeset	5638	].
70cd59f93dbb * empty log message * Claus Gittinger <cg@exept.de> parents: 6023 diff changeset	5639	self displaySupportsNativeDialogs ifTrue:[
6030 94eba9f547a2 * empty log message * ca parents: 6029 diff changeset	5640	currentScreen nativeDialogs:self nativeDialogs value.
6025 70cd59f93dbb * empty log message * Claus Gittinger <cg@exept.de> parents: 6023 diff changeset	5641	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5642	PopUpView shadows:self shadows value.
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5643
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5644	(self hostNameInLabelHolder value ~= StandardSystemView includeHostNameInLabel
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5645	or:[self newWindowLabelFormat value ~= StandardSystemView windowLabelFormat]) ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5646	StandardSystemView includeHostNameInLabel:self hostNameInLabelHolder value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5647	self newWindowLabelFormat value notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5648	StandardSystemView windowLabelFormat:self newWindowLabelFormat value
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5649	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5650
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5651	Screen allScreens do:[:aDisplay \|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5652	aDisplay allViewsDo:[:aView \|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5653	\|l\|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5654
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5655	aView isTopView ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5656	l := aView label.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5657	l notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5658	aView label:(l , ' '); label:l. "/ force a change
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5659	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5660	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5661	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5662	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5663	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5664
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5665	currentUserPrefs opaqueVariablePanelResizing:self opaqueVariablePanelResize value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5666	currentUserPrefs opaqueTableColumnResizing:self opaqueTableColumnResize value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5667
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5668	currentUserPrefs beepEnabled:self beepEnabled value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5669
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5670	StandardSystemView returnFocusWhenClosingModalBoxes:self returnFocus value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5671	StandardSystemView takeFocusWhenMapped:self takeFocus value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5672	currentUserPrefs focusFollowsMouse:self focusFollowsMouse value.
6030 94eba9f547a2 * empty log message * ca parents: 6029 diff changeset	5673	currentScreen activateOnClick:self activateOnClick value.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5674
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5675	MenuView showAcceleratorKeys:self showAccelerators value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5676
6030 94eba9f547a2 * empty log message * ca parents: 6029 diff changeset	5677	mustReopenTools ifTrue:[
94eba9f547a2 * empty log message * ca parents: 6029 diff changeset	5678	self reopenToolsAfterChangedViewStyleSetting.
94eba9f547a2 * empty log message * ca parents: 6029 diff changeset	5679	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5680	"Modified: / 16.12.2002 / 18:06:31 / penk"
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5681	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5682
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5683	formatHostNameinWindowLabels
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5684	\|newFormat\|
c72e35116b13 instable state penk parents: 5040 diff changeset	5685
c72e35116b13 instable state penk parents: 5040 diff changeset	5686	newFormat := Dialog
c72e35116b13 instable state penk parents: 5040 diff changeset	5687	request:'Define the Format of Window Labels:\\ %1 - Label\ %2 - Hostname\ %3 - Username\ %4 - ProcessId\'
c72e35116b13 instable state penk parents: 5040 diff changeset	5688	withCRs
c72e35116b13 instable state penk parents: 5040 diff changeset	5689	initialAnswer:newWindowLabelFormat.
c72e35116b13 instable state penk parents: 5040 diff changeset	5690	newFormat size > 0 ifTrue:[
c72e35116b13 instable state penk parents: 5040 diff changeset	5691	newWindowLabelFormat := newFormat.
c72e35116b13 instable state penk parents: 5040 diff changeset	5692	self updateModifiedChannel
c72e35116b13 instable state penk parents: 5040 diff changeset	5693	]
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5694	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5695
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	5696	helpFilename
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	5697	^ 'Launcher/miscSettings.html'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5698	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5699
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5700	readSettings
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5701	self shadows value:PopUpView shadows.
6025 70cd59f93dbb * empty log message * Claus Gittinger <cg@exept.de> parents: 6023 diff changeset	5702	self nativeWidgets value:Screen current nativeWidgets.
6014 5ec12867ba18 * empty log message * ca parents: 6013 diff changeset	5703	self nativeDialogs value:Screen current nativeDialogs.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5704	self beepEnabled value:currentUserPrefs beepEnabled.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5705	self newWindowLabelFormat value:StandardSystemView windowLabelFormat.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5706	self hostNameInLabelHolder
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5707	value:StandardSystemView includeHostNameInLabel.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5708	self returnFocus
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5709	value:StandardSystemView returnFocusWhenClosingModalBoxes.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5710	self takeFocus value:StandardSystemView takeFocusWhenMapped.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5711	self focusFollowsMouse value:(currentUserPrefs focusFollowsMouse ? true).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5712	self activateOnClick value:(Display activateOnClick:nil).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5713	self opaqueVariablePanelResize
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5714	value:currentUserPrefs opaqueVariablePanelResizing.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5715	self opaqueTableColumnResize
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5716	value:currentUserPrefs opaqueTableColumnResizing.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5717	self showAccelerators value:MenuView showAcceleratorKeys.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5718	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5719	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5720
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5721	!AbstractSettingsApplication::MiscDisplaySettingsAppl methodsFor:'aspects'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5722
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5723	activateOnClick
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5724	activateOnClick isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5725	activateOnClick := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5726	activateOnClick onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5727	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5728	^ activateOnClick.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5729	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5730
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5731	beepEnabled
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5732	beepEnabled isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5733	beepEnabled := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5734	beepEnabled onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5735	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5736	^ beepEnabled.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5737	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5738
6025 70cd59f93dbb * empty log message * Claus Gittinger <cg@exept.de> parents: 6023 diff changeset	5739	displaySupportsNativeDialogs
70cd59f93dbb * empty log message * Claus Gittinger <cg@exept.de> parents: 6023 diff changeset	5740	^ Screen current supportsNativeDialogs
70cd59f93dbb * empty log message * Claus Gittinger <cg@exept.de> parents: 6023 diff changeset	5741	!
70cd59f93dbb * empty log message * Claus Gittinger <cg@exept.de> parents: 6023 diff changeset	5742
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5743	displaySupportsNativeWidgets
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5744	^ Screen current supportsNativeWidgets
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5745	!
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5746
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5747	focusFollowsMouse
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5748	focusFollowsMouse isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5749	focusFollowsMouse := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5750	focusFollowsMouse onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5751	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5752	^ focusFollowsMouse.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5753	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5754
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5755	formatHostNameWindowLabel
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5756	formatHostNameWindowLabel isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5757	formatHostNameWindowLabel :=
5713 3d9769f61870 * empty log message * ca parents: 5700 diff changeset	5758	(resources string:'Window Label Format:\ %1 - Label\ %2 - Hostname\ %3 - Username\ %4 - ProcessId') withCRs.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5759	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5760	^ formatHostNameWindowLabel.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5761
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5762	"Created: / 16.12.2002 / 17:50:49 / penk"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5763	"Modified: / 16.12.2002 / 17:55:18 / penk"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5764	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5765
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5766	hostNameInLabelHolder
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5767	hostNameInLabelHolder isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5768	hostNameInLabelHolder := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5769	hostNameInLabelHolder onChangeSend:#updateModifiedChannel to:self
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5770	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5771	^ hostNameInLabelHolder.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5772	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5773
6014 5ec12867ba18 * empty log message * ca parents: 6013 diff changeset	5774	nativeDialogs
5ec12867ba18 * empty log message * ca parents: 6013 diff changeset	5775	nativeDialogs isNil ifTrue:[
5ec12867ba18 * empty log message * ca parents: 6013 diff changeset	5776	nativeDialogs := Screen current nativeDialogs asValue.
5ec12867ba18 * empty log message * ca parents: 6013 diff changeset	5777	nativeDialogs onChangeSend:#updateModifiedChannel to:self
5ec12867ba18 * empty log message * ca parents: 6013 diff changeset	5778	].
5ec12867ba18 * empty log message * ca parents: 6013 diff changeset	5779	^ nativeDialogs.
5ec12867ba18 * empty log message * ca parents: 6013 diff changeset	5780	!
5ec12867ba18 * empty log message * ca parents: 6013 diff changeset	5781
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5782	nativeWidgets
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5783	nativeWidgets isNil ifTrue:[
6025 70cd59f93dbb * empty log message * Claus Gittinger <cg@exept.de> parents: 6023 diff changeset	5784	nativeWidgets := Screen current nativeWidgets asValue.
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5785	nativeWidgets onChangeSend:#updateModifiedChannel to:self
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5786	].
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5787	^ nativeWidgets.
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5788	!
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5789
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5790	newWindowLabelFormat
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5791	newWindowLabelFormat isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5792	newWindowLabelFormat := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5793	newWindowLabelFormat onChangeSend:#updateModifiedChannel to:self
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5794	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5795	^ newWindowLabelFormat.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5796
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5797	"Created: / 16.12.2002 / 17:50:49 / penk"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5798	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5799
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5800	opaqueTableColumnResize
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5801	opaqueTableColumnResize isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5802	opaqueTableColumnResize := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5803	opaqueTableColumnResize onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5804	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5805	^ opaqueTableColumnResize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5806	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5807
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5808	opaqueVariablePanelResize
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5809	opaqueVariablePanelResize isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5810	opaqueVariablePanelResize := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5811	opaqueVariablePanelResize onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5812	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5813	^ opaqueVariablePanelResize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5814	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5815
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5816	returnFocus
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5817	returnFocus isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5818	returnFocus := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5819	returnFocus onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5820	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5821	^ returnFocus.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5822	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5823
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5824	shadows
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5825	shadows isNil ifTrue:[
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5826	shadows := PopUpView shadows asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5827	shadows onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5828	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5829	^ shadows.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5830	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5831
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5832	showAccelerators
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5833	showAccelerators isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5834	showAccelerators := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5835	showAccelerators onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5836	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5837	^ showAccelerators.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5838	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5839
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5840	takeFocus
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5841	takeFocus isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5842	takeFocus := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5843	takeFocus onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5844	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5845	^ takeFocus.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5846	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5847
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5848	!AbstractSettingsApplication::MiscDisplaySettingsAppl methodsFor:'queries'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5849
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5850	hasUnsavedChanges
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	5851	self newWindowLabelFormat value ~= StandardSystemView windowLabelFormat ifTrue:[^ true].
6025 70cd59f93dbb * empty log message * Claus Gittinger <cg@exept.de> parents: 6023 diff changeset	5852	self nativeWidgets value ~= Screen current nativeWidgets ifTrue:[^ true].
6014 5ec12867ba18 * empty log message * ca parents: 6013 diff changeset	5853	self nativeDialogs value ~= Screen current nativeDialogs ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	5854	self shadows value ~= PopUpView shadows ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	5855	self beepEnabled value ~= currentUserPrefs beepEnabled ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	5856	self hostNameInLabelHolder value ~= StandardSystemView includeHostNameInLabel ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	5857	self returnFocus value ~= StandardSystemView returnFocusWhenClosingModalBoxes ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	5858	self takeFocus value ~= StandardSystemView takeFocusWhenMapped ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	5859	self focusFollowsMouse value ~= (currentUserPrefs focusFollowsMouse ? true) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	5860	self activateOnClick value ~= (Display activateOnClick:nil) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	5861	self opaqueVariablePanelResize value ~= currentUserPrefs opaqueVariablePanelResizing ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	5862	self opaqueTableColumnResize value ~= currentUserPrefs opaqueTableColumnResizing ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	5863	self showAccelerators value ~= MenuView showAcceleratorKeys ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	5864	^ false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5865	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5866
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5867	!AbstractSettingsApplication::OsiSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5868
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5869	defaultIcon
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	5870	<resource: #programImage>
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	5871
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	5872	^ AbstractSettingsApplication::MiscCommunicationSettingsAppl defaultIcon.
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5873	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5874
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5875	!AbstractSettingsApplication::OsiSettingsAppl class methodsFor:'interface specs'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5876
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5877	windowSpec
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5878	"This resource specification was automatically generated
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5879	by the UIPainter of ST/X."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5880
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5881	"Do not manually edit this!! If it is corrupted,
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5882	the UIPainter may not be able to read the specification."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5883
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5884	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5885	UIPainter new openOnClass:AbstractSettingsApplication::OsiSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5886	AbstractSettingsApplication::OsiSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5887	AbstractSettingsApplication::OsiSettingsAppl open
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5888	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5889
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5890	<resource: #canvas>
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5891
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5892	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5893	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5894	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5895	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5896	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5897	label: 'OSI Protocols Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5898	name: 'OSI Protocols Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5899	min: (Point 10 10)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5900	bounds: (Rectangle 14 46 614 596)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5901	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5902	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5903	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5904	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5905	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5906	name: 'VerticalPanel2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5907	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	5908	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5909	verticalLayout: top
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5910	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5911	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5912	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5913	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5914	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5915	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5916	label: 'ACSE'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5917	name: 'Label1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5918	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5919	extent: (Point 600 22)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5920	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5921	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5922	name: 'Box1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5923	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5924	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5925	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5926	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5927	label: 'Log Errors'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5928	name: 'CheckBox1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5929	layout: (LayoutFrame 5 0 0 0 -2 0.33 22 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5930	enableChannel: osiACSEPresent
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5931	model: osiACSEErrorLogging
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5932	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5933	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5934	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5935	label: 'Log Connections'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5936	name: 'CheckBox2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5937	layout: (LayoutFrame 2 0.33 0 0 -2 0.66 22 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5938	enableChannel: osiACSEPresent
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5939	model: osiACSEConnectionLogging
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5940	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5941	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5942	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5943	label: 'Log Data Xfer'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5944	name: 'CheckBox3'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5945	layout: (LayoutFrame 2 0.66 0 0 -2 1 22 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5946	enableChannel: osiACSEPresent
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5947	model: osiACSEDataLogging
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5948	translateLabel: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5949	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5950	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5951
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5952	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5953	extent: (Point 600 27)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5954	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5955	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5956	name: 'Box9'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5957	extent: (Point 600 22)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5958	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5959	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5960	label: 'ROSE'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5961	name: 'Label2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5962	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5963	extent: (Point 600 22)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5964	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5965	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5966	name: 'Box4'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5967	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5968	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5969	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5970	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5971	label: 'Log Errors'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5972	name: 'CheckBox4'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5973	layout: (LayoutFrame 5 0 0 0 -2 0.33 22 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5974	enableChannel: osiROSEPresent
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5975	model: osiROSEErrorLogging
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5976	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5977	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5978	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5979	label: 'Log Invoactions'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5980	name: 'CheckBox5'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5981	layout: (LayoutFrame 2 0.33 0 0 -2 0.66 22 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5982	enableChannel: osiROSEPresent
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5983	model: osiROSEInvokationLogging
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5984	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5985	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5986	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5987	label: 'Log Responses'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5988	name: 'CheckBox6'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5989	layout: (LayoutFrame 0 0.66 0 0 -2 1 22 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5990	enableChannel: osiROSEPresent
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5991	model: osiROSEResponseLogging
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5992	translateLabel: true
5086 b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	5993	)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	5994	)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	5995
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	5996	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5997	extent: (Point 600 25)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5998	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5999	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6000	name: 'Box6'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6001	extent: (Point 600 23)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6002	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6003	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6004	label: 'CMISE'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6005	name: 'Label3'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6006	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6007	extent: (Point 600 22)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6008	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6009	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6010	name: 'Box7'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6011	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6012	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6013	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6014	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6015	label: 'Log Errors'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6016	name: 'CheckBox7'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6017	layout: (LayoutFrame 2 0 0 0 -2 0.33 22 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6018	enableChannel: osiCMISEPresent
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6019	model: osiCMISEErrorLogging
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6020	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6021	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6022	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6023	label: 'Log Messages'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6024	name: 'CheckBox8'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6025	layout: (LayoutFrame 2 0.33 0 0 -2 0.66 22 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6026	enableChannel: osiCMISEPresent
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6027	model: osiCMISEMessageLogging
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6028	translateLabel: true
5086 b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	6029	)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	6030	)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	6031
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	6032	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6033	extent: (Point 600 22)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6034	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6035	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6036
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6037	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6038	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6039	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6040
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6041	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6042	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6043	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6044
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6045	!AbstractSettingsApplication::OsiSettingsAppl methodsFor:'actions'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6046
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6047	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6048
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6049	self osiACSEPresent value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6050	OSI::ACSE errorLogging:self osiACSEErrorLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6051	OSI::ACSE connectionLogging:self osiACSEConnectionLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6052	OSI::ACSE dataLogging:self osiACSEDataLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6053	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6054	self osiROSEPresent value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6055	OSI::ROSE errorLogging:self osiROSEErrorLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6056	OSI::ROSE invocationLogging:self osiROSEInvokationLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6057	OSI::ROSE responseLogging:self osiROSEResponseLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6058	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6059	self osiCMISEPresent value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6060	OSI::CMISE errorLogging:self osiCMISEErrorLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6061	OSI::CMISE messageLogging:self osiCMISEMessageLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6062	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6063	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6064
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	6065	helpFilename
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	6066	^ 'Launcher/communicationsSettings.html'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6067	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6068
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6069	readSettings
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6070	self osiACSEPresent value:(OSI::ACSE notNil and:[OSI::ACSE isLoaded]).
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6071	self osiROSEPresent value:(OSI::ROSE notNil and:[OSI::ROSE isLoaded]).
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6072	self osiCMISEPresent value:(OSI::CMISE notNil and:[OSI::CMISE isLoaded]).
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6073	self osiACSEPresent value ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6074	self osiACSEErrorLogging value:OSI::ACSE errorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6075	self osiACSEConnectionLogging value:OSI::ACSE connectionLogging.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6076	self osiACSEDataLogging value:OSI::ACSE dataLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6077	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6078	self osiROSEPresent value ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6079	self osiROSEErrorLogging value:OSI::ROSE errorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6080	self osiROSEInvokationLogging value:OSI::ROSE invocationLogging.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6081	self osiROSEResponseLogging value:OSI::ROSE responseLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6082	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6083	self osiCMISEPresent value ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6084	self osiCMISEErrorLogging value:OSI::CMISE errorLogging.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6085	self osiCMISEMessageLogging value:OSI::CMISE messageLogging
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6086	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6087	self modifiedChannel value:false
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6088	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6089
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6090	!AbstractSettingsApplication::OsiSettingsAppl methodsFor:'aspects'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6091
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6092	osiACSEConnectionLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6093	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6094
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6095	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6096	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6097	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6098	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6099
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6100	osiACSEConnectionLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6101	osiACSEConnectionLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6102	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6103	"/ osiACSEConnectionLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6104	"/ osiACSEConnectionLogging onChangeSend:#osiACSEConnectionLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6105	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6106	^ osiACSEConnectionLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6107	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6108
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6109	osiACSEDataLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6110	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6111
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6112	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6113	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6114	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6115	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6116
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6117	osiACSEDataLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6118	osiACSEDataLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6119	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6120	"/ osiACSEDataLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6121	"/ osiACSEDataLogging onChangeSend:#osiACSEDataLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6122	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6123	^ osiACSEDataLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6124	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6125
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6126	osiACSEErrorLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6127	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6128
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6129	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6130	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6131	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6132	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6133
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6134	osiACSEErrorLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6135	osiACSEErrorLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6136	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6137	"/ osiACSEErrorLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6138	"/ osiACSEErrorLogging onChangeSend:#osiACSEErrorLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6139	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6140	^ osiACSEErrorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6141	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6142
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6143	osiACSEPresent
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6144	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6145
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6146	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6147	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6148	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6149	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6150
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6151	osiACSEPresent isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6152	osiACSEPresent := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6153	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6154	"/ osiACSEPresent addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6155	"/ osiACSEPresent onChangeSend:#osiACSEPresentChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6156	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6157	^ osiACSEPresent.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6158	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6159
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6160	osiCMISEErrorLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6161	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6162
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6163	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6164	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6165	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6166	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6167
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6168	osiCMISEErrorLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6169	osiCMISEErrorLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6170	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6171	"/ osiCMISEErrorLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6172	"/ osiCMISEErrorLogging onChangeSend:#osiCMISEErrorLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6173	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6174	^ osiCMISEErrorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6175	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6176
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6177	osiCMISEMessageLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6178	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6179
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6180	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6181	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6182	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6183	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6184
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6185	osiCMISEMessageLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6186	osiCMISEMessageLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6187	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6188	"/ osiCMISEMessageLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6189	"/ osiCMISEMessageLogging onChangeSend:#osiCMISEMessageLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6190	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6191	^ osiCMISEMessageLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6192	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6193
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6194	osiCMISEPresent
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6195	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6196
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6197	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6198	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6199	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6200	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6201
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6202	osiCMISEPresent isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6203	osiCMISEPresent := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6204	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6205	"/ osiCMISEPresent addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6206	"/ osiCMISEPresent onChangeSend:#osiCMISEPresentChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6207	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6208	^ osiCMISEPresent.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6209	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6210
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6211	osiROSEErrorLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6212	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6213
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6214	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6215	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6216	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6217	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6218
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6219	osiROSEErrorLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6220	osiROSEErrorLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6221	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6222	"/ osiROSEErrorLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6223	"/ osiROSEErrorLogging onChangeSend:#osiROSEErrorLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6224	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6225	^ osiROSEErrorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6226	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6227
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6228	osiROSEInvokationLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6229	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6230
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6231	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6232	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6233	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6234	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6235
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6236	osiROSEInvokationLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6237	osiROSEInvokationLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6238	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6239	"/ osiROSEInvokationLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6240	"/ osiROSEInvokationLogging onChangeSend:#osiROSEInvokationLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6241	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6242	^ osiROSEInvokationLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6243	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6244
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6245	osiROSEPresent
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6246	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6247
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6248	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6249	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6250	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6251	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6252
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6253	osiROSEPresent isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6254	osiROSEPresent := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6255	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6256	"/ osiROSEPresent addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6257	"/ osiROSEPresent onChangeSend:#osiROSEPresentChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6258	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6259	^ osiROSEPresent.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6260	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6261
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6262	osiROSEResponseLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6263	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6264
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6265	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6266	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6267	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6268	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6269
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6270	osiROSEResponseLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6271	osiROSEResponseLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6272	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6273	"/ osiROSEResponseLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6274	"/ osiROSEResponseLogging onChangeSend:#osiROSEResponseLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6275	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6276	^ osiROSEResponseLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6277	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6278
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6279	!AbstractSettingsApplication::OsiSettingsAppl methodsFor:'queries'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6280
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6281	hasUnsavedChanges
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6282
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6283	^ ((
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6284	(self osiACSEPresent value and:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6285	self osiACSEErrorLogging value ~= OSI::ACSE errorLogging or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6286	self osiACSEConnectionLogging value ~= OSI::ACSE connectionLogging or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6287	self osiACSEDataLogging value ~= OSI::ACSE dataLogging]]]) or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6288	self osiROSEPresent value and:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6289	self osiROSEErrorLogging value ~= OSI::ROSE errorLogging or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6290	self osiROSEInvokationLogging value ~= OSI::ROSE invocationLogging or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6291	self osiROSEResponseLogging value ~= OSI::ROSE responseLogging]]]]) or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6292	(self osiCMISEPresent value) and:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6293	self osiCMISEErrorLogging value ~= OSI::CMISE errorLogging or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6294	self osiCMISEMessageLogging value ~= OSI::CMISE messageLogging]]])
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6295	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6296
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6297	!AbstractSettingsApplication::PrinterSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6298
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6299	defaultIcon
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	6300	<resource: #programImage>
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	6301
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	6302	^ ToolbarIconLibrary printerIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6303	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6304
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6305	!AbstractSettingsApplication::PrinterSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6306
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6307	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6308	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6309	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6310
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6311	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6312	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6313
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6314	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6315	UIPainter new openOnClass:AbstractSettingsApplication::PrinterSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6316	AbstractSettingsApplication::PrinterSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6317	AbstractSettingsApplication::PrinterSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6318	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6319
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6320	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6321
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6322	^
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6323	#(FullSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6324	name: windowSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6325	window:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6326	(WindowSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6327	label: 'Printer Settings'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6328	name: 'Printer Settings'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6329	min: (Point 10 10)
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	6330	bounds: (Rectangle 0 0 616 385)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6331	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6332	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6333	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6334	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6335	(VerticalPanelViewSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6336	name: 'VerticalPanel1'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6337	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	6338	horizontalLayout: fit
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6339	verticalLayout: top
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6340	horizontalSpace: 3
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6341	verticalSpace: 3
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6342	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6343	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6344	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6345	(ViewSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6346	name: 'PrinterSelectBox'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6347	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6348	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6349	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6350	(LabelSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6351	label: 'Printer Type:'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6352	name: 'PrinterTypeLabel'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	6353	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	6354	translateLabel: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6355	adjust: right
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6356	)
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6357	(ComboListSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6358	name: 'PrinterTypeComboList'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	6359	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	6360	model: printerTypeSelection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6361	comboList: printerType
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6362	useIndex: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6363	)
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6364	(LabelSpec
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	6365	label: 'Print Command:'
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6366	name: 'PrinterCommandLabel'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	6367	layout: (LayoutFrame 0 0 31 0 181 0 53 0)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6368	translateLabel: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6369	adjust: right
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6370	)
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6371	(ComboBoxSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6372	name: 'CommandComboBox'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	6373	layout: (LayoutFrame 183 0 31 0 -5 1 53 0)
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6374	enableChannel: printCommandEnabled
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6375	model: printCommand
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6376	acceptOnLostFocus: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6377	acceptOnPointerLeave: false
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6378	comboList: printCommandList
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6379	useIndex: false
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6380	)
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6381	(LabelSpec
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6382	label: 'Print to File:'
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6383	name: 'PrinterFileLabel'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	6384	layout: (LayoutFrame 0 0 57 0 181 0 79 0)
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6385	translateLabel: true
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6386	adjust: right
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6387	)
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6388	(FilenameInputFieldSpec
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6389	name: 'PrinterFileEntryField'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	6390	layout: (LayoutFrame 183 0 57 0 -5 1 79 0)
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6391	model: printFilename
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	6392	formatString: ''
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6393	immediateAccept: true
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6394	acceptOnLeave: true
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6395	acceptOnLostFocus: true
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6396	acceptOnPointerLeave: false
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6397	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6398	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6399
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6400	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6401	extent: (Point 600 84)
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6402	)
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6403	(DividerSpec
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6404	name: 'Separator1'
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6405	extent: (Point 600 3)
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6406	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6407	(ViewSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6408	name: 'FormatBox'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6409	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6410	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6411	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6412	(LabelSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6413	label: 'Page Format:'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6414	name: 'PageFormatLabel'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	6415	layout: (LayoutFrame 0 0 4 0 181 0 26 0)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6416	translateLabel: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6417	adjust: right
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6418	)
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6419	(PopUpListSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6420	label: 'PopUp List'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6421	name: 'PageFormatPopUpList'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	6422	layout: (LayoutFrame 183 0 4 0 333 0 26 0)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6423	tabable: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6424	model: pageFormat
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6425	enableChannel: enableFormat
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6426	menu: pageFormatList
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6427	)
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6428	(CheckBoxSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6429	label: 'Landscape'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6430	name: 'LandscapeCheckBox'
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6431	layout: (LayoutFrame 380 0 4 0 -5 1 26 0)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6432	enableChannel: enablelandscape
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6433	model: landscape
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6434	translateLabel: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6435	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6436	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6437
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6438	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6439	extent: (Point 600 30)
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6440	)
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6441	(DividerSpec
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6442	name: 'Separator5'
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6443	extent: (Point 600 3)
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6444	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6445	(ViewSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6446	name: 'MarginBox'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6447	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6448	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6449	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6450	(VerticalPanelViewSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6451	name: 'VerticalPanel2'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6452	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	6453	horizontalLayout: fit
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6454	verticalLayout: center
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6455	horizontalSpace: 3
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6456	verticalSpace: 3
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6457	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6458	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6459	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6460	(ViewSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6461	name: 'Box1'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6462	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6463	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6464	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6465	(LabelSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6466	label: 'Top Margin:'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6467	name: 'TopMarginLabel'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	6468	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	6469	translateLabel: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6470	adjust: right
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6471	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6472	(InputFieldSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6473	name: 'TopMarginEntryField'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	6474	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	6475	enableChannel: enableMargins
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6476	model: topMargin
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6477	type: numberOrNil
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6478	acceptOnReturn: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6479	acceptOnTab: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6480	acceptOnLostFocus: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6481	acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6482	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6483	(PopUpListSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6484	label: 'PopUp List'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6485	name: 'PopUpList2'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6486	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	6487	tabable: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6488	model: selectedUnit
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6489	menu: unitList
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6490	useIndex: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6491	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6492	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6493
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6494	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6495	extent: (Point 600 24)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6496	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6497	(ViewSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6498	name: 'Box2'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6499	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6500	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6501	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6502	(LabelSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6503	label: 'Left Margin:'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6504	name: 'LeftMarginLabel'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	6505	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	6506	translateLabel: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6507	adjust: right
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6508	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6509	(InputFieldSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6510	name: 'LeftMarginEntryField'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	6511	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	6512	enableChannel: enableMargins
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6513	model: leftMargin
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6514	type: numberOrNil
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6515	acceptOnReturn: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6516	acceptOnTab: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6517	acceptOnLostFocus: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6518	acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6519	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6520	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6521
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6522	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6523	extent: (Point 600 24)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6524	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6525	(ViewSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6526	name: 'Box3'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6527	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6528	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6529	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6530	(LabelSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6531	label: 'Right Margin:'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6532	name: 'RightMarginLabel'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	6533	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	6534	translateLabel: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6535	adjust: right
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6536	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6537	(InputFieldSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6538	name: 'RightMarginEntryField'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	6539	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	6540	enableChannel: enableMargins
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6541	model: rightMargin
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6542	type: numberOrNil
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6543	acceptOnReturn: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6544	acceptOnTab: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6545	acceptOnLostFocus: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6546	acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6547	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6548	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6549
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6550	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6551	extent: (Point 600 24)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6552	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6553	(ViewSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6554	name: 'Box4'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6555	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6556	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6557	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6558	(LabelSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6559	label: 'Bottom Margin:'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6560	name: 'BottomMarginLabel'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	6561	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	6562	translateLabel: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6563	adjust: right
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6564	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6565	(InputFieldSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6566	name: 'BottomMarginEntryField'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	6567	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	6568	enableChannel: enableMargins
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6569	model: bottomMargin
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6570	type: numberOrNil
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6571	acceptOnReturn: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6572	acceptOnTab: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6573	acceptOnLostFocus: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6574	acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6575	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6576	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6577
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6578	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6579	extent: (Point 600 24)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6580	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6581	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6582
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6583	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6584	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6585	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6586
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6587	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6588	extent: (Point 600 100)
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6589	)
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6590	(DividerSpec
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6591	name: 'Separator6'
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6592	extent: (Point 600 3)
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6593	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6594	(ViewSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6595	name: 'Box5'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6596	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6597	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6598	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6599	(CheckBoxSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6600	label: 'Color Printer'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6601	name: 'ColorPrinterCheckBox'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	6602	layout: (LayoutFrame 183 0 0 0 782 0 21 0)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6603	enableChannel: enableColorBox
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6604	model: supportsColor
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6605	translateLabel: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6606	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6607	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6608
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6609	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6610	extent: (Point 600 27)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6611	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6612	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6613
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6614	)
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
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6618	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6619	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6620	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6621
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6622	!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6623
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6624	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6625
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6626	Printer := self possiblePrinters at:(self printerTypeSelection value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6627	Printer printCommand:self printCommand value.
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6628	Printer printFilename:(printFilename value isEmptyOrNil ifTrue:[nil] ifFalse:[printFilename value]).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6629
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6630	Printer supportsPageSizes ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6631	Printer pageFormat:(self pageFormat value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6632	Printer landscape:(self landscape value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6633	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6634	Printer supportsMargins ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6635	\| unit \|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6636	self selectedUnit value == 2 ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6637	unit := #mm
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6638	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6639	unit := #inch
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6640	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6641	Printer topMargin:(UnitConverter convert:(self topMargin value) from:unit to:#inch).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6642	Printer leftMargin:(UnitConverter convert:(self leftMargin value) from:unit to:#inch).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6643	Printer rightMargin:(UnitConverter convert:(self rightMargin value) from:unit to:#inch).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6644	Printer bottomMargin:(UnitConverter convert:(self bottomMargin value) from:unit to:#inch).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6645	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6646	Printer supportsPostscript ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6647	Printer supportsColor:self supportsColor value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6648	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6649	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6650
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	6651	helpFilename
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	6652	^ 'Launcher/printerSettings.html'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6653	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6654
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6655	readSettings
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6656	self bottomMargin value:Printer bottomMargin.
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6657	self landscape value:Printer landscape.
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6658	self leftMargin value:Printer leftMargin.
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6659	self rightMargin value:Printer rightMargin.
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6660	self topMargin value:Printer topMargin.
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6661	self printCommand value:Printer printCommand.
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6662	self printFilename value:Printer printFilename.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6663	self printerTypeSelection
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6664	value:(self possiblePrinters identityIndexOf:Printer).
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6665	self supportsColor value:Printer supportsColor.
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6666	self pageFormatList notEmpty ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6667	self pageFormat value:Printer pageFormat
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6668	].
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6669	self printerTypeSelectionOrUnitListChanged.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6670	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6671	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6672
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6673	!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6674
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6675	bottomMargin
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6676
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6677	bottomMargin isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6678	bottomMargin := Printer bottomMargin asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6679	bottomMargin onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6680	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6681	^ bottomMargin.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6682	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6683
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6684	enableColorBox
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6685
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6686	enableColorBox isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6687	enableColorBox := true asValue.
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	^ enableColorBox.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6690	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6691
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6692	enableFormat
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6693
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6694	enableFormat isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6695	enableFormat := true asValue.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6696	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6697	^ enableFormat.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6698	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6699
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6700	enableMargins
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6701
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6702	enableMargins isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6703	enableMargins := true asValue.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6704	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6705	^ enableMargins.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6706	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6707
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6708	enablelandscape
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6709
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6710	enablelandscape isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6711	enablelandscape := true asValue.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6712	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6713	^ enablelandscape.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6714	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6715
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6716	landscape
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6717
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6718	landscape isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6719	landscape := Printer landscape asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6720	landscape onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6721	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6722	^ landscape.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6723	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6724
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6725	leftMargin
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6726
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6727	leftMargin isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6728	leftMargin := Printer leftMargin asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6729	leftMargin onChangeSend:#updateModifiedChannel to:self
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6730	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6731	^ leftMargin.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6732	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6733
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6734	pageFormat
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6735
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6736	pageFormat isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6737	self pageFormatList notEmpty ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6738	\| index \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6739	(index := self pageFormatList indexOf:#a4) ~~ 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6740	pageFormat := index asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6741	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6742	pageFormat := 1 asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6743	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6744	].
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6745	pageFormat onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6746	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6747	^ pageFormat.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6748	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6749
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6750	pageFormatList
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6751
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6752	pageFormatList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6753	pageFormatList := Printer defaultPageFormats asList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6754	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6755	^ pageFormatList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6756	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6757
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6758	printCommand
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6759
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6760	printCommand isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6761	printCommand := Printer printCommand asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6762	printCommand onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6763	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6764	^ printCommand.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6765	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6766
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6767	printCommandEnabled
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6768	^ BlockValue
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6769	with:[:m \| m value isEmptyOrNil]
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6770	argument:(self printFilename).
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6771	!
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6772
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6773	printCommandList
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6774
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6775	printCommandList isNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6776	printCommandList := self commandList asList.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6777	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6778	^ printCommandList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6779	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6780
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6781	printFilename
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6782	printFilename isNil ifTrue:[
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6783	printFilename := (Printer printFilename ? '') asValue.
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6784	printFilename onChangeSend:#updateModifiedChannel to:self
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6785	].
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6786	^ printFilename.
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6787	!
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6788
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6789	printerType
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6790
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6791	printerType isNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6792	printerType := (self possiblePrinters collect:[:cls \| cls printerTypeName]) asList.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6793	printerType onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6794	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6795	^ printerType.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6796	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6797
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6798	printerTypeSelection
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6799
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6800	printerTypeSelection isNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6801	printerTypeSelection := (self possiblePrinters identityIndexOf:Printer) asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6802	"/ printerTypeSelection onChangeSend:#printerTypeSelectionChanged to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6803	printerTypeSelection addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6804	printerTypeSelection changed.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6805	printerTypeSelection onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6806	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6807	^ printerTypeSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6808	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6809
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6810	rightMargin
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6811
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6812	rightMargin isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6813	rightMargin := Printer rightMargin asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6814	rightMargin onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6815	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6816	^ rightMargin.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6817	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6818
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6819	selectedUnit
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6820
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6821	selectedUnit isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6822	selectedUnit := 1 asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6823	selectedUnit addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6824	selectedUnit changed.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6825	selectedUnit onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6826	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6827	^ selectedUnit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6828	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6829
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6830	supportsColor
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6831
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6832	supportsColor isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6833	supportsColor := Printer supportsColor asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6834	supportsColor onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6835	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6836	^ supportsColor.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6837	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6838
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6839	topMargin
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6840
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6841	topMargin isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6842	topMargin := Printer topMargin asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6843	topMargin onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6844	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6845	^ topMargin.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6846	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6847
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6848	unitList
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6849
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6850	unitList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6851	unitList := #('inch' 'mm') asList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6852	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6853	^ unitList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6854	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6855
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6856	!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6857
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6858	printerTypeSelectionChanged
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6859	\| p hasPageSize hasMargins\|
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6860
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6861	self printerType selectionIndex ~~ 0 ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6862	p := self possiblePrinters at:(self printerType selectionIndex).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6863	hasPageSize := p supportsPageSizes.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6864	hasMargins := p supportsMargins.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6865	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6866	hasPageSize := false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6867	hasMargins := false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6868	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6869	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6870
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6871	printerTypeSelectionOrUnitListChanged
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6872	\| p hasPageSize hasMargins unit\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6873
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6874	self printerTypeSelection value ~~ 0 ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6875	p := self possiblePrinters at:(self printerTypeSelection value).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6876	hasPageSize := p supportsPageSizes.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6877	hasMargins := p supportsMargins.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6878	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6879	hasPageSize := false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6880	hasMargins := false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6881	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6882	self enablelandscape value:hasPageSize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6883	self enableFormat value:hasPageSize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6884	hasPageSize ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6885	self pageFormat value:(p pageFormat).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6886	self landscape value:(p landscape).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6887	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6888	self landscape value:false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6889	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6890	hasMargins ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6891	self selectedUnit value == 2 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6892	unit := #mm
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6893	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6894	unit := #inch
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6895	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6896
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6897	self topMargin value:(UnitConverter convert:p topMargin from:#inch to:unit).
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6898	self leftMargin value:(UnitConverter convert:p leftMargin from:#inch to:unit).
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6899	self rightMargin value:(UnitConverter convert:p rightMargin from:#inch to:unit).
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6900	self bottomMargin value:(UnitConverter convert:p bottomMargin from:#inch to:unit).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6901
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6902	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6903	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6904	self enableMargins value:hasMargins.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6905
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6906	p notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6907	\| newCommandList \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6908	newCommandList := p defaultCommands.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6909	newCommandList notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6910	self printCommandList contents:(newCommandList asList).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6911	self printCommandList changed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6912	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6913	self printCommand value:(p printCommand).
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6914	self printFilename value:(p printFilename ? '').
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6915	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6916	self enableColorBox value:p supportsPostscript.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6917	p supportsPostscript ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6918	self supportsColor value:false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6919	] ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6920	self supportsColor value:(Printer supportsColor).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6921	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6922	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6923
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6924	unitListChanged
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6925	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6926
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6927	update:something with:aParameter from:changedObject
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6928	(changedObject == self selectedUnit or:[changedObject == self printerTypeSelection]) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6929	self printerTypeSelectionOrUnitListChanged.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6930	^ self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6931	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6932
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6933	super update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6934	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6935
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6936	!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6937
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6938	commandList
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6939	commandList isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6940	commandList := resources at:'PRINT_COMMANDS' ifAbsent:nil.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6941	commandList isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6942	commandList := PrinterStream defaultCommands.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6943	commandList isNil ifTrue:[
5151 53c19d72ff59 Avoid warning about slow grow operation Stefan Vogel <sv@exept.de> parents: 5149 diff changeset	6944	commandList := #('lpr' 'lp').
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6945	].
5151 53c19d72ff59 Avoid warning about slow grow operation Stefan Vogel <sv@exept.de> parents: 5149 diff changeset	6946	(commandList includes:self printCommand value) ifFalse:[
53c19d72ff59 Avoid warning about slow grow operation Stefan Vogel <sv@exept.de> parents: 5149 diff changeset	6947	commandList := commandList copyWith:self printCommand value.
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6948	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6949	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6950	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6951	^ commandList
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6952	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6953
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6954	hasUnsavedChanges
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6955	\| printer unit\|
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6956
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6957	self selectedUnit value == 2 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6958	unit := #mm
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6959	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6960	unit := #inch
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6961	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6962	printer := self possiblePrinters at:(self printerTypeSelection value).
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6963
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6964	printer ~= Printer ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6965
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6966	Printer printCommand ~= self printCommand value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6967	(Printer printFilename ? '') ~= (self printFilename value ? '') ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6968
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6969	Printer supportsPageSizes ifTrue:[
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6970	Printer pageFormat ~= self pageFormat value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6971	Printer landscape ~= (self landscape value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6972	].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6973	Printer supportsMargins ifTrue:[
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6974	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	6975	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	6976	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	6977	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	6978	].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6979	Printer supportsPostscript ifTrue:[
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6980	Printer supportsColor ~= self supportsColor value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6981	].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6982	^ false
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6983	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6984
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6985	possiblePrinters
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6986	possiblePrinters isNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6987	possiblePrinters := PrinterStream withAllSubclasses asArray.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6988	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6989	^ possiblePrinters
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6990	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6991
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6992	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6993
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6994	defaultIcon
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6995	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6996	by the ImageEditor of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6997
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6998	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6999	the ImageEditor may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7000
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7001	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7002	self defaultIcon inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7003	ImageEditor openOnClass:self andSelector:#defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7004	Icon flushCachedIcons
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7005	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7006
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7007	<resource: #image>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7008
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7009	^Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7010	constantNamed:#'AbstractSettingsApplication::ProcessorSchedulerSettingsAppl class defaultIcon'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	7011	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	7012	@@@@@@@@@@@@@@@@@@@@ADQ@@@@@@@@@@DQBL2QD@@@@@@@DH"D3D"I@@@@@@DHQDSLQDRP@@@@DHQDQDQDQD$@@@DHQDQDQDQDQI@@@P!!DQDQDQDQD$@@AB
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	7013	DQDQDQLQDRP@ABDQDQDQLQDQD$@DHQDQDSLQDQDRP@P!!DQDQL1DQDQI@ABDQDQDQLQDQD$@@P!!DQDQDSDQD$@@ABDQDQDQD1DRP@@DHQDQDQDQLQI@@@ABDQ
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	7014	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	7015	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7016
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7017	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl class methodsFor:'interface specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7018
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7019	windowSpec
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7020	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7021	by the UIPainter of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7022
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7023	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7024	the UIPainter may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7025
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7026	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7027	UIPainter new openOnClass:AbstractSettingsApplication::ProcessorSchedulerSettingsAppl andSelector:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7028	AbstractSettingsApplication::ProcessorSchedulerSettingsAppl new openInterface:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7029	AbstractSettingsApplication::ProcessorSchedulerSettingsAppl open
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7030	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7031
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7032	<resource: #canvas>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7033
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7034	^
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7035	#(FullSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7036	name: windowSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7037	window:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7038	(WindowSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7039	label: 'Processor and Scheduler Settings'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7040	name: 'Processor and Scheduler Settings'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7041	min: (Point 10 10)
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7042	bounds: (Rectangle 14 46 614 366)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7043	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7044	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7045	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7046	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7047	(VerticalPanelViewSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7048	name: 'VerticalPanel2'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7049	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	7050	horizontalLayout: fit
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7051	verticalLayout: topSpace
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7052	horizontalSpace: 3
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7053	verticalSpace: 5
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7054	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7055	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7056	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7057	(CheckBoxSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7058	label: 'Preemptive Scheduling'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7059	name: 'CheckBox11'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7060	model: preemptive
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7061	translateLabel: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7062	extent: (Point 600 22)
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7063	)
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7064	(ViewSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7065	name: 'Box2'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7066	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7067	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7068	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7069	(CheckBoxSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7070	label: 'Dynamic Priorities'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7071	name: 'CheckBox12'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7072	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	7073	enableChannel: preemptive
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7074	model: dynamicPrios
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7075	translateLabel: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7076	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7077	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7078
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7079	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7080	extent: (Point 600 23)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7081	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7082	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7083
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7084	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7085	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7086	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7087
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7088	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7089	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7090	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7091
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7092	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl methodsFor:'actions'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7093
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7094	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7095
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7096	Processor isTimeSlicing ~~ self preemptive value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7097	self preemptive value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7098	Processor startTimeSlicing
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7099	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7100	Processor stopTimeSlicing
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7101	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7102	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7103	Processor supportDynamicPriorities ~~ self dynamicPrios value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7104	Processor supportDynamicPriorities:self dynamicPrios value
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7105	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7106	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7107
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	7108	helpFilename
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	7109	^ 'Launcher/miscSettings.html'
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7110	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7111
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7112	readSettings
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7113	self preemptive value:Processor isTimeSlicing.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7114	self dynamicPrios value:Processor supportDynamicPriorities.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7115	self modifiedChannel value:false
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7116	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7117
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7118	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl methodsFor:'aspects'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7119
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7120	dynamicPrios
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7121	dynamicPrios isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7122	dynamicPrios := true asValue.
5085 e22e91773cf9 have no save button enabled on timeSlicing changes penk parents: 5083 diff changeset	7123	dynamicPrios onChangeSend:#updateModifiedChannel to:self.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7124	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7125	^ dynamicPrios.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7126	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7127
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7128	preemptive
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7129	preemptive isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7130	preemptive := true asValue.
5085 e22e91773cf9 have no save button enabled on timeSlicing changes penk parents: 5083 diff changeset	7131	preemptive onChangeSend:#updateModifiedChannel to:self.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7132	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7133	^ preemptive.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7134	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7135
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7136	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl methodsFor:'queries'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7137
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7138	hasUnsavedChanges
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	7139	self preemptive value ~= Processor isTimeSlicing ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	7140	self dynamicPrios value ~= Processor supportDynamicPriorities ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	7141	^ false
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7142	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7143
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7144	!AbstractSettingsApplication::RDoItServerSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7145
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7146	defaultIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7147	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7148	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7149
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7150	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7151	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7152
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7153	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7154	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7155	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7156	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7157	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7158
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7159	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7160
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7161	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7162	constantNamed:#'AbstractSettingsApplication::RDoItServerSettingsAppl class defaultIcon'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	7163	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	7164	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@&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	7165	''#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	7166	!!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	7167	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7168
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7169	!AbstractSettingsApplication::RDoItServerSettingsAppl class methodsFor:'interface specs'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7170
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7171	windowSpec
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7172	"This resource specification was automatically generated
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7173	by the UIPainter of ST/X."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7174
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7175	"Do not manually edit this!! If it is corrupted,
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7176	the UIPainter may not be able to read the specification."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7177
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7178	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7179	UIPainter new openOnClass:AbstractSettingsApplication::RDoItServerSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7180	AbstractSettingsApplication::RDoItServerSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7181	AbstractSettingsApplication::RDoItServerSettingsAppl open
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7182	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7183
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7184	<resource: #canvas>
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7185
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7186	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7187	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7188	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7189	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7190	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7191	label: 'RDoIt Server Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7192	name: 'RDoIt Server Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7193	min: (Point 10 10)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7194	bounds: (Rectangle 14 46 614 596)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7195	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7196	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7197	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7198	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7199	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7200	name: 'VerticalPanel2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7201	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	7202	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7203	verticalLayout: top
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7204	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7205	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7206	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7207	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7208	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7209	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7210	name: 'Box1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7211	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7212	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7213	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7214	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7215	label: 'Remote doits enabled'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7216	name: 'CheckBox1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7217	layout: (LayoutFrame 5 0 0 0 -5 1 22 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7218	enableChannel: hasRDoitServerClass
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7219	model: rDoitsEnabled
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7220	translateLabel: true
5086 b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	7221	)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	7222	)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	7223
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	7224	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7225	extent: (Point 600 25)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7226	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7227	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7228	name: 'Box2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7229	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7230	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7231	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7232	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7233	label: 'Port/Path:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7234	name: 'Label2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7235	layout: (LayoutFrame 5 0 0 0 150 0 22 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7236	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7237	adjust: right
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7238	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7239	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7240	name: 'EntryField1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7241	layout: (LayoutFrame 150 0 0 0 -5 1 22 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7242	enableChannel: rDoitsEnabled
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7243	model: rDoitServerPortOrPath
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7244	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7245	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7246	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7247	acceptOnPointerLeave: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7248	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7249	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7250	label: 'Port-number for tcp socket; path-string for unix domain socket.'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7251	name: 'Label3'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7252	layout: (LayoutFrame 150 0 28 0 596 0 50 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7253	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7254	adjust: left
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7255	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7256	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7257
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7258	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7259	extent: (Point 600 72)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7260	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7261	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7262	name: 'Box3'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7263	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7264	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7265	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7266	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7267	label: 'Log errors'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7268	name: 'CheckBox2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7269	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7270	enableChannel: rDoitsEnabled
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7271	model: rDoitErrorLogging
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7272	translateLabel: true
5086 b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	7273	)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	7274	)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	7275
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	7276	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7277	extent: (Point 600 25)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7278	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7279	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7280	name: 'Box4'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7281	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7282	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7283	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7284	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7285	label: 'Log requests'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7286	name: 'CheckBox3'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7287	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7288	enableChannel: rDoitsEnabled
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7289	model: rDoitLogging
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7290	translateLabel: true
5086 b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	7291	)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	7292	)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	7293
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	7294	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7295	extent: (Point 600 24)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7296	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7297	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7298	name: 'Box5'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7299	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7300	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7301	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7302	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7303	label: 'Debug errors'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7304	name: 'CheckBox4'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7305	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7306	enableChannel: rDoitsEnabled
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7307	model: rDoitErrorDebugging
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7308	translateLabel: true
5086 b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	7309	)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	7310	)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	7311
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	7312	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7313	extent: (Point 600 23)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7314	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7315	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7316
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7317	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7318	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7319	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7320
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7321	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7322	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7323	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7324
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7325	!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'actions'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7326
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7327	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7328
5991 1f8b715b9c06 Fix rdoit settings: allow to specify a port number Stefan Vogel <sv@exept.de> parents: 5943 diff changeset	7329	\|shouldRun portOrPath\|
1f8b715b9c06 Fix rdoit settings: allow to specify a port number Stefan Vogel <sv@exept.de> parents: 5943 diff changeset	7330
1f8b715b9c06 Fix rdoit settings: allow to specify a port number Stefan Vogel <sv@exept.de> parents: 5943 diff changeset	7331	portOrPath := self rDoitServerPortOrPath value.
6064 94d7e5b3471d * empty log message * penk parents: 6058 diff changeset	7332	portOrPath isNumber ifFalse:[
5991 1f8b715b9c06 Fix rdoit settings: allow to specify a port number Stefan Vogel <sv@exept.de> parents: 5943 diff changeset	7333	"a numeric string means it is a TCP port number"
1f8b715b9c06 Fix rdoit settings: allow to specify a port number Stefan Vogel <sv@exept.de> parents: 5943 diff changeset	7334	portOrPath := portOrPath asInteger.
1f8b715b9c06 Fix rdoit settings: allow to specify a port number Stefan Vogel <sv@exept.de> parents: 5943 diff changeset	7335	].
1f8b715b9c06 Fix rdoit settings: allow to specify a port number Stefan Vogel <sv@exept.de> parents: 5943 diff changeset	7336
1f8b715b9c06 Fix rdoit settings: allow to specify a port number Stefan Vogel <sv@exept.de> parents: 5943 diff changeset	7337	RDoItServer defaultPortNumberOrPath:portOrPath.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7338	RDoItServer logging:self rDoitLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7339	RDoItServer errorLogging:self rDoitErrorLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7340	RDoItServer errorCatching:(self rDoitErrorDebugging value not).
5991 1f8b715b9c06 Fix rdoit settings: allow to specify a port number Stefan Vogel <sv@exept.de> parents: 5943 diff changeset	7341	shouldRun := self rDoitsEnabled value.
1f8b715b9c06 Fix rdoit settings: allow to specify a port number Stefan Vogel <sv@exept.de> parents: 5943 diff changeset	7342	shouldRun ~~ RDoItServer serverRunning ifTrue:[
1f8b715b9c06 Fix rdoit settings: allow to specify a port number Stefan Vogel <sv@exept.de> parents: 5943 diff changeset	7343	shouldRun ifFalse:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7344	RDoItServer stop
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7345	] ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7346	RDoItServer start.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7347	"/ must wait a bit; give it a chance to
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7348	"/ really start (before checking)
5991 1f8b715b9c06 Fix rdoit settings: allow to specify a port number Stefan Vogel <sv@exept.de> parents: 5943 diff changeset	7349	Delay waitForSeconds:1.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7350	RDoItServer serverRunning ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7351	self warn:'RDoit startup failed (see stderr).'
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7352	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7353	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7354	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7355	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7356
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	7357	helpFilename
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	7358	^ 'Launcher/communicationsSettings.html'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7359	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7360
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7361	readSettings
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7362	(self hasRDoitServer and:[RDoItServer isLoaded]) ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7363	self rDoitsEnabled value:RDoItServer serverRunning.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7364	self rDoitLogging value:RDoItServer isLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7365	self rDoitErrorLogging value:RDoItServer isErrorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7366	self rDoitErrorDebugging value:RDoItServer isErrorCatching not.
5032 2a26da89dada allow for rdoitPort to be a string (for ud sockets) Claus Gittinger <cg@exept.de> parents: 5031 diff changeset	7367	self rDoitServerPortOrPath value:RDoItServer defaultPortNumberOrPath
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7368	] ifFalse:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7369	self rDoitsEnabled value:false.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7370	self rDoitLogging value:false.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7371	self rDoitErrorLogging value:false.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7372	self rDoitErrorDebugging value:false.
5032 2a26da89dada allow for rdoitPort to be a string (for ud sockets) Claus Gittinger <cg@exept.de> parents: 5031 diff changeset	7373	self rDoitServerPortOrPath value:nil
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7374	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7375	self modifiedChannel value:false
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7376	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7377
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7378	!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'aspects'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7379
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7380	rDoitErrorDebugging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7381
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7382	rDoitErrorDebugging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7383	rDoitErrorDebugging := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7384	rDoitErrorDebugging onChangeSend:#updateModifiedChannel to:self
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7385	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7386	^ rDoitErrorDebugging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7387	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7388
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7389	rDoitErrorLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7390
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7391	rDoitErrorLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7392	rDoitErrorLogging := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7393	rDoitErrorLogging onChangeSend:#updateModifiedChannel to:self
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7394	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7395	^ rDoitErrorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7396	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7397
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7398	rDoitLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7399
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7400	rDoitLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7401	rDoitLogging := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7402	rDoitLogging onChangeSend:#updateModifiedChannel to:self
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7403	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7404	^ rDoitLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7405	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7406
5032 2a26da89dada allow for rdoitPort to be a string (for ud sockets) Claus Gittinger <cg@exept.de> parents: 5031 diff changeset	7407	rDoitServerPortOrPath
2a26da89dada allow for rdoitPort to be a string (for ud sockets) Claus Gittinger <cg@exept.de> parents: 5031 diff changeset	7408
2a26da89dada allow for rdoitPort to be a string (for ud sockets) Claus Gittinger <cg@exept.de> parents: 5031 diff changeset	7409	rDoitServerPortOrPath isNil ifTrue:[
2a26da89dada allow for rdoitPort to be a string (for ud sockets) Claus Gittinger <cg@exept.de> parents: 5031 diff changeset	7410	rDoitServerPortOrPath := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7411	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	7412	].
2a26da89dada allow for rdoitPort to be a string (for ud sockets) Claus Gittinger <cg@exept.de> parents: 5031 diff changeset	7413	^ rDoitServerPortOrPath.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7414	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7415
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7416	rDoitsEnabled
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7417
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7418	rDoitsEnabled isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7419	rDoitsEnabled := true asValue.
4675 40c7fa2ca3e5 rDoit - enablement fixed. Claus Gittinger <cg@exept.de> parents: 4658 diff changeset	7420	rDoitsEnabled onChangeSend:#rDoitsEnabledChanged to:self
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7421	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7422	^ rDoitsEnabled.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7423	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7424
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7425	!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'change & update'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7426
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7427	rDoitsEnabledChanged
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7428	self updateModifiedChannel.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7429	self rDoitsEnabled value ifTrue:[
5991 1f8b715b9c06 Fix rdoit settings: allow to specify a port number Stefan Vogel <sv@exept.de> parents: 5943 diff changeset	7430	rDoitServerPortOrPath value isEmptyOrNil ifTrue:[
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7431	rDoitServerPortOrPath value:(RDoItServer defaultPortNumberOrPath)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7432	]
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7433	]
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7434	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7435
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7436	update:something with:aParameter from:changedObject
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7437	changedObject == self rDoitsEnabled ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7438	self rDoitsEnabledChanged.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7439	^ self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7440	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7441
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7442	super update:something with:aParameter from:changedObject
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7443	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7444
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7445	!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'queries'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7446
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7447	hasRDoitServer
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7448
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7449	^ RDoItServer notNil and:[RDoItServer isLoaded]
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7450	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7451
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7452	hasRDoitServerClass
4675 40c7fa2ca3e5 rDoit - enablement fixed. Claus Gittinger <cg@exept.de> parents: 4658 diff changeset	7453	^ RDoItServer notNil
40c7fa2ca3e5 rDoit - enablement fixed. Claus Gittinger <cg@exept.de> parents: 4658 diff changeset	7454	!
40c7fa2ca3e5 rDoit - enablement fixed. Claus Gittinger <cg@exept.de> parents: 4658 diff changeset	7455
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7456	hasUnsavedChanges
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7457	(self hasRDoitServer and:[RDoItServer isLoaded]) ifTrue:[
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	7458	self rDoitsEnabled value ~= RDoItServer serverRunning ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	7459	RDoItServer serverRunning ifTrue:[
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	7460	self rDoitLogging value ~= RDoItServer isLogging ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	7461	self rDoitErrorLogging value ~= RDoItServer isErrorLogging ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	7462	self rDoitErrorDebugging value ~= RDoItServer isErrorCatching not ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	7463	self rDoitServerPortOrPath value ~= RDoItServer defaultPortNumberOrPath ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	7464	]
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7465	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7466	^ false
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7467	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7468
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7469	!AbstractSettingsApplication::STCCompilerSettingsAppl class methodsFor:'defaults'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7470
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7471	stcCompilationOptions
5278 67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	7472	^ #(default never)
67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	7473	!
67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	7474
67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	7475	stcCompilationStrings
67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	7476
67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	7477	^ #('primitive code only' 'never')
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7478	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7479
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7480	!AbstractSettingsApplication::STCCompilerSettingsAppl class methodsFor:'image specs'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7481
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7482	defaultIcon
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	7483	^ self defaultIcon3
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	7484	!
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	7485
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	7486	defaultIcon1
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7487	"This resource specification was automatically generated
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7488	by the ImageEditor of ST/X."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7489
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7490	"Do not manually edit this!! If it is corrupted,
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7491	the ImageEditor may not be able to read the specification."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7492
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7493	"
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	7494	self defaultIcon1 inspect
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	7495	ImageEditor openOnClass:self andSelector:#defaultIcon1
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7496	Icon flushCachedIcons
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7497	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7498
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7499	<resource: #image>
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7500
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7501	^Icon
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	7502	constantNamed:#'AbstractSettingsApplication::STCCompilerSettingsAppl class defaultIcon1'
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	7503	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	7504	@@@@@@@@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	7505	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	7506	!
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	7507
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	7508	defaultIcon2
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	7509	"This resource specification was automatically generated
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	7510	by the ImageEditor of ST/X."
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	7511
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	7512	"Do not manually edit this!! If it is corrupted,
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	7513	the ImageEditor may not be able to read the specification."
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	7514
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	7515	"
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	7516	self defaultIcon2 inspect
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	7517	ImageEditor openOnClass:self andSelector:#defaultIcon2
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	7518	Icon flushCachedIcons
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	7519	"
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	7520
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	7521	<resource: #image>
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	7522
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	7523	^Icon
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	7524	constantNamed:#'AbstractSettingsApplication::STCCompilerSettingsAppl class defaultIcon2'
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	7525	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	7526	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	7527	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	7528	@@@@@@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	7529	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	7530	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	7531	@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	7532	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	7533	!
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	7534
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	7535	defaultIcon3
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	7536	"This resource specification was automatically generated
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	7537	by the ImageEditor of ST/X."
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	7538
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	7539	"Do not manually edit this!! If it is corrupted,
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	7540	the ImageEditor may not be able to read the specification."
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	7541
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	7542	"
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	7543	self defaultIcon3 inspect
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	7544	ImageEditor openOnClass:self andSelector:#defaultIcon3
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	7545	Icon flushCachedIcons
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	7546	"
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	7547
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	7548	<resource: #image>
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	7549
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	7550	^Icon
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	7551	constantNamed:#'AbstractSettingsApplication::STCCompilerSettingsAppl class defaultIcon3'
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	7552	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	7553	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	7554	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	7555	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	7556	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	7557	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	7558	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	7559	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	7560	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7561
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7562	!AbstractSettingsApplication::STCCompilerSettingsAppl class methodsFor:'interface specs'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7563
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7564	windowSpec
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7565	"This resource specification was automatically generated
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7566	by the UIPainter of ST/X."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7567
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7568	"Do not manually edit this!! If it is corrupted,
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7569	the UIPainter may not be able to read the specification."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7570
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7571	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7572	UIPainter new openOnClass:AbstractSettingsApplication::STCCompilerSettingsAppl andSelector:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7573	AbstractSettingsApplication::STCCompilerSettingsAppl new openInterface:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7574	AbstractSettingsApplication::STCCompilerSettingsAppl open
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7575	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7576
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7577	<resource: #canvas>
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7578
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7579	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7580	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7581	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7582	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7583	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7584	label: 'STC Compiler Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7585	name: 'STC Compiler Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7586	min: (Point 10 10)
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	7587	bounds: (Rectangle 0 0 600 407)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7588	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7589	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7590	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7591	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7592	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7593	name: 'VerticalPanel2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7594	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	7595	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7596	verticalLayout: top
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7597	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7598	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7599	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7600	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7601	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7602	(ViewSpec
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	7603	name: 'SeparatingBox12'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	7604	extent: (Point 600 4)
a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	7605	)
a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	7606	(ViewSpec
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	7607	name: 'STCCompilationBox11'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7608	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7609	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7610	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7611	(LabelSpec
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	7612	label: 'STC Compilation to Machine Code:'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7613	name: 'Label11'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7614	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	7615	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7616	adjust: right
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7617	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7618	(PopUpListSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7619	label: 'PopUp List'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7620	name: 'StcCompilation'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7621	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	7622	tabable: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7623	model: stcCompilationSelection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7624	enableChannel: canLoadBinaries
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7625	menu: stcCompilationList
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7626	useIndex: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7627	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7628	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7629
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7630	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7631	extent: (Point 600 29)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7632	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7633	(ViewSpec
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	7634	name: 'STCCommandBox1'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7635	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7636	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7637	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7638	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7639	label: 'STC Command:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7640	name: 'Label1'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	7641	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	7642	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7643	adjust: right
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7644	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7645	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7646	name: 'EntryField1'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	7647	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	7648	enableChannel: canLoadBinaries
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7649	model: stc
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7650	acceptOnLeave: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7651	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7652	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7653	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7654	acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7655	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7656	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7657
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7658	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7659	extent: (Point 600 35)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7660	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7661	(ViewSpec
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	7662	name: 'STCOptionsBox2'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7663	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7664	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7665	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7666	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7667	label: 'STC Options:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7668	name: 'Label2'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	7669	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	7670	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7671	adjust: right
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7672	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7673	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7674	name: 'EntryField2'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	7675	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	7676	enableChannel: canLoadBinaries
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7677	model: stcOptions
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7678	acceptOnLeave: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7679	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7680	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7681	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7682	acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7683	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7684	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7685
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7686	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7687	extent: (Point 600 35)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7688	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7689	(ViewSpec
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	7690	name: 'CCCommandBox3'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7691	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7692	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7693	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7694	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7695	label: 'CC Command:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7696	name: 'Label3'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	7697	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	7698	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7699	adjust: right
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7700	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7701	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7702	name: 'EntryField3'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	7703	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	7704	enableChannel: canLoadBinaries
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7705	model: cc
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7706	acceptOnLeave: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7707	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7708	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7709	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7710	acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7711	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7712	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7713
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7714	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7715	extent: (Point 600 35)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7716	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7717	(ViewSpec
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	7718	name: 'CCOptionsBox4'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7719	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7720	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7721	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7722	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7723	label: 'CC Options:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7724	name: 'Label4'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	7725	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	7726	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7727	adjust: right
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7728	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7729	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7730	name: 'EntryField4'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	7731	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	7732	enableChannel: canLoadBinaries
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7733	model: ccOptions
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7734	acceptOnLeave: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7735	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7736	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7737	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7738	acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7739	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7740	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7741
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7742	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7743	extent: (Point 600 35)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7744	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7745	(ViewSpec
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	7746	name: 'IncludeDirectoriesBox5'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7747	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7748	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7749	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7750	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7751	label: 'Include Directories:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7752	name: 'Label5'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	7753	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	7754	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7755	adjust: right
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7756	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7757	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7758	name: 'EntryField5'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	7759	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	7760	enableChannel: canLoadBinaries
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7761	model: stcIncludes
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7762	acceptOnLeave: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7763	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7764	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7765	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7766	acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7767	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7768	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7769
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7770	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7771	extent: (Point 600 35)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7772	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7773	(ViewSpec
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	7774	name: 'STCDefinesBox6'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7775	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7776	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7777	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7778	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7779	label: 'Defines:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7780	name: 'Label6'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	7781	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	7782	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7783	adjust: right
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7784	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7785	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7786	name: 'EntryField6'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	7787	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	7788	enableChannel: canLoadBinaries
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7789	model: stcDefines
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7790	acceptOnLeave: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7791	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7792	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7793	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7794	acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7795	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7796	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7797
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7798	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7799	extent: (Point 600 34)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7800	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7801	(ViewSpec
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	7802	name: 'LinkCommandBox7'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7803	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7804	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7805	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7806	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7807	label: 'Link Command:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7808	name: 'Label7'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	7809	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	7810	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7811	adjust: right
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7812	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7813	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7814	name: 'EntryField7'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	7815	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	7816	enableChannel: canLoadBinaries
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7817	model: linkCommand
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7818	acceptOnLeave: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7819	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7820	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7821	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7822	acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7823	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7824	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7825
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7826	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7827	extent: (Point 600 33)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7828	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7829	(ViewSpec
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	7830	name: 'LinkArgumentsBox8'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7831	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7832	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7833	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7834	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7835	label: 'Link Arguments:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7836	name: 'Label8'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	7837	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	7838	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7839	adjust: right
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7840	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7841	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7842	name: 'EntryField8'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	7843	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	7844	enableChannel: canLoadBinaries
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7845	model: linkArgs
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7846	acceptOnLeave: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7847	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7848	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7849	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7850	acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7851	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7852	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7853
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7854	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7855	extent: (Point 600 32)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7856	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7857	(ViewSpec
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	7858	name: 'LinkSharedArgumentsBox1'
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	7859	component:
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	7860	(SpecCollection
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	7861	collection: (
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	7862	(LabelSpec
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	7863	label: 'Link Shared Arguments:'
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	7864	name: 'Label12'
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	7865	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	7866	translateLabel: true
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	7867	adjust: right
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	7868	)
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	7869	(InputFieldSpec
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	7870	name: 'EntryField11'
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	7871	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	7872	enableChannel: canLoadBinaries
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	7873	model: linkSharedArgs
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	7874	acceptOnLeave: true
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	7875	acceptOnReturn: true
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	7876	acceptOnTab: true
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	7877	acceptOnLostFocus: true
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	7878	acceptOnPointerLeave: true
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	7879	)
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	7880	)
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	7881
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	7882	)
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	7883	extent: (Point 600 31)
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	7884	)
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	7885	(ViewSpec
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	7886	name: 'CLibrariesBox9'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7887	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7888	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7889	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7890	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7891	label: 'C-Libraries:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7892	name: 'Label9'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	7893	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	7894	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7895	adjust: right
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7896	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7897	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7898	name: 'EntryField9'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	7899	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	7900	enableChannel: canLoadBinaries
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7901	model: stcLibraries
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7902	acceptOnLeave: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7903	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7904	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7905	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7906	acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7907	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7908	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7909
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7910	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7911	extent: (Point 600 31)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7912	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7913	(ViewSpec
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	7914	name: 'STCLibraryPathBox10'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7915	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7916	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7917	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7918	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7919	label: 'STC Library Path:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7920	name: 'Label10'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	7921	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	7922	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7923	adjust: right
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7924	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7925	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7926	name: 'EntryField10'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	7927	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	7928	enableChannel: enableStcLibraryPath
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7929	model: stcLibraryPath
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7930	acceptOnLeave: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7931	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7932	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7933	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7934	acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7935	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7936	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7937
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7938	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7939	extent: (Point 600 30)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7940	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7941	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7942
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7943	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7944	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7945	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7946
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7947	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7948	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7949	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7950
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7951	!AbstractSettingsApplication::STCCompilerSettingsAppl methodsFor:'actions'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7952
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7953	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7954
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7955	Compiler stcCompilation:(self class stcCompilationOptions at:self stcCompilationSelection value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7956	Compiler stcCompilationIncludes:self stcIncludes value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7957	Compiler stcCompilationDefines:self stcDefines value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7958	Compiler stcCompilationOptions:self stcOptions value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7959	Compiler ccCompilationOptions:self ccOptions value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7960	Compiler ccPath:self cc value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7961	self stc value ~= Compiler stcPath ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7962	Compiler stcPath:self stc value
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7963	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7964	ObjectFileLoader linkCommand:self linkCommand value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7965	ObjectFileLoader linkArgs:self linkArgs value.
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	7966	ObjectFileLoader linkSharedArgs:self linkSharedArgs value.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7967	ObjectFileLoader notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7968	self stcLibraries value notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7969	ObjectFileLoader searchedLibraries:(self stcLibraries value asCollectionOfWords).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7970	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7971	stcLibraryPath notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7972	ObjectFileLoader libPath:(self stcLibraryPath value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7973	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7974	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7975	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7976
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	7977	helpFilename
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	7978	^ 'Launcher/compilerSettings.html'
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7979	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7980
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7981	readSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7982	self canLoadBinaries
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7983	value:(ObjectFileLoader notNil and:[ObjectFileLoader canLoadObjectFiles]).
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	7984
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7985	self stcIncludes value:Compiler stcCompilationIncludes.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7986	self stcDefines value:Compiler stcCompilationDefines.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7987	self stcOptions value:Compiler stcCompilationOptions.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7988	self ccOptions value:Compiler ccCompilationOptions.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7989	self cc value:Compiler ccPath.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7990	self stc value:Compiler stcPath.
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	7991
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7992	ObjectFileLoader notNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7993	\|t\|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7994
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	7995	self linkCommand value:ObjectFileLoader linkCommand.
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	7996	self linkArgs value:ObjectFileLoader linkArgs.
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	7997	self linkSharedArgs value:ObjectFileLoader linkSharedArgs.
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	7998
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7999	(t := ObjectFileLoader searchedLibraries) notNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8000	self stcLibraries value:(String fromStringCollection:t separatedBy:' ')
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8001	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8002	(t := ObjectFileLoader libPath) notNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8003	self stcLibraryPath value:t
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8004	]
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8005	].
5278 67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	8006
67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	8007	self stcCompilationSelection value:(self class stcCompilationOptions
67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	8008	indexOf:(Compiler stcCompilation)
67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	8009	ifAbsent:1).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8010	self modifiedChannel value:false
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8011	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8012
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8013	!AbstractSettingsApplication::STCCompilerSettingsAppl methodsFor:'aspects'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8014
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8015	canLoadBinaries
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8016
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8017	canLoadBinaries isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8018	canLoadBinaries := (ObjectFileLoader notNil and:[ObjectFileLoader canLoadObjectFiles]) asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8019	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8020	^ canLoadBinaries.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8021	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8022
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8023	cc
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8024
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8025	cc isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8026	cc := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	8027	cc onChangeSend:#updateModifiedChannel to:self.
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8028	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8029	^ cc.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8030	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8031
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8032	ccOptions
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8033
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8034	ccOptions isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8035	ccOptions := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	8036	ccOptions onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8037	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8038	^ ccOptions.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8039	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8040
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8041	enableStcLibraryPath
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8042
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8043	^ (ObjectFileLoader libPath notNil and:[self canLoadBinaries])
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8044	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8045
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8046	linkArgs
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8047
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8048	linkArgs isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8049	linkArgs := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	8050	linkArgs onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8051	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8052	^ linkArgs.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8053	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8054
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8055	linkCommand
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8056
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8057	linkCommand isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8058	linkCommand := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	8059	linkCommand onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8060	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8061	^ linkCommand.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8062	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8063
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8064	linkSharedArgs
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8065
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8066	linkSharedArgs isNil ifTrue:[
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8067	linkSharedArgs := ValueHolder new.
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8068	linkSharedArgs onChangeSend:#updateModifiedChannel to:self.
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8069	].
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8070	^ linkSharedArgs.
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8071	!
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8072
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8073	stc
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8074
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8075	stc isNil ifTrue:[
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8076	stc := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	8077	stc onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8078	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8079	^ stc.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8080	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8081
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8082	stcCompilationList
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8083
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8084	stcCompilationList isNil ifTrue:[
5278 67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	8085	stcCompilationList := (resources array:(self class stcCompilationStrings)) asList.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8086	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8087	^ stcCompilationList.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8088	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8089
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8090	stcCompilationSelection
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8091
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8092	stcCompilationSelection isNil ifTrue:[
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8093	stcCompilationSelection := (self class stcCompilationOptions indexOf:(Compiler stcCompilation) ifAbsent:1) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	8094	stcCompilationSelection onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8095	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8096	^ stcCompilationSelection.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8097	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8098
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8099	stcDefines
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8100
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8101	stcDefines isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8102	stcDefines := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	8103	stcDefines onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8104	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8105	^ stcDefines.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8106	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8107
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8108	stcIncludes
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8109
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8110	stcIncludes isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8111	stcIncludes := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	8112	stcIncludes onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8113	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8114	^ stcIncludes.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8115	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8116
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8117	stcLibraries
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8118
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8119	stcLibraries isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8120	stcLibraries := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	8121	stcLibraries onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8122	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8123	^ stcLibraries.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8124	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8125
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8126	stcLibraryPath
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8127
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8128	stcLibraryPath isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8129	stcLibraryPath := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	8130	stcLibraryPath onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8131	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8132	^ stcLibraryPath.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8133	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8134
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8135	stcOptions
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8136
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8137	stcOptions isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8138	stcOptions := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	8139	stcOptions onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8140	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8141	^ stcOptions.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8142	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8143
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8144	!AbstractSettingsApplication::STCCompilerSettingsAppl methodsFor:'queries'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8145
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8146	hasUnsavedChanges
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8147	\| searchedLibs \|
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8148
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8149	searchedLibs := ObjectFileLoader searchedLibraries.
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8150
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8151	((Compiler stcCompilation ? #default) ~= (self class stcCompilationOptions at:self stcCompilationSelection value)) ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8152	((ObjectFileLoader notNil and:[ObjectFileLoader canLoadObjectFiles]) ~= self canLoadBinaries value ) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8153	((Compiler stcCompilationIncludes) ~= self stcIncludes value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8154	((Compiler stcCompilationDefines) ~= self stcDefines value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8155	((Compiler stcCompilationOptions) ~= self stcOptions value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8156	((Compiler ccCompilationOptions) ~= self ccOptions value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8157	((Compiler ccPath) ~= self cc value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8158	((Compiler stcPath) ~= self stc value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8159	((ObjectFileLoader linkCommand) ~= self linkCommand value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8160	((ObjectFileLoader linkArgs) ~= self linkArgs value) ifTrue:[^ true].
6345 9dc72d1766af * empty log message * Claus Gittinger <cg@exept.de> parents: 6343 diff changeset	8161	((ObjectFileLoader linkSharedArgs) ~= self linkSharedArgs value) ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8162
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8163	ObjectFileLoader notNil ifTrue:[
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8164	searchedLibs notNil ifTrue:[
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8165	(String fromStringCollection:searchedLibs separatedBy:' ') ~= self stcLibraries value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8166	].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8167	ObjectFileLoader libPath notNil ifTrue:[
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8168	ObjectFileLoader libPath ~= self stcLibraryPath value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8169	].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8170	].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8171	^ false.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8172	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8173
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8174	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl class methodsFor:'defaults'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8175
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8176	exampleText
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8177
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8178	^ 'methodSelector:methodArg
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8179	"method comment:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8180	some stupid code to show the current settings"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8181
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8182	\|index\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8183
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8184	"/ another comment ...
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8185	self at:index+1. "/ a message
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8186	self at:index put:methodArg. "/ a two arg message
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8187	self from:1 to:index put:methodArg. "/ a three arg message
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8188	methodArg ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8189	Transcript showCR:''hello''. "/ condition
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8190	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8191	methodArg ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8192	Transcript showCR:''hello''. "/ condition
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8193	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8194	Transcript showCR:''world''.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8195	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8196	[methodArg] whileTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8197	Transcript showCR:''hello''. "/ looping
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8198	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8199	[self aVeryLongConditionBlock and:[self toMakeBlockLonger]] whileTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8200	Transcript showCR:''hello''. "/ long blocks
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8201	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8202	methodArg do:[:element \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8203	Transcript showCR:''hello''. "/ looping
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8204	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8205	1 to:methodArg size do:[:index \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8206	Transcript showCR:''hello''. "/ looping
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8207	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8208	methodArg keysAndValuesDo:[:index \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8209	Transcript showCR:''hello''. "/ looping
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8210	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8211	Object errorSignal handle:[:ex \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8212	ex return
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8213	] do:[ "/ exception handling
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8214	self someAction "/ blocks
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8215	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8216	^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8217	'.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8218	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8219
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8220	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl class methodsFor:'image specs'!
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8221
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8222	defaultIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8223	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8224	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8225
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8226	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8227	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8228
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8229	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8230	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8231	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8232	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8233	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8234
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8235	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8236
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8237	^Icon
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	8238	constantNamed:#'AbstractSettingsApplication::SourceCodeFormatSettingsAppl class defaultIcon'
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	8239	ifAbsentPut:[(Depth4Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(4)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	8240	*****************************("H"H"H"H"J(@"EUUUUUUUU@@^*HUUUUUUUU@@]:(!!UUUUUUUT@A7"EY&YVYVX@]7^HUUUUUU@@]7\Z*(
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	8241	!!UUUUU@@]7\R"EUUUUT@A7]1JHU&Y%XC]7\Q&(!!UUU(3M7\Y&"EUUU#L3L2QJHUUV#L3L6UD(!!VYL3L6Z$R*"EUUP3M&ZEQJ*HUU
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	8242	RRY(UUUD*(!!UUJ)UUUUTR"E)J***QJHUUUUUUUUUDTQDQDQDQDQDR*************(b') ; colorMapFromArray:#[240 160 80 192 80 0 64 0 0 240 208 160 0 0 0 240 240 240 192 192 192 240 128 0 208 208 208 48 48 48 160 160 160]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@G??LG??<G??<G??<G??<G??<G??<G??<G??8G??0G??0G??0G??0G??0G??0G??0G??0G??0O??0@@@@') ; yourself); yourself]
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8243	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8244
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8245	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl class methodsFor:'interface specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8246
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8247	windowSpec
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8248	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8249	by the UIPainter of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8250
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8251	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8252	the UIPainter may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8253
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8254	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8255	UIPainter new openOnClass:AbstractSettingsApplication::SourceCodeFormatSettingsAppl andSelector:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8256	AbstractSettingsApplication::SourceCodeFormatSettingsAppl new openInterface:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8257	AbstractSettingsApplication::SourceCodeFormatSettingsAppl open
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8258	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8259
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8260	<resource: #canvas>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8261
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8262	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8263	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8264	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8265	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8266	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8267	label: 'Code Format Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8268	name: 'Code Format Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8269	min: (Point 10 10)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8270	bounds: (Rectangle 0 0 604 676)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8271	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8272	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8273	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8274	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8275	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8276	name: 'VerticalPanel3'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8277	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	8278	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8279	verticalLayout: topSpace
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8280	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8281	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8282	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8283	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8284	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8285	(VerticalPanelViewSpec
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8286	name: 'VerticalPanel1'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8287	horizontalLayout: fit
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8288	verticalLayout: bottom
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8289	horizontalSpace: 3
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8290	verticalSpace: 3
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8291	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8292	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8293	collection: (
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8294	(ViewSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8295	name: 'Box1'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8296	component:
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8297	(SpecCollection
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8298	collection: (
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8299	(CheckBoxSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8300	label: 'Space around Temporaries'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8301	name: 'CheckBox3'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8302	layout: (LayoutFrame 0 0 0 0 250 0 22 0)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8303	model: spaceAroundTemporaries
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8304	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8305	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8306	(CheckBoxSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8307	label: 'Blank line after local Var Declaration'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8308	name: 'CheckBox4'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8309	layout: (LayoutFrame 250 0 0 0 0 1 22 0)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8310	model: emptyLineAfterTemporaries
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8311	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8312	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8313	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8314
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8315	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8316	extent: (Point 604 22)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8317	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8318	(ViewSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8319	name: 'Box11'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8320	component:
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8321	(SpecCollection
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8322	collection: (
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8323	(CheckBoxSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8324	label: 'Space after ''^'''
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8325	name: 'CheckBox5'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8326	layout: (LayoutFrame 0 0 0 0 250 0 22 0)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8327	model: spaceAfterReturnToken
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8328	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8329	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8330	(CheckBoxSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8331	label: 'Space after '':'' in Keywords'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8332	name: 'CheckBox6'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8333	layout: (LayoutFrame 250 0 0 0 -5 1 22 0)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8334	model: spaceAfterKeywordSelector
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8335	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8336	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8337	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8338
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8339	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8340	extent: (Point 604 22)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8341	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8342	(ViewSpec
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8343	name: 'Box15'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8344	component:
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8345	(SpecCollection
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8346	collection: (
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8347	(CheckBoxSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8348	label: 'Space after ''['''
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8349	name: 'CheckBox9'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8350	layout: (LayoutFrame 0 0 0 0 250 0 22 0)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8351	model: spaceAfterBlockStart
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8352	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8353	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8354	(CheckBoxSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8355	label: 'Space before '']'''
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8356	name: 'CheckBox10'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8357	layout: (LayoutFrame 250 0 0 0 -5 1 22 0)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8358	model: spaceBeforeBlockEnd
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8359	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8360	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8361	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8362
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8363	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8364	extent: (Point 604 22)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8365	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8366	(ViewSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8367	name: 'Box12'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8368	component:
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8369	(SpecCollection
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8370	collection: (
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8371	(CheckBoxSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8372	label: 'Block Args on new Line'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8373	name: 'CheckBox7'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8374	layout: (LayoutFrame 250 0 0 0 -5 1 22 0)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8375	model: blockArgumentsOnNewLine
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8376	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8377	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8378	(CheckBoxSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8379	label: 'C-Style Blocks'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8380	name: 'CheckBox8'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8381	layout: (LayoutFrame 0 0 0 0 250 0 22 0)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8382	model: cStyleBlocks
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8383	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8384	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8385	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8386
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8387	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8388	extent: (Point 604 22)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8389	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8390	(ViewSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8391	name: 'Box13'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8392	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8393	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8394	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8395	(LabelSpec
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8396	label: 'Indent:'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8397	name: 'Label1'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8398	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	8399	translateLabel: true
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8400	adjust: right
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8401	)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8402	(InputFieldSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8403	name: 'EntryField1'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8404	layout: (LayoutFrame 253 0 0 0 300 0 22 0)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8405	model: tabIndent
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8406	type: number
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8407	acceptOnReturn: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8408	acceptOnTab: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8409	acceptOnLostFocus: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8410	acceptOnPointerLeave: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8411	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8412	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8413
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8414	)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8415	extent: (Point 604 30)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8416	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8417	(ViewSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8418	name: 'Box16'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8419	component:
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8420	(SpecCollection
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8421	collection: (
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8422	(LabelSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8423	label: 'Max Length for Single Line Blocks:'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8424	name: 'Label5'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8425	layout: (LayoutFrame 0 0 0 0 250 0 22 0)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8426	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8427	adjust: right
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8428	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8429	(InputFieldSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8430	name: 'EntryField4'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8431	layout: (LayoutFrame 253 0 0 0 300 0 22 0)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8432	model: maxLengthForSingleLineBlocks
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8433	type: number
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8434	acceptOnReturn: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8435	acceptOnTab: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8436	acceptOnLostFocus: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8437	acceptOnPointerLeave: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8438	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8439	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8440
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8441	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8442	extent: (Point 604 29)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8443	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8444	(HorizontalPanelViewSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8445	name: 'HorizontalPanel1'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8446	horizontalLayout: fitSpace
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8447	verticalLayout: bottom
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8448	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8449	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8450	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8451	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8452	collection: (
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8453	(ActionButtonSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8454	label: 'Reset to ST/X Default'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8455	name: 'Button1'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8456	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8457	model: resetToStxDefault
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8458	extent: (Point 297 22)
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8459	)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8460	(ActionButtonSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8461	label: 'Reset to RefactoryBrowser Default'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8462	name: 'Button2'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8463	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8464	model: resetToRBDefault
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8465	extent: (Point 298 22)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8466	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8467	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8468
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8469	)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8470	extent: (Point 604 30)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8471	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8472	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8473
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8474	)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8475	extent: (Point 604 180)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8476	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8477	(ViewSpec
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	8478	name: 'SpacingBox1'
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	8479	extent: (Point 604 10)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8480	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8481	(ViewSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8482	name: 'Box14'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8483	component:
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8484	(SpecCollection
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8485	collection: (
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8486	(LabelSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8487	label: 'Sample Output:'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8488	name: 'Label3'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8489	layout: (LayoutFrame 0 0 0 0 0 1 22 0)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8490	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8491	adjust: left
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8492	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8493	(TextEditorSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8494	name: 'TextEditor3'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8495	layout: (LayoutFrame 0 0 22 0 0 1 300 0)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8496	model: editorText
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8497	hasHorizontalScrollBar: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8498	hasVerticalScrollBar: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8499	isReadOnly: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8500	postBuildCallback: postBuildTextEditor:
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8501	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8502	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8503
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8504	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8505	extent: (Point 604 300)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8506	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8507	(ViewSpec
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	8508	name: 'SpacingBox2'
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	8509	extent: (Point 604 10)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8510	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8511	(CheckBoxSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8512	label: 'Auto Format'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8513	name: 'CheckBox2'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8514	model: autoFormat
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8515	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8516	extent: (Point 604 22)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8517	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8518	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8519
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8520	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8521	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8522	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8523
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8524	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8525	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8526	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8527
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8528	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'actions'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8529
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8530	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8531
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8532	currentUserPrefs autoFormatting:self autoFormat value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8533	currentUserPrefs at:#'formatter.tabIndent' put:self tabIndent value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8534	currentUserPrefs at:#'formatter.spaceAroundTemporaries' put:self spaceAroundTemporaries value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8535	currentUserPrefs at:#'formatter.emptyLineAfterTemporaries' put:self emptyLineAfterTemporaries value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8536	currentUserPrefs at:#'formatter.spaceAfterReturnToken' put:self spaceAfterReturnToken value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8537	currentUserPrefs at:#'formatter.spaceAfterKeywordSelector' put:self spaceAfterKeywordSelector value.
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8538	currentUserPrefs at:#'formatter.spaceAfterBlockStart' put:self spaceAfterBlockStart value.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8539	currentUserPrefs at:#'formatter.spaceBeforeBlockEnd' put:self spaceBeforeBlockEnd value.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8540	currentUserPrefs at:#'formatter.cStyleBlocks' put:self cStyleBlocks value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8541	currentUserPrefs at:#'formatter.blockArgumentsOnNewLine' put:self blockArgumentsOnNewLine value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8542	currentUserPrefs at:#'formatter.maxLengthForSingleLineBlocks' put:self maxLengthForSingleLineBlocks value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8543	RBFormatter
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8544	tabIndent:self tabIndent value;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8545	spaceAroundTemporaries:self spaceAroundTemporaries value;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8546	emptyLineAfterTemporaries:self emptyLineAfterTemporaries value;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8547	spaceAfterReturnToken:self spaceAfterReturnToken value;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8548	spaceAfterKeywordSelector:self spaceAfterKeywordSelector value;
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8549	spaceAfterBlockStart:self spaceAfterBlockStart value;
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8550	spaceBeforeBlockEnd:self spaceBeforeBlockEnd value;
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8551	cStyleBlocks:self cStyleBlocks value;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8552	blockArgumentsOnNewLine:self blockArgumentsOnNewLine value;
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	8553	maxLengthForSingleLineBlocks:self maxLengthForSingleLineBlocks value asInteger.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8554	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8555
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	8556	helpFilename
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	8557	^ 'Launcher/sourceFormatSettings.html'
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8558	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8559
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8560	readSettings
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8561	reformatLocked := true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8562	self autoFormat value:currentUserPrefs autoFormatting.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8563	self tabIndent value:RBFormatter tabIndent.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8564	self spaceAroundTemporaries value:RBFormatter spaceAroundTemporaries.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8565	self emptyLineAfterTemporaries
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	8566	value:RBFormatter emptyLineAfterTemporaries.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8567	self spaceAfterReturnToken value:RBFormatter spaceAfterReturnToken.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8568	self spaceAfterKeywordSelector
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	8569	value:RBFormatter spaceAfterKeywordSelector.
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8570	self spaceAfterBlockStart value:RBFormatter spaceAfterBlockStart.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8571	self spaceBeforeBlockEnd value:RBFormatter spaceBeforeBlockEnd.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8572	self cStyleBlocks value:RBFormatter cStyleBlocks.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8573	self blockArgumentsOnNewLine value:RBFormatter blockArgumentsOnNewLine.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8574	self maxLengthForSingleLineBlocks
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	8575	value:RBFormatter maxLengthForSingleLineBlocks.
c72e35116b13 instable state penk parents: 5040 diff changeset	8576	self updateModifiedChannel.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8577	reformatLocked := false.
4581 d61fec7a9e4f * empty log message * penk parents: 4574 diff changeset	8578	self reformat.
d61fec7a9e4f * empty log message * penk parents: 4574 diff changeset	8579	self modifiedChannel value:false
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8580	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8581
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8582	reformat
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8583
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8584	\|tree s_tabIndent s_spaceAroundTemporaries s_emptyLineAfterTemporaries
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8585	s_spaceAfterReturnToken s_spaceAfterKeywordSelector s_cStyleBlocks
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8586	s_maxLengthForSingleLineBlocks s_blockArgumentsOnNewLine
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8587	s_spaceAfterBlockStart s_spaceBeforeBlockEnd\|
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8588
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8589	reformatLocked ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8590	"/
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8591	"/ temporary change the RBFormatters settings ...
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8592	"/
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8593	s_tabIndent := RBFormatter tabIndent.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8594	s_spaceAroundTemporaries := RBFormatter spaceAroundTemporaries.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8595	s_emptyLineAfterTemporaries := RBFormatter emptyLineAfterTemporaries.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8596	s_spaceAfterReturnToken := RBFormatter spaceAfterReturnToken.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8597	s_spaceAfterKeywordSelector := RBFormatter spaceAfterKeywordSelector.
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8598	s_spaceAfterBlockStart := RBFormatter spaceAfterBlockStart.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8599	s_spaceBeforeBlockEnd := RBFormatter spaceBeforeBlockEnd.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8600	s_cStyleBlocks := RBFormatter cStyleBlocks.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8601	s_blockArgumentsOnNewLine := RBFormatter blockArgumentsOnNewLine.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8602	s_maxLengthForSingleLineBlocks := RBFormatter maxLengthForSingleLineBlocks.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8603
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8604	RBFormatter
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8605	tabIndent:self tabIndent value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8606	spaceAroundTemporaries:self spaceAroundTemporaries value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8607	emptyLineAfterTemporaries:self emptyLineAfterTemporaries value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8608	spaceAfterReturnToken:self spaceAfterReturnToken value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8609	spaceAfterKeywordSelector:self spaceAfterKeywordSelector value;
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8610	spaceAfterBlockStart:self spaceAfterBlockStart value;
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8611	spaceBeforeBlockEnd:self spaceBeforeBlockEnd value;
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8612	cStyleBlocks:self cStyleBlocks value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8613	blockArgumentsOnNewLine:self blockArgumentsOnNewLine value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8614	maxLengthForSingleLineBlocks:self maxLengthForSingleLineBlocks value.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8615
5076 c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	8616	"/ tree := RBParser
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	8617	"/ parseMethod:self class exampleText
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	8618	"/ onError: [:aString :position \| nil].
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	8619	"/ tree do:[:node \|
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	8620	"/ (node ~~ tree and:[node parent isNil]) ifTrue:[
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	8621	"/ self error:'No parent for node'.
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	8622	"/ ]
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	8623	"/ ].
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	8624	"/ self editorText value:tree printString.
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	8625	self editorText value:(RBFormatter format:(self class exampleText)).
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8626
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8627	RBFormatter
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8628	tabIndent:s_tabIndent;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8629	spaceAroundTemporaries:s_spaceAroundTemporaries;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8630	emptyLineAfterTemporaries:s_emptyLineAfterTemporaries;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8631	spaceAfterReturnToken:s_spaceAfterReturnToken;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8632	spaceAfterKeywordSelector:s_spaceAfterKeywordSelector;
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8633	spaceAfterBlockStart:s_spaceAfterBlockStart;
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8634	spaceBeforeBlockEnd:s_spaceBeforeBlockEnd;
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8635	cStyleBlocks:s_cStyleBlocks;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8636	blockArgumentsOnNewLine:s_blockArgumentsOnNewLine;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8637	maxLengthForSingleLineBlocks:s_maxLengthForSingleLineBlocks.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8638	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8639	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8640
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8641	resetToRBDefault
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8642
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8643	reformatLocked := true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8644	self tabIndent value: 8.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8645	self spaceAfterReturnToken value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8646	self spaceAfterKeywordSelector value:true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8647	self spaceAroundTemporaries value:true.
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8648	self spaceAfterBlockStart value:true.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8649	self spaceBeforeBlockEnd value:true.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8650	self emptyLineAfterTemporaries value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8651	self cStyleBlocks value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8652	self blockArgumentsOnNewLine value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8653	self maxLengthForSingleLineBlocks value: 20.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8654	reformatLocked := false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8655	self reformat.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8656	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8657
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8658	resetToStxDefault
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8659
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8660	reformatLocked := true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8661	self tabIndent value: 4.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8662	self spaceAfterReturnToken value: true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8663	self spaceAfterKeywordSelector value: false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8664	self spaceAroundTemporaries value: false.
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8665	self spaceAfterBlockStart value:false.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8666	self spaceBeforeBlockEnd value:false.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8667	self emptyLineAfterTemporaries value: true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8668	self cStyleBlocks value: true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8669	self blockArgumentsOnNewLine value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8670	self maxLengthForSingleLineBlocks value: 20.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8671	reformatLocked := false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8672	self reformat.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8673	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8674
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8675	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'aspects'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8676
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8677	autoFormat
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8678
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8679	autoFormat isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8680	autoFormat := currentUserPrefs autoFormatting asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	8681	autoFormat onChangeSend:#updateModifiedChannel to:self
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8682	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8683	^ autoFormat.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8684	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8685
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8686	blockArgumentsOnNewLine
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8687
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8688	blockArgumentsOnNewLine isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8689	blockArgumentsOnNewLine := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8690	blockArgumentsOnNewLine addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8691	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8692	^ blockArgumentsOnNewLine.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8693	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8694
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8695	cStyleBlocks
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8696
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8697	cStyleBlocks isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8698	cStyleBlocks := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8699	cStyleBlocks addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8700	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8701	^ cStyleBlocks.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8702	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8703
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8704	editorText
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8705
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8706	editorText isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8707	editorText := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8708	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8709	^ editorText.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8710	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8711
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8712	emptyLineAfterTemporaries
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8713
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8714	emptyLineAfterTemporaries isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8715	emptyLineAfterTemporaries := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8716	emptyLineAfterTemporaries addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8717	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8718	^ emptyLineAfterTemporaries.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8719	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8720
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8721	maxLengthForSingleLineBlocks
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8722
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8723	maxLengthForSingleLineBlocks isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8724	maxLengthForSingleLineBlocks := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8725	maxLengthForSingleLineBlocks addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8726	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8727	^ maxLengthForSingleLineBlocks.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8728	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8729
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8730	spaceAfterBlockStart
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8731
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8732	spaceAfterBlockStart isNil ifTrue:[
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8733	spaceAfterBlockStart := true asValue.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8734	spaceAfterBlockStart addDependent:self.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8735	].
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8736	^ spaceAfterBlockStart.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8737	!
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8738
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8739	spaceAfterKeywordSelector
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8740
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8741	spaceAfterKeywordSelector isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8742	spaceAfterKeywordSelector := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8743	spaceAfterKeywordSelector addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8744	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8745	^ spaceAfterKeywordSelector.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8746	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8747
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8748	spaceAfterReturnToken
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8749
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8750	spaceAfterReturnToken isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8751	spaceAfterReturnToken := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8752	spaceAfterReturnToken addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8753	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8754	^ spaceAfterReturnToken.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8755	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8756
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8757	spaceAroundTemporaries
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8758
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8759	spaceAroundTemporaries isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8760	spaceAroundTemporaries := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8761	spaceAroundTemporaries addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8762	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8763	^ spaceAroundTemporaries.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8764	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8765
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8766	spaceBeforeBlockEnd
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8767
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8768	spaceBeforeBlockEnd isNil ifTrue:[
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8769	spaceBeforeBlockEnd := true asValue.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8770	spaceBeforeBlockEnd addDependent:self.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8771	].
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8772	^ spaceBeforeBlockEnd.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8773	!
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8774
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8775	tabIndent
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8776
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8777	tabIndent isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8778	tabIndent := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8779	tabIndent addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8780	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8781	^ tabIndent.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8782	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8783
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8784	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'change & update'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8785
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	8786	update:something with:aParameter from:changedObject
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8787	(changedObject == self blockArgumentsOnNewLine or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8788	changedObject == self cStyleBlocks or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8789	changedObject == self emptyLineAfterTemporaries or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8790	changedObject == self maxLengthForSingleLineBlocks or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8791	changedObject == self spaceAfterKeywordSelector or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8792	changedObject == self spaceAfterReturnToken or:[
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8793	changedObject == self spaceAfterBlockStart or:[
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8794	changedObject == self spaceBeforeBlockEnd or:[
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8795	changedObject == self spaceAroundTemporaries or:[
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8796	changedObject == self tabIndent]]]]]]]]]) ifTrue:[
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	8797	self updateModifiedChannel.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8798	self reformat.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	8799	^ self
c72e35116b13 instable state penk parents: 5040 diff changeset	8800	].
c72e35116b13 instable state penk parents: 5040 diff changeset	8801	super
c72e35116b13 instable state penk parents: 5040 diff changeset	8802	update:something
c72e35116b13 instable state penk parents: 5040 diff changeset	8803	with:aParameter
c72e35116b13 instable state penk parents: 5040 diff changeset	8804	from:changedObject
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8805	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8806
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8807	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'initialization & release'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8808
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8809	initialize
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8810	super initialize.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8811	RBFormatter isNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8812	^ self warn:'Sorry, no RBFormatter class'
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8813	].
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8814	RBFormatter isLoaded ifFalse:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8815	WindowGroup activeGroup withWaitCursorDo:[RBFormatter autoload]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8816	].
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8817	reformatLocked := false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8818	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8819
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8820	postBuildTextEditor:aWidget
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8821
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8822	aWidget cursorMovementWhenUpdating:nil;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8823	scrollWhenUpdating:nil.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8824	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8825
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8826	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'queries'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8827
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8828	hasUnsavedChanges
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8829	self autoFormat value ~= currentUserPrefs autoFormatting ? false ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8830	self tabIndent value ~= RBFormatter tabIndent ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8831	self spaceAroundTemporaries value ~= RBFormatter spaceAroundTemporaries ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8832	self emptyLineAfterTemporaries value ~= RBFormatter emptyLineAfterTemporaries ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8833	self spaceAfterReturnToken value ~= RBFormatter spaceAfterReturnToken ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8834	self spaceAfterKeywordSelector value ~= RBFormatter spaceAfterKeywordSelector ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8835	self spaceAfterBlockStart value ~= RBFormatter spaceAfterBlockStart ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8836	self spaceBeforeBlockEnd value ~= RBFormatter spaceBeforeBlockEnd ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8837	self cStyleBlocks value ~= RBFormatter cStyleBlocks ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8838	self blockArgumentsOnNewLine value ~= RBFormatter blockArgumentsOnNewLine ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8839	self maxLengthForSingleLineBlocks value ~= RBFormatter maxLengthForSingleLineBlocks ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8840	^ false
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8841	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8842
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8843	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8844
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8845	defaultIcon
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8846	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8847	by the ImageEditor of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8848
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8849	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8850	the ImageEditor may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8851
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8852	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8853	self defaultIcon inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8854	ImageEditor openOnClass:self andSelector:#defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8855	Icon flushCachedIcons
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8856	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8857
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8858	<resource: #image>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8859
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8860	^Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8861	constantNamed:#'AbstractSettingsApplication::SourceCodeManagementSettingsAppl class defaultIcon'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8862	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	8863	@@@@@@@@@@@A@PHB@0P@@@@@@@@@@@@@@@@@@@HEA \HA $JB0HD@@@@@@@@@@@@@@HLA04NC0HD@@L@@ P@@@@@@@@@@@@ED@ NDP@@@@@@@@@D@@@@@@@@
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	8864	@@@BA \FAPP@@@@@@@@@@@P@@@@@@@@@AQ@RC0@@@@@@@@@@@@@@@@@@@@@@@@TGA!!DD@@@@@@@@@@@@@@@@@@@D@PDIA08OA@@@@@@@@@@@@@@@@@@@AP S
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	8865	A0XIBPXGC0P@@@@@@@@@@@@@@@@ECAPLBPXOAP@@@@@@EQX@@@@@@@@@@@TIE@XOAP@@@@@@EQ\XE @@@@@@@@@@AP$OAP@@@@@@FQ\ZE!! V@@@@@@@@@@@E
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	8866	F0@@@@@@EQ\ZF!!(VFAX@@@@@@@@@@@@@@@@ZEQ\VE!!(ZF!!XWF @@@@@@@@@@@@@@@@@@@A\ZE!!(@@@@@@@@@@@@@@@@@@@@@@@@XE!!XZ@@@@@@@@@@@@@@@@
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	8867	@@@@@@@@EQ(V@@@@@@@@@@@@@@@@@@@@@@@@EQ\VE @@@@@@@@@@@@@@@@@@@@@@EQ VE @@@@@@@@@@@@@@F @@@@@WEQ VE!!(@@@@@@@@@@@@@@@@@E!!\W
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	8868	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	8869	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8870
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8871	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl class methodsFor:'interface specs'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8872
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8873	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8874	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8875	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8876
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8877	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8878	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8879
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8880	"
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8881	UIPainter new openOnClass:AbstractSettingsApplication::SourceCodeManagementSettingsAppl andSelector:#windowSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8882	AbstractSettingsApplication::SourceCodeManagementSettingsAppl new openInterface:#windowSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8883	AbstractSettingsApplication::SourceCodeManagementSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8884	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8885
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8886	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8887
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8888	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8889	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8890	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8891	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8892	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8893	label: 'Source Code Manager Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8894	name: 'Source Code Manager Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8895	min: (Point 10 10)
6103 d8147b126f9d * empty log message * penk parents: 6086 diff changeset	8896	bounds: (Rectangle 0 0 659 551)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8897	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8898	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8899	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8900	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8901	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8902	name: 'VerticalPanel2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8903	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	8904	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8905	verticalLayout: topSpace
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8906	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8907	verticalSpace: 20
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8908	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8909	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8910	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8911	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8912	name: 'VerticalPanel3'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8913	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8914	verticalLayout: top
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8915	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8916	verticalSpace: 10
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8917	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8918	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8919	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8920	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8921	name: 'Box3'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8922	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8923	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8924	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8925	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8926	label: 'Sourcecode Management'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8927	name: 'SourcecodeManagementCheckBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8928	layout: (LayoutFrame 5 0 5 0.0 300 0 27 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8929	enableChannel: cvsIsSetup
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8930	model: useManager
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8931	translateLabel: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8932	)
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8933	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8934
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8935	)
6103 d8147b126f9d * empty log message * penk parents: 6086 diff changeset	8936	extent: (Point 659 30)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8937	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8938	(FramedBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8939	label: 'Source Code Manager Setup'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8940	name: 'FramedBox1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8941	labelPosition: topLeft
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8942	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8943	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8944	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8945	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8946	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8947	name: 'Box1'
6103 d8147b126f9d * empty log message * penk parents: 6086 diff changeset	8948	layout: (LayoutFrame 0 0 0 0 0 1 25 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8949	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8950	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8951	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8952	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8953	label: 'CVS BinDirectory:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8954	name: 'Label1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8955	layout: (LayoutFrame 0 0.0 0 0 40 0.25 22 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8956	level: 0
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8957	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8958	adjust: right
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8959	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8960	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8961	name: 'BinDirectoryField'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8962	layout: (LayoutFrame 44 0.25 0 0 -5 1 22 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8963	enableChannel: useManager
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8964	tabable: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8965	model: cvsBinDirectoryHolder
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8966	acceptChannel: acceptChannel
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8967	acceptOnPointerLeave: true
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8968	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8969	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8970
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8971	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8972	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8973	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8974	name: 'Box7'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8975	layout: (LayoutFrame 0 0.0 27 0 0 1 52 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8976	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8977	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8978	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8979	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8980	label: 'CVSRoot default:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8981	name: 'defaultCvsRootLabel'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8982	layout: (LayoutFrame 0 0.0 0 0 40 0.25 22 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8983	level: 0
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8984	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8985	adjust: right
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8986	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8987	(ComboBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8988	name: 'cvsRootComboBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8989	layout: (LayoutFrame 44 0.25 0 0 -5 1 22 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8990	enableChannel: useManager
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8991	tabable: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8992	model: cvsRootHolder
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8993	immediateAccept: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8994	acceptOnLeave: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8995	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8996	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8997	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8998	acceptChannel: acceptChannel
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8999	acceptOnPointerLeave: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9000	comboList: cvsRootPrototypeList
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9001	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9002	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9003
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9004	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9005	)
5343 eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9006	(HorizontalPanelViewSpec
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9007	name: 'HorizontalPanel3'
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9008	layout: (LayoutFrame 44 0.25 51 0 -1 1 82 0)
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9009	horizontalLayout: fitSpace
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9010	verticalLayout: center
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9011	horizontalSpace: 3
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9012	verticalSpace: 3
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9013	component:
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9014	(SpecCollection
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9015	collection: (
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9016	(ViewSpec
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9017	name: 'Box8'
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9018	extent: (Point 103 10)
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9019	)
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9020	(ViewSpec
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9021	name: 'Box9'
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9022	extent: (Point 103 10)
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9023	)
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9024	(ViewSpec
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9025	name: 'Box10'
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9026	extent: (Point 103 10)
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9027	)
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9028	(ActionButtonSpec
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9029	label: 'CVS-Login'
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9030	name: 'loginButton1'
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9031	translateLabel: true
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9032	tabable: true
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9033	model: loginCVSRoot
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9034	enableChannel: cvsLoginEnabled
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9035	extent: (Point 103 22)
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9036	)
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9037	)
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9038
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9039	)
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9040	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9041	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9042	label: 'CVSRoot per Module:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9043	name: 'knownModulesLabel'
5343 eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9044	layout: (LayoutFrame 0 0.0 82 0 40 0.25 104 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9045	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9046	adjust: right
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9047	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9048	(SequenceViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9049	name: 'List1'
5343 eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9050	layout: (LayoutFrame 44 0.25 82 0 -5 1 201 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9051	enableChannel: useManager
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9052	tabable: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9053	model: selectedPerModuleRoot
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9054	hasHorizontalScrollBar: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9055	hasVerticalScrollBar: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9056	miniScrollerHorizontal: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9057	useIndex: false
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9058	sequenceList: listOfModules
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9059	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9060	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9061	label: 'Module:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9062	name: 'moduleLabel'
5343 eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9063	layout: (LayoutFrame 0 0.0 211 0 40 0.25 228 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9064	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9065	adjust: right
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9066	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9067	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9068	name: 'perModuleRootModuleEntryField'
5343 eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9069	layout: (LayoutFrame 44 0.25 207 0 -5 1 229 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9070	enableChannel: useManager
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9071	tabable: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9072	model: perModuleRootModule
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9073	acceptChannel: acceptChannel
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9074	acceptOnPointerLeave: true
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9075	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9076	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9077	label: 'CVSRoot:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9078	name: 'cvsRootLabel'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9079	layout: (LayoutFrame 0 0.0 236 0 40 0.25 253 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9080	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9081	adjust: right
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9082	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9083	(ComboBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9084	name: 'perModuleRootComboBox'
5343 eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9085	layout: (LayoutFrame 44 0.25 232 0 -5 1.0 254 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9086	enableChannel: useManager
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9087	tabable: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9088	model: perModuleRoot
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9089	immediateAccept: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9090	acceptOnLeave: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9091	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9092	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9093	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9094	acceptChannel: acceptChannel
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9095	acceptOnPointerLeave: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9096	comboList: cvsRootPrototypeList
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9097	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9098	(HorizontalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9099	name: 'HorizontalPanel2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9100	layout: (LayoutFrame 44 0.25 258 0 -1 1 289 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9101	horizontalLayout: fitSpace
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9102	verticalLayout: center
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9103	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9104	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9105	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9106	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9107	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9108	(ActionButtonSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9109	label: 'Add/Apply'
5343 eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9110	name: 'addButton'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9111	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9112	tabable: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9113	model: addPerModuleRoot
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9114	enableChannel: useManager
5343 eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9115	extent: (Point 103 22)
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9116	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9117	(ActionButtonSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9118	label: 'Remove'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9119	name: 'removeButton'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9120	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9121	tabable: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9122	model: removePerModuleRoot
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9123	enableChannel: removeEnabled
5343 eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9124	extent: (Point 103 22)
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9125	)
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9126	(ViewSpec
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9127	name: 'Box11'
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9128	extent: (Point 103 10)
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9129	)
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9130	(ActionButtonSpec
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9131	label: 'CVS-Login'
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9132	name: 'loginButton2'
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9133	translateLabel: true
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9134	tabable: true
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9135	model: loginPerModuleRoot
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9136	enableChannel: cvsLoginInModuleEnabled
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9137	extent: (Point 103 22)
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9138	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9139	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9140
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9141	)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9142	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9143	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9144
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9145	)
6103 d8147b126f9d * empty log message * penk parents: 6086 diff changeset	9146	extent: (Point 659 327)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9147	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9148	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9149	name: 'Box4'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9150	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9151	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9152	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9153	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9154	label: 'Source Cache Dir:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9155	name: 'SourceCacheDirLabel'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9156	layout: (LayoutFrame 0 0.0 0 0 40 0.25 22 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9157	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9158	adjust: right
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9159	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9160	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9161	name: 'SourceCacheDirEntryField'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9162	layout: (LayoutFrame 44 0.25 0 0 -5 1 22 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9163	enableChannel: useManager
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9164	model: sourceCacheDir
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9165	immediateAccept: false
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9166	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9167	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9168	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9169	acceptOnPointerLeave: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9170	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9171	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9172
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9173	)
6103 d8147b126f9d * empty log message * penk parents: 6086 diff changeset	9174	extent: (Point 659 30)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9175	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9176	(HorizontalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9177	name: 'HorizontalPanel1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9178	horizontalLayout: fitSpace
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9179	verticalLayout: center
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9180	horizontalSpace: 30
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9181	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9182	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9183	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9184	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9185	(ActionButtonSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9186	label: 'Flush Cache now'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9187	name: 'FlushCacheNowButton'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9188	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9189	model: flushSourceCache
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9190	enableChannel: useManager
6103 d8147b126f9d * empty log message * penk parents: 6086 diff changeset	9191	extent: (Point 284 22)
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9192	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9193	(ActionButtonSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9194	label: 'Condense Cache now'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9195	name: 'CondenseCacheNowButton'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9196	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9197	model: condenseSourceCache
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9198	enableChannel: useManager
6103 d8147b126f9d * empty log message * penk parents: 6086 diff changeset	9199	extent: (Point 285 22)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9200	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9201	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9202
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9203	)
6103 d8147b126f9d * empty log message * penk parents: 6086 diff changeset	9204	extent: (Point 659 40)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9205	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9206	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9207	name: 'Box5'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9208	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9209	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9210	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9211	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9212	label: 'If Present, Use Local Source (Suppress Checkout)'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9213	name: 'CheckBox4'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9214	layout: (LayoutFrame 30 0 5 0 -5 1 27 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9215	enableChannel: useManager
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9216	model: localSourceFirst
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9217	translateLabel: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9218	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9219	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9220
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9221	)
6103 d8147b126f9d * empty log message * penk parents: 6086 diff changeset	9222	extent: (Point 659 25)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9223	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9224	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9225	name: 'Box6'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9226	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9227	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9228	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9229	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9230	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	9231	name: 'CheckBox5'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9232	layout: (LayoutFrame 30 0 5 0 -5 1 27 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9233	enableChannel: useManager
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9234	model: checkClassesWhenCheckingIn
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9235	translateLabel: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9236	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9237	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9238
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9239	)
6103 d8147b126f9d * empty log message * penk parents: 6086 diff changeset	9240	extent: (Point 659 25)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9241	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9242	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9243
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9244	)
6103 d8147b126f9d * empty log message * penk parents: 6086 diff changeset	9245	extent: (Point 659 768)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9246	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9247	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9248
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9249	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9250	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9251	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9252
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9253	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9254	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9255	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9256
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9257	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'accessing'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9258
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9259	manager
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9260
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9261	^ Smalltalk at:#SourceCodeManager
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9262	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9263
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9264	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'actions'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9265
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9266	addPerModuleRoot
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9267
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9268	\|module cvsRoot\|
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9269
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9270	acceptChannel value:true.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9271	module := self perModuleRootModule value.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9272	cvsRoot := self perModuleRoot value.
5174 bfd29db1a419 source code management per module get apply for changes Michael Beyl <mb@exept.de> parents: 5172 diff changeset	9273	(self listOfModules includes:module) ifFalse:[
bfd29db1a419 source code management per module get apply for changes Michael Beyl <mb@exept.de> parents: 5172 diff changeset	9274	self listOfModules add:module.
bfd29db1a419 source code management per module get apply for changes Michael Beyl <mb@exept.de> parents: 5172 diff changeset	9275	self listOfModules sort.
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9276	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9277	cvsRoot size > 0 ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9278	rootsPerModule at:module put:cvsRoot.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9279	].
5174 bfd29db1a419 source code management per module get apply for changes Michael Beyl <mb@exept.de> parents: 5172 diff changeset	9280	self updateModifiedChannel.
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9281	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9282
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9283	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9284
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9285	(self hasManager and:[self useManager value]) ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9286	manager isNil ifTrue:[
6103 d8147b126f9d * empty log message * penk parents: 6086 diff changeset	9287	Smalltalk at:#SourceCodeManager put:(CVSSourceCodeManager).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9288	manager := Smalltalk at:#SourceCodeManager.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9289	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9290	Class tryLocalSourceFirst:self localSourceFirst value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9291
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9292	manager notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9293	\| nm fn\|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9294	nm := self sourceCacheDir value.
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9295	nm notEmptyOrNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9296	(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	9297	(self confirm:('CVS cache directory ''' , nm , ''' does not exist\create ?' withCRs)) ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9298	fn makeDirectory;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9299	makeReadableForAll;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9300	makeWritableForAll;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9301	makeExecutableForAll.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9302	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9303	].
5318 02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	9304	(fn isDirectory
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9305	and:[fn isReadable
5318 02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	9306	and:[fn isWritable]]) ifTrue:[
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9307	AbstractSourceCodeManager cacheDirectoryName:nm.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9308	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9309	self warn:'Invalid sourceCache directory.'
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9310	]
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9311	"/ ] ifFalse:[
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9312	"/ AbstractSourceCodeManager cacheDirectoryName:nil.
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9313	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9314	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9315
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9316	repositoryHolder notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9317	repositoryHolder value size > 0 ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9318	manager notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9319	manager initializeForRepository:repositoryHolder value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9320	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9321	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9322	].
5912 c276be9276dd Strip trailing/leading blanks from CVS-Path. Stefan Vogel <sv@exept.de> parents: 5902 diff changeset	9323	CVSSourceCodeManager cvsBinDirectory:self cvsBinDirectoryHolder value withoutSeparators.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9324	CVSSourceCodeManager initializeForRepository:self cvsRootHolder value.
4760 206a67dba8a8 repository changes after initialize will now reloaded penk parents: 4737 diff changeset	9325	self cvsBinDirectoryHolder value:CVSSourceCodeManager cvsBinDirectory.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9326	CVSSourceCodeManager repositoryNamesPerModule:rootsPerModule.
4650 c358bcfef403 source code management have no unsaved changes after enable anymore penk parents: 4635 diff changeset	9327	self sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9328	DebugView newDebugger.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9329	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9330	Smalltalk at:#SourceCodeManager put:nil
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9331	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9332
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9333	UserPreferences current at:#checkClassesWhenCheckingIn put:self checkClassesWhenCheckingIn value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9334	self acceptChannel value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9335	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9336
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9337	condenseSourceCache
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9338
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9339	self withWaitCursorDo:[ AbstractSourceCodeManager condenseSourceCache ]
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9340	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9341
5343 eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9342	cvsLogin:cvsRoot
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9343	\|cmd term\|
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9344
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9345	cmd := 'cvs -d ' , cvsRoot , ' login ; exit'.
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9346	term := VT100TerminalView open.
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9347	term topView label:'CVS Login for ' , cvsRoot.
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9348	term topView waitUntilVisible.
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9349	term shellTerminateAction:[
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9350	"/ term topView destroy
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9351	].
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9352
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9353	term showCR:(('Please enter the CVS-password then close this terminal window.') asText allBold colorizeAllWith:Color red).
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9354	term showCR:''.
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9355	term endEntry.
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9356	Delay waitForSeconds:1.
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9357	term sendLine:cmd.
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9358
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9359	"
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9360	self basicNew cvsLogin:':pserver:stx@exept.eu.org:/stx'
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9361	"
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9362	!
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9363
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9364	flushSourceCache
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9365
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9366	self withWaitCursorDo:[ AbstractSourceCodeManager flushSourceCache ]
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9367	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9368
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	9369	helpFilename
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	9370	^ 'Launcher/cvsSetup.html'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9371	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9372
5343 eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9373	loginCVSRoot
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9374	self cvsLogin:cvsRootHolder value.
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9375	!
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9376
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9377	loginPerModuleRoot
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9378	self cvsLogin:perModuleRoot value.
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9379	!
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9380
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9381	readSettings
5174 bfd29db1a419 source code management per module get apply for changes Michael Beyl <mb@exept.de> parents: 5172 diff changeset	9382	self initialize.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9383	self hasManager ifTrue:[
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9384	self useManager value:(manager := Smalltalk at:#SourceCodeManager) notNil.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9385	self localSourceFirst value:Class tryLocalSourceFirst.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9386	self sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9387	manager notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9388	manager forgetDisabledModules.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9389	repository := manager repositoryName.
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9390	repositoryHolder := (repository ? '') asValue
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9391	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9392	self cvsIsSetup value:true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9393	] ifFalse:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9394	self useManager value:false.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9395	self localSourceFirst value:false.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9396	self cvsIsSetup value:false
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9397	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9398	self checkClassesWhenCheckingIn
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9399	value:(currentUserPrefs at:#checkClassesWhenCheckingIn ifAbsent:true).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9400	self cvsRootHolder
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9401	value:CVSSourceCodeManager repositoryName ? '/cvs/stx'.
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9402	self cvsBinDirectoryHolder value:CVSSourceCodeManager cvsBinDirectory.
4812 f4d7501fd235 checkin from browser penk parents: 4805 diff changeset	9403	rootsPerModule notNil ifTrue:[
5175 8fd9af3eee73 source code management per module get apply for changes Michael Beyl <mb@exept.de> parents: 5174 diff changeset	9404	self listOfModules removeAll.
5174 bfd29db1a419 source code management per module get apply for changes Michael Beyl <mb@exept.de> parents: 5172 diff changeset	9405	listOfModules addAll:rootsPerModule keys asList.
4812 f4d7501fd235 checkin from browser penk parents: 4805 diff changeset	9406	].
4779 98f77618ef6f root per module reading fixed penk parents: 4767 diff changeset	9407	self selectedPerModuleRootChanged.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9408	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9409	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9410
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9411	removePerModuleRoot
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9412
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9413	\|module\|
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9414
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9415	acceptChannel value:true.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9416	module := self perModuleRootModule value.
5174 bfd29db1a419 source code management per module get apply for changes Michael Beyl <mb@exept.de> parents: 5172 diff changeset	9417	self listOfModules remove:module ifAbsent:nil.
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9418	rootsPerModule removeKey:module ifAbsent:nil.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9419	self perModuleRootModule value:nil.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9420	self perModuleRoot value:nil.
5174 bfd29db1a419 source code management per module get apply for changes Michael Beyl <mb@exept.de> parents: 5172 diff changeset	9421	self updateModifiedChannel.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9422	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9423
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9424	setupSourceCodeManager
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9425
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9426	AbstractLauncherApplication::LauncherDialogs cvsConfigurationDialog.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9427	manager := (Smalltalk at:#SourceCodeManager).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9428	cvsIsSetup value:manager notNil.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9429	manager notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9430	repositoryHolder value: manager repositoryName.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9431	sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9432	].
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9433	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9434
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9435	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'aspects'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9436
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9437	acceptChannel
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9438
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9439	acceptChannel isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9440	acceptChannel := TriggerValue new.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9441	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9442	^ acceptChannel.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9443	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9444
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9445	checkClassesWhenCheckingIn
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9446
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9447	checkClassesWhenCheckingIn isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9448	checkClassesWhenCheckingIn := (currentUserPrefs at:#checkClassesWhenCheckingIn ifAbsent:true) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	9449	checkClassesWhenCheckingIn onChangeSend:#updateModifiedChannel to:self
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9450	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9451	^ checkClassesWhenCheckingIn.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9452	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9453
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9454	cvsBinDirectoryHolder
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	9455	cvsBinDirectoryHolder isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	9456	cvsBinDirectoryHolder := ValueHolder new.
5286 ab068226973e has unsaved changes penk parents: 5283 diff changeset	9457	cvsBinDirectoryHolder onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	9458	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	9459	^ cvsBinDirectoryHolder.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	9460	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	9461
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9462	cvsIsSetup
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	9463	cvsIsSetup isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	9464	cvsIsSetup := true asValue.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	9465	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	9466	^ cvsIsSetup.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	9467	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	9468
5343 eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9469	cvsLoginEnabled
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9470	cvsLoginEnabled isNil ifTrue:[
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9471	cvsLoginEnabled := false asValue.
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9472	].
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9473	^ cvsLoginEnabled.
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9474	!
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9475
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9476	cvsLoginInModuleEnabled
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9477	cvsLoginInModuleEnabled isNil ifTrue:[
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9478	cvsLoginInModuleEnabled := false asValue.
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9479	].
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9480	^ cvsLoginInModuleEnabled.
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9481	!
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9482
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9483	cvsRootHolder
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	9484
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	9485	cvsRootHolder isNil ifTrue:[
5318 02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	9486	cvsRootHolder := self cvsRootFromCVSRootFileOrNil asValue.
5343 eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9487	cvsRootHolder addDependent:self.
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	9488	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	9489	^ cvsRootHolder.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	9490	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	9491
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9492	cvsRootPrototypeList
5318 02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	9493	\|cvsRoot\|
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9494
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9495	cvsRootPrototypeList isNil ifTrue:[
5343 eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9496	cvsRootPrototypeList := OrderedCollection new.
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9497
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9498	cvsRoot := self cvsRootFromCVSRootFileOrNil.
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9499	(cvsRoot notNil and:[(cvsRootPrototypeList includes:cvsRoot) not]) ifTrue:[
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9500	cvsRootPrototypeList add:cvsRoot
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9501	].
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9502
5318 02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	9503	OperatingSystem getDomainName = 'exept' ifTrue:[
5343 eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9504	cvsRootPrototypeList add:'exept:/cvs/stx'.
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9505	cvsRootPrototypeList add:(':pserver:' , OperatingSystem getLoginName , '@exept:/cvs/stx')
5318 02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	9506	] ifFalse:[
5343 eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9507	cvsRootPrototypeList add:'host:/cvs/stx'.
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9508	cvsRootPrototypeList add:(':pserver:' , OperatingSystem getLoginName , '@host:/cvs/stx').
4767 389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9509	].
389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9510
389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9511	OperatingSystem isUNIXlike ifTrue:[
5343 eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9512	cvsRootPrototypeList addFirst:'/cvs/stx'.
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9513	] ifFalse:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9514	OperatingSystem isMSDOSlike ifTrue:[
5343 eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9515	cvsRootPrototypeList addFirst:':local:c:\cvs\stx'.
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9516	] ifFalse:[
4767 389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9517	"there might be more here in the future"
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9518	]
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9519	].
5318 02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	9520
5343 eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9521	"/ cvsRootPrototypeList add:(':pserver:stx@exept.eu.org:/cvs/stx').
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9522	cvsRootPrototypeList add:(':pserver:stx@exept.eu.org:/stx').
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9523	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9524	^ cvsRootPrototypeList.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9525	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9526
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9527	listOfModules
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9528
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9529	listOfModules isNil ifTrue:[
5174 bfd29db1a419 source code management per module get apply for changes Michael Beyl <mb@exept.de> parents: 5172 diff changeset	9530	rootsPerModule notNil ifTrue:[
bfd29db1a419 source code management per module get apply for changes Michael Beyl <mb@exept.de> parents: 5172 diff changeset	9531	listOfModules := rootsPerModule keys asList.
bfd29db1a419 source code management per module get apply for changes Michael Beyl <mb@exept.de> parents: 5172 diff changeset	9532	].
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9533	listOfModules sort.
5174 bfd29db1a419 source code management per module get apply for changes Michael Beyl <mb@exept.de> parents: 5172 diff changeset	9534	listOfModules onChangeSend:#updateModifiedChannel to:self
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9535	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9536	^ listOfModules.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9537	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9538
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9539	localSourceFirst
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9540
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9541	localSourceFirst isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9542	localSourceFirst := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	9543	localSourceFirst onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9544	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9545	^ localSourceFirst.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9546	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9547
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9548	perModuleRoot
5332 d02586ccaa63 value holder for roots per module penk parents: 5318 diff changeset	9549	perModuleRoot isNil ifTrue:[
d02586ccaa63 value holder for roots per module penk parents: 5318 diff changeset	9550	perModuleRoot := ValueHolder new.
5343 eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9551	perModuleRoot addDependent:self.
5332 d02586ccaa63 value holder for roots per module penk parents: 5318 diff changeset	9552	].
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9553	^ perModuleRoot.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9554	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9555
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9556	perModuleRootModule
5332 d02586ccaa63 value holder for roots per module penk parents: 5318 diff changeset	9557	perModuleRootModule isNil ifTrue:[
d02586ccaa63 value holder for roots per module penk parents: 5318 diff changeset	9558	perModuleRootModule := ValueHolder new.
d02586ccaa63 value holder for roots per module penk parents: 5318 diff changeset	9559	].
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9560	^ perModuleRootModule.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9561	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9562
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9563	removeEnabled
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9564
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9565	removeEnabled isNil ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9566	removeEnabled := false asValue.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9567	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9568	^ removeEnabled.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9569	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9570
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9571	selectedPerModuleRoot
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9572	selectedPerModuleRoot isNil ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9573	selectedPerModuleRoot := ValueHolder new.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9574	selectedPerModuleRoot addDependent:self.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9575	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9576	^ selectedPerModuleRoot.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9577	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9578
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9579	sourceCacheDir
5286 ab068226973e has unsaved changes penk parents: 5283 diff changeset	9580	sourceCacheDir isNil ifTrue:[
ab068226973e has unsaved changes penk parents: 5283 diff changeset	9581	sourceCacheDir := ValueHolder new.
ab068226973e has unsaved changes penk parents: 5283 diff changeset	9582	sourceCacheDir onChangeSend:#updateModifiedChannel to:self
ab068226973e has unsaved changes penk parents: 5283 diff changeset	9583	].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9584	^ sourceCacheDir.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9585	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9586
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9587	useManager
5286 ab068226973e has unsaved changes penk parents: 5283 diff changeset	9588	useManager isNil ifTrue:[
ab068226973e has unsaved changes penk parents: 5283 diff changeset	9589	useManager := ValueHolder new.
ab068226973e has unsaved changes penk parents: 5283 diff changeset	9590	useManager onChangeSend:#updateModifiedChannel to:self
ab068226973e has unsaved changes penk parents: 5283 diff changeset	9591	].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9592	^ useManager.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9593	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9594
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9595	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'change & update'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9596
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9597	selectedPerModuleRootChanged
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9598	\|module cvsRoot\|
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9599
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9600	self acceptChannel value:true.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9601	module := self selectedPerModuleRoot value.
4812 f4d7501fd235 checkin from browser penk parents: 4805 diff changeset	9602	module isNil ifTrue:[ ^ self].
5343 eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9603
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9604	self removeEnabled value:true.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9605	cvsRoot := rootsPerModule at:module ifAbsent:''.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9606	self perModuleRootModule value:module.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9607	self perModuleRoot value:cvsRoot.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9608	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9609
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9610	sourceDirChanged
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9611	\| nm fn\|
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9612
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9613	manager isNil ifTrue:[^ self].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9614
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9615	nm := self sourceCacheDir value.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9616	nm isEmptyOrNil ifTrue:[^ self].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9617
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9618	(fn := nm asFilename) exists ifFalse:[
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9619	(self confirm:('SourceCache directory ''' , nm , ''' does not exist.\Create ?' withCRs)) ifTrue:[
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9620	fn makeDirectory;
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9621	makeReadableForAll;
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9622	makeWritableForAll;
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9623	makeExecutableForAll.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9624	] ifFalse:[
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9625	self sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName).
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9626	^ self.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9627	].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9628	].
5318 02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	9629	(fn isDirectory
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9630	and:[fn isReadable
5318 02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	9631	and:[fn isWritable]]) ifTrue:[
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9632	AbstractSourceCodeManager cacheDirectoryName:nm.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9633	] ifFalse:[
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9634	self warn:'Invalid sourceCache directory.'.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9635	self sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9636	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9637	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9638
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	9639	update:something with:aParameter from:changedObject
5343 eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9640	changedObject == cvsRootHolder ifTrue:[
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9641	self updateModifiedChannel.
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9642	self updateLoginEnableHolders.
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9643	^ self
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9644	].
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9645	changedObject == perModuleRoot ifTrue:[
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9646	self updateLoginEnableHolders.
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9647	^ self
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9648	].
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9649	changedObject == sourceCacheDir ifTrue:[
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9650	self sourceDirChanged.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	9651	self updateModifiedChannel.
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9652	^ self
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9653	].
5343 eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9654	changedObject == selectedPerModuleRoot ifTrue:[
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9655	self selectedPerModuleRootChanged.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9656	^ self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9657	].
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	9658	super
c72e35116b13 instable state penk parents: 5040 diff changeset	9659	update:something
c72e35116b13 instable state penk parents: 5040 diff changeset	9660	with:aParameter
c72e35116b13 instable state penk parents: 5040 diff changeset	9661	from:changedObject
5343 eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9662	!
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9663
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9664	updateLoginEnableHolders
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9665	self cvsLoginEnabled value:((cvsRootHolder value ? '') startsWith:':pserver:').
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9666	self cvsLoginInModuleEnabled value:((perModuleRoot value ? '') startsWith:':pserver:').
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9667	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9668
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9669	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'initialization & release'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9670
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9671	initialize
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9672	(AbstractSourceCodeManager notNil) ifTrue:[AbstractSourceCodeManager autoload].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9673
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9674	useManager := false asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	9675	useManager onChangeSend:#updateModifiedChannel to:self.
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9676
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9677	sourceCacheDir := nil asValue.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9678	sourceCacheDir addDependent:self.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9679
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9680	repositoryHolder := '' asValue.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9681	rootsPerModule := Dictionary new.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9682
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9683	SourceCodeManager == CVSSourceCodeManager ifTrue:[
5943 df089099d96d Use #addAll: instead of #declareAllFrom:, since #declareAllFrom: Stefan Vogel <sv@exept.de> parents: 5920 diff changeset	9684	rootsPerModule addAll:(SourceCodeManager repositoryNamesPerModule).
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9685	].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9686
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9687	super initialize.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9688	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9689
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9690	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'queries'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9691
5318 02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	9692	cvsRootFromCVSRootFileOrNil
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	9693	\|cvsDir cvsRootFile cvsRoot\|
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	9694
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	9695	cvsDir := 'CVS' asFilename.
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	9696	cvsDir isDirectory ifTrue:[
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	9697	cvsRootFile := cvsDir construct:'Root'.
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	9698	cvsRootFile isReadable ifTrue:[
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	9699	cvsRoot := cvsRootFile contents firstIfEmpty:nil.
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	9700	].
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	9701	].
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	9702	^ cvsRoot
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	9703	!
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	9704
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9705	hasManager
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9706	^ AbstractSourceCodeManager notNil
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9707	and:[AbstractSourceCodeManager isLoaded]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9708	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9709
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9710	hasUnsavedChanges
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	9711	(self useManager value ~= ((Smalltalk at:#SourceCodeManager) notNil)) ifTrue:[^ true].
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9712
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9713	((self hasManager and:[self useManager value])
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9714	and:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9715	Class tryLocalSourceFirst ~= self localSourceFirst value or:[
6201 0ada373c203c * empty log message * penk parents: 6166 diff changeset	9716	(AbstractSourceCodeManager cacheDirectoryName ? '') ~= (self sourceCacheDir value ? '')]
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9717	])
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9718	ifTrue:[^ true].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9719
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	9720	(self hasManager and:[self useManager value]) ifFalse:[^ false].
5286 ab068226973e has unsaved changes penk parents: 5283 diff changeset	9721
ab068226973e has unsaved changes penk parents: 5283 diff changeset	9722	((UserPreferences current at:#checkClassesWhenCheckingIn ifAbsent:true) ~= self checkClassesWhenCheckingIn value)
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9723	ifTrue:[^ true].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9724
5919 0d11395cb5a4 care for nil withoutSeparators Claus Gittinger <cg@exept.de> parents: 5918 diff changeset	9725	((CVSSourceCodeManager cvsBinDirectory ? '') ~= (self cvsBinDirectoryHolder value ? '') withoutSeparators)
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9726	ifTrue:[^ true].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9727
5286 ab068226973e has unsaved changes penk parents: 5283 diff changeset	9728	(CVSSourceCodeManager repositoryName ? '/files/CVS' ~= self cvsRootHolder value)
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9729	ifTrue:[^ true].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9730
5943 df089099d96d Use #addAll: instead of #declareAllFrom:, since #declareAllFrom: Stefan Vogel <sv@exept.de> parents: 5920 diff changeset	9731	((Dictionary new addAll:(CVSSourceCodeManager repositoryNamesPerModule); yourself) ~= rootsPerModule)
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9732	ifTrue:[^ true].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9733
6201 0ada373c203c * empty log message * penk parents: 6166 diff changeset	9734	((self sourceCacheDir value ? '') ~= (AbstractSourceCodeManager cacheDirectoryName ? '')) ifTrue:[^ true].
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9735
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9736	^ false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9737	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9738
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9739	!AbstractSettingsApplication::StyleSettingsAppl class methodsFor:'defaults'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9740
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9741	standardStyles
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9742
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9743	^ #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9744	'decWindows'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9745	'iris'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9746	'motif'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9747	'mswindows95'
6073 09b4a678793a more xp style Claus Gittinger <cg@exept.de> parents: 6072 diff changeset	9748	'mswindowsxp'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9749	'next'
6108 7e6d327225fa * empty log message * Claus Gittinger <cg@exept.de> parents: 6103 diff changeset	9750	"/ 'normal'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9751	'os2'
6003 668703f77d2c * empty log message * Claus Gittinger <cg@exept.de> parents: 5991 diff changeset	9752	'sgmotif'
6073 09b4a678793a more xp style Claus Gittinger <cg@exept.de> parents: 6072 diff changeset	9753	"/ 'st80'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9754	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9755	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9756
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9757	!AbstractSettingsApplication::StyleSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9758
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9759	defaultIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9760	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9761	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9762
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9763	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9764	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9765
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9766	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9767	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9768	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9769	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9770	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9771
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9772	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9773
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9774	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9775	constantNamed:#'AbstractSettingsApplication::StyleSettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9776	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	9777	@@@@@@@@@@@@@@DA@@@@@@@@@@@@@@@@@@@@@@@@@@DB@0D@@@@@@@@@@@@@@@@@@@@@@@DB@0LD@P@@@@@@@@@@@@@@@@@@@@DB@0LDA@DA@@@@@@@@@@@@
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	9778	@@@@@@TB@ HDA@XF@PD@@@@@@@@@@@@@@@TB@ HB@ \FA H@P@@@@@@@@@@@@TB@ HB@ HBB@XIB@ A@@@@@@@@@@TB@ HB@ HB@ (KB@ KB0DC@@@@@@TB
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	9779	@ HB@ HB@ HB@ ,KB0LC@P@@@@@@APHB@ HB@ HBB (JB0LC@0HL@@4MCP4MCP4MCP4MCP4MCP4AC HE@@@MCPHCC0<PDQHRD1PB@0LM@ DE@@@@CP4B@0<O
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	9780	DADRD!!LT@ LCCPHE@@@@@@4M@08UEQTVE!!XWE0LNC 4E@@@@@@@EAPHB@ HB@ HB@ HJB (E@@@@@@@@APTB@ HB@ HB@ HBB (JAP@@@@@@@@TE@ HB@ HB
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	9781	@ HBB (JB T@@@@@@@@EAPHB@ HB@ HB@ (JB (E@@@@@@@@APTB@ HB@ HB@ HJB (JAP@@@@@@@@TE@ HB@ HB@ HBB (JB T@@@@@@@@EAPHB@ HB@ HB
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	9782	B (JB (E@@@@@@@@APTEAPTEAPTEAPTEAPTEAP@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 32 96 80 240 240 240 192 192 192 64 144 128 80 80 80 48 112 112 48 128 128 32 96 96 48 128 112 224 224 224 32 80 80 64 96 96 0 80 128 128 128 128 16 144 192 16 128 176 16 128 160 0 112 160 0 112 144 0 96 144 16 112 144 0 96 128 0 80 112]; mask:((ImageMask new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@C@@@G @@O0@@_8@@?<@A?>@C??@G??0O??0G??8???0??? ???@??>@??<@??<@??<@??<@??<@??<@??<@??<@') ; yourself); yourself]
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9783	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9784
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9785	!AbstractSettingsApplication::StyleSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9786
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9787	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9788	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9789	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9790
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9791	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9792	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9793
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9794	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9795	UIPainter new openOnClass:AbstractSettingsApplication::StyleSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9796	AbstractSettingsApplication::StyleSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9797	AbstractSettingsApplication::StyleSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9798	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9799
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9800	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9801
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9802	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9803	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9804	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9805	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9806	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9807	label: 'ViewStyle Selection'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9808	name: 'ViewStyle Selection'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9809	min: (Point 10 10)
5576 8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	9810	bounds: (Rectangle 0 0 562 661)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9811	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9812	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9813	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9814	collection: (
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9815	(VariableVerticalPanelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9816	name: 'VariableVerticalPanel1'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9817	layout: (LayoutFrame 0 0.0 0 0 0 1.0 -35 1)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9818	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9819	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9820	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9821	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9822	name: 'Box1'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9823	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9824	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9825	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9826	(TextEditorSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9827	name: 'TextEditor1'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9828	layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	9829	style: (FontDescription arial medium roman 9)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9830	model: noticeLabelHolder
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9831	hasHorizontalScrollBar: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9832	hasVerticalScrollBar: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9833	isReadOnly: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9834	postBuildCallback: postBuildHelpLabel:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9835	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9836	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9837
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9838	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9839	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9840	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9841	name: 'Box2'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9842	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9843	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9844	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9845	(VerticalPanelViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9846	name: 'VerticalPanel1'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9847	layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9848	horizontalLayout: fit
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9849	verticalLayout: topFit
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9850	horizontalSpace: 3
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9851	verticalSpace: 3
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9852	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9853	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9854	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9855	(CheckBoxSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9856	label: 'standard styles only'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9857	name: 'CheckBox1'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9858	model: showStandardStylesOnly
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9859	translateLabel: true
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	9860	extent: (Point 562 35)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9861	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9862	(SequenceViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9863	name: 'StyleList'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9864	model: selectedStyle
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9865	hasHorizontalScrollBar: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9866	hasVerticalScrollBar: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9867	doubleClickSelector: doubleClickAt:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9868	useIndex: false
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9869	sequenceList: styleList
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	9870	extent: (Point 562 353)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9871	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9872	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9873
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9874	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9875	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9876	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9877
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9878	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9879	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9880	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9881
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9882	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9883	handles: (Any 0.37 1.0)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9884	)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9885	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9886	name: 'Box3'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9887	layout: (LayoutFrame 0 0 -35 1 0 1 0 1)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9888	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9889	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9890	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9891	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9892	label: 'Label'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9893	name: 'Label1'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9894	layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9895	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9896	labelChannel: infoLabelHolder
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9897	resizeForLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9898	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9899	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9900	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9901
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9902	)
5378 4054d8298e68 windowspec for view style penk parents: 5362 diff changeset	9903	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9904	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9905
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9906	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9907	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9908	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9909
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9910	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9911
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9912	basicSaveSettings
6029 40b96dc2621d * empty log message * ca parents: 6025 diff changeset	9913	\|newStyle\|
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9914
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9915	newStyle := self selectedStyle value.
4705 16cfb945d591 * empty log message * penk parents: 4675 diff changeset	9916
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9917	self withWaitCursorDo:[
6081 74df33ee24b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 6073 diff changeset	9918	Transcript showCR:'Change style to ' , newStyle , ' ...'.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9919	View defaultStyle:newStyle asSymbol.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9920	].
6029 40b96dc2621d * empty log message * ca parents: 6025 diff changeset	9921	self reopenToolsAfterChangedViewStyleSetting.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9922	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9923
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9924	doubleClickAt:aLine
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9925
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9926	self saveSettings.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9927	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9928
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	9929	helpFilename
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	9930	^ 'Launcher/styleSettings.html'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9931	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9932
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9933	readSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9934	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9935	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9936
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9937	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9938
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9939	infoLabelHolder
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9940
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9941	infoLabelHolder isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9942	infoLabelHolder := '' asValue.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9943	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9944	^ infoLabelHolder.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9945	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9946
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9947	noticeLabelHolder
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9948
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9949	noticeLabelHolder isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9950	noticeLabelHolder := '' asValue.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9951	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9952	^ noticeLabelHolder.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9953	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9954
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9955	selectedStyle
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9956
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9957	selectedStyle isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9958	selectedStyle := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9959	selectedStyle addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9960	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9961	^ selectedStyle.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9962	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9963
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9964	showStandardStylesOnly
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9965
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9966	showStandardStylesOnly isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9967	showStandardStylesOnly := true asValue.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9968	showStandardStylesOnly addDependent:self.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9969	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9970	^ showStandardStylesOnly.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9971	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9972
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9973	styleList
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	9974
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	9975	styleList isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	9976	styleList := List new.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	9977	styleList addDependent:self.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	9978	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	9979	^ styleList.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9980	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9981
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9982	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9983
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9984	changeInfoLabel
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9985
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9986	\|nm sheet comment\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9987
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9988	comment := ''.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9989	nm := self selectedStyle value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9990	nm notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9991	sheet := ViewStyle fromFile:(nm , '.style').
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9992	comment := (sheet at:#comment ifAbsent:'') withoutSeparators.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9993	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9994	comment := comment withCRs asStringCollection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9995	comment size == 1 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9996	comment := comment first
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9997	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9998	self infoLabelHolder value:comment
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9999	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10000
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10001	update:something with:aParameter from:changedObject
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10002	changedObject == self showStandardStylesOnly ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10003	self updateList.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10004	^ self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10005	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10006	changedObject == self selectedStyle ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10007	self changeInfoLabel.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10008	self updateModifiedChannel.
c72e35116b13 instable state penk parents: 5040 diff changeset	10009	^ self
c72e35116b13 instable state penk parents: 5040 diff changeset	10010	].
c72e35116b13 instable state penk parents: 5040 diff changeset	10011	super
c72e35116b13 instable state penk parents: 5040 diff changeset	10012	update:something
c72e35116b13 instable state penk parents: 5040 diff changeset	10013	with:aParameter
c72e35116b13 instable state penk parents: 5040 diff changeset	10014	from:changedObject
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10015	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10016
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10017	updateList
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10018
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10019	\|listOfStyles lastSelection\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10020
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10021	lastSelection := self selectedStyle value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10022	listOfStyles := styleDirectoryContents select:[:aFileName \| aFileName asFilename hasSuffix:'style'].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10023	listOfStyles := listOfStyles collect:[:aFileName \| aFileName asFilename withoutSuffix name].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10024	Filename isCaseSensitive ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10025	listOfStyles := listOfStyles collect:[:aStyleName \| aStyleName asLowercase].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10026	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10027	listOfStyles remove:'generic' ifAbsent:nil; remove:'mswindows3' ifAbsent:nil.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10028	self showStandardStylesOnly value ifTrue:[
6086 1d3d8652e87d * empty log message * Claus Gittinger <cg@exept.de> parents: 6081 diff changeset	10029	listOfStyles := listOfStyles select:[:aStyleName \| self class standardStyles includes:aStyleName asLowercase].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10030	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10031
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10032	listOfStyles sort.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10033	self styleList contents:listOfStyles.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10034	self selectedStyle value:lastSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10035	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10036
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10037	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10038
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10039	initialize
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10040
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10041	\|someRsrcFile resourceDir\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10042
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10043	super initialize.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10044
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10045	someRsrcFile := Smalltalk getSystemFileName:('resources' asFilename constructString:'normal.style').
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10046	someRsrcFile isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10047	someRsrcFile := Smalltalk getResourceFileName:'normal.style' forPackage:'stx:libview'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10048	someRsrcFile isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10049	someRsrcFile := Smalltalk getResourceFileName:'styles/normal.style' forPackage:'stx:libview'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10050	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10051	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10052	someRsrcFile notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10053	resourceDir := someRsrcFile asFilename directoryName
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10054	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10055	resourceDir := Smalltalk getSystemFileName:'resources'.
4635 6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	10056	resourceDir isNil ifTrue:[
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	10057	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	10058	^ self
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	10059	].
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	10060	].
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	10061
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	10062	[
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	10063	styleDirectoryContents := resourceDir asFilename directoryContents.
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	10064	] on:FileStream openErrorSignal do:[:ex\|
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	10065	self warn:'no styles found (unaccessable ''resources'' directory)'.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10066	^ self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10067	].
4635 6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	10068
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10069	self updateList.
6086 1d3d8652e87d * empty log message * Claus Gittinger <cg@exept.de> parents: 6081 diff changeset	10070	(self class standardStyles includes:View defaultStyle asLowercase) ifFalse:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10071	self showStandardStylesOnly value:false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10072	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10073	self selectedStyle value:(View defaultStyle).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10074	self noticeLabelHolder value:(resources at:'STYLE_MSG' default:'Select a Style') withCRs.
5378 4054d8298e68 windowspec for view style penk parents: 5362 diff changeset	10075	!
4054d8298e68 windowspec for view style penk parents: 5362 diff changeset	10076
4054d8298e68 windowspec for view style penk parents: 5362 diff changeset	10077	postBuildHelpLabel:aWidget
4054d8298e68 windowspec for view style penk parents: 5362 diff changeset	10078	aWidget level:0.
4054d8298e68 windowspec for view style penk parents: 5362 diff changeset	10079	aWidget scrolledView backgroundColor:self window viewBackground.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10080	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10081
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10082	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10083
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10084	hasUnsavedChanges
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10085
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10086	^ (self selectedStyle value ~= View defaultStyle)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10087	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10088
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10089	!AbstractSettingsApplication::SyntaxColorSettingsAppl class methodsFor:'defaults'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10090
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10091	emphasisList
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10092
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10093	^ #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10094	#normal
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10095	#underline
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10096	#'red underline'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10097	#underwave
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10098	#'red underwave'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10099	#bold
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10100	#boldUnderline
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10101	#'bold+red underline'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10102	#boldUnderwave
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10103	#'bold+red underwave'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10104	#italic
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10105	#italicUnderline
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10106	#'italic+red underline'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10107	#italicUnderwave
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10108	#'italic+red underwave'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10109	#reverse
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10110	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10111	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10112
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10113	exampleText
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10114
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10115	^ 'methodSelector:methodArg
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10116	"method comment:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10117	some stupid code to show the current settings"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10118
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10119	\|methodVar\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10120
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10121	"/ another comment ...
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10122	self at:methodArg. "/ a message
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10123	self fooBarBaz:methodVar. "/ a bad message
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10124	methodVar := Array new:1.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10125	unknonVar := 1. "/ a bad variable
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10126	UnknonVar := 1. "/ another bad variable
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10127	"self bar:methodVar. detect commented code easily"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10128	1 to:5 do:[:i \| self at:i + 1].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10129	Transcript showCR:''some string'' , #someSymbol.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10130	^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10131	'.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10132	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10133
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10134	fontList
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10135
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10136	^ #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10137	normal
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10138	underline
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10139	#'red underline'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10140	underwave
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10141	#'red underwave'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10142	bold
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10143	boldUnderline
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10144	#'bold+red underline'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10145	boldUnderwave
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10146	#'bold+red underwave'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10147	italic
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10148	italicUnderline
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10149	#'italic+red underline'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10150	italicUnderwave
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10151	#'italic+red underwave'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10152	reverse
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10153	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10154	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10155
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10156	!AbstractSettingsApplication::SyntaxColorSettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10157
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10158	defaultIcon
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10159	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10160	by the ImageEditor of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10161
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10162	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10163	the ImageEditor may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10164
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10165	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10166	self defaultIcon inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10167	ImageEditor openOnClass:self andSelector:#defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10168	Icon flushCachedIcons
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10169	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10170
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10171	<resource: #image>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10172
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10173	^Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10174	constantNamed:#'AbstractSettingsApplication::SyntaxColorSettingsAppl class defaultIcon'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	10175	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	10176	DQDQDQDQDQDQDQDTQDQDQDQDQDQDPQQ@QDADQBP$QDP!!E@QDQ@QDIBQDP$DTADQDADQDQDQBPQPDQDPDQDQDQBQAE@QDQ@QDQDQDIDDTADQDADQDQDIDPQPD
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	10177	QDPDQDQDP$QAEDADPDQDQDP$QDDTQDQDQDQDQDQDPQQDADQDQDQDQDQAEDADQDQDQDQDQDDTPDQ@QDADQDQDPQP@A@PDA@Q@QDQAEDADA@PDADQDQDDTPDPD
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	10178	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	10179	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10180
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10181	!AbstractSettingsApplication::SyntaxColorSettingsAppl class methodsFor:'interface specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10182
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10183	windowSpec
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10184	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10185	by the UIPainter of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10186
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10187	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10188	the UIPainter may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10189
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10190	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10191	UIPainter new openOnClass:AbstractSettingsApplication::SyntaxColorSettingsAppl andSelector:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10192	AbstractSettingsApplication::SyntaxColorSettingsAppl new openInterface:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10193	AbstractSettingsApplication::SyntaxColorSettingsAppl open
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10194	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10195
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10196	<resource: #canvas>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10197
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10198	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10199	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10200	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10201	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10202	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10203	label: 'Syntax Color Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10204	name: 'Syntax Color Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10205	min: (Point 10 10)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10206	bounds: (Rectangle 0 0 695 609)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10207	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10208	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10209	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10210	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10211	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10212	name: 'VerticalPanel2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10213	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	10214	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10215	verticalLayout: topSpace
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10216	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10217	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10218	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10219	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10220	collection: (
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10221	(ViewSpec
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10222	name: 'ElementSelectionBox'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10223	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10224	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10225	collection: (
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10226	(LabelSpec
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10227	label: 'Element:'
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10228	name: 'Label4'
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10229	layout: (LayoutFrame 0 0 0 0 100 0 22 0)
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10230	translateLabel: true
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10231	adjust: right
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10232	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10233	(ComboListSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10234	name: 'ComboList3'
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10235	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	10236	enableChannel: syntaxColoring
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10237	model: syntaxElementSelection
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10238	comboList: syntaxElementList
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10239	useIndex: false
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10240	hidePullDownMenuButton: false
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10241	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10242	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10243
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10244	)
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10245	extent: (Point 695 25)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10246	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10247	(ViewSpec
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10248	name: 'ColorBox'
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10249	component:
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10250	(SpecCollection
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10251	collection: (
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10252	(LabelSpec
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10253	label: 'Color:'
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10254	name: 'Label2'
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10255	layout: (LayoutFrame 40 0 0 0 140 0 22 0)
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10256	translateLabel: true
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10257	adjust: right
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10258	)
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10259	(ColorMenuSpec
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10260	name: 'ColorMenu2'
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10261	layout: (LayoutFrame 140 0 0 0 0 1 22 0)
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10262	enableChannel: syntaxColoring
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10263	model: syntaxColor
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10264	labelsAreColored: true
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10265	)
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10266	)
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10267
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10268	)
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10269	extent: (Point 695 25)
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10270	)
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10271	(ViewSpec
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10272	name: 'EmphasisBox'
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10273	component:
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10274	(SpecCollection
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10275	collection: (
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10276	(LabelSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10277	label: 'Emphasis:'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10278	name: 'Label1'
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10279	layout: (LayoutFrame 40 0 0 0 140 0 22 0)
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10280	translateLabel: true
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10281	adjust: right
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10282	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10283	(ComboListSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10284	name: 'ComboList5'
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10285	layout: (LayoutFrame 140 0 0 0 0 1 22 0)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10286	enableChannel: syntaxColoring
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10287	model: syntaxEmphasisSelection
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10288	comboList: syntaxEmphasisList
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10289	useIndex: false
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10290	hidePullDownMenuButton: false
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10291	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10292	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10293
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10294	)
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10295	extent: (Point 695 25)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10296	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10297	(ViewSpec
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10298	name: 'ResetBox'
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10299	component:
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10300	(SpecCollection
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10301	collection: (
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10302	(ActionButtonSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10303	label: 'Reset To:'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10304	name: 'Button2'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10305	layout: (LayoutFrame 0 0 -22 1 150 0 0 1)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10306	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10307	model: resetToColorScheme
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10308	enableChannel: syntaxColoring
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10309	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10310	(ComboListSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10311	name: 'ComboList4'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10312	layout: (LayoutFrame 150 0 -22 1 0 1 0 1)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10313	enableChannel: syntaxColoring
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10314	model: resetListSelection
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10315	comboList: resetList
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10316	useIndex: false
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10317	hidePullDownMenuButton: false
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10318	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10319	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10320
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10321	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10322	extent: (Point 695 35)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10323	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10324	(ViewSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10325	name: 'SpacingBox1'
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10326	extent: (Point 695 10)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10327	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10328	(LabelSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10329	label: 'Sample Output:'
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10330	name: 'SampleLabel3'
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10331	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10332	adjust: left
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10333	extent: (Point 695 22)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10334	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10335	(TextEditorSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10336	name: 'TextEditor2'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10337	enableChannel: syntaxColoring
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10338	model: coloredText
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10339	hasHorizontalScrollBar: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10340	hasVerticalScrollBar: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10341	isReadOnly: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10342	extent: (Point 695 280)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10343	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10344	(ViewSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10345	name: 'SpacingBox2'
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10346	extent: (Point 695 10)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10347	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10348	(CheckBoxSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10349	label: 'Syntax Coloring'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10350	name: 'CheckBox1'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10351	model: syntaxColoring
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10352	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10353	extent: (Point 695 22)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10354	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10355	(CheckBoxSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10356	label: 'Immediate Selector Check'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10357	name: 'ImmediateSelectorCheckBox'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10358	enableChannel: syntaxColoring
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10359	model: fullSelectorCheck
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10360	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10361	extent: (Point 695 22)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10362	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10363	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10364
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10365	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10366	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10367	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10368
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10369	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10370	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10371	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10372
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10373	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'actions'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10374
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10375	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10376
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10377	oldUserPreferences := currentUserPrefs copy.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10378	currentUserPrefs syntaxColoring:self syntaxColoring value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10379	currentUserPrefs at:#fullSelectorCheck put:self fullSelectorCheck value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10380	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10381
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10382	formattingConfiguration
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10383	"automatically generated by UIPainter ..."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10384
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10385	"*** the code below performs no action"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10386	"*** (except for some feedback on the Transcript)"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10387	"*** Please change as required and accept in the browser."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10388
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10389	"action to be added ..."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10390
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10391	Transcript showCR:self class name, ': action for formattingConfiguration ...'.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10392	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10393
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	10394	helpFilename
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	10395	^ 'Launcher/sourceSettings.html'
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10396	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10397
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10398	readSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10399	\|colorList resetListLoc\|
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10400
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10401	oldUserPreferences notNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10402	(UserPreferences
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10403	reset;
5943 df089099d96d Use #addAll: instead of #declareAllFrom:, since #declareAllFrom: Stefan Vogel <sv@exept.de> parents: 5920 diff changeset	10404	current) addAll:oldUserPreferences
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10405	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10406	self syntaxColoring value:currentUserPrefs syntaxColoring.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10407	self fullSelectorCheck value:currentUserPrefs fullSelectorCheck.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10408	oldUserPreferences := currentUserPrefs copy.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10409	colorList := UserPreferences syntaxColorNames.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10410	resetListLoc := currentUserPrefs listOfPredefinedSyntaxColoringSchemes
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10411	collect:[:entry \| entry second].
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10412	self resetList value:resetListLoc.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10413	self resetListSelection value:resetListLoc first.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10414	self syntaxEmphasisList value:self class emphasisList.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10415	self syntaxElementList value:colorList.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10416	self syntaxElementSelection value:(colorList at:1).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10417	self modifiedChannel value:false
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10418	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10419
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10420	recolor
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10421	\|text\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10422
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10423	self syntaxColoring value ifTrue:[
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10424	text := SyntaxHighlighter
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10425	formatMethod:self class exampleText
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10426	in:nil
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10427	using:currentUserPrefs.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10428	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10429	text := self class exampleText.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10430	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10431	self coloredText value:text
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10432	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10433
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10434	resetToColorScheme
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10435	\|resetSelector\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10436
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10437	resetSelector := resetListDictionary
c72e35116b13 instable state penk parents: 5040 diff changeset	10438	keyAtValue:(self resetListSelection value).
c72e35116b13 instable state penk parents: 5040 diff changeset	10439	currentUserPrefs perform:resetSelector.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10440	self recolor.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10441	self updateModifiedChannel
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10442	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10443
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10444	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'aspects'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10445
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10446	coloredText
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10447
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10448	coloredText isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10449	coloredText := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10450	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10451	^ coloredText.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10452	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10453
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10454	fullSelectorCheck
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10455
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10456	fullSelectorCheck isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10457	fullSelectorCheck := currentUserPrefs fullSelectorCheck asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10458	fullSelectorCheck onChangeSend:#updateModifiedChannel to:self
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10459	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10460	^ fullSelectorCheck.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10461	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10462
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10463	resetList
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10464
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10465	resetList isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10466	resetList := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10467	"/ if your app needs to be notified of changes, uncomment one of the lines below:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10468	"/ resetList addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10469	"/ resetList onChangeSend:#resetListChanged to:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10470	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10471	^ resetList.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10472	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10473
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10474	resetListSelection
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10475
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10476	resetListSelection isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10477	resetListSelection := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10478	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10479	^ resetListSelection.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10480	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10481
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10482	syntaxColor
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10483
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10484	syntaxColor isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10485	syntaxColor := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10486	syntaxColor addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10487	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10488	^ syntaxColor.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10489	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10490
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10491	syntaxColoring
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10492
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10493	syntaxColoring isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10494	syntaxColoring := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10495	syntaxColoring addDependent:self.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10496	syntaxColoring onChangeSend:#updateModifiedChannel to:self.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10497	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10498	^ syntaxColoring.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10499	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10500
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10501	syntaxElementList
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10502	"automatically generated by UIPainter ..."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10503
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10504	"*** the code below creates a default model when invoked."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10505	"*** (which may not be the one you wanted)"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10506	"*** Please change as required and accept it in the browser."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10507	"*** (and replace this comment by something more useful ;-)"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10508
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10509	syntaxElementList isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10510	syntaxElementList := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10511	"/ if your app needs to be notified of changes, uncomment one of the lines below:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10512	"/ syntaxElementList addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10513	"/ syntaxElementList onChangeSend:#syntaxElementListChanged to:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10514	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10515	^ syntaxElementList.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10516	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10517
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10518	syntaxElementSelection
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10519
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10520	syntaxElementSelection isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10521	syntaxElementSelection := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10522	syntaxElementSelection addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10523	"/ syntaxElementSelection onChangeSend:#syntaxElementSelectionChanged to:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10524	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10525	^ syntaxElementSelection.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10526	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10527
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10528	syntaxEmphasisList
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10529	"automatically generated by UIPainter ..."
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10530
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10531	"*** the code below creates a default model when invoked."
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10532	"*** (which may not be the one you wanted)"
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10533	"*** Please change as required and accept it in the browser."
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10534	"*** (and replace this comment by something more useful ;-)"
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10535
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10536	syntaxEmphasisList isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10537	syntaxEmphasisList := ValueHolder new.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10538	"/ if your app needs to be notified of changes, uncomment one of the lines below:
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10539	"/ syntaxEmphasisList addDependent:self.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10540	"/ syntaxEmphasisList onChangeSend:#syntaxEmphasisListChanged to:self.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10541	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10542	^ syntaxEmphasisList.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10543	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10544
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10545	syntaxEmphasisSelection
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10546
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10547	syntaxEmphasisSelection isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10548	syntaxEmphasisSelection := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10549	syntaxEmphasisSelection addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10550	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10551	^ syntaxEmphasisSelection.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10552	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10553
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10554	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'change & update'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10555
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10556	getEmphasis:anEmphasisOrSymbol
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10557	" return emphasis Symbol for emphasis or emphasis for emphasis symbol "
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10558
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10559	^ emphasisDictionary at:anEmphasisOrSymbol ifAbsent:[nil]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10560	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10561
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10562	syntaxColorChanged
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10563	currentUserPrefs at:(self syntaxColorSelector) put:(self syntaxColor value).
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10564	self recolor.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10565	self updateModifiedChannel
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10566	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10567
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10568	syntaxElementSelectionChanged
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10569
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10570	\| syntaxEmphasisValue \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10571
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10572	self syntaxColor value:(currentUserPrefs perform:(self syntaxColorSelector)).
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10573	syntaxEmphasisValue := (currentUserPrefs perform:(self syntaxEmphasisSelector)).
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10574	self syntaxEmphasisSelection value:(self getEmphasis:syntaxEmphasisValue).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10575	self recolor.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10576	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10577
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10578	syntaxEmphasisSelectionChanged
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10579	\|em\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10580
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10581	em := self getEmphasis:self syntaxEmphasisSelection value.
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10582	currentUserPrefs at:(self syntaxEmphasisSelector) put:em.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10583	self recolor.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10584	self updateModifiedChannel
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10585	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10586
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10587	update:something with:aParameter from:changedObject
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10588	changedObject == self syntaxElementSelection ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10589	self syntaxElementSelectionChanged.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10590	^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10591	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10592	changedObject == self syntaxColor ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10593	self syntaxColorChanged.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10594	^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10595	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10596	changedObject == self syntaxEmphasisSelection ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10597	self syntaxEmphasisSelectionChanged.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10598	^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10599	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10600	changedObject == self syntaxColoring ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10601	self recolor.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10602	^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10603	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10604
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10605	super update:something with:aParameter from:changedObject
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10606	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10607
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10608	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'initialization & release'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10609
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10610	initialize
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10611	self initializeEmphasisDictionary.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10612	super initialize.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10613
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10614	resetListDictionary := Dictionary new.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10615	currentUserPrefs listOfPredefinedSyntaxColoringSchemes do:[:entry \|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10616	resetListDictionary at:(entry at:1) put:(entry at:2)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10617	].
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10618	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10619
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10620	initializeEmphasisDictionary
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10621
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10622	emphasisDictionary := Dictionary new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10623	self class emphasisList do:[ : entry \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10624	entry == #'red underline' ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10625	emphasisDictionary at:entry put:(Array with:#underline with:(#underlineColor->Color red)).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10626	emphasisDictionary at:(Array with:#underline with:(#underlineColor->Color red)) put:entry.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10627	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10628	entry == #'red underwave' ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10629	emphasisDictionary at:entry put:(Array with:#underwave with:(#underlineColor->Color red)).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10630	emphasisDictionary at:(Array with:#underwave with:(#underlineColor->Color red)) put:entry.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10631	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10632	entry == #'bold+red underline' ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10633	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	10634	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	10635	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10636	entry == #'bold+red underwave' ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10637	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	10638	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	10639	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10640	entry == #'italic+red underline' ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10641	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	10642	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	10643	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10644	entry == #'italic+red underwave' ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10645	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	10646	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	10647	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10648	emphasisDictionary at:entry put:entry
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10649	]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10650	]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10651	]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10652	]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10653	]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10654	]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10655	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10656	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10657
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10658	release
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10659
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10660	oldUserPreferences notNil ifTrue:[
5943 df089099d96d Use #addAll: instead of #declareAllFrom:, since #declareAllFrom: Stefan Vogel <sv@exept.de> parents: 5920 diff changeset	10661	(UserPreferences reset; current) addAll:oldUserPreferences
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10662	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10663	super release
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10664	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10665
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10666	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'queries'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10667
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10668	hasUnsavedChanges
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10669	\|colorList colorPerformer emphasisPerformer\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10670
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10671	colorList := UserPreferences syntaxColorNames.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10672	colorList do:[:syntaxElement \|
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10673	colorPerformer := (self syntaxColorSelectorForElement:syntaxElement).
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10674	emphasisPerformer := (self syntaxEmphasisSelectorForElement:syntaxElement).
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10675	((oldUserPreferences perform:colorPerformer) ~= (currentUserPrefs perform:colorPerformer)) ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10676	^ true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10677	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10678	((oldUserPreferences perform:emphasisPerformer) ~= (currentUserPrefs perform:emphasisPerformer)) ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10679	^ true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10680	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10681	syntaxElement
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10682	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10683	currentUserPrefs syntaxColoring ~= self syntaxColoring value ifTrue:[^ true].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10684	currentUserPrefs fullSelectorCheck ~= self fullSelectorCheck value ifTrue:[^ true].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10685	^ false
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10686	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10687
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10688	syntaxColorSelector
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10689	^ (self syntaxColorSelectorForElement:self syntaxElementSelection value)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10690	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10691
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10692	syntaxColorSelectorForElement:aSyntaxElement
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10693	^ (aSyntaxElement replChar:$ withString: '') asLowercaseFirst asSymbol
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10694	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10695
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10696	syntaxEmphasisSelector
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10697
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10698	^ self syntaxEmphasisSelectorForElement:(self syntaxElementSelection value)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10699	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10700
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10701	syntaxEmphasisSelectorForElement:anEmElement
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10702	^ (((self syntaxColorSelectorForElement:anEmElement) readStream upToAll: 'Color'), 'Emphasis')
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10703	asLowercaseFirst asSymbol
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10704	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10705
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10706	!AbstractSettingsApplication::SystemMessageSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10707
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10708	defaultIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10709	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10710	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10711
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10712	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10713	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10714
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10715	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10716	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10717	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10718	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10719	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10720
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10721	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10722
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10723	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10724	constantNamed:#'AbstractSettingsApplication::SystemMessageSettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10725	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	10726	@@@@@@@@@@@@@PDA@P@@@@@@@@@@@@@@@@@@@@@@@PHB@0D@@@@@@@@@@@@@@@@@@@@@@PHDAPLC@P@@@@@@@@@@@@@@@@@@@@DBA PGA0 @@@@@@@@@@@@@
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	10727	@@@@@@@A@ XDA0\H@@@@@@@@@@@@@@@@@@@@@PHIA@(J@@@@@@@@@@@@@@@@@@@@@@DAB00MCP@@@@@@@@@@@@@@@@@@@@@@@@DN@@@@@@@@@@@@@@@@@@@@
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	10728	@@@@@@@AC @@@@@@@@@@@@@@@@@@@@@@@@@@@P8@@@@@@@@@@@@@@@@@@@@@@@<OC0PNDA@@DQD@@@@@@@@@@@@@@@<RD1LTEQXVE1 XDP@@@@@@@@@@@@@O
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	10729	D!!LSEATVE!!\XFAD@@@@@@@@@@@@@C1HSD1$UEAPZF1,\@@@@@@@@@@@@@@<RGQ4YF!!PTEAXVG@@@@@@@@@@@@@@OD!!4]FQ(TEAPVE!!0@@@@@@@@@@@@@C1H]
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	10730	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	10731	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	10732	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10733
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10734	!AbstractSettingsApplication::SystemMessageSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10735
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10736	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10737	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10738	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10739
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10740	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10741	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10742
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10743	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10744	UIPainter new openOnClass:AbstractSettingsApplication::SystemMessageSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10745	AbstractSettingsApplication::SystemMessageSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10746	AbstractSettingsApplication::SystemMessageSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10747	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10748
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10749	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10750
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10751	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10752	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10753	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10754	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10755	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10756	label: 'Messages Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10757	name: 'Messages Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10758	min: (Point 10 10)
6166 92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10759	bounds: (Rectangle 0 0 561 435)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10760	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10761	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10762	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10763	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10764	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10765	name: 'VerticalPanel2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10766	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	10767	horizontalLayout: fitSpace
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10768	verticalLayout: topSpace
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10769	horizontalSpace: 5
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10770	verticalSpace: 5
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10771	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10772	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10773	collection: (
6166 92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10774	(FramedBoxSpec
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10775	label: 'Info & Error Messages'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10776	name: 'FramedBox1'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10777	labelPosition: topLeft
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10778	translateLabel: true
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10779	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10780	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10781	collection: (
6166 92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10782	(CheckBoxSpec
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10783	label: 'VM Info Messages'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10784	name: 'VMInfoMessages'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10785	layout: (LayoutFrame 5 0 5 0 -5 1 27 0)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10786	model: vmInfo
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10787	translateLabel: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10788	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10789	(CheckBoxSpec
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10790	label: 'VM Error Messages'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10791	name: 'VMErrorMessages'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10792	layout: (LayoutFrame 5 0 30 0 -5 1 52 0)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10793	model: vmErrors
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10794	translateLabel: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10795	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10796	(CheckBoxSpec
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10797	label: 'Display Error Messages (Xlib, Xtlib, WinAPI ...)'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10798	name: 'DisplayErrorMessages'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10799	layout: (LayoutFrame 5 0 55 0 -5 1 77 0)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10800	model: displayErrors
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10801	translateLabel: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10802	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10803	(CheckBoxSpec
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10804	label: 'Other Info Messages'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10805	name: 'OtherInfoMessages'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10806	layout: (LayoutFrame 5 0 80 0 -5 1 102 0)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10807	model: classInfos
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10808	translateLabel: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10809	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10810	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10811
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10812	)
6166 92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10813	extent: (Point 551 133)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10814	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10815	(FramedBoxSpec
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10816	label: 'Change File'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10817	name: 'FramedBox2'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10818	labelPosition: topLeft
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10819	translateLabel: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10820	component:
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10821	(SpecCollection
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10822	collection: (
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10823	(CheckBoxSpec
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10824	label: 'Log compiles in Changefile'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10825	name: 'CheckBox1'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10826	layout: (LayoutFrame 5 0 5 0 -5 1 27 0)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10827	model: updChanges
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10828	translateLabel: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10829	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10830	(CheckBoxSpec
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10831	label: 'Log doIts in Changefile'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10832	name: 'CheckBox2'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10833	layout: (LayoutFrame 5 0 30 0 -5 1 52 0)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10834	model: logDoits
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10835	translateLabel: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10836	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10837	(LabelSpec
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10838	label: 'Changefile Name:'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10839	name: 'ChangefileNameLabel'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10840	layout: (LayoutFrame 5 0 55 0 200 0 77 0)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10841	translateLabel: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10842	adjust: right
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10843	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10844	(InputFieldSpec
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10845	name: 'ChangeFileNameEntryField'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10846	layout: (LayoutFrame 200 0 55 0 -5 1 77 0)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10847	model: changeFileName
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10848	immediateAccept: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10849	acceptOnReturn: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10850	acceptOnTab: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10851	acceptOnLostFocus: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10852	acceptOnPointerLeave: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10853	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10854	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10855
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10856	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10857	extent: (Point 551 110)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10858	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10859	(FramedBoxSpec
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10860	label: 'Audible Bell'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10861	name: 'FramedBox3'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10862	labelPosition: topLeft
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10863	translateLabel: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10864	component:
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10865	(SpecCollection
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10866	collection: (
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10867	(CheckBoxSpec
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10868	label: 'Beep for Info Dialogs'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10869	name: 'CheckBox3'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10870	layout: (LayoutFrame 5 0 5 0 -5 1 27 0)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10871	model: beepForInfoDialog
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10872	translateLabel: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10873	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10874	(CheckBoxSpec
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10875	label: 'Beep for Warning Dialogs'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10876	name: 'CheckBox4'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10877	layout: (LayoutFrame 5 0 30 0 -5 1 52 0)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10878	model: beepForWarningDialog
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10879	translateLabel: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10880	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10881	(CheckBoxSpec
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10882	label: 'Beep for Error Dialogs'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10883	name: 'CheckBox5'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10884	layout: (LayoutFrame 5 0 55 0 -5 1 77 0)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10885	model: beepForErrorDialog
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10886	translateLabel: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10887	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10888	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10889
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10890	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10891	extent: (Point 551 107)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10892	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10893	(FramedBoxSpec
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10894	label: 'Help'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10895	name: 'FramedBox4'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10896	labelPosition: topLeft
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10897	translateLabel: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10898	component:
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10899	(SpecCollection
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10900	collection: (
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10901	(CheckBoxSpec
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10902	label: 'Fly By Help'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10903	name: 'CheckBox6'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10904	layout: (LayoutFrame 5 0 5 0 -5 1 27 0)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10905	model: flyByHelp
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10906	translateLabel: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10907	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10908	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10909
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10910	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10911	extent: (Point 551 58)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10912	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10913	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10914
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10915	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10916	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10917	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10918
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10919	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10920	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10921	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10922
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10923	!AbstractSettingsApplication::SystemMessageSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10924
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10925	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10926
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10927	ObjectMemory infoPrinting:self vmInfo value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10928	ObjectMemory debugPrinting:self vmErrors value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10929	Object infoPrinting:self classInfos value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10930	DeviceWorkstation errorPrinting:self displayErrors value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10931	ObjectMemory nameForChanges:self changeFileName value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10932	Smalltalk logDoits:self logDoits value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10933	Class updateChanges:self updChanges value.
6163 00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	10934
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	10935	UserPreferences current beepForInfoDialog:self beepForInfoDialog value.
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	10936	UserPreferences current beepForWarningDialog:self beepForWarningDialog value.
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	10937	UserPreferences current beepForErrorDialog:self beepForErrorDialog value.
6166 92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10938	UserPreferences current flyByHelpActive:self flyByHelp value.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10939	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10940
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	10941	helpFilename
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	10942	^ 'Launcher/messageSettings.html'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10943	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10944
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10945	readSettings
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10946	self vmInfo value:ObjectMemory infoPrinting.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10947	self vmErrors value:ObjectMemory debugPrinting.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10948	self classInfos value:Object infoPrinting.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10949	self displayErrors value:DeviceWorkstation errorPrinting.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10950	self changeFileName value:ObjectMemory nameForChanges.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10951	self logDoits value:Smalltalk logDoits.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10952	self updChanges value:Class updatingChanges.
6163 00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	10953	self modifiedChannel value:false.
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	10954	self beepForInfoDialog value:UserPreferences current beepForInfoDialog.
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	10955	self beepForWarningDialog value:UserPreferences current beepForWarningDialog.
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	10956	self beepForErrorDialog value:UserPreferences current beepForErrorDialog.
6166 92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	10957	self flyByHelp value:UserPreferences current flyByHelpActive.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10958	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10959
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10960	!AbstractSettingsApplication::SystemMessageSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10961
6163 00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	10962	beepForErrorDialog
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	10963	beepForErrorDialog isNil ifTrue:[
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	10964	beepForErrorDialog := UserPreferences current beepForErrorDialog asValue.
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	10965	beepForErrorDialog onChangeSend:#updateModifiedChannel to:self
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	10966	].
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	10967	^ beepForErrorDialog.
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	10968	!
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	10969
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	10970	beepForInfoDialog
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	10971	beepForInfoDialog isNil ifTrue:[
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	10972	beepForInfoDialog := UserPreferences current beepForInfoDialog asValue.
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	10973	beepForInfoDialog onChangeSend:#updateModifiedChannel to:self
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	10974	].
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	10975	^ beepForInfoDialog.
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	10976	!
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	10977
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	10978	beepForWarningDialog
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	10979	beepForWarningDialog isNil ifTrue:[
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	10980	beepForWarningDialog := UserPreferences current beepForWarningDialog asValue.
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	10981	beepForWarningDialog onChangeSend:#updateModifiedChannel to:self
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	10982	].
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	10983	^ beepForWarningDialog.
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	10984	!
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	10985
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10986	changeFileName
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10987
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10988	changeFileName isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10989	changeFileName := ObjectMemory nameForChanges asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10990	changeFileName onChangeSend:#updateModifiedChannel to:self
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10991	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10992	^ changeFileName.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10993	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10994
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10995	classInfos
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10996
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10997	classInfos isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10998	classInfos := Object infoPrinting asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10999	classInfos onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11000	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11001	^ classInfos.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11002	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11003
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11004	displayErrors
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11005
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11006	displayErrors isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11007	displayErrors := DeviceWorkstation errorPrinting asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	11008	displayErrors onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11009	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11010	^ displayErrors.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11011	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11012
6166 92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11013	flyByHelp
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11014	flyByHelp isNil ifTrue:[
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11015	flyByHelp := UserPreferences current flyByHelp asValue.
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11016	flyByHelp onChangeSend:#updateModifiedChannel to:self
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11017	].
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11018	^ flyByHelp.
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11019	!
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11020
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11021	logDoits
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11022
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11023	logDoits isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11024	logDoits := Smalltalk logDoits asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	11025	logDoits onChangeSend:#updateModifiedChannel to:self
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11026	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11027	^ logDoits.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11028	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11029
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11030	updChanges
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11031
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11032	updChanges isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11033	updChanges := Class updatingChanges asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	11034	updChanges onChangeSend:#updateModifiedChannel to:self
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11035	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11036	^ updChanges.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11037	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11038
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11039	vmErrors
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11040
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11041	vmErrors isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11042	vmErrors := ObjectMemory debugPrinting asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	11043	vmErrors onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11044	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11045	^ vmErrors.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11046	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11047
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11048	vmInfo
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11049
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11050	vmInfo isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11051	vmInfo := ObjectMemory infoPrinting asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	11052	vmInfo onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11053	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11054	^ vmInfo.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11055	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11056
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11057	!AbstractSettingsApplication::SystemMessageSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11058
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11059	hasUnsavedChanges
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	11060	self vmInfo value ~= ObjectMemory infoPrinting ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	11061	self vmErrors value ~= ObjectMemory debugPrinting ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	11062	self classInfos value ~= Object infoPrinting ifTrue:[^ true].
6163 00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	11063	self logDoits value ~= Smalltalk logDoits ifTrue:[^ true].
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	11064	self updChanges value ~= Class updatingChanges ifTrue:[^ true].
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	11065	self changeFileName value ~= ObjectMemory nameForChanges ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	11066	self displayErrors value ~= DeviceWorkstation errorPrinting ifTrue:[^ true].
6163 00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	11067	self beepForInfoDialog value ~= UserPreferences current beepForInfoDialog ifTrue:[^ true].
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	11068	self beepForWarningDialog value ~= UserPreferences current beepForWarningDialog ifTrue:[^ true].
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	11069	self beepForErrorDialog value ~= UserPreferences current beepForErrorDialog ifTrue:[^ true].
6166 92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11070	self flyByHelp value ~= UserPreferences current flyByHelpActive ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	11071	^ false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11072	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11073
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11074	!AbstractSettingsApplication::ToolsSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11075
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11076	defaultIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11077	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11078	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11079
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11080	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11081	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11082
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11083	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11084	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11085	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11086	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11087	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11088
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11089	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11090
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11091	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11092	constantNamed:#'AbstractSettingsApplication::ToolsSettingsAppl class defaultIcon'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	11093	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	11094	*****************************@@@@@@@@@@@@@J(@@@@@@@@@@@@@ @@@F(QD@@@@@B@@@@B((QD@@@@J(@@@@@@JLQ@@@@ @B$@@@)CD@@@B*@@
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	11095	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	11096	@@@@@@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	11097	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11098
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11099	!AbstractSettingsApplication::ToolsSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11100
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11101	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11102	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11103	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11104
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11105	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11106	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11107
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11108	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11109	UIPainter new openOnClass:AbstractSettingsApplication::ToolsSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11110	AbstractSettingsApplication::ToolsSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11111	AbstractSettingsApplication::ToolsSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11112	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11113
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11114	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11115
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11116	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11117	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11118	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11119	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11120	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11121	label: 'Tool Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11122	name: 'Tool Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11123	min: (Point 10 10)
5576 8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	11124	bounds: (Rectangle 0 0 607 786)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11125	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11126	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11127	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11128	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11129	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11130	name: 'VerticalPanel2'
5576 8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	11131	layout: (LayoutFrame 0 0.0 0 0 0 1.0 342 0)
8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	11132	horizontalLayout: fit
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11133	verticalLayout: top
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11134	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11135	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11136	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11137	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11138	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11139	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11140	label: 'Use the New System Browser'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11141	name: 'NewSystemBrowser'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11142	model: useNewSystemBrowser
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11143	translateLabel: true
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	11144	extent: (Point 607 25)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11145	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11146	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11147	label: 'Use the New File Browser'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11148	name: 'NewFileBrowser'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11149	model: useNewFileBrowser
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11150	translateLabel: true
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	11151	extent: (Point 607 25)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11152	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11153	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11154	label: 'Use the New VersionDiff Browser'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11155	name: 'VersionDiffBrowser'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11156	model: useNewVersionDiffBrowser
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11157	translateLabel: true
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	11158	extent: (Point 607 25)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11159	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11160	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11161	label: 'Use the New FileTree File Dialog'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11162	name: 'UseNewFileDialogCheckBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11163	model: useNewFileDialog
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11164	translateLabel: true
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	11165	extent: (Point 607 25)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11166	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11167	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11168	label: 'Use the New Settings Dialog'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11169	name: 'UseNewSettinsApplicationCheckBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11170	model: useNewSettingsApplication
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11171	translateLabel: true
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	11172	extent: (Point 607 25)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11173	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11174	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11175	label: 'Use the New Process Monitor'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11176	name: 'UseNewProcessMonitor'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11177	model: useProcessMonitorV2
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11178	translateLabel: true
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	11179	extent: (Point 607 25)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11180	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11181	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11182	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	11183	name: 'ChangesBrowser'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11184	model: useNewChangesBrowser
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11185	translateLabel: true
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	11186	extent: (Point 607 25)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11187	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11188	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11189	label: 'Use Hierarchical Inspector (not yet recommended)'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11190	name: 'HierarchicalInspector'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11191	model: useNewInspector
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11192	translateLabel: true
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	11193	extent: (Point 607 25)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11194	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11195	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11196	name: 'Box2'
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	11197	extent: (Point 607 20)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11198	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11199	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11200	label: 'Show Clock in Launcher'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11201	name: 'Clock'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11202	model: showClockInLauncher
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11203	translateLabel: true
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	11204	extent: (Point 607 25)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11205	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11206	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11207	name: 'Box3'
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	11208	extent: (Point 607 19)
5576 8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	11209	)
8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	11210	(HorizontalPanelViewSpec
8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	11211	name: 'HorizontalPanel1'
8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	11212	horizontalLayout: leftSpaceFit
8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	11213	verticalLayout: center
8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	11214	horizontalSpace: 3
8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	11215	verticalSpace: 3
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11216	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11217	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11218	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11219	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11220	label: 'Transcripts Buffer Size:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11221	name: 'Label1'
5576 8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	11222	translateLabel: true
8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	11223	resizeForLabel: true
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11224	adjust: right
6072 470d0fb1c937 * empty log message * Claus Gittinger <cg@exept.de> parents: 6064 diff changeset	11225	extent: (Point 190 19)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11226	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11227	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11228	name: 'Transcripts Buffer Size'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11229	model: transcriptBufferSize
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11230	type: number
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11231	immediateAccept: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11232	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11233	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11234	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11235	acceptOnPointerLeave: true
6072 470d0fb1c937 * empty log message * Claus Gittinger <cg@exept.de> parents: 6064 diff changeset	11236	extent: (Point 408 24)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11237	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11238	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11239
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11240	)
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	11241	extent: (Point 607 35)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11242	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11243	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11244
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11245	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11246	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11247	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11248
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11249	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11250	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11251	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11252
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11253	!AbstractSettingsApplication::ToolsSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11254
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11255	basicSaveSettings
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11256
5627 d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	11257	\| showClock launcher reopenLauncher newSystemBrowserClass transcript\|
5594 06aba5d1bb6e NewSystemBrowser -> Tools::NewSystemBrowser Claus Gittinger <cg@exept.de> parents: 5583 diff changeset	11258
06aba5d1bb6e NewSystemBrowser -> Tools::NewSystemBrowser Claus Gittinger <cg@exept.de> parents: 5583 diff changeset	11259	newSystemBrowserClass := Tools::NewSystemBrowser ? NewSystemBrowser.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11260
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11261	currentUserPrefs := UserPreferences current.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11262	currentUserPrefs useNewInspector:self useNewInspector value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11263	currentUserPrefs useNewChangesBrowser:self useNewChangesBrowser value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11264	currentUserPrefs useNewVersionDiffBrowser:self useNewVersionDiffBrowser value.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11265	currentUserPrefs useNewFileDialog:self useNewFileDialog value.
4464 997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	11266	currentUserPrefs useProcessMonitorV2:self useProcessMonitorV2 value.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11267	currentUserPrefs useNewSettingsApplication ~= self useNewSettingsApplication value ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11268	currentUserPrefs useNewSettingsApplication:self useNewSettingsApplication value.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11269	].
5083 7fdf1e8c8f03 reopen launcher when systemBrowser setting changes Claus Gittinger <cg@exept.de> parents: 5080 diff changeset	11270
7fdf1e8c8f03 reopen launcher when systemBrowser setting changes Claus Gittinger <cg@exept.de> parents: 5080 diff changeset	11271	currentUserPrefs useNewSystemBrowser ~= self useNewSystemBrowser value ifTrue:[
7fdf1e8c8f03 reopen launcher when systemBrowser setting changes Claus Gittinger <cg@exept.de> parents: 5080 diff changeset	11272	currentUserPrefs useNewSystemBrowser:self useNewSystemBrowser value.
5594 06aba5d1bb6e NewSystemBrowser -> Tools::NewSystemBrowser Claus Gittinger <cg@exept.de> parents: 5583 diff changeset	11273	(self useNewSystemBrowser value and:[newSystemBrowserClass isLoaded]) ifTrue:[
06aba5d1bb6e NewSystemBrowser -> Tools::NewSystemBrowser Claus Gittinger <cg@exept.de> parents: 5583 diff changeset	11274	newSystemBrowserClass installInLauncher.
5083 7fdf1e8c8f03 reopen launcher when systemBrowser setting changes Claus Gittinger <cg@exept.de> parents: 5080 diff changeset	11275	] ifFalse:[
5594 06aba5d1bb6e NewSystemBrowser -> Tools::NewSystemBrowser Claus Gittinger <cg@exept.de> parents: 5583 diff changeset	11276	newSystemBrowserClass removeFromLauncher.
5083 7fdf1e8c8f03 reopen launcher when systemBrowser setting changes Claus Gittinger <cg@exept.de> parents: 5080 diff changeset	11277	].
7fdf1e8c8f03 reopen launcher when systemBrowser setting changes Claus Gittinger <cg@exept.de> parents: 5080 diff changeset	11278	reopenLauncher := true.
7fdf1e8c8f03 reopen launcher when systemBrowser setting changes Claus Gittinger <cg@exept.de> parents: 5080 diff changeset	11279	].
7fdf1e8c8f03 reopen launcher when systemBrowser setting changes Claus Gittinger <cg@exept.de> parents: 5080 diff changeset	11280
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11281	(Smalltalk at:#FileBrowserV2) isBehavior ifTrue:[
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11282	currentUserPrefs useNewFileBrowser ~= self useNewFileBrowser value ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11283	currentUserPrefs useNewFileBrowser:self useNewFileBrowser value.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11284	(self useNewFileBrowser value and:[FileBrowserV2 isLoaded]) ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11285	FileBrowserV2 installInLauncher.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11286	] ifFalse:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11287	FileBrowserV2 removeFromLauncher.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11288	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11289	reopenLauncher := true.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11290	]
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11291	].
5627 d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	11292
d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	11293	transcript := Transcript current.
d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	11294	(transcript notNil and:[transcript isExternalStream not]) ifTrue:[
d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	11295	launcher := transcript application.
d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	11296	].
d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	11297
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11298	showClock := self showClockInLauncher value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11299	currentUserPrefs showClockInLauncher ~= showClock ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11300	currentUserPrefs showClockInLauncher:showClock.
5627 d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	11301	launcher notNil ifTrue:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11302	showClock ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11303	launcher startClock
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11304	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11305	launcher stopClock
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11306	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11307	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11308	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11309	Inspector := currentUserPrefs inspectorClassSetting.
5627 d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	11310
d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	11311	(transcript notNil and:[transcript isExternalStream not]) ifTrue:[
d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	11312	transcript lineLimit:self transcriptBufferSize value.
d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	11313	].
d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	11314
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11315	reopenLauncher ifTrue:[
5627 d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	11316	launcher notNil ifTrue:[
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11317	launcher reopenLauncher.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11318	]
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11319	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11320	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11321
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	11322	helpFilename
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	11323	^ 'Launcher/toolSettings.html'
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11324	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11325
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11326	readSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11327	currentUserPrefs := UserPreferences current.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11328	self showClockInLauncher value:currentUserPrefs showClockInLauncher.
5627 d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	11329	Transcript current isExternalStream ifFalse:[
d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	11330	self transcriptBufferSize value:Transcript current lineLimit.
d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	11331	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11332	self useNewChangesBrowser value:currentUserPrefs useNewChangesBrowser.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11333	self useNewFileBrowser value:currentUserPrefs useNewFileBrowser.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11334	self useNewInspector value:currentUserPrefs useNewInspector.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11335	self useNewSystemBrowser value:currentUserPrefs useNewSystemBrowser.
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	11336	self useNewVersionDiffBrowser value:currentUserPrefs useNewVersionDiffBrowser.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11337	self useProcessMonitorV2 value:currentUserPrefs useProcessMonitorV2.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11338	self useNewFileDialog value:currentUserPrefs useNewFileDialog.
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	11339	self useNewSettingsApplication value:currentUserPrefs useNewSettingsApplication.
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	11340
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11341	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11342	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11343
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11344	!AbstractSettingsApplication::ToolsSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11345
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11346	showClockInLauncher
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11347
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11348	showClockInLauncher isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11349	showClockInLauncher := currentUserPrefs showClockInLauncher asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	11350	showClockInLauncher onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11351	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11352	^ showClockInLauncher.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11353	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11354
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11355	transcriptBufferSize
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11356
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11357	transcriptBufferSize isNil ifTrue:[
5627 d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	11358	transcriptBufferSize := 600 asValue. "/ Transcript current lineLimit asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	11359	transcriptBufferSize onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11360	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11361	^ transcriptBufferSize.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11362	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11363
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11364	useNewChangesBrowser
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11365
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11366	useNewChangesBrowser isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11367	useNewChangesBrowser := currentUserPrefs useNewChangesBrowser asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	11368	useNewChangesBrowser onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11369	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11370	^ useNewChangesBrowser.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11371	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11372
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11373	useNewFileBrowser
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11374
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11375	useNewFileBrowser isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11376	useNewFileBrowser := currentUserPrefs useNewFileBrowser asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	11377	useNewFileBrowser onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11378	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11379	^ useNewFileBrowser.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11380	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11381
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11382	useNewFileDialog
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11383
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11384	useNewFileDialog isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11385	useNewFileDialog := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	11386	useNewFileDialog onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11387	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11388	^ useNewFileDialog.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11389	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11390
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11391	useNewInspector
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11392
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11393	useNewInspector isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11394	useNewInspector := currentUserPrefs useNewInspector asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	11395	useNewInspector onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11396	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11397	^ useNewInspector.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11398	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11399
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11400	useNewSettingsApplication
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11401
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11402	useNewSettingsApplication isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11403	useNewSettingsApplication := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	11404	useNewSettingsApplication onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11405	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11406	^ useNewSettingsApplication.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11407	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11408
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11409	useNewSystemBrowser
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11410
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11411	useNewSystemBrowser isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11412	useNewSystemBrowser := currentUserPrefs useNewSystemBrowser asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	11413	useNewSystemBrowser onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11414	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11415	^ useNewSystemBrowser.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11416	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11417
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11418	useNewVersionDiffBrowser
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11419
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11420	useNewVersionDiffBrowser isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11421	useNewVersionDiffBrowser := currentUserPrefs useNewVersionDiffBrowser asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	11422	useNewVersionDiffBrowser onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11423	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11424	^ useNewVersionDiffBrowser.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11425	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11426
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11427	useProcessMonitorV2
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11428
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11429	useProcessMonitorV2 isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11430	useProcessMonitorV2 := currentUserPrefs useProcessMonitorV2 asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	11431	useProcessMonitorV2 onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11432	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11433	^ useProcessMonitorV2.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11434	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11435
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11436	!AbstractSettingsApplication::ToolsSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11437
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11438	hasUnsavedChanges
5627 d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	11439	(self useNewInspector value ~= currentUserPrefs useNewInspector) ifTrue:[^ true].
d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	11440	(self useNewChangesBrowser value ~= currentUserPrefs useNewChangesBrowser) ifTrue:[^ true].
d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	11441	(self useNewSystemBrowser value ~= currentUserPrefs useNewSystemBrowser) ifTrue:[^ true].
d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	11442	(self showClockInLauncher value ~= currentUserPrefs showClockInLauncher) ifTrue:[^ true].
d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	11443	(self useNewVersionDiffBrowser value ~= currentUserPrefs useNewVersionDiffBrowser) ifTrue:[^ true].
d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	11444	(self useNewFileBrowser value ~= currentUserPrefs useNewFileBrowser) ifTrue:[^ true].
d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	11445	(self useNewFileDialog value ~= currentUserPrefs useNewFileDialog) ifTrue:[^ true].
d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	11446	(self useNewSettingsApplication value ~= currentUserPrefs useNewSettingsApplication) ifTrue:[^ true].
d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	11447	(self useProcessMonitorV2 value ~= currentUserPrefs useProcessMonitorV2) ifTrue:[^ true].
d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	11448	Transcript current isExternalStream ifFalse:[
d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	11449	(self transcriptBufferSize value ~= Transcript current lineLimit) ifTrue:[^ true].
d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	11450	].
d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	11451	^ false.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11452	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11453
4226 44e2f83cc526 initial checkin penk parents: diff changeset	11454	!AbstractSettingsApplication class methodsFor:'documentation'!
44e2f83cc526 initial checkin penk parents: diff changeset	11455
44e2f83cc526 initial checkin penk parents: diff changeset	11456	version
6426 d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	11457	^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.204 2005-11-27 22:16:31 stefan Exp $'
d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	11458	! !

author	Stefan Vogel <sv@exept.de>
	Sun, 27 Nov 2005 23:16:31 +0100
changeset 6426	d769436f958c
parent 6389	9f4010737320
child 6427	b2a6087bbedf
permissions	-rw-r--r--