hg/stx-libtool: AbstractSettingsApplication.st@4203bef24b27 (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
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	86	hasCreatedServerChannel'
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
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	176	instanceVariableNames:'cc ccOptions stcIncludes linkCommand stc linkArgs canLoadBinaries
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	177	stcDefines stcLibraries stcOptions stcLibraryPath
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
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	231	changeFileName'
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	232	classVariableNames:''
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	233	poolDictionaries:''
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	234	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	235	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	236
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	237	AbstractSettingsApplication subclass:#ToolsSettingsAppl
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	238	instanceVariableNames:'useNewVersionDiffBrowser transcriptBufferSize useNewInspector
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	239	showClockInLauncher useNewChangesBrowser useNewFileBrowser
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	240	useNewSystemBrowser useNewFileDialog useNewSettingsApplication
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	241	useProcessMonitorV2'
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	242	classVariableNames:''
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	243	poolDictionaries:''
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	244	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	245	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	246
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	247	!AbstractSettingsApplication class methodsFor:'documentation'!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	248
5140 36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	249	copyright
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	250	"
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	251	COPYRIGHT (c) 2002 by eXept Software AG
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	252	All Rights Reserved
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	253
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	254	This software is furnished under a license and may be used
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	255	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	256	inclusion of the above copyright notice. This software may not
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	257	be provided or otherwise made available to, or used by, any
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	258	other person. No title to or ownership of the software is
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	259	hereby transferred.
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	260	"
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	261	! !
4226 44e2f83cc526 initial checkin penk parents: diff changeset	262
4292 68504047f229 * empty log message * penk parents: 4286 diff changeset	263	!AbstractSettingsApplication class methodsFor:'defaults'!
68504047f229 * empty log message * penk parents: 4286 diff changeset	264
68504047f229 * empty log message * penk parents: 4286 diff changeset	265	classResources
68504047f229 * empty log message * penk parents: 4286 diff changeset	266
68504047f229 * empty log message * penk parents: 4286 diff changeset	267	^ AbstractLauncherApplication classResources
5563 5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	268	!
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	resourcePackName
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	271	^ AbstractLauncherApplication resourcePackName
4292 68504047f229 * empty log message * penk parents: 4286 diff changeset	272	! !
68504047f229 * empty log message * penk parents: 4286 diff changeset	273
5283 9264c15059e7 category change penk parents: 5280 diff changeset	274	!AbstractSettingsApplication class methodsFor:'interface specs'!
9264c15059e7 category change penk parents: 5280 diff changeset	275
9264c15059e7 category change penk parents: 5280 diff changeset	276	windowSpec
9264c15059e7 category change penk parents: 5280 diff changeset	277	self subclassResponsibility
9264c15059e7 category change penk parents: 5280 diff changeset	278	! !
9264c15059e7 category change penk parents: 5280 diff changeset	279
4705 16cfb945d591 * empty log message * penk parents: 4675 diff changeset	280	!AbstractSettingsApplication methodsFor:'accessing'!
16cfb945d591 * empty log message * penk parents: 4675 diff changeset	281
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	282	requestor:something
4705 16cfb945d591 * empty log message * penk parents: 4675 diff changeset	283	"set the value of the instance variable 'requestor' (automatically generated)"
16cfb945d591 * empty log message * penk parents: 4675 diff changeset	284
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	285	requestor := something.
5031 86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	286	!
86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	287
86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	288	settingsDialog
86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	289	^ settingsDialog
86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	290	!
86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	291
86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	292	settingsDialog:something
86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	293	settingsDialog := something.
4705 16cfb945d591 * empty log message * penk parents: 4675 diff changeset	294	! !
16cfb945d591 * empty log message * penk parents: 4675 diff changeset	295
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	296	!AbstractSettingsApplication methodsFor:'actions'!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	297
4598 330907eab7e0 * empty log message * penk parents: 4581 diff changeset	298	evaluateModified
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	299
c72e35116b13 instable state penk parents: 5040 diff changeset	300	self obsoleteMethodWarning.
c72e35116b13 instable state penk parents: 5040 diff changeset	301	^ self updateModifiedChannel.
4598 330907eab7e0 * empty log message * penk parents: 4581 diff changeset	302	!
330907eab7e0 * empty log message * penk parents: 4581 diff changeset	303
6029 40b96dc2621d * empty log message * ca parents: 6025 diff changeset	304	reopenToolsAfterChangedViewStyleSetting
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	305	\|app transcript\|
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	306
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	307	DebugView newDebugger.
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	308	transcript := Transcript current.
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	309	(transcript notNil and:[transcript isExternalStream not]) ifTrue:[
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	310	app := transcript topView application.
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	311	(app respondsTo:#reopenLauncher) ifTrue:[
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	312	app reopenLauncher.
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	313	].
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	314	].
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	315	!
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	316
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	317	saveRequest
4944 fce7d52d36da * empty log message * Claus Gittinger <cg@exept.de> parents: 4941 diff changeset	318	^ self saveRequestAsking:self askForChangeOnRelease
4941 42d9b274824d askForSaving fixed Claus Gittinger <cg@exept.de> parents: 4899 diff changeset	319	!
42d9b274824d askForSaving fixed Claus Gittinger <cg@exept.de> parents: 4899 diff changeset	320
42d9b274824d askForSaving fixed Claus Gittinger <cg@exept.de> parents: 4899 diff changeset	321	saveRequestAsking:askForChangeOnRelease
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	322	\|result\|
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	323
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	324	(self hasUnsavedChanges) ifTrue:[
4941 42d9b274824d askForSaving fixed Claus Gittinger <cg@exept.de> parents: 4899 diff changeset	325	askForChangeOnRelease ifTrue:[
4825 97ccd5a946f4 next step penk parents: 4813 diff changeset	326	result := self confirmWithCancel:(resources
5920 0bfccc0a3c8f * empty log message * Claus Gittinger <cg@exept.de> parents: 5919 diff changeset	327	string:'Apply changed ' , settingsString allBold, ' ?').
4825 97ccd5a946f4 next step penk parents: 4813 diff changeset	328	] ifFalse:[
97ccd5a946f4 next step penk parents: 4813 diff changeset	329	result := true.
97ccd5a946f4 next step penk parents: 4813 diff changeset	330	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	331	result isNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	332	^ false
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	333	].
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	334	result ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	335	self saveSettings
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	336	] ifFalse:[
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	337	self readSettings
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	338	]
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	339	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	340	^ true
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	341	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	342
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	343	saveSettingsIfUnsavedChangesArePresent
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	344	self hasUnsavedChanges ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	345	self saveSettings.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	346	self modifiedChannel value:false
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	347	].
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	348	!
c72e35116b13 instable state penk parents: 5040 diff changeset	349
c72e35116b13 instable state penk parents: 5040 diff changeset	350	updateModifiedChannel
c72e35116b13 instable state penk parents: 5040 diff changeset	351	self modifiedChannel value:self hasUnsavedChanges
4574 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
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	354	!AbstractSettingsApplication methodsFor:'aspects'!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	355
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	356	modifiedChannel
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	357
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	358	modifiedChannel isNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	359	modifiedChannel := false asValue.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	360	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	361	^ modifiedChannel
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:'initialization'!
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	initialize
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	367	super initialize.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	368	resources := self class classResources.
6125 09320e47ccb2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6108 diff changeset	369	self initializeCurrentUserPreferences.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	370	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	371	"/ self readSettings.
6125 09320e47ccb2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6108 diff changeset	372	!
09320e47ccb2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6108 diff changeset	373
09320e47ccb2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6108 diff changeset	374	initializeCurrentUserPreferences
09320e47ccb2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6108 diff changeset	375	currentUserPrefs := UserPreferences current.
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	376	! !
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	377
5078 9fafc6b058bc new middleButtonMenu for remove service in SettingsDialog penk parents: 5076 diff changeset	378	!AbstractSettingsApplication methodsFor:'menu'!
9fafc6b058bc new middleButtonMenu for remove service in SettingsDialog penk parents: 5076 diff changeset	379
5080 9c9736712295 middleButtonMenu fix penk parents: 5078 diff changeset	380	settingsDialogPopUpMenu
5078 9fafc6b058bc new middleButtonMenu for remove service in SettingsDialog penk parents: 5076 diff changeset	381	^ nil
9fafc6b058bc new middleButtonMenu for remove service in SettingsDialog penk parents: 5076 diff changeset	382	! !
9fafc6b058bc new middleButtonMenu for remove service in SettingsDialog penk parents: 5076 diff changeset	383
4324 289972d3e455 * empty log message * penk parents: 4319 diff changeset	384	!AbstractSettingsApplication methodsFor:'protocol'!
289972d3e455 * empty log message * penk parents: 4319 diff changeset	385
4873 3ffb8a8812ec * empty log message * penk parents: 4851 diff changeset	386	askForChangeOnRelease
5011 42d7fed9da6a ask for changes Claus Gittinger <cg@exept.de> parents: 4986 diff changeset	387	^ true "/ false
4825 97ccd5a946f4 next step penk parents: 4813 diff changeset	388	!
97ccd5a946f4 next step penk parents: 4813 diff changeset	389
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	390	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	391
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	392	self subclassResponsibility.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	393	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	394
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	395	hasUnsavedChanges
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	396
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	397	^ self subclassResponsibility
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	398	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	399
4324 289972d3e455 * empty log message * penk parents: 4319 diff changeset	400	help
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	401	\|filename\|
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	402
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	403	filename := self helpFilename.
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	404	filename isNil ifTrue:[
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	405	self warn:'Sorry - no help available here.'.
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	406	^ self.
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	self withWaitCursorDo:[
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	409	HTMLDocumentView openFullOnHelpFile:filename
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	410	].
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	411	!
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	helpFilename
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	414	"subclasses must return the relative name of a helpFile
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	415	in the doc/online/<language>/help directory.
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	416	Or nil, if no help is available."
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	self subclassResponsibility
4324 289972d3e455 * empty log message * penk parents: 4319 diff changeset	419	!
4226 44e2f83cc526 initial checkin penk parents: diff changeset	420
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	421	readSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	422	self subclassResponsibility
4240 f196089fe934 next stage for settings penk parents: 4228 diff changeset	423	!
f196089fe934 next stage for settings penk parents: 4228 diff changeset	424
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	425	saveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	426	self basicSaveSettings.
6125 09320e47ccb2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6108 diff changeset	427
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	428	self modifiedChannel value:false.
4226 44e2f83cc526 initial checkin penk parents: diff changeset	429	! !
44e2f83cc526 initial checkin penk parents: diff changeset	430
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	431	!AbstractSettingsApplication methodsFor:'queries'!
1bde09704293 * empty log message * penk parents: 4893 diff changeset	432
1bde09704293 * empty log message * penk parents: 4893 diff changeset	433	itemPathName
5031 86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	434	^ self settingsDialog getNameOfApplication:self.
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	435	! !
1bde09704293 * empty log message * penk parents: 4893 diff changeset	436
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	437	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class methodsFor:'defaults'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	438
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	439	constantFoldingOptions
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	440
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	441	^ #( nil #level1 #level2 #full )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	442	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	443
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	444	constantFoldingStrings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	445
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	446	^ #('disabled' 'level1 (always safe)' 'level2 (usually safe)' 'full')
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	447	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	448
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	449	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class methodsFor:'image specs'!
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	450
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	451	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	452	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	453	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	454
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	455	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	456	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	457
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	458	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	459	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	460	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	461	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	462	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	463
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	464	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	465
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	466	^Icon
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	467	constantNamed:#'AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class defaultIcon'
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	468	ifAbsentPut:[(Depth1Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@C@@@@@@@@G.=0G.=3D*%QG.=0@@@@G?>3DNN1G=60DM>0G=>0DM>0G=60DNN0G?>0@@@@@@@@@@@@@@@@') ; colorMapFromArray:#[0 0 0 255 255 255]; mask:((ImageMask new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8@@@@@@@@@@@@') ; yourself); yourself]
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	469	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	470
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	471	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class methodsFor:'interface specs'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	472
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	473	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	474	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	475	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	476
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	477	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	478	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	479
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	480	"
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	481	UIPainter new openOnClass:AbstractSettingsApplication::ByteCodeCompilerSettingsAppl andSelector:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	482	AbstractSettingsApplication::ByteCodeCompilerSettingsAppl new openInterface:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	483	AbstractSettingsApplication::ByteCodeCompilerSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	484	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	485
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	486	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	487
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	488	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	489	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	490	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	491	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	492	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	493	label: 'Byte Code Compiler Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	494	name: 'Byte Code Compiler Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	495	min: (Point 10 10)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	496	bounds: (Rectangle 14 46 614 560)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	497	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	498	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	499	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	500	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	501	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	502	name: 'VerticalPanel1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	503	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	504	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	505	verticalLayout: top
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	506	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	507	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	508	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	509	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	510	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	511	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	512	label: 'Just in Time Compilation to Machine Code'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	513	name: 'JustInTimeCompilation'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	514	model: justInTimeCompilation
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	515	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	516	extent: (Point 600 25)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	517	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	518	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	519	name: 'Separator3'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	520	extent: (Point 600 3)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	521	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	522	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	523	label: 'Allow Underscore in Identifiers'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	524	name: 'AllowUnderscoreInIdentifiers'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	525	model: allowUnderscore
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	526	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	527	extent: (Point 600 22)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	528	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	529	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	530	label: 'Allow Dollar in Identifiers'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	531	name: 'AllowDollarInIdentifiers'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	532	model: allowDollar
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	533	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	534	extent: (Point 600 22)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	535	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	536	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	537	label: 'Allow VW3 QualifiedNames'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	538	name: 'AllowVW3QualifiedNames'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	539	model: allowQualifiedNames
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	540	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	541	extent: (Point 600 22)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	542	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	543	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	544	label: 'Allow Squeak Extensions'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	545	name: 'AllowSqueakExtensions'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	546	model: allowSqueakExtensions
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	547	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	548	extent: (Point 600 22)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	549	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	550	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	551	label: 'Allow Dolphin Extensions'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	552	name: 'AllowDolphinExtensions'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	553	model: allowDolphinExtensions
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	554	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	555	extent: (Point 600 22)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	556	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	557	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	558	label: 'Allow OldStyle Assignment (_)'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	559	name: 'AllowOldStyleAssignment'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	560	model: allowOldStyleAssignment
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	561	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	562	extent: (Point 600 22)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	563	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	564	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	565	label: 'Allow Reserved Words as Selector (self)'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	566	name: 'AllowReservedWordsAsSelector'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	567	model: allowReservedWordsAsSelectors
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	568	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	569	extent: (Point 600 22)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	570	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	571	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	572	name: 'Separator4'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	573	extent: (Point 600 3)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	574	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	575	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	576	label: 'Warnings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	577	name: 'Warnings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	578	model: warnings
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	579	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	580	extent: (Point 600 22)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	581	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	582	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	583	name: 'Box2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	584	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	585	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	586	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	587	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	588	name: 'VerticalPanel2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	589	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	590	horizontalLayout: left
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	591	verticalLayout: center
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	592	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	593	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	594	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	595	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	596	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	597	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	598	label: 'ST/X Extensions'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	599	name: 'STXExtensions'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	600	enableChannel: warnings
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	601	model: warnSTX
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	602	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	603	extent: (Point 600 22)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	604	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	605	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	606	label: 'Underscores in Identifiers'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	607	name: 'UnderscoresInIdentifiers'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	608	enableChannel: enableUnderscore
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	609	model: warnUnderscore
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)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	612	)
5149 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: 'Dollars in Identifiers'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	615	name: 'DollarsInIdentifiers'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	616	enableChannel: enableDollar
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	617	model: warnDollar
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	618	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	619	extent: (Point 600 22)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	620	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	621	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	622	label: 'Unused Method Variables'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	623	name: 'UnusedMethodVariables'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	624	enableChannel: warnings
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	625	model: warnUnusedVars
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	626	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	627	extent: (Point 600 22)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	628	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	629	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	630	label: 'OldStyle Assignment'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	631	name: 'OldStyleAssignment'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	632	enableChannel: warnings
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	633	model: warnOldStyle
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	634	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	635	extent: (Point 600 22)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	636	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	637	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	638	label: 'Common Mistakes'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	639	name: 'CommonMistakes'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	640	enableChannel: warnings
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	641	model: warnCommonMistakes
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	642	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	643	extent: (Point 600 22)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	644	)
5149 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: 'Possible Incompatibilities'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	647	name: 'PossibleIncompatibilities'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	648	enableChannel: warnings
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	649	model: warnCompatibility
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	650	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	651	extent: (Point 600 22)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	652	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	653	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	654
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	655	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	656	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	657	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	658
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	659	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	660	extent: (Point 600 160)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	661	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	662	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	663	name: 'Separator5'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	664	extent: (Point 600 2)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	665	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	666	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	667	label: 'Literal Arrays are Immutable'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	668	name: 'LiteralArraysAreImmutable'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	669	model: immutableArrays
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	670	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	671	extent: (Point 600 22)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	672	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	673	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	674	label: 'Full Debug Info'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	675	name: 'FullDebugInfo'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	676	model: fullDebugSupport
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	677	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	678	extent: (Point 600 22)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	679	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	680	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	681	name: 'Separator6'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	682	extent: (Point 600 2)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	683	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	684	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	685	name: 'Box1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	686	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	687	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	688	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	689	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	690	label: 'Constant Folding:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	691	name: 'ConstantFoldingLabel'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	692	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	693	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	694	adjust: right
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	695	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	696	(PopUpListSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	697	label: 'PopUp List'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	698	name: 'ConstantFolding'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	699	layout: (LayoutFrame 170 0 0 0 -5 1 22 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	700	tabable: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	701	model: constantFoldingSelection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	702	menu: constantFolding
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	703	useIndex: true
4428 00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	704	)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	705	)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	706
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	707	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	708	extent: (Point 600 22)
4428 00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	709	)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	710	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	711
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	712	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	713	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	714	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	715
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	716	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	717	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	718	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	719
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	720	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'actions'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	721
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	722	basicSaveSettings
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	723
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	724	Compiler warnings:self warnings value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	725	Compiler warnSTXSpecials:self warnSTX value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	726	Compiler warnOldStyleAssignment:self warnOldStyle value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	727	Compiler warnUnderscoreInIdentifier:self warnUnderscore value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	728	Compiler warnDollarInIdentifier:self warnDollar value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	729	Compiler warnCommonMistakes:self warnCommonMistakes value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	730	Compiler warnPossibleIncompatibilities:self warnCompatibility value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	731	Compiler warnUnusedVars:self warnUnusedVars value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	732	Compiler allowUnderscoreInIdentifier:self allowUnderscore value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	733	Compiler allowDollarInIdentifier:self allowDollar value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	734	Compiler allowSqueakExtensions:self allowSqueakExtensions value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	735	Compiler allowDolphinExtensions:self allowDolphinExtensions value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	736	Compiler allowQualifiedNames:self allowQualifiedNames value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	737	Compiler allowOldStyleAssignment:self allowOldStyleAssignment value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	738	Compiler allowReservedWordsAsSelectors:self allowReservedWordsAsSelectors value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	739
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	740	Compiler arraysAreImmutable:self immutableArrays value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	741	self fullDebugSupport value ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	742	Compiler lineNumberInfo:#full.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	743	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	744	Compiler lineNumberInfo:true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	745	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	746
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	747	Compiler foldConstants:(self class constantFoldingOptions at:self constantFoldingSelection value).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	748
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	749	self supportsJustInTimeCompilation ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	750	\| justInTime \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	751	justInTime := self justInTimeCompilation value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	752	justInTime ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	753	Method allInstancesDo:[:m \| m checked:false].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	754	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	755	ObjectMemory justInTimeCompilation:justInTime.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	756	ObjectMemory fullSingleStepSupport:self fullDebugSupport value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	757	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	758	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	759
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	760	helpFilename
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	761	^ 'Launcher/compilerSettings.html'
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	762	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	763
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	764	readSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	765	self allowDollar value:(Compiler allowDollarInIdentifier ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	766	self allowDolphinExtensions
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	767	value:(Compiler allowDolphinExtensions ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	768	self allowOldStyleAssignment
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	769	value:(Compiler allowOldStyleAssignment ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	770	self allowQualifiedNames value:(Compiler allowQualifiedNames ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	771	self allowReservedWordsAsSelectors
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	772	value:(Compiler allowReservedWordsAsSelectors ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	773	self allowSqueakExtensions value:(Compiler allowSqueakExtensions ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	774	self allowUnderscore value:(Compiler allowUnderscoreInIdentifier ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	775	self constantFoldingSelection
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	776	value:(self class constantFoldingOptions indexOf:Compiler foldConstants
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	777	ifAbsent:3).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	778	self supportsJustInTimeCompilation ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	779	self fullDebugSupport value:(ObjectMemory fullSingleStepSupport ? false)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	780	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	781	self fullDebugSupport value:(Compiler lineNumberInfo == #full)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	782	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	783	self immutableArrays value:(Compiler arraysAreImmutable ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	784	self supportsJustInTimeCompilation ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	785	self justInTimeCompilation
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	786	value:(ObjectMemory justInTimeCompilation ? false)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	787	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	788	self justInTimeCompilation value:false
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	789	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	790	self warnCommonMistakes value:(Compiler warnCommonMistakes ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	791	self warnCompatibility
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	792	value:(Compiler warnPossibleIncompatibilities ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	793	self warnDollar value:(Compiler warnDollarInIdentifier ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	794	self warnOldStyle value:(Compiler warnOldStyleAssignment ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	795	self warnSTX value:(Compiler warnSTXSpecials ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	796	self warnUnderscore value:(Compiler warnUnderscoreInIdentifier ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	797	self warnUnusedVars value:(Compiler warnUnusedVars ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	798	self warnings value:(Compiler warnings ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	799	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	800	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	801
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	802	stcCompilerSettings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	803
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	804	AbstractLauncherApplication::LauncherDialogs stcCompilerSettings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	805	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	806
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	807	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'aspects'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	808
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	809	allowDollar
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	810
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	811	allowDollar isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	812	allowDollar := (Compiler allowDollarInIdentifier ? false) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	813	allowDollar onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	814	allowDollar addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	815	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	816	^ allowDollar.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	817	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	818
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	819	allowDolphinExtensions
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	820
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	821	allowDolphinExtensions isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	822	allowDolphinExtensions := (Compiler allowDolphinExtensions ? false) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	823	allowDolphinExtensions onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	824	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	825	^ allowDolphinExtensions.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	826	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	827
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	828	allowOldStyleAssignment
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	829
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	830	allowOldStyleAssignment isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	831	allowOldStyleAssignment := (Compiler allowOldStyleAssignment ? false) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	832	allowOldStyleAssignment onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	833	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	834	^ allowOldStyleAssignment.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	835	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	836
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	837	allowQualifiedNames
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	838
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	839	allowQualifiedNames isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	840	allowQualifiedNames := (Compiler allowQualifiedNames ? false) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	841	allowQualifiedNames onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	842	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	843	^ allowQualifiedNames.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	844	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	845
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	846	allowReservedWordsAsSelectors
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	847
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	848	allowReservedWordsAsSelectors isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	849	allowReservedWordsAsSelectors := (Compiler allowReservedWordsAsSelectors ? false) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	850	allowReservedWordsAsSelectors onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	851	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	852	^ allowReservedWordsAsSelectors.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	853	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	854
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	855	allowSqueakExtensions
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	856
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	857	allowSqueakExtensions isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	858	allowSqueakExtensions := (Compiler allowSqueakExtensions ? false) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	859	allowSqueakExtensions onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	860	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	861	^ allowSqueakExtensions.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	862	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	863
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	864	allowUnderscore
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	865
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	866	allowUnderscore isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	867	allowUnderscore := (Compiler allowUnderscoreInIdentifier ? false) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	868	allowUnderscore onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	869	allowUnderscore addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	870	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	871	^ allowUnderscore.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	872	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	873
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	874	constantFolding
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	875
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	876	constantFolding isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	877	constantFolding := (resources array:(self class constantFoldingStrings)) asList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	878	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	879	^ constantFolding.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	880	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	881
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	882	constantFoldingOptions
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	883
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	884	constantFoldingOptions isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	885	constantFoldingOptions := self class constantFoldingOptions.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	886	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	887	^ constantFoldingOptions.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	888	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	889
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	890	constantFoldingSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	891
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	892	constantFoldingSelection isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	893	\| index \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	894	index := self class constantFoldingOptions indexOf:Compiler foldConstants ifAbsent:3.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	895	constantFoldingSelection := index asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	896	constantFoldingSelection onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	897	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	898	^ constantFoldingSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	899	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	900
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	901	enableDollar
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	902
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	903	enableDollar isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	904	enableDollar := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	905	enableDollar addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	906	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	907	^ enableDollar.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	908	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	909
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	910	enableUnderscore
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	911	"automatically generated by UIPainter ..."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	912
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	913	"*** the code below creates a default model when invoked."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	914	"*** (which may not be the one you wanted)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	915	"*** Please change as required and accept it in the browser."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	916	"*** (and replace this comment by something more useful ;-)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	917
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	918	enableUnderscore isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	919	enableUnderscore := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	920	"/ if your app needs to be notified of changes, uncomment one of the lines below:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	921	"/ enableUnderscore addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	922	"/ enableUnderscore onChangeSend:#enableUnderscoreChanged to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	923	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	924	^ enableUnderscore.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	925	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	926
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	927	fullDebugSupport
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	928
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	929	fullDebugSupport isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	930	self supportsJustInTimeCompilation ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	931	fullDebugSupport := (ObjectMemory fullSingleStepSupport ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	932	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	933	fullDebugSupport := (Compiler lineNumberInfo == #full) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	934	].
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	935	fullDebugSupport onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	936	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	937	^ fullDebugSupport.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	938	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	939
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	940	immutableArrays
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	941
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	942	immutableArrays isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	943	immutableArrays := (Compiler arraysAreImmutable ? false) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	944	immutableArrays onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	945	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	946	^ immutableArrays.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	947	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	948
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	949	justInTimeCompilation
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	950
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	951	justInTimeCompilation isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	952	self supportsJustInTimeCompilation ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	953	justInTimeCompilation := (ObjectMemory justInTimeCompilation ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	954	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	955	justInTimeCompilation := false asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	956	].
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	957	justInTimeCompilation onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	958	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	959	^ justInTimeCompilation.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	960	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	961
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	962	warnCommonMistakes
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	963
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	964	warnCommonMistakes isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	965	warnCommonMistakes := (Compiler warnCommonMistakes ? false) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	966	warnCommonMistakes 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	^ warnCommonMistakes.
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	warnCompatibility
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	972
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	973	warnCompatibility isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	974	warnCompatibility := (Compiler warnPossibleIncompatibilities ? false) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	975	warnCompatibility onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	976	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	977	^ warnCompatibility.
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	warnDollar
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	981
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	982	warnDollar isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	983	warnDollar := (Compiler warnDollarInIdentifier ? false) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	984	warnDollar onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	985	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	986	^ warnDollar.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	987	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	988
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	989	warnOldStyle
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	990
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	991	warnOldStyle isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	992	warnOldStyle := (Compiler warnOldStyleAssignment ? false) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	993	warnOldStyle onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	994	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	995	^ warnOldStyle.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	996	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	997
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	998	warnSTX
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	999
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1000	warnSTX isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1001	warnSTX := (Compiler warnSTXSpecials ? false) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1002	warnSTX onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1003	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1004	^ warnSTX.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1005	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1006
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1007	warnUnderscore
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1008
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1009	warnUnderscore isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1010	warnUnderscore := (Compiler warnUnderscoreInIdentifier ? false) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1011	warnUnderscore onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1012	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1013	^ warnUnderscore.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1014	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1015
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1016	warnUnusedVars
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1017
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1018	warnUnusedVars isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1019	warnUnusedVars := (Compiler warnUnusedVars ? false) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1020	warnUnusedVars onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1021	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1022	^ warnUnusedVars.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1023	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1024
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1025	warnings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1026
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1027	warnings isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1028	warnings := (Compiler warnings ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1029	warnings addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1030	warnings changed.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1031	warnings onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1032	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1033	^ warnings.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1034	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1035
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1036	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'change & update'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1037
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1038	update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1039	changedObject == self warnings ifTrue:[
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	1040	changedObject value ifTrue:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1041	self enableUnderscore value:self allowUnderscore value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1042	self enableDollar value:self allowDollar value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1043	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1044	self enableUnderscore value:false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1045	self enableDollar value:false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1046	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1047	^ self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1048	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1049	(changedObject == self allowDollar or:[changedObject == self allowUnderscore]) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1050	self warnings changed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1051	^ self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1052	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1053
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1054	super update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1055	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1056
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1057	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'queries'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1058
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1059	hasUnsavedChanges
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	1060	((Compiler warnings ? false) ~= self warnings value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	1061	((Compiler warnSTXSpecials ? false) ~= self warnSTX value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	1062	((Compiler warnOldStyleAssignment ? false) ~= self warnOldStyle value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	1063	((Compiler warnUnderscoreInIdentifier ? false) ~= self warnUnderscore value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	1064	((Compiler warnDollarInIdentifier ? false) ~= self warnDollar value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	1065	((Compiler warnCommonMistakes ? false) ~= self warnCommonMistakes value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	1066	((Compiler warnPossibleIncompatibilities ? false) ~= self warnCompatibility value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	1067	((Compiler warnUnusedVars ? false) ~= self warnUnusedVars value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	1068	((Compiler allowUnderscoreInIdentifier ? false) ~= self allowUnderscore value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	1069	((Compiler allowDollarInIdentifier ? false) ~= self allowDollar value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	1070	((Compiler allowSqueakExtensions ? false) ~= self allowSqueakExtensions value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	1071	((Compiler allowDolphinExtensions ? false) ~= self allowDolphinExtensions value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	1072	((Compiler allowQualifiedNames ? false) ~= self allowQualifiedNames value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	1073	((Compiler allowOldStyleAssignment ? false) ~= self allowOldStyleAssignment value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	1074	((Compiler allowReservedWordsAsSelectors ? false) ~= self allowReservedWordsAsSelectors value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	1075	((Compiler arraysAreImmutable ? false) ~= self immutableArrays value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	1076	((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	1077	((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	1078	((ObjectMemory justInTimeCompilation ? false) ~= self justInTimeCompilation value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	1079	^ false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1080	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1081
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1082	supportsJustInTimeCompilation
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1083
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1084	^ ObjectMemory supportsJustInTimeCompilation
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1085	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1086
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1087	!AbstractSettingsApplication::DebuggerSettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1088
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1089	defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1090	<resource: #programImage>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1091
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1092	^ ToolbarIconLibrary bugReporter24x24Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1093	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1094
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1095	!AbstractSettingsApplication::DebuggerSettingsAppl class methodsFor:'interface specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1096
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1097	windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1098	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1099	by the UIPainter of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1100
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1101	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1102	the UIPainter may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1103
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1104	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1105	UIPainter new openOnClass:AbstractSettingsApplication::DebuggerSettingsAppl andSelector:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1106	AbstractSettingsApplication::DebuggerSettingsAppl new openInterface:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1107	AbstractSettingsApplication::DebuggerSettingsAppl open
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1108	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1109
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1110	<resource: #canvas>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1111
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1112	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1113	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1114	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1115	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1116	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1117	label: 'Debugger Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1118	name: 'Debugger Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1119	min: (Point 10 10)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1120	bounds: (Rectangle 14 46 614 366)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1121	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1122	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1123	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1124	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1125	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1126	name: 'VerticalPanel2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1127	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	1128	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1129	verticalLayout: top
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1130	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1131	verticalSpace: 5
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1132	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1133	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1134	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1135	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1136	name: 'VerticalPanel5'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1137	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1138	verticalLayout: topSpace
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1139	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1140	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1141	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1142	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1143	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1144	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1145	name: 'Box10'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1146	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1147	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1148	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1149	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1150	label: 'Show Error Notifier before Opening Debugger'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1151	name: 'ShowErrorNotifierCheckBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1152	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	1153	model: showErrorNotifier
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1154	translateLabel: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1155	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1156	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1157
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1158	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1159	extent: (Point 600 30)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1160	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1161	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1162	name: 'Box11'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1163	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1164	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1165	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1166	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1167	label: 'Verbose Backtrace by Default in Debugger'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1168	name: 'ShowVerboseStackCheckBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1169	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	1170	model: showVerboseStack
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1171	translateLabel: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1172	)
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	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1176	extent: (Point 600 30)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1177	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1178	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1179	name: 'Box12'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1180	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1181	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1182	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1183	(CheckBoxSpec
6018 4f403b3bd8ea * empty log message * Claus Gittinger <cg@exept.de> parents: 6017 diff changeset	1184	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	1185	name: 'CheckBox6'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1186	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	1187	model: allowSendMailFromDebugger
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1188	translateLabel: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1189	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1190	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1191
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1192	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1193	extent: (Point 600 30)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1194	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1195	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1196
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1197	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1198	extent: (Point 600 320)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1199	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1200	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1201
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1202	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1203	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1204	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1205
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1206	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1207	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1208	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1209
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1210	!AbstractSettingsApplication::DebuggerSettingsAppl methodsFor:'actions'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1211
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1212	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1213
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1214	currentUserPrefs allowSendMailFromDebugger:self allowSendMailFromDebugger value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1215	self showErrorNotifier value ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1216	Exception emergencyHandler:nil
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1217	] ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1218	Exception emergencyHandler:(AbstractLauncherApplication notifyingEmergencyHandler)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1219	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1220	DebugView defaultVerboseBacktrace:self showVerboseStack value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1221	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1222
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	1223	helpFilename
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	1224	^ 'Launcher/debuggerSettings.html'
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
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1227	readSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1228	self allowSendMailFromDebugger
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1229	value:currentUserPrefs allowSendMailFromDebugger.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1230	self showErrorNotifier value:(NoHandlerError emergencyHandler
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1231	== AbstractLauncherApplication notifyingEmergencyHandler).
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1232	self showVerboseStack value:(DebugView defaultVerboseBacktrace ? false).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1233	self modifiedChannel value:false
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1234	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1235
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1236	!AbstractSettingsApplication::DebuggerSettingsAppl methodsFor:'aspects'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1237
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1238	allowSendMailFromDebugger
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1239
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1240	allowSendMailFromDebugger isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1241	allowSendMailFromDebugger := currentUserPrefs allowSendMailFromDebugger asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1242	allowSendMailFromDebugger onChangeSend:#updateModifiedChannel to:self
4398 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	^ allowSendMailFromDebugger.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1245	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1246
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1247	showErrorNotifier
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1248
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1249	showErrorNotifier isNil ifTrue:[
4566 af369740e2bc Replace referneces to Exception. Stefan Vogel <sv@exept.de> parents: 4563 diff changeset	1250	showErrorNotifier := (NoHandlerError emergencyHandler == AbstractLauncherApplication notifyingEmergencyHandler) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1251	showErrorNotifier onChangeSend:#updateModifiedChannel to:self
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1252	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1253	^ showErrorNotifier.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1254	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1255
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1256	showVerboseStack
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1257
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1258	showVerboseStack isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1259	showVerboseStack := (DebugView defaultVerboseBacktrace ? false) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1260	showVerboseStack onChangeSend:#updateModifiedChannel to:self
4398 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	^ showVerboseStack.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1263	! !
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	!AbstractSettingsApplication::DebuggerSettingsAppl methodsFor:'queries'!
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	hasUnsavedChanges
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	1268	self showErrorNotifier value ~= (NoHandlerError emergencyHandler == AbstractLauncherApplication notifyingEmergencyHandler) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	1269	DebugView defaultVerboseBacktrace ? false ~= self showVerboseStack value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	1270	(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	1271	^ false
4398 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
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1274	!AbstractSettingsApplication::DisplaySettingsAppl class methodsFor:'defaults'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1275
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1276	clipEncodingStrings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1277
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1278	^ #('untranslated' 'iso8859' 'jis' 'jis7' 'shift-JIS' 'EUC' 'big5')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1279	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1280
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1281	clipEncodingSyms
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1282
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1283	^ #(nil #iso8859 #jis #jis7 #sjis #euc #big5)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1284	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1285
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1286	staticGrayOrGrayScaleDitherStrings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1287
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1288	^ #('threshold' 'ordered dither' 'error diffusion')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1289	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1290
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1291	staticGrayOrGrayScaleDitherSyms
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1292
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1293	^ #(threshold ordered floydSteinberg)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1294	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1295
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1296	trueColorDitherStrings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1297
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1298	^ #('nearest color' 'error diffusion')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1299	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1300
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1301	trueColorDitherSyms
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1302
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1303	^ #(ordered floydSteinberg)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1304	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1305
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1306	!AbstractSettingsApplication::DisplaySettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1307
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1308	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1309	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1310	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1311
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1312	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1313	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1314
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1315	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1316	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1317	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1318	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1319	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1320
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1321	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1322
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1323	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1324	constantNamed:#'AbstractSettingsApplication::DisplaySettingsAppl class defaultIcon'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	1325	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	1326	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@Y&Y&Y&Y&Y&&P@@A&Y&Y&Y&Y&ZY@@@FXXUUV***)9$0@@Y!!H"H+.AF''&S@@A&,"H"H+DZ^YL@@F
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	1327	Z2H"H",Q)9$0@@Y(H"J;-QF''&S@@A&E[.HUQDZ^YL@@FXUUUUUDQ)$0@@Y!!UUUUTQF&S@@A&(QF$*$QD^YL@@I&Y&Y&Y&Y&Y$0@@&Y&Y&Y&Y&Y&S@@@@L3
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	1328	M)&YL3L3L@@@@@@F&Y$3@@@@@@@@ZY&Y&Y&S@@@@@@A)&Y&Y&YL@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 64 80 96 80 112 112 64 64 64 48 64 80 64 96 96 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@G<@@??@@??@@@@@@@@@') ; yourself); yourself]
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1329	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1330
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1331	!AbstractSettingsApplication::DisplaySettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1332
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1333	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1334	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1335	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1336
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1337	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1338	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1339
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1340	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	1341	UIPainter new openOnClass:AbstractSettingsApplication::DisplaySettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	1342	AbstractSettingsApplication::DisplaySettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	1343	AbstractSettingsApplication::DisplaySettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1344	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1345
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1346	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1347
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1348	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1349	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1350	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1351	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1352	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1353	label: 'Display Screen Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1354	name: 'Display Screen Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1355	min: (Point 10 10)
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	1356	bounds: (Rectangle 0 0 600 378)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1357	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1358	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1359	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1360	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1361	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1362	label: 'Actual Visible Screen Area:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1363	name: 'ActualVisibleScreenAreaLabel'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1364	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	1365	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1366	adjust: left
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1367	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1368	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1369	label: 'Common Sizes:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1370	name: 'CommonSizesLabel'
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	1371	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	1372	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1373	adjust: right
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1374	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1375	(PopUpListSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1376	label: 'monitor size'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1377	name: 'MonitorSelectionPopUpList'
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	1378	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	1379	tabable: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1380	model: monitorSelection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1381	menu: monitorList
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1382	useIndex: true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1383	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1384	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1385	label: 'Screen Size:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1386	name: 'ScreenSizeLabel'
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	1387	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	1388	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1389	adjust: right
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1390	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1391	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1392	name: 'SizeXEntryField'
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	1393	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	1394	model: sizeX
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1395	type: number
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1396	immediateAccept: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1397	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1398	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1399	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1400	acceptOnPointerLeave: true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1401	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1402	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1403	label: ' x '
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1404	name: 'xLabel'
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	1405	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	1406	translateLabel: true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1407	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1408	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1409	name: 'SizeYEntryField'
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	1410	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	1411	model: sizeY
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1412	type: number
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1413	immediateAccept: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1414	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1415	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1416	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1417	acceptOnPointerLeave: true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1418	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1419	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1420	label: '(mm)'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1421	name: 'mmLabel'
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	1422	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	1423	translateLabel: true
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	1424	adjust: left
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1425	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1426	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1427	name: 'Separator1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1428	layout: (LayoutFrame 0 0.0 105 0 0 1.0 109 0)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1429	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1430	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1431	name: 'ScreenDepthVisualLabel'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1432	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	1433	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1434	labelChannel: screenDepthVisualLabelHolder
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1435	adjust: left
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1436	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1437	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1438	name: 'Separator2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1439	layout: (LayoutFrame 0 0.0 139 0 0 1.0 143 0)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1440	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1441	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1442	label: 'Color Monitor'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1443	name: 'ColorMonitorCheckBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1444	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	1445	model: isColorMonitor
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1446	translateLabel: true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1447	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1448	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1449	label: 'Use Fix Color Palette'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1450	name: 'FixColorPaletteCheckBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1451	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	1452	enableChannel: visualIsPseudoColor
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1453	model: useFixPalette
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1454	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1455	labelChannel: useFixPaletteLabel
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1456	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1457	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1458	label: 'Use Fix Gray Color Palette'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1459	name: 'UseFixGrayPaletteCheckBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1460	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	1461	enableChannel: visualIsPseudoColor
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1462	model: useFixGrayPalette
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1463	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1464	labelChannel: useFixGrayPaletteLabel
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1465	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1466	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1467	label: 'Image Display:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1468	name: 'ImageDisplayLabel'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1469	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	1470	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1471	adjust: right
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1472	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1473	(PopUpListSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1474	label: 'image display'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1475	name: 'DitherListPopUpList'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1476	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	1477	tabable: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1478	model: ditherListSelection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1479	enableChannel: ditherSymsNotNil
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1480	menu: ditherList
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1481	useIndex: true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1482	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1483	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1484	label: 'Allow Colored/Grayscale Icons'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1485	name: 'AllowColoredGrayscaleIconsCheckBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1486	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	1487	model: deepIcons
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1488	translateLabel: true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1489	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1490	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1491	name: 'Separator3'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1492	layout: (LayoutFrame 0 0.0 288 0 0 1.0 292 0)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1493	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1494	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1495	label: 'ClipBoard Encoding:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1496	name: 'ClipBoardEncodingLabel'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1497	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	1498	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1499	adjust: right
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1500	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1501	(PopUpListSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1502	label: 'image display'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1503	name: 'ClipEncodingListPopUpList'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1504	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	1505	tabable: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1506	model: clipEncodingListSelection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1507	menu: clipEncodingList
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1508	useIndex: true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1509	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1510	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1511	name: 'Separator4'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1512	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	1513	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1514	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1515	label: 'Max. CopyBuffer Size:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1516	name: 'MaxCopyBufferSizeLabel'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1517	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	1518	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1519	adjust: right
5086 b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	1520	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1521	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1522	name: 'MaxCopyBufferEntryField'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1523	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	1524	model: maxCopyBufferSize
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1525	type: fileSize
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1526	immediateAccept: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1527	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1528	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1529	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1530	acceptOnPointerLeave: true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1531	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1532	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1533
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1534	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1535	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1536	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1537
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1538	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1539
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1540	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1541
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1542	Image flushDeviceImages.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1543
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1544	screen visualType == #PseudoColor ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1545	self useFixPalette value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1546	Color colorAllocationFailSignal handle:[:ex \|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1547	self warn:'Could not allocate colors.'.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1548	] do:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1549	Color getColorsRed:4 green:8 blue:4 on:screen
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1550	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1551	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1552	screen releaseFixColors
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1553	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1554
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1555	self useFixGrayPalette value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1556	Color colorAllocationFailSignal handle:[:ex \|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1557	self warn:'Could not allocate colors.'.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1558	] do:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1559	Color getGrayColors:32 on:screen
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1560	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1561	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1562	screen releaseFixGrayColors
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1563	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1564	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1565	screen hasColors:self isColorMonitor value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1566	screen widthInMillimeter:self sizeX value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1567	screen heightInMillimeter:self sizeY value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1568
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1569	screen supportsDeepIcons:self deepIcons value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1570	ditherSyms notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1571	Image ditherAlgorithm:(ditherSyms at:self ditherListSelection value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1572	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1573
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1574	WindowGroup activeGroup withWaitCursorDo:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1575	View defaultStyle:(View defaultStyle).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1576	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1577
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1578	screen clipBoardEncoding:(self class clipEncodingSyms at:self clipEncodingListSelection value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1579	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1580
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	1581	helpFilename
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	1582	^ 'Launcher/screenSettings.html'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1583	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1584
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1585	readSettings
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1586	self useFixPalette value:screen fixColors notNil.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1587	self useFixGrayPalette value:screen fixGrayColors notNil.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1588	self isColorMonitor value:screen hasColors.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1589	self sizeX value:screen widthInMillimeter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1590	self sizeY value:screen heightInMillimeter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1591	self deepIcons value:screen supportsDeepIcons.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1592	ditherSyms notNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1593	self ditherListSelection
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1594	value:(ditherSyms indexOf:(Image ditherAlgorithm) ifAbsent:#threshold)
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	self clipEncodingListSelection
6037 4ee47a9ce56a Unify naming: clipBoard->clipboard Stefan Vogel <sv@exept.de> parents: 6030 diff changeset	1597	value:(self class clipEncodingSyms indexOf:screen clipboardEncoding
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1598	ifAbsent:1).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1599	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1600	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1601
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1602	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1603
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1604	clipEncodingList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1605
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1606	clipEncodingList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1607	clipEncodingList := (resources array:self class clipEncodingStrings) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1608	"/ if your app needs to be notified of changes, uncomment one of the lines below:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1609	"/ clipEncodingList addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1610	"/ clipEncodingList onChangeSend:#clipEncodingListChanged to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1611	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1612	^ clipEncodingList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1613	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1614
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1615	clipEncodingListSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1616
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1617	clipEncodingListSelection isNil ifTrue:[
6037 4ee47a9ce56a Unify naming: clipBoard->clipboard Stefan Vogel <sv@exept.de> parents: 6030 diff changeset	1618	clipEncodingListSelection := (self class clipEncodingSyms indexOf:screen clipboardEncoding ifAbsent:1) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1619	clipEncodingListSelection onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1620	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1621	^ clipEncodingListSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1622	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1623
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1624	deepIcons
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1625
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1626	deepIcons isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1627	deepIcons := screen supportsDeepIcons asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1628	deepIcons onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1629	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1630	^ deepIcons.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1631	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1632
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1633	ditherList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1634
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1635	ditherList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1636	ditherList := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1637	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1638	^ ditherList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1639	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1640
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1641	ditherListSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1642
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1643	ditherListSelection isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1644	ditherSyms notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1645	ditherListSelection := (ditherSyms indexOf:(Image ditherAlgorithm) ifAbsent:#threshold) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1646	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1647	ditherListSelection := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1648	].
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1649	ditherListSelection onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1650	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1651	^ ditherListSelection.
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	ditherSymsNotNil
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1655
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1656	ditherSymsNotNil isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1657	ditherSymsNotNil := ditherSyms notNil asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1658	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1659	^ ditherSymsNotNil.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1660	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1661
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1662	isColorMonitor
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1663
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1664	isColorMonitor isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1665	isColorMonitor := screen hasColors asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1666	isColorMonitor onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1667	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1668	^ isColorMonitor.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1669	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1670
5086 b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	1671	maxCopyBufferSize
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	1672
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	1673	maxCopyBufferSize isNil ifTrue:[
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	1674	maxCopyBufferSize := (810241024) asValue.
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	1675	maxCopyBufferSize addDependent:self.
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	1676	maxCopyBufferSize changed.
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	1677	maxCopyBufferSize onChangeSend:#updateModifiedChannel to:self.
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	1678	].
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	1679	^ maxCopyBufferSize.
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	1680	!
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	1681
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1682	monitorList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1683
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1684	monitorList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1685	monitorList := (resources array:(sizeInfos collect:[:entry \| entry at:1])) asList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1686	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1687	^ monitorList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1688	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1689
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1690	monitorSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1691
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1692	monitorSelection isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1693	monitorSelection := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1694	monitorSelection addDependent:self.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1695	monitorSelection onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1696	monitorSelection changed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1697	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1698	^ monitorSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1699	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1700
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1701	screenDepthVisualLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1702
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1703	screenDepthVisualLabelHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1704	screenDepthVisualLabelHolder := (resources string:'Screen: Depth: %1 Visual: %2 (%3)'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1705	with:screen depth printString
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1706	with:screen visualType
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1707	with:screen serverVendor) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1708	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1709	^ screenDepthVisualLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1710	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1711
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1712	sizeX
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1713
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1714	sizeX isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1715	sizeX := screen widthInMillimeter asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1716	sizeX addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1717	sizeX changed.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1718	sizeX 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	^ sizeX.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1721	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1722
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1723	sizeY
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1724
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1725	sizeY isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1726	sizeY := screen heightInMillimeter asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1727	sizeY addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1728	sizeY changed.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1729	sizeY onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1730	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1731	^ sizeY.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1732	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1733
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1734	useFixGrayPalette
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1735
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1736	useFixGrayPalette isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1737	useFixGrayPalette := screen fixGrayColors notNil asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1738	useFixGrayPalette onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1739	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1740	^ useFixGrayPalette.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1741	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1742
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1743	useFixGrayPaletteLabel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1744
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1745	useFixGrayPaletteLabel isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1746	useFixGrayPaletteLabel := (resources string:'Use Fix Gray Color Palette %1' with:'(32)') asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1747	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1748	^ useFixGrayPaletteLabel.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1749	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1750
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1751	useFixPalette
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1752
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1753	useFixPalette isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1754	useFixPalette := screen fixColors notNil asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1755	useFixPalette onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1756	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1757	^ useFixPalette.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1758	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1759
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1760	useFixPaletteLabel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1761
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1762	useFixPaletteLabel isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1763	useFixPaletteLabel := (resources string:'Use Fix Color Palette %1' with:'(4x8x4)') asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1764	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1765	^ useFixPaletteLabel.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1766	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1767
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1768	visualIsPseudoColor
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1769
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1770	visualIsPseudoColor isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1771	visualIsPseudoColor := (screen visualType == #PseudoColor) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1772	visualIsPseudoColor onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1773	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1774	^ visualIsPseudoColor.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1775	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1776
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1777	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1778
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1779	monitorSelectionChanged
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1780
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1781	\| sel sizeInfoEntry sizes\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1782
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1783	sel := self monitorSelection value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1784	(sel notNil and:[sel ~~ 0]) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1785	sizeInfoEntry := sizeInfos at:sel.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1786	sizes := sizeInfoEntry at:2.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1787	self sizeX value:(sizes at:1).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1788	self sizeY value:(sizes at:2).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1789	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1790	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1791
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1792	sizeXorYChanged
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1793	\| sizes idx\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1794
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1795	sizes := sizeInfos collect:[:entry \| entry at:2].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1796	idx := sizes findFirst:[:entry \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1797	((entry at:1) = sizeX value)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1798	and:[((entry at:2) = sizeY value)]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1799	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1800	idx ~~ 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1801	self monitorSelection value:idx
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1802	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1803	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1804
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1805	update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1806	changedObject == self monitorSelection ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1807	self monitorSelectionChanged.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1808	^ self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1809	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1810	(changedObject == self sizeX or:[self sizeY]) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1811	self sizeXorYChanged.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1812	^ self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1813	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1814
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1815	super update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1816	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1817
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1818	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1819
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1820	initialize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1821
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1822	\| listOfSizes visual\|
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1823
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1824	screen := Screen current.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1825
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1826	listOfSizes := self class classResources at:'LIST_OF_OFFERED_SCREEN_SIZES' default:#default.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1827	listOfSizes == #default ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1828	"/ nothing in resource file; offer at least some.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1829	sizeInfos := #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1830	( '11.3'' (235mm x 175mm) LCD' (235 175) )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1831	( '17'' (325mm x 245mm)' (325 245) )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1832	( '19'' (340mm x 270mm)' (340 270) )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1833	( '20'' (350mm x 280mm)' (350 280) )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1834	( '21'' (365mm x 285mm)' (365 285) )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1835	).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1836	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1837	sizeInfos := resources array:listOfSizes.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1838	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1839	visual := screen visualType.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1840	(visual == #StaticGray or:[visual == #GrayScale]) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1841	ditherStyles := self class staticGrayOrGrayScaleDitherStrings.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1842	ditherSyms := self class staticGrayOrGrayScaleDitherSyms.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1843	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1844	visual ~~ #TrueColor ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1845	ditherStyles := self class trueColorDitherStrings.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1846	ditherSyms := self class trueColorDitherSyms.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1847	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1848	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1849	super initialize.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1850
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1851	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1852
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1853	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1854
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1855	hasUnsavedChanges
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	1856	self useFixPalette value ~= screen fixColors notNil ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	1857	self useFixGrayPalette value ~= screen fixGrayColors notNil ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	1858	self isColorMonitor value ~= screen hasColors ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	1859	self sizeX value ~= screen widthInMillimeter ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	1860	self sizeY value ~= screen heightInMillimeter ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	1861
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	1862	self deepIcons value ~= screen supportsDeepIcons ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	1863	ditherSyms notNil ifTrue:[
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	1864	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	1865	].
6037 4ee47a9ce56a Unify naming: clipBoard->clipboard Stefan Vogel <sv@exept.de> parents: 6030 diff changeset	1866	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	1867	^ false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1868	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1869
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1870	!AbstractSettingsApplication::EditSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1871
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1872	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1873	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1874	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1875
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1876	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1877	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1878
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1879	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1880	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1881	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1882	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1883	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1884
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1885	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1886
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1887	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1888	constantNamed:#'AbstractSettingsApplication::EditSettingsAppl class defaultIcon'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	1889	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	1890	*****************************("H"H"H"H"J(@"EUUU%UUUU@@^*HUUUVUUUU@@]:(!!UUUYUUUT@A7"FY&Y&Y&X@]7^HUUUVUU@@]7\Z*(
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	1891	!!UUUYU@@]7\R"EUUU%T@A7]1JHY&Y&XC]7\Q&(!!UUU(3M7\Y&"EUUU#L3L2QJHY&Z#L3L6)D(!!&YL3L6Z$R*"EUUP3M&ZEQJ*HUU
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	1892	RRY(UUUD**(")J***$R"J)J***QJHUUUZUUUUUDTQDQDQDQDQDR*************(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]
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1893	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1894
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1895	!AbstractSettingsApplication::EditSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1896
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1897	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1898	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1899	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1900
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1901	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1902	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1903
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1904	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	1905	UIPainter new openOnClass:AbstractSettingsApplication::EditSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	1906	AbstractSettingsApplication::EditSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	1907	AbstractSettingsApplication::EditSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1908	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1909
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1910	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1911
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1912	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1913	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1914	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1915	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1916	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1917	label: 'Editor Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1918	name: 'Editor Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1919	min: (Point 10 10)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1920	bounds: (Rectangle 14 46 614 366)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1921	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1922	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1923	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1924	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1925	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1926	name: 'VerticalPanel2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1927	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	1928	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1929	verticalLayout: top
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1930	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1931	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1932	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1933	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1934	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1935	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1936	name: 'VerticalPanel1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1937	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1938	verticalLayout: top
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1939	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1940	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1941	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1942	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1943	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1944	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1945	label: 'CTRL-Key to Start TextDrag'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1946	name: 'CTRLKeyStTextDragCheckBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1947	model: startTextDragWithControl
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1948	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1949	extent: (Point 600 23)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1950	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1951	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1952	label: 'SearchBox is Modal'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1953	name: 'SearchBoxModalCheckBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1954	model: searchDialogIsModal
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1955	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1956	extent: (Point 600 23)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1957	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1958	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1959	label: 'Tab Stops in Multiples of 4'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1960	name: 'TabStopsMultiples4CheckBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1961	model: tabsIs4
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1962	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1963	extent: (Point 600 23)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1964	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1965	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1966	label: 'Double Click Select Behavior as in ST80'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1967	name: 'DoubleClickSelectBehaviorST80CheckBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1968	model: st80DoubleClickSelectMode
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1969	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1970	extent: (Point 600 23)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1971	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1972	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1973	label: 'Cursor has ST80 Line-end Behavior'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1974	name: 'CursorST80LineEndBehaviorCheckBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1975	model: st80EditingMode
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1976	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1977	extent: (Point 600 23)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1978	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1979	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1980
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1981	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1982	extent: (Point 600 127)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1983	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1984	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1985
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1986	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1987	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1988	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1989
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1990	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1991	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1992	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1993
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1994	!AbstractSettingsApplication::EditSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1995
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1996	basicSaveSettings
5291 695fffec14ef * empty log message * Claus Gittinger <cg@exept.de> parents: 5289 diff changeset	1997	\|prefs\|
695fffec14ef * empty log message * Claus Gittinger <cg@exept.de> parents: 5289 diff changeset	1998
695fffec14ef * empty log message * Claus Gittinger <cg@exept.de> parents: 5289 diff changeset	1999	prefs := UserPreferences current.
695fffec14ef * empty log message * Claus Gittinger <cg@exept.de> parents: 5289 diff changeset	2000
695fffec14ef * empty log message * Claus Gittinger <cg@exept.de> parents: 5289 diff changeset	2001	prefs st80EditMode:(self st80EditingMode value).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2002	TextView st80SelectMode:(self st80DoubleClickSelectMode value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2003	tabsIs4 value ~~ (ListView userDefaultTabPositions = ListView tab4Positions) ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2004	ListView userDefaultTabPositions:(self tabsIs4 value ifTrue:[ListView tab4Positions] ifFalse:[ListView tab8Positions]).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2005	ListView allSubInstancesDo:[:eachKindOfListView \|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2006	self tabsIs4 value ifTrue:[eachKindOfListView setTab4] ifFalse:[eachKindOfListView setTab8]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2007	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2008	].
5291 695fffec14ef * empty log message * Claus Gittinger <cg@exept.de> parents: 5289 diff changeset	2009	prefs searchDialogIsModal:self searchDialogIsModal value.
695fffec14ef * empty log message * Claus Gittinger <cg@exept.de> parents: 5289 diff changeset	2010	prefs startTextDragWithControl:self startTextDragWithControl value.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2011	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2012
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	2013	helpFilename
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	2014	^ 'Launcher/editSettings.html'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2015	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2016
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2017	readSettings
5915 d7d685d60d82 * empty log message * Claus Gittinger <cg@exept.de> parents: 5912 diff changeset	2018	\|prefs\|
d7d685d60d82 * empty log message * Claus Gittinger <cg@exept.de> parents: 5912 diff changeset	2019
d7d685d60d82 * empty log message * Claus Gittinger <cg@exept.de> parents: 5912 diff changeset	2020	prefs := UserPreferences current.
d7d685d60d82 * empty log message * Claus Gittinger <cg@exept.de> parents: 5912 diff changeset	2021
d7d685d60d82 * empty log message * Claus Gittinger <cg@exept.de> parents: 5912 diff changeset	2022	self st80EditingMode value:prefs st80EditMode.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2023	self st80DoubleClickSelectMode value:TextView st80SelectMode.
5915 d7d685d60d82 * empty log message * Claus Gittinger <cg@exept.de> parents: 5912 diff changeset	2024	self tabsIs4 value:(ListView userDefaultTabPositions = ListView tab4Positions).
d7d685d60d82 * empty log message * Claus Gittinger <cg@exept.de> parents: 5912 diff changeset	2025	self searchDialogIsModal value:prefs searchDialogIsModal.
d7d685d60d82 * empty log message * Claus Gittinger <cg@exept.de> parents: 5912 diff changeset	2026	self startTextDragWithControl value:prefs startTextDragWithControl.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2027	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2028	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2029
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2030	!AbstractSettingsApplication::EditSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2031
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2032	searchDialogIsModal
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2033
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2034	searchDialogIsModal isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2035	searchDialogIsModal := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	2036	searchDialogIsModal onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2037	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2038	^ searchDialogIsModal.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2039	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2040
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2041	st80DoubleClickSelectMode
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2042
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2043	st80DoubleClickSelectMode isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2044	st80DoubleClickSelectMode := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	2045	st80DoubleClickSelectMode onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2046	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2047	^ st80DoubleClickSelectMode.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2048	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2049
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2050	st80EditingMode
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2051
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2052	st80EditingMode isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2053	st80EditingMode := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	2054	st80EditingMode onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2055	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2056	^ st80EditingMode.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2057	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2058
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2059	startTextDragWithControl
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2060
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2061	startTextDragWithControl isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2062	startTextDragWithControl := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	2063	startTextDragWithControl onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2064	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2065	^ startTextDragWithControl.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2066	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2067
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2068	tabsIs4
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2069
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2070	tabsIs4 isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2071	tabsIs4 := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	2072	tabsIs4 onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2073	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2074	^ tabsIs4.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2075	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2076
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2077	!AbstractSettingsApplication::EditSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2078
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2079	hasUnsavedChanges
5915 d7d685d60d82 * empty log message * Claus Gittinger <cg@exept.de> parents: 5912 diff changeset	2080	currentUserPrefs st80EditMode ~= (self st80EditingMode value) ifTrue:[^ true].
d7d685d60d82 * empty log message * Claus Gittinger <cg@exept.de> parents: 5912 diff changeset	2081	TextView st80SelectMode ~= (self st80DoubleClickSelectMode value) ifTrue:[^ true].
d7d685d60d82 * empty log message * Claus Gittinger <cg@exept.de> parents: 5912 diff changeset	2082	tabsIs4 value ~~ (ListView userDefaultTabPositions = ListView tab4Positions) ifTrue:[
d7d685d60d82 * empty log message * Claus Gittinger <cg@exept.de> parents: 5912 diff changeset	2083	ListView userDefaultTabPositions ~= (self tabsIs4 value
d7d685d60d82 * empty log message * Claus Gittinger <cg@exept.de> parents: 5912 diff changeset	2084	ifTrue:[ListView tab4Positions]
d7d685d60d82 * empty log message * Claus Gittinger <cg@exept.de> parents: 5912 diff changeset	2085	ifFalse:[ListView tab8Positions]) ifTrue:[^ true].
d7d685d60d82 * empty log message * Claus Gittinger <cg@exept.de> parents: 5912 diff changeset	2086	].
d7d685d60d82 * empty log message * Claus Gittinger <cg@exept.de> parents: 5912 diff changeset	2087	currentUserPrefs searchDialogIsModal ~= self searchDialogIsModal value ifTrue:[^ true].
d7d685d60d82 * empty log message * Claus Gittinger <cg@exept.de> parents: 5912 diff changeset	2088	currentUserPrefs startTextDragWithControl ~= self startTextDragWithControl value ifTrue:[^ true].
d7d685d60d82 * empty log message * Claus Gittinger <cg@exept.de> parents: 5912 diff changeset	2089	^ false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2090	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2091
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2092	!AbstractSettingsApplication::FontSettingsAppl class methodsFor:'defaults'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2093
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2094	widgetList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2095
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2096	^ #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2097	'All'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2098	'Labels'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2099	'Buttons'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2100	'Lists'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2101	'Menus'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2102	'Edited Text'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2103	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2104	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2105
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2106	!AbstractSettingsApplication::FontSettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2107
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2108	defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2109	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2110	by the ImageEditor of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2111
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2112	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2113	the ImageEditor may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2114
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2115	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2116	self defaultIcon inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2117	ImageEditor openOnClass:self andSelector:#defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2118	Icon flushCachedIcons
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2119	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2120
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2121	<resource: #image>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2122
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2123	^Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2124	constantNamed:#'AbstractSettingsApplication::FontSettingsAppl class defaultIcon'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2125	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	2126	@@@@@@@@@@@@@@@@@@@@@!!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	2127	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	2128	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	2129	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2130
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2131	defaultIcon2
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2132	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2133	by the ImageEditor of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2134
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2135	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2136	the ImageEditor may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2137
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2138	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2139	self defaultIcon2 inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2140	ImageEditor openOnClass:self andSelector:#defaultIcon2
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2141	Icon flushCachedIcons
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
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2144	<resource: #image>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2145
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2146	^Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2147	constantNamed:#'AbstractSettingsApplication::FontSettingsAppl class defaultIcon2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2148	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	2149	@@@@@@@@@@@@@@@@@@@@@!!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	2150	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	2151	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	2152	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2153
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2154	!AbstractSettingsApplication::FontSettingsAppl class methodsFor:'instance creation'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2155
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2156	fontForEncoding:encodingMatch
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2157
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2158	\| inst \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2159
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2160	inst := self new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2161	inst encodingMatch:encodingMatch.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2162	self initialize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2163	self open.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2164	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2165
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2166	!AbstractSettingsApplication::FontSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2167
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2168	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2169	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2170	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2171
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2172	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2173	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2174
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2175	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2176	UIPainter new openOnClass:AbstractSettingsApplication::FontSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2177	AbstractSettingsApplication::FontSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2178	AbstractSettingsApplication::FontSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2179	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2180
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2181	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2182
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2183	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2184	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2185	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2186	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2187	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2188	label: 'Font Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2189	name: 'Font Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2190	min: (Point 10 10)
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	2191	bounds: (Rectangle 0 0 512 657)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2192	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2193	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2194	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2195	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2196	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2197	name: 'VerticalPanel1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2198	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	2199	horizontalLayout: fitSpace
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2200	verticalLayout: center
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2201	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2202	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2203	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2204	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2205	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2206	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2207	name: 'AllBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2208	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2209	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2210	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2211	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2212	label: 'All (Others)'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2213	name: 'All'
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	2214	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	2215	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2216	adjust: left
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2217	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2218	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2219	label: 'Label'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2220	name: 'AllFont'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2221	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	2222	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2223	labelChannel: allFontLabelHolder
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2224	adjust: left
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2225	postBuildCallback: postBuildAllFontLabel:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2226	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2227	(ActionButtonSpec
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	2228	label: 'Change...'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2229	name: 'ChangeAll'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2230	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	2231	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2232	model: changeAllFont
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2233	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2234	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2235	name: 'Separator1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2236	layout: (LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2237	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2238	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2239
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2240	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2241	extent: (Point 490 50)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2242	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2243	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2244	name: 'LabelsBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2245	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2246	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2247	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2248	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2249	label: 'Labels'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2250	name: 'Labels'
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	2251	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	2252	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2253	adjust: left
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2254	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2255	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2256	label: 'Labels'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2257	name: 'LabelsFont'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2258	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	2259	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2260	labelChannel: labelsFontLabelHolder
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2261	adjust: left
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2262	postBuildCallback: postBuildLabelsFontLabel:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2263	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2264	(ActionButtonSpec
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	2265	label: 'Change...'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2266	name: 'ChangeLabels'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2267	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	2268	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2269	model: changeLabelsFont
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2270	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2271	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2272	name: 'Separator6'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2273	layout: (LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2274	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2275	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2276
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2277	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2278	extent: (Point 490 50)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2279	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2280	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2281	name: 'ButtonsBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2282	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2283	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2284	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2285	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2286	label: 'Buttons'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2287	name: 'Buttons'
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	2288	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	2289	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2290	adjust: left
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2291	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2292	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2293	label: 'Buttons Font'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2294	name: 'ButtonsFont'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2295	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	2296	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2297	labelChannel: buttonsFontLabelHolder
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2298	adjust: left
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2299	postBuildCallback: postBuildButtonsFontLabel:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2300	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2301	(ActionButtonSpec
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	2302	label: 'Change...'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2303	name: 'Change Buttons'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2304	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	2305	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2306	model: changeButtonsFont
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2307	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2308	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2309	name: 'Separator7'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2310	layout: (LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2311	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2312	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2313
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2314	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2315	extent: (Point 490 50)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2316	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2317	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2318	name: 'ListsBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2319	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2320	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2321	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2322	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2323	label: 'Lists'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2324	name: 'Lists'
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	2325	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	2326	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2327	adjust: left
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2328	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2329	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2330	label: 'Lists Font'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2331	name: 'ListsFont'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2332	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	2333	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2334	labelChannel: listsFontLabelHolder
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2335	adjust: left
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2336	postBuildCallback: postBuildListsFontLabel:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2337	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2338	(ActionButtonSpec
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	2339	label: 'Change...'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2340	name: 'ChangeLists'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2341	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	2342	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2343	model: changeListsFont
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2344	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2345	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2346	name: 'Separator8'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2347	layout: (LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2348	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2349	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2350
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2351	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2352	extent: (Point 490 50)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2353	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2354	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2355	name: 'MenusBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2356	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2357	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2358	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2359	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2360	label: 'Menus'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2361	name: 'Menus'
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	2362	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	2363	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2364	adjust: left
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2365	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2366	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2367	label: 'Menus Font'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2368	name: 'MenusFont'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2369	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	2370	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2371	labelChannel: menusFontLabelHolder
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2372	adjust: left
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2373	postBuildCallback: postBuildMenuesFontLabel:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2374	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2375	(ActionButtonSpec
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	2376	label: 'Change...'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2377	name: 'ChangeMenus'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2378	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	2379	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2380	model: changeMenusFont
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2381	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2382	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2383	name: 'Separator9'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2384	layout: (LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2385	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2386	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2387
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2388	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2389	extent: (Point 490 50)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2390	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2391	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2392	name: 'TextBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2393	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2394	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2395	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2396	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2397	label: 'Text'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2398	name: 'Text'
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	2399	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	2400	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2401	adjust: left
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2402	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2403	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2404	label: 'Text Font'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2405	name: 'TextFont'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2406	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	2407	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2408	labelChannel: textFontLabelHolder
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2409	adjust: left
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2410	postBuildCallback: postBuildTextFontLabel:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2411	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2412	(ActionButtonSpec
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	2413	label: 'Change...'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2414	name: 'ChangeText'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2415	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	2416	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2417	model: changeTextFont
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2418	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2419	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2420	name: 'Separator10'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2421	layout: (LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2422	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2423	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2424
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2425	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2426	extent: (Point 490 50)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2427	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2428	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2429
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2430	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2431	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2432	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2433
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2434	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2435	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2436	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2437
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2438	!AbstractSettingsApplication::FontSettingsAppl methodsFor:'accessing'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2439
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2440	encodingMatch:aEncodingMatch
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2441
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2442	aEncodingMatch notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2443	filter := [:f \| f encoding notNil
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2444	and:[aEncodingMatch match:f encoding]].
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	!AbstractSettingsApplication::FontSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2449
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2450	basicSaveSettings
5464 4f59a3bc9fb2 * empty log message * ca parents: 5448 diff changeset	2451	\|fn\|
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2452
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2453	Label defaultFont:self labelDef value.
5551 24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	2454
24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	2455	fn := self buttonDef value.
24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	2456	Button defaultFont:fn.
24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	2457	Toggle defaultFont:fn.
24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	2458
24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	2459	fn := self textDef value.
24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	2460	TextView withAllSubclasses do:[:cls \| cls defaultFont:fn].
24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	2461
24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	2462	fn := self listDef value.
24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	2463	SelectionInListView withAllSubclasses do:[:cls \| cls defaultFont:fn].
24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	2464
5464 4f59a3bc9fb2 * empty log message * ca parents: 5448 diff changeset	2465	fn := self menuDef value.
5551 24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	2466	ListView defaultFont:fn.
5464 4f59a3bc9fb2 * empty log message * ca parents: 5448 diff changeset	2467	MenuView defaultFont:fn.
4f59a3bc9fb2 * empty log message * ca parents: 5448 diff changeset	2468	MenuPanel defaultFont:fn.
4f59a3bc9fb2 * empty log message * ca parents: 5448 diff changeset	2469	NoteBookView defaultFont:fn.
5551 24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	2470	PullDownMenu defaultFont:fn.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2471	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2472
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2473	changeAllFont
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2474	\|f\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2475
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2476	f := FontPanel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2477	fontFromUserInitial:(self allOfThem value)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2478	title:(resources string:'Font for %1' with:'All')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2479	filter:filter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2480	f notNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2481	self allOfThem value:(f onDevice:allLabel device).
6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2482	self labelDef value:(f onDevice:labelLabel device).
6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2483	self buttonDef value:(f onDevice:buttonsLabel device).
6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2484	self listDef value:(f onDevice:listsLabel device).
6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2485	self menuDef value:(f onDevice:menuLabel device).
6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2486	self textDef value:(f onDevice:textLabel device).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2487	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2488	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2489
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2490	changeButtonsFont
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2491
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
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2495	fontFromUserInitial:(self buttonDef value)
4286 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 buttonDef value:(f onDevice:buttonsLabel device).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2500	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2501	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2502
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2503	changeLabelsFont
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2504	\|f \|
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2505
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2506	f := FontPanel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2507	fontFromUserInitial:(self labelDef value)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2508	title:(resources string:'Font for %1' with:'Labels')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2509	filter:filter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2510	f notNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2511	self labelDef value:(f onDevice:labelLabel device).
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2512	].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2513	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2514
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2515	changeListsFont
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2516	\|f\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2517
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2518	f := FontPanel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2519	fontFromUserInitial:(self listDef value)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2520	title:(resources string:'Font for %1' with:'Lists')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2521	filter:filter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2522	f notNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2523	self listDef value:(f onDevice:listsLabel device).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2524	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2525	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2526
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2527	changeMenusFont
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2528	\|f\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2529
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2530	f := FontPanel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2531	fontFromUserInitial:(self menuDef value)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2532	title:(resources string:'Font for %1' with:'Menus')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2533	filter:filter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2534	f notNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2535	self menuDef value:(f onDevice:menuLabel device).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2536	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2537	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2538
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2539	changeTextFont
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2540	\|f\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2541
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2542	f := FontPanel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2543	fontFromUserInitial:(self textDef value)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2544	title:(resources string:'Font for %1' with:'Edited Text')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2545	filter:filter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2546	f notNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2547	self textDef value:(f onDevice:textLabel device).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2548	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2549	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2550
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	2551	helpFilename
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	2552	^ 'Launcher/fontSettings.html'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2553	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2554
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2555	readSettings
5448 93dda6ed83a2 readStyleSheetAndUpdateAllStyleCaches not for every read settings penk parents: 5441 diff changeset	2556	"/ View readStyleSheetAndUpdateAllStyleCaches.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2557	self labelDef value:Label defaultFont.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2558	self buttonDef value:Button defaultFont.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2559	self listDef value:SelectionInListView defaultFont.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2560	self menuDef value:MenuView defaultFont.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2561	self textDef value:TextView defaultFont.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2562	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2563	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2564
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2565	!AbstractSettingsApplication::FontSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2566
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2567	allFontLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2568
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2569	allFontLabelHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2570	allFontLabelHolder := '' asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2571	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2572	^ allFontLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2573	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2574
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2575	allOfThem
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2576	"return/create the 'allOfThem' value holder (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2577
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2578	allOfThem isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2579	allOfThem := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2580	allOfThem addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2581	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2582	^ allOfThem
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2583	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2584
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2585	buttonDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2586	"return/create the 'buttonDef' value holder (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2587
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2588	buttonDef isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2589	buttonDef := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2590	buttonDef addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2591	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2592	^ buttonDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2593	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2594
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2595	buttonsFontLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2596
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2597	buttonsFontLabelHolder isNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2598	buttonsFontLabelHolder := '' asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2599	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2600	^ buttonsFontLabelHolder.
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	labelDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2604	"return/create the 'labelDef' value holder (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2605
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2606	labelDef isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2607	labelDef := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2608	labelDef addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2609	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2610	^ labelDef
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	labelsFontLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2614
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2615	labelsFontLabelHolder isNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2616	labelsFontLabelHolder := '' asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2617	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2618	^ labelsFontLabelHolder.
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	listDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2622	"return/create the 'listDef' value holder (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2623
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2624	listDef isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2625	listDef := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2626	listDef addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2627	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2628	^ listDef
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	listsFontLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2632
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2633	listsFontLabelHolder isNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2634	listsFontLabelHolder := '' asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2635	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2636	^ listsFontLabelHolder.
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	menuDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2640	"return/create the 'menuDef' value holder (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2641
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2642	menuDef isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2643	menuDef := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2644	menuDef addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2645	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2646	^ menuDef
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	menusFontLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2650
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2651	menusFontLabelHolder isNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2652	menusFontLabelHolder := '' asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2653	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2654	^ menusFontLabelHolder.
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	textDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2658	"return/create the 'textDef' value holder (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2659
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2660	textDef isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2661	textDef := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2662	textDef addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2663	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2664	^ textDef
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	textFontLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2668
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2669	textFontLabelHolder isNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2670	textFontLabelHolder := '' asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2671	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2672	^ textFontLabelHolder.
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	!AbstractSettingsApplication::FontSettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2676
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2677	update:something with:aParameter from:changedObject
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2678	builder notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2679	changedObject == self allOfThem ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2680	self updateFontOfLabel:allLabel andFontNameHolder:(self allFontLabelHolder) from:changedObject.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2681	^ self.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2682	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2683	changedObject == self labelDef ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2684	self updateFontOfLabel:labelLabel andFontNameHolder:(self labelsFontLabelHolder) from:changedObject.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2685	^ self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2686	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2687	changedObject == self buttonDef ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2688	self updateFontOfLabel:buttonsLabel andFontNameHolder:(self buttonsFontLabelHolder) from:changedObject.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2689	^ self.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2690	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2691	changedObject == self listDef ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2692	self updateFontOfLabel:listsLabel andFontNameHolder:(self listsFontLabelHolder) from:changedObject.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2693	^ self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2694	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2695	changedObject == self menuDef ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2696	self updateFontOfLabel:menuLabel andFontNameHolder:(self menusFontLabelHolder) from:changedObject.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2697	^ self.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2698	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2699	changedObject == self textDef ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2700	self updateFontOfLabel:textLabel andFontNameHolder:(self textFontLabelHolder) from:changedObject.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2701	^ self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2702	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2703	].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2704	super update:something with:aParameter from:changedObject
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2705	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2706
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2707	updateAllFontLabels
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2708	self update:#value with:nil from:self allOfThem.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2709	self update:#value with:nil from:self labelDef.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2710	self update:#value with:nil from:self buttonDef.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2711	self update:#value with:nil from:self listDef.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2712	self update:#value with:nil from:self menuDef.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2713	self update:#value with:nil from:self textDef.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2714	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2715
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2716	updateFontOfLabel:labelWidget andFontNameHolder:fontNameHolder from:changedObject
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	2717	\|f label\|
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2718
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2719	f := changedObject value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2720	labelWidget font:f.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2721	label := f isNil ifTrue:[
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	2722	''
c72e35116b13 instable state penk parents: 5040 diff changeset	2723	] ifFalse:[
c72e35116b13 instable state penk parents: 5040 diff changeset	2724	f userFriendlyName
c72e35116b13 instable state penk parents: 5040 diff changeset	2725	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2726	fontNameHolder value:label.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	2727	self updateModifiedChannel
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2728	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2729
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2730	!AbstractSettingsApplication::FontSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2731
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2732	postBuildAllFontLabel:aWidget
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2733
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2734	allLabel := aWidget.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2735	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2736
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2737	postBuildButtonsFontLabel:aWidget
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2738
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2739	buttonsLabel := aWidget.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2740	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2741
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2742	postBuildLabelsFontLabel:aWidget
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2743
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2744	labelLabel := aWidget.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2745	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2746
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2747	postBuildListsFontLabel:aWidget
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2748
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2749	listsLabel := aWidget.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2750	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2751
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2752	postBuildMenuesFontLabel:aWidget
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2753
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2754	menuLabel := aWidget.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2755	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2756
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2757	postBuildTextFontLabel:aWidget
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2758
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2759	textLabel := aWidget.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2760	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2761
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2762	postBuildWith:aBuilder
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2763	"/ self readSettings.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2764	self updateAllFontLabels.
4438 74e64acf5dd0 font settings loadrequest on postBuild now penk parents: 4434 diff changeset	2765	super postBuildWith:aBuilder
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2766	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2767
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2768	!AbstractSettingsApplication::FontSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2769
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2770	hasUnsavedChanges
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	2771	self labelDef value ~= Label defaultFont ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	2772	self buttonDef value ~= Button defaultFont ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	2773	self listDef value ~= SelectionInListView defaultFont ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	2774	self menuDef value ~= MenuView defaultFont ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	2775	self textDef value ~= TextView defaultFont ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	2776	^ false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2777	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2778
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2779	!AbstractSettingsApplication::GeneralCompilerSettingsAppl class methodsFor:'defaults'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2780
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2781	keepSourceOptions
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2782
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2783	^ #( keep reference absReference sourceReference discard )
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2784	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2785
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2786	keepSourceStrings
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2787
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2788	^ #('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	2789	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2790
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2791	!AbstractSettingsApplication::GeneralCompilerSettingsAppl class methodsFor:'image specs'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2792
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2793	defaultIcon
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2794	"This resource specification was automatically generated
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2795	by the ImageEditor of ST/X."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2796
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2797	"Do not manually edit this!! If it is corrupted,
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2798	the ImageEditor may not be able to read the specification."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2799
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	self defaultIcon inspect
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2802	ImageEditor openOnClass:self andSelector:#defaultIcon
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2803	Icon flushCachedIcons
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2804	"
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	<resource: #image>
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	^Icon
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2809	constantNamed:#'AbstractSettingsApplication::GeneralCompilerSettingsAppl class defaultIcon'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	2810	ifAbsentPut:[(Depth1Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@C@@@@G.=0G.=0D*%PG.=0@@@@G??0GC#0G]]0G]_0GC_0G]_3G]]0GC#0G??3@@@A@@@@@@@@@@@@') ; colorMapFromArray:#[0 0 0 255 255 255]; mask:((ImageMask new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8@@@@@@@@@@@@') ; yourself); yourself]
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2811	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2812
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2813	!AbstractSettingsApplication::GeneralCompilerSettingsAppl class methodsFor:'interface specs'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2814
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2815	windowSpec
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 UIPainter 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 UIPainter 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	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2823	UIPainter new openOnClass:AbstractSettingsApplication::GeneralCompilerSettingsAppl andSelector:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2824	AbstractSettingsApplication::GeneralCompilerSettingsAppl new openInterface:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2825	AbstractSettingsApplication::GeneralCompilerSettingsAppl open
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: #canvas>
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	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2831	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2832	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2833	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2834	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2835	label: 'General Compiler Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2836	name: 'General Compiler Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2837	min: (Point 10 10)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2838	max: (Point 1024 768)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2839	bounds: (Rectangle 14 46 614 366)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2840	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2841	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2842	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2843	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2844	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2845	name: 'VerticalPanel2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2846	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	2847	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2848	verticalLayout: top
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2849	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2850	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2851	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2852	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2853	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2854	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2855	label: 'Catch Method Redefinitions'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2856	name: 'CatchMethodRedefinitions'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2857	model: catchMethodRedefs
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2858	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2859	extent: (Point 600 25)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2860	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2861	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2862	label: 'Catch Class Redefinitions'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2863	name: 'CatchClassRedefinitions'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2864	model: catchClassRedefs
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2865	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2866	extent: (Point 600 25)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2867	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2868	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2869	label: 'Keep History Line in Methods'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2870	name: 'KeepHistoryLineinMethods'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2871	model: historyLines
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2872	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2873	extent: (Point 600 25)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2874	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2875	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2876	label: 'Keep Full Class History'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2877	name: 'KeepFullClassHistory'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2878	enableChannel: hasHistoryManager
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2879	model: fullHistoryUpdate
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2880	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2881	extent: (Point 600 25)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2882	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2883	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2884	name: 'Box1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2885	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2886	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2887	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2888	(PopUpListSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2889	label: 'PopUp List'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2890	name: 'KeepSourceSelection'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2891	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	2892	tabable: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2893	model: keepSourceSelection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2894	menu: keepSource
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2895	useIndex: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2896	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2897	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2898	label: 'FileIn Source Mode:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2899	name: 'FileInSourceModeLabel'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2900	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	2901	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2902	adjust: right
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2903	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2904	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2905
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2906	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2907	extent: (Point 600 30)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2908	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2909	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2910	name: 'Separator1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2911	extent: (Point 600 3)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2912	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2913	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2914	label: 'If Present, Load Binary Objects when Autoloading'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2915	name: 'LoadBinaryObjectsWhenAutoloading'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2916	enableChannel: canLoadBinaries
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2917	model: loadBinaries
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2918	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2919	extent: (Point 600 25)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2920	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2921	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2922
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2923	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2924	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2925	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2926
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2927	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2928	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2929	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2930
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2931	!AbstractSettingsApplication::GeneralCompilerSettingsAppl methodsFor:'actions'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2932
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2933	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2934
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2935	ClassCategoryReader sourceMode:(self class keepSourceOptions at:self keepSourceSelection value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2936	Class catchClassRedefinitions:self catchClassRedefs value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2937	Class catchMethodRedefinitions:self catchMethodRedefs value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2938	HistoryManager notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2939	HistoryManager fullHistoryUpdate:self fullHistoryUpdate value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2940	self historyLines value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2941	HistoryManager activate
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2942	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2943	HistoryManager deactivate
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2944	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2945	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2946	Smalltalk loadBinaries:self loadBinaries value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2947	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2948
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	2949	helpFilename
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	2950	^ 'Launcher/compilerSettings.html'
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2951	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2952
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2953	readSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2954	self keepSourceSelection value:(self class keepSourceOptions
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2955	indexOf:ClassCategoryReader sourceMode
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2956	ifAbsent:1).
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2957	self catchClassRedefs value:(Class catchClassRedefinitions ? false).
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2958	self catchMethodRedefs value:(Class catchMethodRedefinitions ? false).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2959	self canLoadBinaries ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2960	self loadBinaries value:Smalltalk loadBinaries
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2961	] ifFalse:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2962	self loadBinaries value:false
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2963	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2964	self hasHistoryManager ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2965	self fullHistoryUpdate value:(HistoryManager fullHistoryUpdate ? false)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2966	] ifFalse:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2967	self fullHistoryUpdate value:false
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2968	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2969	self historyLines value:self hasHistoryManager.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2970	self modifiedChannel value:false
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	!AbstractSettingsApplication::GeneralCompilerSettingsAppl methodsFor:'aspects'!
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	canLoadBinaries
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	canLoadBinaries isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2978	canLoadBinaries := (ObjectFileLoader notNil and:[ObjectFileLoader canLoadObjectFiles]) asValue.
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	^ canLoadBinaries.
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
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2983	catchClassRedefs
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2984
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2985	catchClassRedefs isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2986	catchClassRedefs := (Class catchClassRedefinitions ? false) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	2987	catchClassRedefs onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2988	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2989	^ catchClassRedefs.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2990	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2991
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2992	catchMethodRedefs
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2993
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2994	catchMethodRedefs isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2995	catchMethodRedefs := (Class catchMethodRedefinitions ? false) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	2996	catchMethodRedefs onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2997	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2998	^ catchMethodRedefs.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2999	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3000
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3001	fullHistoryUpdate
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	fullHistoryUpdate isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3004	self hasHistoryManager ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3005	fullHistoryUpdate := (HistoryManager fullHistoryUpdate ? false) asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3006	] ifFalse:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3007	fullHistoryUpdate := false asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3008	].
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	3009	fullHistoryUpdate onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3010	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3011	^ fullHistoryUpdate.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3012	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3013
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3014	hasHistoryManager
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3015
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3016	^ HistoryManager notNil and:[HistoryManager isLoaded and:[HistoryManager isActive]]
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3017	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3018
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	3019	historyLines
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3020
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3021	historyLines isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3022	historyLines := self hasHistoryManager asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	3023	historyLines onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3024	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3025	^ historyLines.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3026	!
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	keepSource
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3029
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3030	keepSource isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3031	keepSource := (resources array:(self class keepSourceStrings)) asList.
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	^ keepSource.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3034	!
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	keepSourceSelection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3037
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3038	keepSourceSelection isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3039	keepSourceSelection := (self class keepSourceOptions indexOf:ClassCategoryReader sourceMode ifAbsent:1) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	3040	keepSourceSelection onChangeSend:#updateModifiedChannel to:self.
4387 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	^ keepSourceSelection.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3043	!
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	loadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3046
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3047	loadBinaries isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3048	self canLoadBinaries ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3049	loadBinaries:= Smalltalk loadBinaries asValue
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3050	] ifFalse:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3051	loadBinaries:= false asValue
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3052	].
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	3053	loadBinaries onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3054	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3055	^ loadBinaries.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3056	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3057
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3058	!AbstractSettingsApplication::GeneralCompilerSettingsAppl methodsFor:'queries'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3059
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3060	hasUnsavedChanges
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	3061	((HistoryManager fullHistoryUpdate ? false) ~= self fullHistoryUpdate value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	3062	((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	3063	((Class catchMethodRedefinitions ? false) ~= self catchMethodRedefs value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	3064	((Class catchClassRedefinitions ? false) ~= self catchClassRedefs value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	3065	((Smalltalk loadBinaries ? false) ~= self loadBinaries value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	3066	((self hasHistoryManager) ~= self historyLines value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	3067	^ false.
4387 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
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3070	!AbstractSettingsApplication::HTTPStartServerSettingsApplication class methodsFor:'image specs'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3071
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3072	defaultIcon
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3073	"This resource specification was automatically generated
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3074	by the ImageEditor of ST/X."
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3075
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3076	"Do not manually edit this!! If it is corrupted,
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3077	the ImageEditor may not be able to read the specification."
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3078
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3079	"
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3080	self defaultIcon inspect
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3081	ImageEditor openOnClass:self andSelector:#defaultIcon
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3082	Icon flushCachedIcons
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3083	"
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3084
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3085	<resource: #image>
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3086
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3087	^Icon
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	3088	constantNamed:#'AbstractSettingsApplication::HTTPStartServerSettingsApplication class defaultIcon'
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3089	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	3090	@@@@@@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	3091	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	3092	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	3093	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	3094	K2</K2</KSXEL@@@@@@@@@@@@@@+K"<AJB (JB46AS@@@@@@@@@@@@@@J28/@@@@@@@/M T0@@@@@@@@@@@@@B,.R41LSD1LSSXEL@@@@@@@@@@@@@@+K#8(
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	3095	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	3096	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3097
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3098	!AbstractSettingsApplication::HTTPStartServerSettingsApplication class methodsFor:'interface specs'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3099
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3100	windowSpec
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3101	"This resource specification was automatically generated
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3102	by the UIPainter of ST/X."
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3103
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3104	"Do not manually edit this!! If it is corrupted,
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3105	the UIPainter may not be able to read the specification."
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3106
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3107	"
4726 8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3108	UIPainter new openOnClass:AbstractSettingsApplication::HTTPStartServerSettingsApplication andSelector:#windowSpec
8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3109	AbstractSettingsApplication::HTTPStartServerSettingsApplication new openInterface:#windowSpec
8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3110	AbstractSettingsApplication::HTTPStartServerSettingsApplication open
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3111	"
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3112
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3113	<resource: #canvas>
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3114
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3115	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3116	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3117	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3118	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3119	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3120	label: 'HTTP Server Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3121	name: 'HTTP Server Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3122	min: (Point 10 10)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3123	bounds: (Rectangle 14 46 553 676)
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3124	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3125	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3126	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3127	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3128	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3129	name: 'VerticalPanel1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3130	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	3131	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3132	verticalLayout: top
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3133	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3134	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3135	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3136	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3137	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3138	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3139	name: 'VerticalPanel4'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3140	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3141	verticalLayout: topSpace
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3142	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3143	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3144	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3145	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3146	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3147	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3148	name: 'Box19'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3149	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3150	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3151	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3152	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3153	label: 'Label'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3154	name: 'Label2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3155	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	3156	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3157	labelChannel: informationLabel
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3158	resizeForLabel: false
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3159	adjust: left
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3160	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3161	)
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	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3164	extent: (Point 539 200)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3165	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3166	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3167	name: 'Box18'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3168	extent: (Point 539 20)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3169	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3170	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3171	name: 'Box17'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3172	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3173	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3174	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3175	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3176	label: 'Port:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3177	name: 'Label1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3178	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	3179	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3180	adjust: right
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3181	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3182	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3183	name: 'EntryField1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3184	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	3185	model: portNumberChannel
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3186	type: number
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3187	immediateAccept: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3188	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3189	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3190	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3191	acceptOnPointerLeave: false
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3192	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3193	(ActionButtonSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3194	label: 'Create new HTTP Server'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3195	name: 'Button4'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3196	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	3197	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3198	model: createServer
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3199	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3200	(ActionButtonSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3201	label: 'Create Server from Settingsfile...'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3202	name: 'Button6'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3203	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	3204	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3205	model: createServerFromFile
5049 3df132763949 instable state penk parents: 5044 diff changeset	3206	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3207	(ActionButtonSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3208	label: 'Remove all HTTP Servers'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3209	name: 'Button5'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3210	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	3211	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3212	model: removeAllServers
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3213	enableChannel: hasCreatedServerChannel
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3214	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3215	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3216
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3217	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3218	extent: (Point 539 120)
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3219	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3220	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3221
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3222	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3223	extent: (Point 539 620)
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3224	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3225	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3226
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3227	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3228	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3229	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3230
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3231	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3232	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3233	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3234
5346 7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3235	!AbstractSettingsApplication::HTTPStartServerSettingsApplication class methodsFor:'servers access'!
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3236
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3237	addCreatedServer:aServer
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3238	self createdServers add:aServer.
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3239	!
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3240
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3241	createdServers
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3242	CreatedServers isNil ifTrue:[
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3243	CreatedServers := Set new.
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3244	].
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3245	^ CreatedServers
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3246	!
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3247
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3248	removeAllCreatedServer
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3249	self createdServers removeAll.
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3250	!
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3251
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3252	removeCreatedServer:aServer
5355 aa7b1d44d7a8 remove server from createdServers penk parents: 5346 diff changeset	3253	self createdServers remove:aServer ifAbsent:nil.
5346 7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3254	! !
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3255
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3256	!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'actions'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3257
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3258	basicSaveSettings
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3259
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3260	^ self
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3261	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3262
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3263	createServer
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3264
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3265	\| newServer port runningServers\|
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3266
5387 50ee62275b2a wait cursor immediately after press createServer penk parents: 5378 diff changeset	3267	self withWaitCursorDo:[
50ee62275b2a wait cursor immediately after press createServer penk parents: 5378 diff changeset	3268	port := self portNumberChannel value.
50ee62275b2a wait cursor immediately after press createServer penk parents: 5378 diff changeset	3269	runningServers := HTTPServer runningServers.
50ee62275b2a wait cursor immediately after press createServer penk parents: 5378 diff changeset	3270	runningServers notEmpty ifTrue:[
50ee62275b2a wait cursor immediately after press createServer penk parents: 5378 diff changeset	3271	runningServers do:[:aServer \|
50ee62275b2a wait cursor immediately after press createServer penk parents: 5378 diff changeset	3272	aServer port = port asInteger ifTrue:[
50ee62275b2a wait cursor immediately after press createServer penk parents: 5378 diff changeset	3273	Dialog warn:'There is already a Server for port ', port asString.
50ee62275b2a wait cursor immediately after press createServer penk parents: 5378 diff changeset	3274	^ self
50ee62275b2a wait cursor immediately after press createServer penk parents: 5378 diff changeset	3275	]
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3276	]
5387 50ee62275b2a wait cursor immediately after press createServer penk parents: 5378 diff changeset	3277	].
50ee62275b2a wait cursor immediately after press createServer penk parents: 5378 diff changeset	3278	runningServers addDependent:self.
50ee62275b2a wait cursor immediately after press createServer penk parents: 5378 diff changeset	3279
5214 3d2819b038bd server inserts default services only for default server penk parents: 5212 diff changeset	3280	(port = HTTPServer defaultPort) ifTrue:[
3d2819b038bd server inserts default services only for default server penk parents: 5212 diff changeset	3281	newServer := HTTPServer newServerWithDefaultServiceListOn:port.
3d2819b038bd server inserts default services only for default server penk parents: 5212 diff changeset	3282	] ifFalse:[
3d2819b038bd server inserts default services only for default server penk parents: 5212 diff changeset	3283	newServer := HTTPServer newServerOnPort:port.
3d2819b038bd server inserts default services only for default server penk parents: 5212 diff changeset	3284	].
5346 7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3285	self class addCreatedServer:newServer.
4893 39dec723f6ad * empty log message * penk parents: 4886 diff changeset	3286	self createServerApplicationFor:newServer.
4724 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
4893 39dec723f6ad * empty log message * penk parents: 4886 diff changeset	3290	createServerApplicationFor:aServerInstance
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	3291	\|settingsApp itemPathName newItem openApps\|
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3292
5031 86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	3293	openApps := self settingsDialog getAllChildrenAppsForApplication:self childrenClass:HTTPServerSettingsAppl.
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	3294	(openApps contains:[:app \| app httpServerInstance == aServerInstance]) ifTrue:[
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3295	" already have an Item for this application "
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3296	^ self
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3297	].
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	3298
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3299	settingsApp := HTTPServerSettingsAppl basicNew.
5031 86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	3300	settingsApp settingsDialog:self settingsDialog.
4893 39dec723f6ad * empty log message * penk parents: 4886 diff changeset	3301	settingsApp httpServerInstance:aServerInstance.
5038 c605d7909165 * empty log message * penk parents: 5035 diff changeset	3302	settingsApp defaultSettingsApplication:false.
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3303	settingsApp basicInitialize.
5044 fea72184bd8e instable state penk parents: 5041 diff changeset	3304	itemPathName := self itemPathName , '/', settingsApp nameInSettingsDialog.
5038 c605d7909165 * empty log message * penk parents: 5035 diff changeset	3305	newItem := self settingsDialog addApplClass:#'HTTPServerSettingsAppl' withName:itemPathName.
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3306	newItem application:settingsApp.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3307	self createdServerChanged.
5038 c605d7909165 * empty log message * penk parents: 5035 diff changeset	3308	self settingsDialog expandItemForApplication:self.
5280 a68af81b7b2c readSettings after create penk parents: 5278 diff changeset	3309	settingsApp readSettings.
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3310	settingsApp initialize.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3311	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3312
5049 3df132763949 instable state penk parents: 5044 diff changeset	3313	createServerFromFile
3df132763949 instable state penk parents: 5044 diff changeset	3314
5055 b3cba6441579 ready to use penk parents: 5049 diff changeset	3315	\| newServer fileName runningServers newServerPort answer\|
5049 3df132763949 instable state penk parents: 5044 diff changeset	3316
3df132763949 instable state penk parents: 5044 diff changeset	3317	runningServers := HTTPServer runningServers.
3df132763949 instable state penk parents: 5044 diff changeset	3318	fileName := Dialog requestFileName:'Select a HTTPServer Settings File'
3df132763949 instable state penk parents: 5044 diff changeset	3319	default:(HTTPServer settingsFilename)
3df132763949 instable state penk parents: 5044 diff changeset	3320	pattern:'*xml'
3df132763949 instable state penk parents: 5044 diff changeset	3321	fromDirectory:(Filename currentDirectory).
3df132763949 instable state penk parents: 5044 diff changeset	3322	fileName isEmptyOrNil ifTrue:[ ^ self].
5055 b3cba6441579 ready to use penk parents: 5049 diff changeset	3323	self withWaitCursorDo:[
b3cba6441579 ready to use penk parents: 5049 diff changeset	3324	newServer := HTTPServer serverFromSettingsFile:(fileName asFilename).
b3cba6441579 ready to use penk parents: 5049 diff changeset	3325	newServer notNil ifTrue:[
b3cba6441579 ready to use penk parents: 5049 diff changeset	3326	newServerPort := newServer port.
b3cba6441579 ready to use penk parents: 5049 diff changeset	3327	runningServers notEmpty ifTrue:[
b3cba6441579 ready to use penk parents: 5049 diff changeset	3328	[self hasServerForPort:newServerPort] whileTrue:[
b3cba6441579 ready to use penk parents: 5049 diff changeset	3329	answer := Dialog
b3cba6441579 ready to use penk parents: 5049 diff changeset	3330	request:('There is already a Server for port ', newServerPort asString, ' Please select another one')
b3cba6441579 ready to use penk parents: 5049 diff changeset	3331	initialAnswer:self portNumberChannel value asString.
b3cba6441579 ready to use penk parents: 5049 diff changeset	3332	answer isEmpty ifTrue:[
b3cba6441579 ready to use penk parents: 5049 diff changeset	3333	^ self
b3cba6441579 ready to use penk parents: 5049 diff changeset	3334	].
b3cba6441579 ready to use penk parents: 5049 diff changeset	3335	newServerPort := answer asNumber.
5049 3df132763949 instable state penk parents: 5044 diff changeset	3336	]
5055 b3cba6441579 ready to use penk parents: 5049 diff changeset	3337	].
b3cba6441579 ready to use penk parents: 5049 diff changeset	3338	newServer port:newServerPort.
b3cba6441579 ready to use penk parents: 5049 diff changeset	3339	runningServers addDependent:self.
5346 7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3340	self class addCreatedServer:newServer.
5055 b3cba6441579 ready to use penk parents: 5049 diff changeset	3341	self createServerApplicationFor:newServer.
5049 3df132763949 instable state penk parents: 5044 diff changeset	3342	].
3df132763949 instable state penk parents: 5044 diff changeset	3343	].
3df132763949 instable state penk parents: 5044 diff changeset	3344	!
3df132763949 instable state penk parents: 5044 diff changeset	3345
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	3346	createServerSubApplicationsForRunningServers
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3347
5346 7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3348	\|runningServers serverToStart\|
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3349
4883 45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3350	HTTPServer isLoaded ifFalse:[ ^ self].
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3351
5346 7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3352	runningServers := HTTPServer runningServers.
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3353	serverToStart := runningServers asSet.
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3354	serverToStart addAll:self class createdServers.
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3355	serverToStart isEmpty ifTrue:[ ^ self].
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3356	serverToStart := serverToStart asOrderedCollection.
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3357	serverToStart sort:[:a :b \| a port < b port].
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3358	serverToStart do:[:aHttpServerInstance \|
4893 39dec723f6ad * empty log message * penk parents: 4886 diff changeset	3359	self createServerApplicationFor:aHttpServerInstance.
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3360	]
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3361	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3362
5055 b3cba6441579 ready to use penk parents: 5049 diff changeset	3363	hasServerForPort:newServerPort
b3cba6441579 ready to use penk parents: 5049 diff changeset	3364
b3cba6441579 ready to use penk parents: 5049 diff changeset	3365	HTTPServer runningServers do:[:aServer \|
b3cba6441579 ready to use penk parents: 5049 diff changeset	3366	aServer port = newServerPort ifTrue:[
b3cba6441579 ready to use penk parents: 5049 diff changeset	3367	^ true
b3cba6441579 ready to use penk parents: 5049 diff changeset	3368	]
b3cba6441579 ready to use penk parents: 5049 diff changeset	3369	].
b3cba6441579 ready to use penk parents: 5049 diff changeset	3370	^ false
b3cba6441579 ready to use penk parents: 5049 diff changeset	3371	!
b3cba6441579 ready to use penk parents: 5049 diff changeset	3372
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	3373	helpFilename
5362 12d488573309 helpFilename in httpStartServerSettings Claus Gittinger <cg@exept.de> parents: 5355 diff changeset	3374	^ 'HTTPServer/index.html'
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	3375	!
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	3376
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3377	readSettings
4883 45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3378	HTTPServer isLoaded ifTrue:[
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3379	HTTPServer runningServers removeDependent:self.
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3380	HTTPServer runningServers addDependent:self.
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3381	].
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	3382	self createServerSubApplicationsForRunningServers.
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3383	self createdServerChanged.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3384	self modifiedChannel value:false.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3385	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3386
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3387	removeAllServerSubApplications
5049 3df132763949 instable state penk parents: 5044 diff changeset	3388	self settingsDialog removeAllSubApplicationsFor:self
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3389	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3390
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3391	removeAllServers
4883 45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3392	HTTPServer isLoaded ifTrue:[
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3393	HTTPServer terminateAllServers.
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3394	].
5346 7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3395	self class removeAllCreatedServer.
4883 45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3396	self removeAllServerSubApplications.
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3397	self createdServerChanged.
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3398	!
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3399
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3400	setPortOnFreePort
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3401
5040 1500f0fdf4dd instable state penk parents: 5038 diff changeset	3402	\| highestUsedPortNr portToUse instances\|
4893 39dec723f6ad * empty log message * penk parents: 4886 diff changeset	3403
39dec723f6ad * empty log message * penk parents: 4886 diff changeset	3404	HTTPServer isLoaded ifFalse:[
39dec723f6ad * empty log message * penk parents: 4886 diff changeset	3405	portToUse := 8080
39dec723f6ad * empty log message * penk parents: 4886 diff changeset	3406	] ifTrue:[
5040 1500f0fdf4dd instable state penk parents: 5038 diff changeset	3407	instances := HTTPServer runningServers asSet.
1500f0fdf4dd instable state penk parents: 5038 diff changeset	3408	instances addAll:((self settingsDialog getAllChildrenAppsForApplication:self) collect:[:aApp\| aApp httpServerInstance]).
1500f0fdf4dd instable state penk parents: 5038 diff changeset	3409	highestUsedPortNr := instances
5169 69b73214504d * empty log message * Claus Gittinger <cg@exept.de> parents: 5167 diff changeset	3410	inject:(HTTPServer defaultPort - 1)
4893 39dec723f6ad * empty log message * penk parents: 4886 diff changeset	3411	into:[:maxSoFar :thisServer \| thisServer port max:maxSoFar].
39dec723f6ad * empty log message * penk parents: 4886 diff changeset	3412
39dec723f6ad * empty log message * penk parents: 4886 diff changeset	3413	portToUse := highestUsedPortNr + 1
39dec723f6ad * empty log message * penk parents: 4886 diff changeset	3414	].
39dec723f6ad * empty log message * penk parents: 4886 diff changeset	3415	self portNumberChannel value:portToUse.
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3416	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3417
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3418	!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'aspects'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3419
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3420	hasCreatedServerChannel
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3421	"automatically generated by UIPainter ..."
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3422
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3423	"*** the code below creates a default model when invoked."
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3424	"*** (which may not be the one you wanted)"
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3425	"*** Please change as required and accept it in the browser."
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3426	"*** (and replace this comment by something more useful ;-)"
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3427
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3428	hasCreatedServerChannel isNil ifTrue:[
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3429	hasCreatedServerChannel := true asValue.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3430	"/ 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	3431	"/ hasCreatedServerChannel addDependent:self.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3432	"/ hasCreatedServerChannel onChangeSend:#hasCreatedServerChannelChanged to:self.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3433	].
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3434	^ hasCreatedServerChannel.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3435	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3436
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3437	informationLabel
4726 8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3438	^ resources
8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3439	string:'HTTPSTARTINFO'
8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3440	default:
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	3441	'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	3442	(i.e. it is possible to serve multiple ports)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	3443
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	3444	Once created, select the individual server in the left tree,
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	3445	configure its services, and finally start it up.'
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3446	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3447
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3448	portNumberChannel
4724 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	portNumberChannel isNil ifTrue:[
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3451	portNumberChannel := ValueHolder new.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3452	].
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3453	^ portNumberChannel.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3454	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3455
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3456	!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'change & update'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3457
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3458	createdServerChanged
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3459
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3460	self hasCreatedServerChannel value:self hasCreatedServer.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3461	self setPortOnFreePort.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3462	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3463
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3464	runningServersChanged
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	3465	self createServerSubApplicationsForRunningServers.
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3466	self setPortOnFreePort.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3467	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3468
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3469	update:something with:aParameter from:changedObject
4883 45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3470	HTTPServer isLoaded ifTrue:[
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3471	changedObject == HTTPServer runningServers ifTrue:[
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3472	self runningServersChanged.
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3473	^ self.
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3474	]
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3475	].
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3476	super update:something with:aParameter from:changedObject
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3477	! !
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	!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'initialization & release'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3480
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3481	release
4883 45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3482	HTTPServer isLoaded ifTrue:[
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3483	HTTPServer runningServers removeDependent:self.
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3484	]
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3485	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3486
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3487	!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'queries'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3488
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3489	hasCreatedServer
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3490
5031 86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	3491	^ (self settingsDialog getAllChildrenAppsForApplication:self childrenClass:HTTPServerSettingsAppl) notEmpty
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3492	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3493
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3494	hasUnsavedChanges
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3495
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3496	^ false
4724 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
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3499	!AbstractSettingsApplication::KbdMappingSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3500
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3501	defaultIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3502	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3503	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3504
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3505	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3506	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3507
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3508	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3509	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3510	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3511	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3512	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3513
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3514	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3515
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3516	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3517	constantNamed:#'AbstractSettingsApplication::KbdMappingSettingsAppl class defaultIcon'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	3518	ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	3519	@@@@@@@N@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@B%P@@@@@JUT@@@@@)TE@@H@BUTQP@@@ETTQ\@@@JTTU?@@@J$@W<@@@B)U_0@@@@U?@@@@@J''<@@@
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	3520	@@B''0@@@@@@''@@@O@@@D@@@@@@@@@@@K@@@@@@@@@@@@@@@M@@@@@@@@') ; colorMapFromArray:#[0 0 0 255 255 255 128 128 128 192 192 192]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@G@@@O @@_0@@?8@A?<@C?>@G??@G?? G??@C?>@A?<@@?8@@_0@@O @@G@@@B@@@@@@@@@@@@@@') ; yourself); yourself]
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3521	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3522
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3523	!AbstractSettingsApplication::KbdMappingSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3524
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3525	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3526	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3527	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3528
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3529	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3530	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3531
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3532	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	3533	UIPainter new openOnClass:AbstractSettingsApplication::KbdMappingSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3534	AbstractSettingsApplication::KbdMappingSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3535	AbstractSettingsApplication::KbdMappingSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3536	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3537
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3538	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3539
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3540	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3541	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3542	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3543	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3544	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3545	label: 'Keyboard Mapping Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3546	name: 'Keyboard Mapping Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3547	min: (Point 10 10)
5576 8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	3548	bounds: (Rectangle 0 0 491 653)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3549	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3550	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3551	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3552	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3553	(VariableVerticalPanelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3554	name: 'VariableVerticalPanel1'
5576 8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	3555	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	3556	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3557	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3558	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3559	(VariableHorizontalPanelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3560	name: 'VariableHorizontalPanel1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3561	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3562	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3563	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3564	(SequenceViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3565	name: 'RawKeyList'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3566	model: selectedRawKey
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3567	hasHorizontalScrollBar: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3568	hasVerticalScrollBar: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3569	useIndex: false
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3570	sequenceList: rawKeyList
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3571	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3572	(SequenceViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3573	name: 'FunctionKeyList'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3574	model: selectedFunctionKey
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3575	hasHorizontalScrollBar: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3576	hasVerticalScrollBar: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3577	useIndex: false
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3578	sequenceList: functionKeyList
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3579	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3580	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3581
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3582	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3583	handles: (Any 0.5 1.0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3584	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3585	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3586	name: 'Box1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3587	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3588	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3589	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3590	(TextEditorSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3591	name: 'MacroText'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3592	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	3593	model: macroTextHolder
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3594	hasHorizontalScrollBar: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3595	hasVerticalScrollBar: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3596	isReadOnly: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3597	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3598	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3599	label: 'Macro text (if any):'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3600	name: 'MacroTextLabel'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3601	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	3602	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3603	adjust: left
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3604	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3605	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3606
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3607	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3608	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3609	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3610
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3611	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3612	handles: (Any 0.5 1.0)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3613	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3614	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3615	label: 'NoticeText'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3616	name: 'Text'
5576 8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	3617	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	3618	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3619	labelChannel: labelTextHolder
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3620	resizeForLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3621	adjust: left
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3622	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3623	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3624
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3625	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3626	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3627	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3628
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3629	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3630
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3631	basicSaveSettings
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3632	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3633
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	3634	helpFilename
5741 28a546bab7e8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5734 diff changeset	3635	^ 'Launcher/keyboardSetting.html'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3636	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3637
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3638	readSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3639	self modifiedChannel value:false
4286 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	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3643
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3644	functionKeyList
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3645	"automatically generated by UIPainter ..."
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3646
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3647	"*** the code below creates a default model when invoked."
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3648	"*** (which may not be the one you wanted)"
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3649	"*** Please change as required and accept it in the browser."
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3650	"*** (and replace this comment by something more useful ;-)"
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3651
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3652	functionKeyList isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3653	functionKeyList := ValueHolder new.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3654	"/ 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	3655	"/ functionKeyList addDependent:self.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3656	"/ functionKeyList onChangeSend:#functionKeyListChanged to:self.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3657	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3658	^ functionKeyList.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3659	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3660
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3661	labelTextHolder
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3662	"automatically generated by UIPainter ..."
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3663
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3664	"*** the code below creates a default model when invoked."
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3665	"*** (which may not be the one you wanted)"
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3666	"*** Please change as required and accept it in the browser."
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3667	"*** (and replace this comment by something more useful ;-)"
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3668
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3669	labelTextHolder isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3670	labelTextHolder := ValueHolder new.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3671	"/ 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	3672	"/ labelTextHolder addDependent:self.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3673	"/ labelTextHolder onChangeSend:#labelTextHolderChanged to:self.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3674	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3675	^ labelTextHolder.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3676	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3677
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3678	macroTextHolder
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3679	"automatically generated by UIPainter ..."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3680
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3681	"*** the code below creates a default model when invoked."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3682	"*** (which may not be the one you wanted)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3683	"*** Please change as required and accept it in the browser."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3684	"*** (and replace this comment by something more useful ;-)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3685
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3686	macroTextHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3687	macroTextHolder := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3688	"/ if your app needs to be notified of changes, uncomment one of the lines below:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3689	"/ macroTextHolder addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3690	"/ macroTextHolder onChangeSend:#macroTextHolderChanged to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3691	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3692	^ macroTextHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3693	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3694
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3695	rawKeyList
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3696
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3697	rawKeyList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3698	rawKeyList := List new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3699	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3700	^ rawKeyList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3701	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3702
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3703	selectedFunctionKey
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3704
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3705	selectedFunctionKey isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3706	selectedFunctionKey := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3707	selectedFunctionKey addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3708	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3709	^ selectedFunctionKey.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3710	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3711
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3712	selectedRawKey
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3713
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3714	selectedRawKey isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3715	selectedRawKey := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3716	selectedRawKey addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3717	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3718	^ selectedRawKey.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3719	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3720
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3721	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3722
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3723	changeFunctionKeySelection
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3724
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3725	\|raw\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3726	raw := self selectedRawKey value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3727	self selectedFunctionKey value:(mappings at:raw asSymbol) asString.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3728	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3729
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3730	changeMacroText
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3731
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3732	\|f macro indent\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3733
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3734	f := self selectedFunctionKey value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3735	(f startsWith:'Cmd') ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3736	f := f copyFrom:4
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3737	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3738	macro := UserPreferences current functionKeySequences
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3739	at:(f asSymbol) ifAbsent:nil.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3740	macro notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3741	macro := macro asStringCollection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3742	indent := macro
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3743	inject:99999 into:[:min :element \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3744	\|stripped\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3745
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3746	stripped := element withoutLeadingSeparators.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3747	stripped size == 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3748	min
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3749	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3750	min min:(element size - stripped size)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3751	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3752	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3753	indent ~~ 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3754	macro := macro collect:[:line \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3755	line size > indent ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3756	line copyFrom:indent+1
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3757	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3758	line
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3759	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3760	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3761	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3762	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3763	macroTextHolder value:macro.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3764	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3765
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3766	changeRawKeySelection
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3767	\|f raw\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3768
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3769	f := self selectedFunctionKey value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3770	raw := mappings keyAtValue:f asString.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3771	raw isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3772	raw := mappings keyAtValue:f first.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3773	raw isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3774	raw := mappings keyAtValue:f asSymbol.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3775	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3776	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3777	self selectedRawKey value:raw.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3778	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3779
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3780	update:something with:aParameter from:changedObject
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3781	changedObject == self selectedFunctionKey ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3782	self changeRawKeySelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3783	self changeMacroText.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3784	^ self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3785	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3786	changedObject == self selectedRawKey ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3787	self changeFunctionKeySelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3788	^ self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3789	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3790	super update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3791	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3792
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3793	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3794
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3795	closeDownViews
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3796	"This is a hook method generated by the Browser.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3797	It will be invoked when your app/dialog-window is really closed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3798	See also #closeDownViews, which is invoked before and may suppress the close
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3799	or ask the user for confirmation."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3800
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3801	"/ change the code below as required ...
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3802	"/ This should cleanup any leftover resources
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3803	"/ (for example, temporary files)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3804	"/ super closeRequest will initiate the closeDown
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3805
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3806	"/ add your code here
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3807
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3808	"/ do not remove the one below ...
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3809	^ super closeDownViews
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3810	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3811
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3812	initialize
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3813
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3814	super initialize.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3815
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3816	mappings := Screen current keyboardMap.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3817
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3818	rawKeyList := (mappings keys asArray collect:[:key \| key asString]) sort.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3819	functionKeyList := (mappings values asSet asArray collect:[:key \| key asString]) sort.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3820
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3821	self labelTextHolder value:(resources at:'KEY_MSG2' default:'keyboard mapping:') withCRs.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3822	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3823
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3824	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3825
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3826	hasUnsavedChanges
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3827
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3828	^ false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3829	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3830
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3831	!AbstractSettingsApplication::LanguageSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3832
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3833	defaultIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3834	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3835	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3836
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3837	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3838	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3839
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3840	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3841	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3842	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3843	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3844	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3845
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3846	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3847
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3848	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3849	constantNamed:#'AbstractSettingsApplication::LanguageSettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3850	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	3851	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@B (JB (@@@@@@@@F <O@@@@@@@@@@@ZJB (GA0\GA0(JB VE @@@@@@@@@@
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	3852	F" (JA0\GA0\GB (E!!X@@@@@@@@@@A((JA0\GA0\GA0\JA(Z@@@@@@@@@@@ZJB \GA0\GA0\GB (J@@@@@@@@@@@F" (@@X\G@X@GA0(JB B@@@@@@@@@A((
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	3853	J@@FB0,F@@(J@@(J@ @@@@@@@@@ZJB @@@XFB0X@@@TEAPTE@@@@@@@@F" (@ALFA!!4S@0LBAPTEB@@@@@@@@AT@@@@]H2L#GP8NDQLSG2@WE0$@@@@U@@@@
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	3854	GQ<_G1<NC!!DSD1<_E1\I@@@@A@@@@AL]GRLSD!!HMF1,_G1<_BP@@@@@@@@@SFQ$''I"T%EALSHRP^G $@@@@@@@@@D1$"H"H%IQPSD2D$G"HI@@@@@@@@@AP"
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	3855	H"X"H"H"H"H"H"H"A0@@@@@@@@@PFA LA2H"CBH"I"\"H 0@@@@@@@@@C@0L@@@GA00GA00LA0\@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	3856	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 0 0 0 32 32 32 48 48 48 49 48 49 54 54 54 69 69 69 75 67 22 82 82 82 85 14 14 89 89 89 105 105 105 106 88 25 110 19 19 113 19 19 131 129 131 134 122 39 149 25 25 149 26 26 158 27 27 158 140 45 164 161 164 164 161 172 165 43 43 177 161 52 196 175 0 197 194 197 204 36 36 204 75 75 205 36 36 205 113 38 212 66 66 216 81 81 223 72 72 227 202 66 231 120 120 231 123 123 255 129 0 255 238 162 255 251 229 255 255 255]; mask:((ImageMask new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@O \@??>@??>@??>@??>@???0???0???0???8???8???8???89??81??81??81??81??8A9?0A@@@A@@@A@@@') ; yourself); yourself]
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3857	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3858
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3859	!AbstractSettingsApplication::LanguageSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3860
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3861	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3862	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3863	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3864
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3865	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3866	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3867
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3868	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	3869	UIPainter new openOnClass:AbstractSettingsApplication::LanguageSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3870	AbstractSettingsApplication::LanguageSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3871	AbstractSettingsApplication::LanguageSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3872	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3873
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3874	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3875
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3876	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3877	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3878	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3879	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3880	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3881	label: 'Language Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3882	name: 'Language Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3883	min: (Point 10 10)
6058 d0add4dd0d80 * empty log message * Claus Gittinger <cg@exept.de> parents: 6037 diff changeset	3884	bounds: (Rectangle 0 0 571 939)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3885	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3886	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3887	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3888	collection: (
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	3889	(TextEditorSpec
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	3890	name: 'TextEditor1'
5556 f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	3891	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	3892	style: (FontDescription helvetica medium roman 10 #'iso10646-1')
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	3893	model: noticeLabelHolder
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	3894	hasHorizontalScrollBar: true
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	3895	hasVerticalScrollBar: true
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	3896	miniScrollerHorizontal: true
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	3897	autoHideScrollBars: true
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	3898	isReadOnly: true
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	3899	postBuildCallback: postBuildHelpLabel:
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3900	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3901	(LabelSpec
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	3902	label: 'Current Language:'
5556 f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	3903	name: 'Label1'
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	3904	layout: (LayoutFrame 0 0 0 0 -233 1 20 0)
5556 f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	3905	translateLabel: true
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	3906	labelChannel: currentLanguageLabel
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	3907	adjust: right
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	3908	)
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	3909	(LabelSpec
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3910	label: 'Label'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3911	name: 'CurrentLang'
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	3912	layout: (LayoutFrame -233 1 0 0 0 1 20 0)
6058 d0add4dd0d80 * empty log message * Claus Gittinger <cg@exept.de> parents: 6037 diff changeset	3913	style: (FontDescription arial bold roman 10 nil)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3914	translateLabel: true
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	3915	labelChannel: currentFlagAndLanguageChannel
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3916	adjust: left
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3917	)
5556 f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	3918	(InputFieldSpec
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	3919	name: 'EntryField1'
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	3920	layout: (LayoutFrame 2 0.0 160 0 -2 1.0 184 0)
5556 f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	3921	model: languageHolder
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	3922	acceptOnReturn: true
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	3923	acceptOnTab: true
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	3924	acceptOnLostFocus: true
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	3925	acceptOnPointerLeave: true
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	3926	)
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	3927	(SequenceViewSpec
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	3928	name: 'List1'
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	3929	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	3930	model: languageIndexHolder
5556 f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	3931	hasHorizontalScrollBar: true
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	3932	hasVerticalScrollBar: true
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	3933	doubleClickSelector: doubleClick:
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	3934	useIndex: true
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	3935	sequenceList: languageListHolder
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3936	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3937	(HorizontalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3938	name: 'HorizontalPanel1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3939	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	3940	horizontalLayout: center
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3941	verticalLayout: center
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3942	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3943	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3944	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3945	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3946	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3947	(ActionButtonSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3948	label: 'Reread Language Resources'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3949	name: 'RereadResourcesButton'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3950	translateLabel: true
5556 f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	3951	resizeForLabel: true
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3952	model: rereadResourceFiles
5556 f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	3953	useDefaultExtent: true
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3954	)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3955	)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3956
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3957	)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3958	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3959	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3960
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3961	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3962	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3963	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3964
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3965	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'accessing'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3966
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3967	languageList
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3968	"return the value of the instance variable 'languageList' (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3969
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3970	^ languageList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3971	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3972
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3973	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3974
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3975	basicSaveSettings
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	3976	\|fontPref fontPrefs language oldLanguage languageString territory enc
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	3977	answer matchingFonts l screen switch dialog anyWrong\|
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	3978
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3979	self withWaitCursorDo:[
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	3980	languageString := translatedLanguages at:(self languageIndexHolder value).
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	3981	language := self languageHolder value.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3982	(language includes:$-) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3983	l := language asCollectionOfSubstringsSeparatedBy:$-.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3984	language := l at:1.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3985	territory := l at:2.
5837 470e67fd9d0a * empty log message * Claus Gittinger <cg@exept.de> parents: 5825 diff changeset	3986	territory isNil ifTrue:[
470e67fd9d0a * empty log message * Claus Gittinger <cg@exept.de> parents: 5825 diff changeset	3987	territory := language string copyTo:2
470e67fd9d0a * empty log message * Claus Gittinger <cg@exept.de> parents: 5825 diff changeset	3988	].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3989	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3990
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3991	"/ check if the new language needs a differently encoded font;
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3992	"/ ask user to switch font and allow cancellation.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3993	"/ Otherwise, you are left with unreadable menu & button items ...
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3994
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3995	oldLanguage := Smalltalk language.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3996	Smalltalk language:language asSymbol.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3997	ResourcePack flushCachedResourcePacks.
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	3998
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3999	"/ refetch resources ...
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4000	resources := AbstractLauncherApplication classResources.
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4001	fontPrefs := resources at:'PREFERRED_FONT_ENCODINGS' default:nil.
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4002	fontPrefs isNil ifTrue:[
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4003	fontPref := resources at:'PREFERRED_FONT_ENCODING' default:nil.
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4004	fontPref isNil ifTrue:[
5700 61de7f81a8fb * empty log message * Claus Gittinger <cg@exept.de> parents: 5627 diff changeset	4005	fontPrefs := #(#'iso10646-1')
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4006	] ifFalse:[
5700 61de7f81a8fb * empty log message * Claus Gittinger <cg@exept.de> parents: 5627 diff changeset	4007	fontPrefs := #(#'iso10646-1') , (Array with:fontPref).
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4008	]
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4009	].
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	4010
9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	4011	"/ 'normalize' names of encodings
5700 61de7f81a8fb * empty log message * Claus Gittinger <cg@exept.de> parents: 5627 diff changeset	4012	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	4013	fontPrefs := fontPrefs select:[:each \| each notNil] thenCollect:[:each \| each nameOfEncoding].
5700 61de7f81a8fb * empty log message * Claus Gittinger <cg@exept.de> parents: 5627 diff changeset	4014	fontPrefs isEmpty ifTrue:[
61de7f81a8fb * empty log message * Claus Gittinger <cg@exept.de> parents: 5627 diff changeset	4015	fontPrefs := #(#'iso10464-1')
61de7f81a8fb * empty log message * Claus Gittinger <cg@exept.de> parents: 5627 diff changeset	4016	].
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4017	fontPref := fontPrefs first.
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4018
5580 11cec5eb8c93 * empty log message * Claus Gittinger <cg@exept.de> parents: 5576 diff changeset	4019	Smalltalk setLanguage:#en.
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4020	ResourcePack flushCachedResourcePacks.
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4021	resources := AbstractLauncherApplication classResources.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4022
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4023	switch := true.
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4024	anyWrong := false.
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4025	(Array
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4026	with:MenuView defaultFont
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4027	"/ with:ListView defaultFont
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4028	with:EditTextView defaultFont
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4029	with:Button defaultFont)
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4030	do:[:fn \|
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4031	enc := fn encoding.
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4032	(fontPrefs contains:[:pref \| CharacterEncoder isEncoding:pref subSetOf:enc])
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4033	ifFalse:[
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4034	anyWrong := true
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4035	].
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4036	].
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4037	anyWrong ifTrue:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4038	"/ look if there is one at all.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4039	screen := Screen current.
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4040	matchingFonts := screen listOfAvailableFonts
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4041	select:[:f \| fontPrefs contains:[:pref \|
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4042	CharacterEncoder
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4043	isEncoding:pref subSetOf:(f encoding ? 'ascii')]].
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4044
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4045	matchingFonts size == 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4046	"/ flush and try again - just in case, the font path has changed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4047	screen flushListOfAvailableFonts.
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4048	matchingFonts := screen listOfAvailableFonts
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4049	select:[:f \| fontPrefs contains:[:pref \|
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4050	CharacterEncoder
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4051	isEncoding:pref subSetOf:(f encoding ? 'ascii')]].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4052	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4053	matchingFonts size == 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4054	(Dialog
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4055	confirm:(resources
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4056	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	4057	with:fontPref) withCRs)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4058	ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4059	switch := false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4060	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4061	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4062	answer := Dialog
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4063	confirmWithCancel:(resources
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4064	string:'Some font(s) is not %1-encoded.\\Change it ?'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4065	with:fontPref) withCRs
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4066	labels:(resources
5109 27daba118da2 * empty log message * Claus Gittinger <cg@exept.de> parents: 5101 diff changeset	4067	array:#('Cancel' 'No' 'Yes'))
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4068	default:3.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4069	answer isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4070	switch := false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4071	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4072	answer ifTrue:[
5495 61664e06a5d7 * empty log message * Claus Gittinger <cg@exept.de> parents: 5479 diff changeset	4073	switch := (AbstractLauncherApplication::LauncherDialogs fontBoxForEncoding:fontPref)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4074	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4075	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4076	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4077	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4078
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4079	switch ifTrue:[
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4080	Transcript showCR:'Changing language setting to ' , languageString string , ' (' , language , ')...'.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4081	Smalltalk language:language asSymbol.
5837 470e67fd9d0a * empty log message * Claus Gittinger <cg@exept.de> parents: 5825 diff changeset	4082	Smalltalk languageTerritory:(territory ? language) asSymbol.
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4083	ResourcePack flushCachedResourcePacks.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4084	"/ ResourcePack flushCachedResourcePacks - already done by language-change
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4085	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4086	].
4327 076dfc82d0ed * empty log message * penk parents: 4324 diff changeset	4087	switch ifTrue:[
5212 5ddf75438c57 checkin from browser Claus Gittinger <cg@exept.de> parents: 5181 diff changeset	4088	(dialog := self settingsDialog) notNil ifTrue:[
5ddf75438c57 checkin from browser Claus Gittinger <cg@exept.de> parents: 5181 diff changeset	4089	dialog reopenLauncher.
4327 076dfc82d0ed * empty log message * penk parents: 4324 diff changeset	4090	] ifFalse:[
076dfc82d0ed * empty log message * penk parents: 4324 diff changeset	4091	NewLauncher current reopenLauncher.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4092	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4093	DebugView newDebugger.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4094	].
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4095	self updateForChangedLanguage.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4096	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4097
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4098	doubleClick:aEntry
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4099	self saveSettingsIfUnsavedChangesArePresent.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4100	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4101
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4102	helpFilename
5741 28a546bab7e8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5734 diff changeset	4103	^ 'Launcher/languageSetting.html'
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4104	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4105
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4106	readSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4107	self languageHolder value:self currentLanguage.
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4108	self currentFlagAndLanguageChannel value:self currentLanguage.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4109	self modifiedChannel value:false
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4110	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4111
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4112	rereadResourceFiles
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4113	ResourcePack flushCachedResourcePacks.
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4114	perLanguageResources := nil.
5576 8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	4115	self withWaitCursorDo:[
8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	4116	self updateForChangedLanguage.
8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	4117	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4118
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4119	"/ Smalltalk language:(Smalltalk language).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4120	"/ Smalltalk languageTerritory:(Smalltalk languageTerritory).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4121
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4122	Smalltalk changed:#Language.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4123	Smalltalk changed:#LanguageTerritory.
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4124	!
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4125
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4126	updateForChangedLanguage
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4127	self initializeLanguages.
5721 effab3aca7ff * empty log message * Claus Gittinger <cg@exept.de> parents: 5719 diff changeset	4128	languageListHolder value:languageList.
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4129	self languageListHolder value:languageList.
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4130	self currentFlagAndLanguageChannel value:self currentLanguage.
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4131	self setCurrentLanguageLabel.
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4132	self setNoticeLabel.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4133	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4134
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4135	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4136
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4137	currentFlagAndLanguageChannel
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4138	currentFlagAndLanguageChannel isNil ifTrue:[
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4139	currentFlagAndLanguageChannel := self currentLanguage asValue.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4140	].
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4141	^ currentFlagAndLanguageChannel.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4142	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4143
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4144	currentLanguageLabel
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4145	currentLanguageLabel isNil ifTrue:[
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4146	currentLanguageLabel := ValueHolder new.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4147	self setCurrentLanguageLabel.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4148	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4149	^ currentLanguageLabel.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4150	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4151
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4152	languageHolder
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4153	languageHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4154	languageHolder := self currentLanguage asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	4155	languageHolder onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4156	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4157	^ languageHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4158	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4159
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4160	languageIndexChanged
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4161	\|langIdx\|
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4162
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4163	langIdx := self languageIndexHolder value ? 1.
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4164	self languageHolder value:(listOfLanguages at:langIdx).
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4165	self updateModifiedChannel.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4166	!
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4167
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4168	languageIndexHolder
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4169	languageIndexHolder isNil ifTrue:[
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4170	languageIndexHolder := (self currentLanguageIndex) asValue.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4171	languageIndexHolder onChangeSend:#languageIndexChanged to:self.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4172	].
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4173	^ languageIndexHolder.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4174	!
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4175
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4176	languageListHolder
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4177	languageListHolder isNil ifTrue:[
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4178	languageListHolder := self languageList asValue.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4179	].
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4180	^ languageListHolder.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4181	!
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4182
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4183	noticeLabelHolder
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4184	noticeLabelHolder isNil ifTrue:[
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4185	noticeLabelHolder := ValueHolder new.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4186	self setNoticeLabel.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4187	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4188	^ noticeLabelHolder.
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4189	!
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4190
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4191	setCurrentLanguageLabel
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4192	currentLanguageLabel value: (resources string:'Current Language:')
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4193	!
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4194
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4195	setNoticeLabel
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	4196	noticeLabelHolder
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	4197	value: ((resources at:'LANG_MSG' default:'Select a Language') withCRs).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4198	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4199
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4200	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4201
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4202	initialize
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4203	self initializeLanguages.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4204	super initialize.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4205	!
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	initializeLanguages
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4208	\|flags enResources savedLanguage savedLanguageTerritory enLanguages nativeLanguages languages listOfLanguageKeys\|
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4209
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4210	resources := self class classResources.
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	4211	listOfLanguages := resources at:'LIST_OF_OFFERED_LANGUAGES' default:#('default' 'en' ).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4212	listOfLanguages := listOfLanguages asOrderedCollection.
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4213	listOfLanguageKeys := listOfLanguages collect:[:l \| l copyReplaceAll:$- with:$_ ].
5563 5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	4214
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	4215	(perLanguageResources notNil
4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	4216	and:[ (perLanguageResources includesKey:#en) not
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4217	and:[ (perLanguageResources includesKey:#'en_us') not ]])
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	4218	ifTrue:[
4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	4219	perLanguageResources := nil.
4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	4220	].
4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	4221
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4222	perLanguageResources isNil ifTrue:[
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4223	perLanguageResources := Dictionary new.
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4224
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4225	listOfLanguageKeys do:[:eachLang \|
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4226	savedLanguage := Language.
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4227	savedLanguageTerritory := LanguageTerritory.
5573 71a51c6df6a4 checkin from browser Claus Gittinger <cg@exept.de> parents: 5569 diff changeset	4228	ResourcePack flushCachedResourcePacks.
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4229	[
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4230	\|rsc lang terr\|
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4231
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4232	lang := terr := eachLang.
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4233	(lang includes:$_) ifTrue:[
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4234	terr := lang copyFrom:4.
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4235	lang := lang copyTo:2.
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4236	].
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4237	Language := lang asSymbol.
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4238	LanguageTerritory := terr asSymbol.
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4239	rsc := ResourcePack for:(self class) cached:false.
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4240	perLanguageResources at:eachLang asSymbol put:rsc.
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4241	] ensure:[
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4242	Language := savedLanguage.
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4243	LanguageTerritory := savedLanguageTerritory.
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4244	].
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4245	].
5573 71a51c6df6a4 checkin from browser Claus Gittinger <cg@exept.de> parents: 5569 diff changeset	4246	ResourcePack flushCachedResourcePacks.
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4247	].
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4248	enResources := perLanguageResources at:#en ifAbsent:[perLanguageResources at:#'en_us'].
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4249
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4250	enLanguages := listOfLanguageKeys
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4251	collect:[:lang \| \|item\|
5563 5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	4252	item := enResources at:('LANG_' , lang) default:nil.
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	4253	item isNil ifTrue:[
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	4254	lang
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4255	] ifFalse:[
5563 5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	4256	item isString ifTrue:[
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	4257	item
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	4258	] ifFalse:[
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	4259	item at:1
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	4260	]
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4261	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4262	].
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4263
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4264	nativeLanguages := listOfLanguageKeys
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4265	collect:[:lang \| \|item enLang\|
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4266	item := enResources at:('LANG_' , lang) default:nil.
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4267	item isNil ifTrue:[
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4268	enLang := lang
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4269	] ifFalse:[
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4270	item isString ifTrue:[
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4271	enLang := item
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4272	] ifFalse:[
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4273	enLang := item at:1
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4274	]
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4275	].
5583 2da80c3bc608 * empty log message * Claus Gittinger <cg@exept.de> parents: 5580 diff changeset	4276	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	4277	].
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4278
5563 5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	4279	languages := enLanguages
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	4280	collect:[:enLang \| \|item\|
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	4281	item := resources at:enLang default:enLang.
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	4282	].
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	4283
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4284	flags := listOfLanguageKeys collect:[:lang \| \|item coll\|
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4285	item := resources at:('FLAG_' , lang) default:nil.
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4286	item notNil ifTrue:[
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4287	item
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4288	] ifFalse:[
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4289	coll := lang asCollectionOfSubstringsSeparatedBy:$_.
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4290	(coll size > 1
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4291	and:[(item := resources at:('FLAG_' , coll last) default:nil) notNil])
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4292	ifTrue:[
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4293	item
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4294	] ifFalse:[
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4295	item := resources at:('LANG_' , lang).
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4296	item isArray ifTrue:[
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4297	item at:2
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4298	] ifFalse:[
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4299	nil
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4300	]
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4301	]
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4302	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4303	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4304	flags := flags collect:[:nm \| \|img d\| nm notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4305	img := Image fromFile:nm.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4306	img isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4307	d := Smalltalk getPackageDirectoryForPackage:'stx:goodies'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4308	img := Image fromFile:(d construct:nm).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4309	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4310	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4311	nil
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4312	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4313	].
5563 5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	4314
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4315
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4316	translatedLanguages := (1 to:languages size) collect:[:idx \|
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4317	\|l eL nL s\|
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4318
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4319	l := languages at:idx.
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4320	eL := enLanguages at:idx.
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4321	nL := nativeLanguages at:idx.
5734 67a9878b31bc * empty log message * Claus Gittinger <cg@exept.de> parents: 5721 diff changeset	4322
67a9878b31bc * empty log message * Claus Gittinger <cg@exept.de> parents: 5721 diff changeset	4323	s := nL.
67a9878b31bc * empty log message * Claus Gittinger <cg@exept.de> parents: 5721 diff changeset	4324	eL ~= nL ifTrue:[
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4325	s := s , ' / ' , eL
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4326	].
5734 67a9878b31bc * empty log message * Claus Gittinger <cg@exept.de> parents: 5721 diff changeset	4327	(l ~= nL and:[l ~= eL]) ifTrue:[
67a9878b31bc * empty log message * Claus Gittinger <cg@exept.de> parents: 5721 diff changeset	4328	s := s , ' / ' , l
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4329	].
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4330	s
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4331	].
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4332
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4333	languageList := translatedLanguages
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4334	with:flags
5563 5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	4335	collect:[:lang :flag \| LabelAndIcon icon:flag string:lang.].
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	4336	!
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	4337
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	4338	postBuildHelpLabel:aWidget
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	4339	aWidget level:0.
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	4340	aWidget scrolledView backgroundColor:self window viewBackground.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4341	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4342
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4343	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4344
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4345	currentLanguage
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4346	^ languageList at:(self currentLanguageIndex)
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4347	!
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4348
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4349	currentLanguageIndex
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4350	\| langIdx \|
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4351
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4352	(Language ~= LanguageTerritory) ifTrue:[
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4353	langIdx := listOfLanguages indexOf:(Language , '-' , LanguageTerritory) ifAbsent:nil.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4354	].
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4355	langIdx isNil ifTrue:[
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4356	langIdx := listOfLanguages indexOf:Language ifAbsent:nil.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4357	].
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4358	langIdx isNil ifTrue:[
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4359	langIdx := listOfLanguages indexOf:'en' ifAbsent:nil.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4360	langIdx isNil ifTrue:[
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4361	langIdx := listOfLanguages indexOf:'en-us' ifAbsent:nil.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4362
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4363	langIdx isNil ifTrue:[
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4364	langIdx := 1.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4365	]
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4366	]
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4367	].
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4368	^ langIdx
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4369	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4370
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4371	hasUnsavedChanges
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4372	^ (self languageHolder value) ~= (self currentLanguage)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4373	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4374
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4375	!AbstractSettingsApplication::MemorySettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4376
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4377	defaultIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4378	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4379	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4380
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4381	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4382	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4383
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4384	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4385	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4386	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4387	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4388	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4389
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4390	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4391
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4392	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4393	constantNamed:#'AbstractSettingsApplication::MemorySettingsAppl class defaultIcon'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	4394	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	4395	@@@@@@@@@@@@@@@@@@@@@@?0@@@@@@@@@@@L;8;!!0@@@@@@@@@VL0W\,@@@@@@@L<T,W]43@@@@@@I,"8Z(R-10@@@@I<,,ZQ78P@@@L24DZ**E0H@@@
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	4396	<,EM7Z**E00P@LTR9M7]7ZE0H50@=RE0C]7]E0BF?0<,E0@@C]Q0HREPBK-0@@@@Q0T?H\@KTA4@@@^-4_=\@@H A@@@^ JOG<@@@ID@P@^ GE3O@@@@AP@D
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	4397	R EO:O0@@@@@T@4PT%3,@@@@@@@E4G_58%@@@@@@@@AZ\QGL0@@@@@@@@@@@1<@@@@@@@@@@@@@D@@@@@@@b') ; colorMapFromArray:#[0 0 0 80 80 80 160 160 160 240 240 240 64 64 64 144 144 144 224 224 224 48 48 48 128 128 128 208 208 208 32 32 32 112 112 112 192 192 192 16 16 16 96 96 96 176 176 176]; mask:((ImageMask new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@A @@G>@@G?@@_? @??0A??0C??8C??8O??<O??<_??8_??8_??0_?? O??@G??@C?<@A?8@@?8@@C @@A@@') ; yourself); yourself]
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4398	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4399
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4400	!AbstractSettingsApplication::MemorySettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4401
5433 f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4402	windowSpec
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4403	"This resource specification was automatically generated
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4404	by the UIPainter of ST/X."
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4405
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4406	"Do not manually edit this!! If it is corrupted,
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4407	the UIPainter may not be able to read the specification."
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4408
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4409	"
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4410	UIPainter new openOnClass:AbstractSettingsApplication::MemorySettingsAppl andSelector:#windowSpec
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4411	AbstractSettingsApplication::MemorySettingsAppl new openInterface:#windowSpec
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4412	AbstractSettingsApplication::MemorySettingsAppl open
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4413	"
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4414
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4415	<resource: #canvas>
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4416
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4417	^
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4418	#(FullSpec
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4419	name: windowSpec
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4420	window:
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4421	(WindowSpec
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4422	label: 'Memory Manager Settings'
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4423	name: 'Memory Manager Settings'
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4424	min: (Point 10 10)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4425	bounds: (Rectangle 13 23 465 745)
5433 f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4426	)
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4427	component:
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4428	(SpecCollection
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4429	collection: (
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4430	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4431	label: 'Label'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4432	name: 'Label1'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4433	layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 50 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4434	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4435	labelChannel: warningLabelHolder
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4436	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4437	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4438	(VerticalPanelViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4439	name: 'VerticalPanel1'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4440	layout: (LayoutFrame 0 0.0 50 0 0 1.0 0 1.0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4441	horizontalLayout: fit
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4442	verticalLayout: top
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4443	horizontalSpace: 0
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4444	verticalSpace: 3
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4445	ignoreInvisibleComponents: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4446	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4447	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4448	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4449	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4450	name: 'NewSpaceSizeBox'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4451	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4452	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4453	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4454	(InputFieldSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4455	name: 'EntryField23'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4456	layout: (LayoutFrame -95 1 3 0 -5 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4457	model: newSpaceSize
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4458	type: fileSize
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4459	acceptOnReturn: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4460	acceptOnTab: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4461	acceptOnLostFocus: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4462	acceptOnPointerLeave: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4463	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4464	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4465	label: 'Size of NewSpace:'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4466	name: 'Label44'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4467	layout: (LayoutFrame 0 0 3 0 -95 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4468	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4469	adjust: right
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4470	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4471	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4472	label: 'Size of newSpace where objects are created'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4473	name: 'Label45'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4474	layout: (LayoutFrame 0 0.0 23 0 0 1.0 43 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4475	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4476	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4477	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4478	(DividerSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4479	name: 'Separator24'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4480	layout: (LayoutFrame 0 0.0 0 0 0 1.0 3 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4481	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4482	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4483
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4484	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4485	extent: (Point 452 43)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4486	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4487	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4488	name: 'MaximumMemoryLimitBox'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4489	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4490	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4491	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4492	(InputFieldSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4493	name: 'EntryField24'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4494	layout: (LayoutFrame -95 1 3 0 -5 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4495	model: maxOldSpace
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4496	type: fileSize
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4497	formatString: ''
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4498	acceptOnReturn: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4499	acceptOnTab: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4500	acceptOnLostFocus: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4501	acceptOnPointerLeave: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4502	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4503	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4504	label: 'Maximum Memory Limit:'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4505	name: 'Label46'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4506	layout: (LayoutFrame 0 0 3 0 -95 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4507	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4508	adjust: right
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4509	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4510	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4511	label: 'Never allocate more than this amount of memory'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4512	name: 'Label47'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4513	layout: (LayoutFrame 0 0.0 23 0 0 1.0 43 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4514	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4515	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4516	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4517	(DividerSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4518	name: 'Separator25'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4519	layout: (LayoutFrame 0 0.0 0 0 0 1.0 3 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4520	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4521	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4522
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4523	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4524	extent: (Point 452 43)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4525	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4526	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4527	name: 'QuickAllocationLimitBox'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4528	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4529	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4530	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4531	(InputFieldSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4532	name: 'EntryField14'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4533	layout: (LayoutFrame -95 1 3 0 -5 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4534	model: fastMoreLimit
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4535	type: fileSize
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4536	acceptOnReturn: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4537	acceptOnTab: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4538	acceptOnLostFocus: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4539	acceptOnPointerLeave: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4540	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4541	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4542	label: 'Quick Allocation Limit:'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4543	name: 'Label26'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4544	layout: (LayoutFrame 0 0 3 0 -95 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4545	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4546	adjust: right
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4547	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4548	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4549	label: 'Quickly allocate more memory (suppress GC) up to this limit'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4550	name: 'Label27'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4551	layout: (LayoutFrame 0 0.0 23 0 0 1.0 43 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4552	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4553	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4554	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4555	(DividerSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4556	name: 'Separator15'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4557	layout: (LayoutFrame 0 0.0 0 0 0 1.0 3 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4558	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4559	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4560
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4561	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4562	extent: (Point 452 43)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4563	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4564	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4565	name: 'IncrementalGCAllocationTriggerBox'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4566	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4567	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4568	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4569	(InputFieldSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4570	name: 'EntryField25'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4571	layout: (LayoutFrame -95 1 3 0 -5 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4572	model: igcLimit
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4573	type: fileSize
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4574	acceptOnReturn: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4575	acceptOnTab: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4576	acceptOnLostFocus: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4577	acceptOnPointerLeave: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4578	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4579	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4580	label: 'Incremental GC Allocation Trigger:'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4581	name: 'Label48'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4582	layout: (LayoutFrame 0 0 3 0 -95 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4583	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4584	adjust: right
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4585	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4586	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4587	label: 'Start IGC whenever this amount has been allocated'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4588	name: 'Label49'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4589	layout: (LayoutFrame 0 0.0 23 0 0 1.0 43 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4590	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4591	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4592	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4593	(DividerSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4594	name: 'Separator26'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4595	layout: (LayoutFrame 0 0.0 0 0 0 1.0 3 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4596	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4597	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4598
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4599	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4600	extent: (Point 452 43)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4601	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4602	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4603	name: 'IncrementalGCFreespaceTriggerBox'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4604	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4605	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4606	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4607	(InputFieldSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4608	name: 'EntryField26'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4609	layout: (LayoutFrame -95 1 3 0 -5 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4610	model: igcFreeLimit
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4611	type: fileSize
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4612	acceptOnReturn: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4613	acceptOnTab: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4614	acceptOnLostFocus: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4615	acceptOnPointerLeave: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4616	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4617	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4618	label: 'Incremental GC Freespace Trigger:'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4619	name: 'Label50'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4620	layout: (LayoutFrame 0 0 3 0 -95 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4621	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4622	adjust: right
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4623	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4624	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4625	label: 'Start IGC whenever freespace drops below this'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4626	name: 'Label51'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4627	layout: (LayoutFrame 0 0.0 23 0 0 1.0 43 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4628	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4629	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4630	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4631	(DividerSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4632	name: 'Separator27'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4633	layout: (LayoutFrame 0 0.0 0 0 0 1.0 3 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4634	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4635	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4636
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4637	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4638	extent: (Point 452 43)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4639	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4640	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4641	name: 'GCAmountBox'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4642	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4643	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4644	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4645	(InputFieldSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4646	name: 'EntryField17'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4647	layout: (LayoutFrame -95 1 3 0 -5 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4648	model: igcFreeAmount
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4649	type: fileSize
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4650	acceptOnReturn: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4651	acceptOnTab: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4652	acceptOnLostFocus: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4653	acceptOnPointerLeave: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4654	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4655	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4656	label: 'Incremental GC Amount:'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4657	name: 'Label32'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4658	layout: (LayoutFrame 0 0 3 0 -95 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4659	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4660	adjust: right
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4661	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4662	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4663	label: 'Try to keep this amount for peak requests'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4664	name: 'Label33'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4665	layout: (LayoutFrame 0 0.0 23 0 0 1.0 43 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4666	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4667	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4668	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4669	(DividerSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4670	name: 'Separator18'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4671	layout: (LayoutFrame 0 0.0 0 0 0 1.0 3 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4672	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4673	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4674
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4675	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4676	extent: (Point 452 43)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4677	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4678	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4679	name: 'OldspaceIncrementBox'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4680	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4681	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4682	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4683	(InputFieldSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4684	name: 'EntryField18'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4685	layout: (LayoutFrame -95 1 3 0 -5 1.0 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4686	model: oldIncr
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4687	type: fileSize
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4688	acceptOnReturn: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4689	acceptOnTab: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4690	acceptOnLostFocus: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4691	acceptOnPointerLeave: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4692	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4693	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4694	label: 'Oldspace Increment:'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4695	name: 'Label34'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4696	layout: (LayoutFrame 0 0 3 0 -95 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4697	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4698	adjust: right
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4699	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4700	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4701	label: 'Increase oldSpace in chunks of this size'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4702	name: 'Label35'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4703	layout: (LayoutFrame 0 0.0 23 0 0 1.0 43 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4704	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4705	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4706	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4707	(DividerSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4708	name: 'Separator19'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4709	layout: (LayoutFrame 0 0.0 0 0 0 1.0 3 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4710	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4711	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4712
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4713	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4714	extent: (Point 452 43)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4715	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4716	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4717	name: 'OldSpaceCompressLimitBox'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4718	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4719	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4720	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4721	(InputFieldSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4722	name: 'EntryField19'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4723	layout: (LayoutFrame -95 1 3 0 -5 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4724	model: compressLimit
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4725	type: fileSize
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4726	acceptOnReturn: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4727	acceptOnTab: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4728	acceptOnLostFocus: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4729	acceptOnPointerLeave: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4730	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4731	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4732	label: 'Oldspace Compress Limit:'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4733	name: 'Label36'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4734	layout: (LayoutFrame 0 0 3 0 -95 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4735	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4736	adjust: right
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4737	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4738	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4739	label: 'Use 2-pass compressing GC if > 0 and more memory is in use'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4740	name: 'Label37'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4741	layout: (LayoutFrame 0 0.0 23 0 0 1.0 43 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4742	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4743	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4744	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4745	(DividerSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4746	name: 'Separator20'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4747	layout: (LayoutFrame 0 0.0 0 0 0 1.0 3 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4748	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4749	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4750
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4751	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4752	extent: (Point 452 43)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4753	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4754	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4755	name: 'StackLimitBox'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4756	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4757	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4758	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4759	(InputFieldSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4760	name: 'EntryField20'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4761	layout: (LayoutFrame -95 1 3 0 -5 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4762	enableChannel: supportsJustInTimeCompilation
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4763	model: stackLimit
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4764	type: fileSize
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4765	acceptOnReturn: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4766	acceptOnTab: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4767	acceptOnLostFocus: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4768	acceptOnPointerLeave: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4769	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4770	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4771	label: 'Stack Limit:'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4772	name: 'Label38'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4773	layout: (LayoutFrame 0 0 3 0 -95 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4774	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4775	adjust: right
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4776	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4777	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4778	label: 'Trigger recursionInterrupt if more stack is used by a process'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4779	name: 'Label39'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4780	layout: (LayoutFrame 0 0.0 23 0 0 1.0 43 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4781	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4782	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4783	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4784	(DividerSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4785	name: 'Separator21'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4786	layout: (LayoutFrame 0 0.0 0 0 0 1.0 3 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4787	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4788	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4789
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4790	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4791	extent: (Point 452 43)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4792	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4793	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4794	name: 'CodeLimitBox'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4795	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4796	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4797	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4798	(InputFieldSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4799	name: 'EntryField21'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4800	layout: (LayoutFrame -95 1 3 0 -5 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4801	enableChannel: supportsJustInTimeCompilation
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4802	model: codeLimit
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4803	type: fileSize
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4804	acceptOnReturn: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4805	acceptOnTab: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4806	acceptOnLostFocus: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4807	acceptOnPointerLeave: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4808	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4809	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4810	label: 'Dynamic code Limit:'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4811	name: 'Label40'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4812	layout: (LayoutFrame 0 0 3 0 -95 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4813	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4814	adjust: right
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4815	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4816	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4817	label: 'Flush dynamic compiled code to stay within this limit'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4818	name: 'Label41'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4819	layout: (LayoutFrame 0 0.0 23 0 0 1.0 43 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4820	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4821	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4822	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4823	(DividerSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4824	name: 'Separator22'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4825	layout: (LayoutFrame 0 0.0 0 0 0 1.0 3 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4826	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4827	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4828
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4829	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4830	extent: (Point 452 43)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4831	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4832	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4833	name: 'CodeTriggerBox'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4834	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4835	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4836	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4837	(InputFieldSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4838	name: 'EntryField22'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4839	layout: (LayoutFrame -95 1 3 0 -5 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4840	model: codeTrigger
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4841	type: fileSize
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4842	acceptOnReturn: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4843	acceptOnTab: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4844	acceptOnLostFocus: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4845	acceptOnPointerLeave: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4846	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4847	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4848	label: 'Dynamic code Limit:'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4849	name: 'Label42'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4850	layout: (LayoutFrame 0 0 3 0 -95 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4851	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4852	adjust: right
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4853	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4854	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4855	label: 'Start incremental GC whenever this amount of code has been allocated'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4856	name: 'Label43'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4857	layout: (LayoutFrame 0 0.0 23 0 0 1.0 43 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4858	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4859	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4860	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4861	(DividerSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4862	name: 'Separator23'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4863	layout: (LayoutFrame 0 0.0 0 0 0 1.0 3 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4864	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4865	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4866
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4867	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4868	extent: (Point 452 43)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4869	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4870	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4871
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4872	)
5433 f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4873	)
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4874	)
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4875
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4876	)
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4877	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4878	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4879
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4880	!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4881
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4882	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4883
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4884	ObjectMemory freeSpaceGCAmount:self igcFreeAmount value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4885	ObjectMemory freeSpaceGCLimit:self igcFreeLimit value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4886	ObjectMemory incrementalGCLimit:self igcLimit value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4887	ObjectMemory newSpaceSize:self newSpaceSize value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4888	ObjectMemory oldSpaceIncrement:self oldIncr value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4889	Process defaultMaximumStackSize:self stackLimit value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4890	ObjectMemory fastMoreOldSpaceLimit:self fastMoreLimit value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4891	ObjectMemory maxOldSpace:self maxOldSpace value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4892	ObjectMemory oldSpaceCompressLimit:self compressLimit value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4893	ObjectMemory dynamicCodeLimit:self codeLimit value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4894	ObjectMemory dynamicCodeGCTrigger:self codeTrigger value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4895	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4896
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4897	helpFilename
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4898	^ 'Launcher/memorySettings.html'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4899	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4900
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4901	readSettings
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4902	self igcLimit value:ObjectMemory incrementalGCLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4903	self igcFreeLimit value:ObjectMemory freeSpaceGCLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4904	self igcFreeAmount value:ObjectMemory freeSpaceGCAmount.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4905	self newSpaceSize value:ObjectMemory newSpaceSize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4906	self oldIncr value:ObjectMemory oldSpaceIncrement.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4907	self compressLimit value:ObjectMemory oldSpaceCompressLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4908	self codeLimit value:ObjectMemory dynamicCodeLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4909	self codeTrigger value:ObjectMemory dynamicCodeGCTrigger.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4910	self stackLimit value:Process defaultMaximumStackSize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4911	self fastMoreLimit value:(ObjectMemory fastMoreOldSpaceLimit:-1).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4912	self maxOldSpace value:ObjectMemory maxOldSpace.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4913	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4914	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4915
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4916	!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4917
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4918	codeLimit
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4919
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4920	codeLimit isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4921	codeLimit := ObjectMemory dynamicCodeLimit asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	4922	codeLimit onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4923	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4924	^ codeLimit.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4925	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4926
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4927	codeTrigger
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4928
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4929	codeTrigger isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4930	codeTrigger := ObjectMemory dynamicCodeGCTrigger asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	4931	codeTrigger onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4932	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4933	^ codeTrigger.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4934	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4935
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4936	compressLimit
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4937
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4938	compressLimit isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4939	compressLimit := ObjectMemory oldSpaceCompressLimit asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	4940	compressLimit onChangeSend:#updateModifiedChannel to:self
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4941	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4942	^ compressLimit.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4943	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4944
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4945	fastMoreLimit
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	fastMoreLimit isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4948	fastMoreLimit := (ObjectMemory fastMoreOldSpaceLimit:-1) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	4949	fastMoreLimit onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4950	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4951	^ fastMoreLimit.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4952	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4953
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4954	igcFreeAmount
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	igcFreeAmount isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4957	igcFreeAmount := ObjectMemory freeSpaceGCAmount asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	4958	igcFreeAmount onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4959	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4960	^ igcFreeAmount.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4961	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4962
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4963	igcFreeLimit
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4964
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4965	igcFreeLimit isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4966	igcFreeLimit := ObjectMemory freeSpaceGCLimit asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	4967	igcFreeLimit onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4968	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4969	^ igcFreeLimit.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4970	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4971
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4972	igcLimit
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	igcLimit isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4975	igcLimit := ObjectMemory incrementalGCLimit asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	4976	igcLimit onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4977	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4978	^ igcLimit.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4979	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4980
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4981	maxOldSpace
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	maxOldSpace isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4984	maxOldSpace := ObjectMemory maxOldSpace asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	4985	maxOldSpace onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4986	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4987	^ maxOldSpace.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4988	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4989
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4990	newSpaceSize
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	newSpaceSize isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4993	newSpaceSize := ObjectMemory newSpaceSize asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	4994	newSpaceSize onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4995	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4996	^ newSpaceSize.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4997	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4998
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4999	oldIncr
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5000
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5001	oldIncr isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5002	oldIncr := ObjectMemory oldSpaceIncrement asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5003	oldIncr onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5004	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5005	^ oldIncr.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5006	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5007
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5008	stackLimit
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5009
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5010	stackLimit isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5011	stackLimit := Process defaultMaximumStackSize asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5012	stackLimit onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5013	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5014	^ stackLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5015	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5016
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5017	supportsJustInTimeCompilation
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5018
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5019	^ ObjectMemory supportsJustInTimeCompilation.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5020	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5021
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5022	warningLabelHolder
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5023
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5024	warningLabelHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5025	warningLabelHolder := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5026	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5027	^ warningLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5028	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5029
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5030	!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5031
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5032	initialize
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5033	super initialize.
5576 8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	5034	self warningLabelHolder
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	5035	value:(StringCollection
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	5036	with:(resources string:'Warning - invalid settings may result in failures or poor performance.')
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	5037	with:(resources string:'You have been warned.') allBold
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	5038	).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5039	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5040
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5041	!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5042
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5043	hasUnsavedChanges
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	5044	ObjectMemory freeSpaceGCAmount ~= self igcFreeAmount value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	5045	ObjectMemory freeSpaceGCLimit ~= self igcFreeLimit value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	5046	ObjectMemory incrementalGCLimit ~= self igcLimit value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	5047	ObjectMemory newSpaceSize ~= self newSpaceSize value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	5048	ObjectMemory oldSpaceIncrement ~= self oldIncr value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	5049	Process defaultMaximumStackSize ~= self stackLimit value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	5050	(ObjectMemory fastMoreOldSpaceLimit:-1) ~= self fastMoreLimit value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	5051	ObjectMemory maxOldSpace ~= self maxOldSpace value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	5052	ObjectMemory oldSpaceCompressLimit ~= self compressLimit value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	5053	ObjectMemory dynamicCodeLimit ~= self codeLimit value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	5054	ObjectMemory dynamicCodeGCTrigger ~= self codeTrigger value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	5055	^ false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5056	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5057
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5058	!AbstractSettingsApplication::MiscCommunicationSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5059
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5060	defaultIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5061	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5062	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5063
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5064	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5065	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5066
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5067	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5068	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5069	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5070	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5071	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5072
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5073	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5074
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5075	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5076	constantNamed:#'AbstractSettingsApplication::MiscCommunicationSettingsAppl class defaultIcon'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	5077	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	5078	@@!!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	5079	]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	5080	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	5081	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5082
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5083	!AbstractSettingsApplication::MiscCommunicationSettingsAppl class methodsFor:'interface specs'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5084
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5085	windowSpec
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5086	"This resource specification was automatically generated
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5087	by the UIPainter of ST/X."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5088
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5089	"Do not manually edit this!! If it is corrupted,
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5090	the UIPainter may not be able to read the specification."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5091
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5092	"
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5093	UIPainter new openOnClass:AbstractSettingsApplication::MiscCommunicationSettingsAppl andSelector:#windowSpec
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5094	AbstractSettingsApplication::MiscCommunicationSettingsAppl new openInterface:#windowSpec
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5095	AbstractSettingsApplication::MiscCommunicationSettingsAppl open
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5096	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5097
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5098	<resource: #canvas>
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5099
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5100	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5101	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5102	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5103	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5104	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5105	label: 'Communication Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5106	name: 'Communication Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5107	min: (Point 10 10)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5108	bounds: (Rectangle 14 46 614 560)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5109	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5110	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5111	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5112	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5113	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5114	name: 'VerticalPanel1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5115	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	5116	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5117	verticalLayout: top
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5118	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5119	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5120	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5121	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5122	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5123	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5124	label: 'Remote browsing'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5125	name: 'Label1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5126	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5127	extent: (Point 600 22)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5128	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5129	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5130	name: 'Box1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5131	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5132	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5133	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5134	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5135	label: 'Remote browsing enabled'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5136	name: 'CheckBox1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5137	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	5138	enableChannel: hasRemoteBrowsingSupport
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5139	model: remoteBrowsingEnabled
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5140	translateLabel: true
5086 b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	5141	)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	5142	)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	5143
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	5144	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5145	extent: (Point 600 23)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5146	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5147	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5148	name: 'Separator1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5149	extent: (Point 600 4)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5150	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5151	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5152	label: 'Window migration'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5153	name: 'Label2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5154	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5155	extent: (Point 600 22)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5156	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5157	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5158	name: 'Box2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5159	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5160	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5161	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5162	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5163	label: 'Window migration enabled'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5164	name: 'CheckBox2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5165	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	5166	enableChannel: hasWindowMigrationServer
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5167	model: windowMigrationEnabled
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5168	translateLabel: true
5086 b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	5169	)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	5170	)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	5171
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	5172	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5173	extent: (Point 600 23)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5174	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5175	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5176	name: 'Box3'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5177	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5178	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5179	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5180	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5181	label: 'Password check'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5182	name: 'CheckBox3'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5183	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	5184	enableChannel: enablePasswordCheck
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5185	model: windowMigrationAuthenticate
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5186	translateLabel: true
5086 b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	5187	)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	5188	)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	5189
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	5190	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5191	extent: (Point 600 22)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5192	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5193	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5194	name: 'Box4'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5195	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5196	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5197	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5198	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5199	label: 'Password:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5200	name: 'Label3'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5201	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	5202	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5203	adjust: right
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5204	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5205	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5206	name: 'EntryField1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5207	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	5208	enableChannel: windowMigrationAuthenticate
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5209	model: windowMigrationPassword
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5210	type: password
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5211	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5212	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5213	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5214	acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5215	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5216	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5217
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5218	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5219	extent: (Point 600 22)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5220	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5221	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5222
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5223	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5224	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5225	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5226
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5227	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5228	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5229	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5230
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5231	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'actions'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5232
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5233	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5234
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5235	self hasRemoteBrowsingSupport ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5236	self remoteBrowsingEnabled value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5237	SmalltalkShareServer serverRunning ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5238	SmalltalkShareServer killAll
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5239	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5240	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5241	SmalltalkShareServer serverRunning not ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5242	SmalltalkShareServer start.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5243	"/ must wait a bit; give it a chance to
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5244	"/ really start (before checking)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5245	Delay waitForSeconds:0.5.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5246	SmalltalkShareServer serverRunning ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5247	self warn:'SmalltalkShareServer startup failed (see stderr).'
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5248	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5249	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5250	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5251	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5252	self hasWindowMigrationServer ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5253	self windowMigrationAuthenticate value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5254	WindowMigrationServer password:self windowMigrationPassword value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5255	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5256	WindowMigrationServer password:nil
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 windowMigrationEnabled value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5259	WindowMigrationServer serverRunning ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5260	WindowMigrationServer stop
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5261	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5262	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5263	WindowMigrationServer serverRunning not ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5264	WindowMigrationServer start.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5265	"/ must wait a bit; give it a chance to
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5266	"/ really start (before checking)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5267	Delay waitForSeconds:0.5.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5268	WindowMigrationServer serverRunning ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5269	self warn:'WindowMigrationServer startup failed (see stderr).'
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5270	]
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
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	5276	helpFilename
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	5277	^ 'Launcher/communicationsSettings.html'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5278	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5279
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5280	readSettings
5020 85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	5281	self remoteBrowsingEnabled
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	5282	value:(self hasRemoteBrowsingSupport
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	5283	and:[SmalltalkShareServer isLoaded and:[SmalltalkShareServer serverRunning]]).
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	5284	self windowMigrationEnabled
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	5285	value:(self hasWindowMigrationServer
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	5286	and:[ WindowMigrationServer isLoaded
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	5287	and:[WindowMigrationServer serverRunning]
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5288	]).
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5289	(self hasWindowMigrationServer and:[WindowMigrationServer isLoaded]) ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5290	self windowMigrationPassword value:WindowMigrationServer password.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5291	self windowMigrationAuthenticate
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5292	value:self windowMigrationPassword value notNil
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5293	] ifFalse:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5294	self windowMigrationPassword value:nil.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5295	self windowMigrationAuthenticate value:false
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	self modifiedChannel value:false
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5298	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5299
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5300	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'aspects'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5301
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5302	enablePasswordCheck
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5303
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5304	enablePasswordCheck isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5305	self hasWindowMigrationServer not ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5306	enablePasswordCheck := false asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5307	] ifFalse:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5308	enablePasswordCheck := self windowMigrationEnabled.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5309	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5310	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5311	^ enablePasswordCheck.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5312	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5313
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5314	remoteBrowsingEnabled
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5315
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5316	remoteBrowsingEnabled isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5317	remoteBrowsingEnabled := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5318	remoteBrowsingEnabled onChangeSend:#updateModifiedChannel to:self.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5319	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5320	^ remoteBrowsingEnabled.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5321	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5322
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5323	windowMigrationAuthenticate
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5324
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5325	windowMigrationAuthenticate isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5326	windowMigrationAuthenticate := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5327	windowMigrationAuthenticate onChangeSend:#updateModifiedChannel to:self.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5328	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5329	^ windowMigrationAuthenticate.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5330	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5331
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5332	windowMigrationEnabled
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5333
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5334	windowMigrationEnabled isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5335	windowMigrationEnabled := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5336	windowMigrationEnabled onChangeSend:#updateModifiedChannel to:self.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5337	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5338	^ windowMigrationEnabled.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5339	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5340
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5341	windowMigrationPassword
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5342
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5343	windowMigrationPassword isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5344	windowMigrationPassword := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5345	windowMigrationPassword onChangeSend:#updateModifiedChannel to:self.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5346	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5347	^ windowMigrationPassword.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5348	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5349
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5350	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'change & update'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5351
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5352	update:something with:aParameter from:changedObject
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5353	"Invoked when an object that I depend upon sends a change notification."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5354
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5355	"stub code automatically generated - please change as required"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5356
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5357	"/ changedObject == self allOfThem ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5358	"/ ^ self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5359	"/ ].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5360
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5361	super update:something with:aParameter from:changedObject
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5362	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5363
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5364	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'initialization & release'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5365
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5366	initialize
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5367	super initialize.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5368	self readSettings.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5369	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5370
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5371	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'queries'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5372
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5373	hasRemoteBrowsingSupport
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5374
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5375	^ SmalltalkShareServer notNil
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5376	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5377
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5378	hasUnsavedChanges
5020 85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	5379	(self hasRemoteBrowsingSupport and:[SmalltalkShareServer isLoaded]) ifTrue:[
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	5380	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	5381	].
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	5382	self hasWindowMigrationServer ifTrue:[
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	5383	WindowMigrationServer isLoaded ifFalse:[
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	5384	self windowMigrationEnabled value ifTrue:[
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	5385	WindowMigrationServer autoload.
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	5386	].
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	5387	].
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	5388	(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	5389	(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	5390	(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	5391	].
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	5392	^ false
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5393	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5394
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5395	hasWindowMigrationServer
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5396
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5397	^ WindowMigrationServer notNil
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5398	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5399
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5400	!AbstractSettingsApplication::MiscDisplaySettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5401
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5402	defaultIcon
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5403	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5404	by the ImageEditor of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5405
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5406	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5407	the ImageEditor may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5408
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5409	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5410	self defaultIcon inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5411	ImageEditor openOnClass:self andSelector:#defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5412	Icon flushCachedIcons
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5413	"
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	<resource: #image>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5416
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5417	^Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5418	constantNamed:#'AbstractSettingsApplication::MiscDisplaySettingsAppl class defaultIcon'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5419	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	5420	@@@@@@@@@@@@@@DA@@@@@@@@@@@@@@@@@@@@@@@@@@DB@0D@@@@@@@@@@@@@@@@@@@@@@@DB@0LD@P@@@@@@@@@@@@@@@@@@@@DB@0LDA@DA@@@@@@@@@@@@
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	5421	@@@@@@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	5422	@ 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	5423	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	5424	@ 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	5425	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	5426	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5427
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5428	!AbstractSettingsApplication::MiscDisplaySettingsAppl class methodsFor:'interface specs'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5429
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5430	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5431	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5432	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5433
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5434	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5435	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5436
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5437	"
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5438	UIPainter new openOnClass:AbstractSettingsApplication::MiscDisplaySettingsAppl andSelector:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5439	AbstractSettingsApplication::MiscDisplaySettingsAppl new openInterface:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5440	AbstractSettingsApplication::MiscDisplaySettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5441	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5442
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5443	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5444
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5445	^
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	5446	#(FullSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	5447	name: windowSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	5448	window:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	5449	(WindowSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	5450	label: 'Display settings'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	5451	name: 'Display settings'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	5452	min: (Point 10 10)
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	5453	bounds: (Rectangle 0 0 445 483)
4286 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	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	5456	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	5457	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	5458	(VerticalPanelViewSpec
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5459	name: 'VerticalPanel1'
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	5460	layout: (LayoutFrame 0 0 0 0 0 1 434 0)
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5461	horizontalLayout: fitSpace
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5462	verticalLayout: topSpace
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5463	horizontalSpace: 5
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	5464	verticalSpace: 3
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	5465	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	5466	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	5467	collection: (
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5468	(CheckBoxSpec
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	5469	label: 'Use Native Widgets (Experimental & Unfinished Feature)'
6014 5ec12867ba18 * empty log message * ca parents: 6013 diff changeset	5470	name: 'NativeWidgets'
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5471	enableChannel: displaySupportsNativeWidgets
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5472	model: nativeWidgets
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5473	translateLabel: true
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	5474	extent: (Point 435 22)
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5475	)
6014 5ec12867ba18 * empty log message * ca parents: 6013 diff changeset	5476	(CheckBoxSpec
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	5477	label: 'Use Native Dialogs (Experimental & Unfinished Feature)'
6014 5ec12867ba18 * empty log message * ca parents: 6013 diff changeset	5478	name: 'NativeDialogs'
5ec12867ba18 * empty log message * ca parents: 6013 diff changeset	5479	enableChannel: displaySupportsNativeDialogs
5ec12867ba18 * empty log message * ca parents: 6013 diff changeset	5480	model: nativeDialogs
5ec12867ba18 * empty log message * ca parents: 6013 diff changeset	5481	translateLabel: true
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	5482	extent: (Point 435 22)
6014 5ec12867ba18 * empty log message * ca parents: 6013 diff changeset	5483	)
6012 6736ffa4ba2f * empty log message * ca parents: 6008 diff changeset	5484	(ViewSpec
6736ffa4ba2f * empty log message * ca parents: 6008 diff changeset	5485	name: 'SeparatingSpace1'
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	5486	extent: (Point 435 5)
6012 6736ffa4ba2f * empty log message * ca parents: 6008 diff changeset	5487	)
6736ffa4ba2f * empty log message * ca parents: 6008 diff changeset	5488	(DividerSpec
6736ffa4ba2f * empty log message * ca parents: 6008 diff changeset	5489	name: 'Separator1'
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	5490	extent: (Point 435 4)
6012 6736ffa4ba2f * empty log message * ca parents: 6008 diff changeset	5491	)
6736ffa4ba2f * empty log message * ca parents: 6008 diff changeset	5492	(ViewSpec
6736ffa4ba2f * empty log message * ca parents: 6008 diff changeset	5493	name: 'SeparatingSpace2'
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	5494	extent: (Point 435 5)
6012 6736ffa4ba2f * empty log message * ca parents: 6008 diff changeset	5495	)
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5496	(CheckBoxSpec
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5497	label: 'Shadows under PopUp Views'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5498	name: 'shadows'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5499	model: shadows
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5500	translateLabel: true
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	5501	extent: (Point 435 22)
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5502	)
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5503	(CheckBoxSpec
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5504	label: 'Beeper enabled'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5505	name: 'beepEnabled'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5506	model: beepEnabled
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5507	translateLabel: true
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	5508	extent: (Point 435 22)
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5509	)
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5510	(CheckBoxSpec
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5511	label: 'Boxes Return Focus to Previously Active View'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5512	name: 'returnFocus'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5513	model: returnFocus
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5514	translateLabel: true
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	5515	extent: (Point 435 22)
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5516	)
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5517	(CheckBoxSpec
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5518	label: 'Views Catch Focus when Mapped'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5519	name: 'takeFocus'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5520	model: takeFocus
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5521	translateLabel: true
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	5522	extent: (Point 435 22)
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5523	)
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5524	(CheckBoxSpec
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5525	label: 'Show Accelerator Keys in Menus'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5526	name: 'showAccelerators'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5527	model: showAccelerators
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5528	translateLabel: true
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	5529	extent: (Point 435 22)
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5530	)
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5531	(CheckBoxSpec
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5532	label: 'Raise & Activate Windows on Click'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5533	name: 'activateOnClick'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5534	model: activateOnClick
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5535	translateLabel: true
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	5536	extent: (Point 435 22)
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5537	)
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5538	(CheckBoxSpec
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5539	label: 'Focus Follows Mouse'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5540	name: 'focusFollowsMouse'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5541	model: focusFollowsMouse
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5542	translateLabel: true
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	5543	extent: (Point 435 22)
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5544	)
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5545	(CheckBoxSpec
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5546	label: 'Opaque Variable Panel Resizing'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5547	name: 'opaqueVariablePanelResize'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5548	model: opaqueVariablePanelResize
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5549	translateLabel: true
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	5550	extent: (Point 435 22)
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5551	)
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5552	(CheckBoxSpec
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5553	label: 'Opaque Table Column Resizing'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5554	name: 'opaqueTableColumnResize'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5555	model: opaqueTableColumnResize
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5556	translateLabel: true
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	5557	extent: (Point 435 22)
6013 7e8dd712b45f * empty log message * ca parents: 6012 diff changeset	5558	)
7e8dd712b45f * empty log message * ca parents: 6012 diff changeset	5559	(ViewSpec
7e8dd712b45f * empty log message * ca parents: 6012 diff changeset	5560	name: 'SeparatingSpace3'
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	5561	extent: (Point 435 4)
6013 7e8dd712b45f * empty log message * ca parents: 6012 diff changeset	5562	)
7e8dd712b45f * empty log message * ca parents: 6012 diff changeset	5563	(DividerSpec
7e8dd712b45f * empty log message * ca parents: 6012 diff changeset	5564	name: 'Separator2'
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	5565	extent: (Point 435 4)
6013 7e8dd712b45f * empty log message * ca parents: 6012 diff changeset	5566	)
7e8dd712b45f * empty log message * ca parents: 6012 diff changeset	5567	(ViewSpec
7e8dd712b45f * empty log message * ca parents: 6012 diff changeset	5568	name: 'SeparatingSpace4'
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	5569	extent: (Point 435 3)
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5570	)
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5571	(LabelSpec
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5572	label: 'Label'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5573	name: 'Label1'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5574	translateLabel: true
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5575	labelChannel: formatHostNameWindowLabel
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5576	adjust: right
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5577	useDefaultExtent: true
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5578	)
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5579	(ViewSpec
6012 6736ffa4ba2f * empty log message * ca parents: 6008 diff changeset	5580	name: 'WindowLabelBox'
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	5581	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	5582	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	5583	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	5584	(CheckBoxSpec
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5585	label: 'Window Label Format'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5586	name: 'hostNameInLabelHolder'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5587	layout: (LayoutFrame 0 0 -22 1 216 0 0 1)
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5588	model: hostNameInLabelHolder
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5589	translateLabel: true
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5590	)
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5591	(InputFieldSpec
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5592	name: 'hostNameInLabelEntryField'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5593	layout: (LayoutFrame 218 0 -22 1 -5 1 0 1)
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5594	enableChannel: hostNameInLabelHolder
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5595	model: newWindowLabelFormat
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5596	immediateAccept: true
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5597	acceptOnReturn: true
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5598	acceptOnTab: true
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5599	acceptOnLostFocus: true
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5600	acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5601	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5602	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5603
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5604	)
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	5605	extent: (Point 435 30)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5606	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5607	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5608
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5609	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5610	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5611	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5612
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5613	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5614	)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5615	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5616
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5617	!AbstractSettingsApplication::MiscDisplaySettingsAppl methodsFor:'actions'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5618
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5619	basicSaveSettings
6030 94eba9f547a2 * empty log message * ca parents: 6029 diff changeset	5620	\|currentScreen mustReopenTools\|
94eba9f547a2 * empty log message * ca parents: 6029 diff changeset	5621
94eba9f547a2 * empty log message * ca parents: 6029 diff changeset	5622	currentScreen := Screen current.
94eba9f547a2 * empty log message * ca parents: 6029 diff changeset	5623
6025 70cd59f93dbb * empty log message * Claus Gittinger <cg@exept.de> parents: 6023 diff changeset	5624	self displaySupportsNativeWidgets ifTrue:[
6030 94eba9f547a2 * empty log message * ca parents: 6029 diff changeset	5625	currentScreen nativeWidgets ~= self nativeWidgets value ifTrue:[
94eba9f547a2 * empty log message * ca parents: 6029 diff changeset	5626	mustReopenTools := true.
94eba9f547a2 * empty log message * ca parents: 6029 diff changeset	5627	currentScreen nativeWidgets:self nativeWidgets value.
94eba9f547a2 * empty log message * ca parents: 6029 diff changeset	5628	].
6025 70cd59f93dbb * empty log message * Claus Gittinger <cg@exept.de> parents: 6023 diff changeset	5629	].
70cd59f93dbb * empty log message * Claus Gittinger <cg@exept.de> parents: 6023 diff changeset	5630	self displaySupportsNativeDialogs ifTrue:[
6030 94eba9f547a2 * empty log message * ca parents: 6029 diff changeset	5631	currentScreen nativeDialogs:self nativeDialogs value.
6025 70cd59f93dbb * empty log message * Claus Gittinger <cg@exept.de> parents: 6023 diff changeset	5632	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5633	PopUpView shadows:self shadows value.
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5634
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5635	(self hostNameInLabelHolder value ~= StandardSystemView includeHostNameInLabel
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5636	or:[self newWindowLabelFormat value ~= StandardSystemView windowLabelFormat]) ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5637	StandardSystemView includeHostNameInLabel:self hostNameInLabelHolder value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5638	self newWindowLabelFormat value notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5639	StandardSystemView windowLabelFormat:self newWindowLabelFormat value
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5640	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5641
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5642	Screen allScreens do:[:aDisplay \|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5643	aDisplay allViewsDo:[:aView \|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5644	\|l\|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5645
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5646	aView isTopView ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5647	l := aView label.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5648	l notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5649	aView label:(l , ' '); label:l. "/ force a change
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	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5652	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5653	]
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
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5656	currentUserPrefs opaqueVariablePanelResizing:self opaqueVariablePanelResize value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5657	currentUserPrefs opaqueTableColumnResizing:self opaqueTableColumnResize value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5658
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5659	currentUserPrefs beepEnabled:self beepEnabled value.
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	StandardSystemView returnFocusWhenClosingModalBoxes:self returnFocus value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5662	StandardSystemView takeFocusWhenMapped:self takeFocus value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5663	currentUserPrefs focusFollowsMouse:self focusFollowsMouse value.
6030 94eba9f547a2 * empty log message * ca parents: 6029 diff changeset	5664	currentScreen activateOnClick:self activateOnClick value.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5665
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5666	MenuView showAcceleratorKeys:self showAccelerators value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5667
6030 94eba9f547a2 * empty log message * ca parents: 6029 diff changeset	5668	mustReopenTools ifTrue:[
94eba9f547a2 * empty log message * ca parents: 6029 diff changeset	5669	self reopenToolsAfterChangedViewStyleSetting.
94eba9f547a2 * empty log message * ca parents: 6029 diff changeset	5670	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5671	"Modified: / 16.12.2002 / 18:06:31 / penk"
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5672	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5673
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5674	formatHostNameinWindowLabels
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5675	\|newFormat\|
c72e35116b13 instable state penk parents: 5040 diff changeset	5676
c72e35116b13 instable state penk parents: 5040 diff changeset	5677	newFormat := Dialog
c72e35116b13 instable state penk parents: 5040 diff changeset	5678	request:'Define the Format of Window Labels:\\ %1 - Label\ %2 - Hostname\ %3 - Username\ %4 - ProcessId\'
c72e35116b13 instable state penk parents: 5040 diff changeset	5679	withCRs
c72e35116b13 instable state penk parents: 5040 diff changeset	5680	initialAnswer:newWindowLabelFormat.
c72e35116b13 instable state penk parents: 5040 diff changeset	5681	newFormat size > 0 ifTrue:[
c72e35116b13 instable state penk parents: 5040 diff changeset	5682	newWindowLabelFormat := newFormat.
c72e35116b13 instable state penk parents: 5040 diff changeset	5683	self updateModifiedChannel
c72e35116b13 instable state penk parents: 5040 diff changeset	5684	]
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5685	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5686
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	5687	helpFilename
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	5688	^ 'Launcher/miscSettings.html'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5689	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5690
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5691	readSettings
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5692	self shadows value:PopUpView shadows.
6025 70cd59f93dbb * empty log message * Claus Gittinger <cg@exept.de> parents: 6023 diff changeset	5693	self nativeWidgets value:Screen current nativeWidgets.
6014 5ec12867ba18 * empty log message * ca parents: 6013 diff changeset	5694	self nativeDialogs value:Screen current nativeDialogs.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5695	self beepEnabled value:currentUserPrefs beepEnabled.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5696	self newWindowLabelFormat value:StandardSystemView windowLabelFormat.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5697	self hostNameInLabelHolder
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5698	value:StandardSystemView includeHostNameInLabel.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5699	self returnFocus
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5700	value:StandardSystemView returnFocusWhenClosingModalBoxes.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5701	self takeFocus value:StandardSystemView takeFocusWhenMapped.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5702	self focusFollowsMouse value:(currentUserPrefs focusFollowsMouse ? true).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5703	self activateOnClick value:(Display activateOnClick:nil).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5704	self opaqueVariablePanelResize
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5705	value:currentUserPrefs opaqueVariablePanelResizing.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5706	self opaqueTableColumnResize
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5707	value:currentUserPrefs opaqueTableColumnResizing.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5708	self showAccelerators value:MenuView showAcceleratorKeys.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5709	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5710	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5711
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5712	!AbstractSettingsApplication::MiscDisplaySettingsAppl methodsFor:'aspects'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5713
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5714	activateOnClick
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5715	activateOnClick isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5716	activateOnClick := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5717	activateOnClick onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5718	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5719	^ activateOnClick.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5720	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5721
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5722	beepEnabled
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5723	beepEnabled isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5724	beepEnabled := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5725	beepEnabled onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5726	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5727	^ beepEnabled.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5728	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5729
6025 70cd59f93dbb * empty log message * Claus Gittinger <cg@exept.de> parents: 6023 diff changeset	5730	displaySupportsNativeDialogs
70cd59f93dbb * empty log message * Claus Gittinger <cg@exept.de> parents: 6023 diff changeset	5731	^ Screen current supportsNativeDialogs
70cd59f93dbb * empty log message * Claus Gittinger <cg@exept.de> parents: 6023 diff changeset	5732	!
70cd59f93dbb * empty log message * Claus Gittinger <cg@exept.de> parents: 6023 diff changeset	5733
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5734	displaySupportsNativeWidgets
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5735	^ Screen current supportsNativeWidgets
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5736	!
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5737
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5738	focusFollowsMouse
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5739	focusFollowsMouse isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5740	focusFollowsMouse := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5741	focusFollowsMouse onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5742	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5743	^ focusFollowsMouse.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5744	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5745
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5746	formatHostNameWindowLabel
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5747	formatHostNameWindowLabel isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5748	formatHostNameWindowLabel :=
5713 3d9769f61870 * empty log message * ca parents: 5700 diff changeset	5749	(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	5750	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5751	^ formatHostNameWindowLabel.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5752
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5753	"Created: / 16.12.2002 / 17:50:49 / penk"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5754	"Modified: / 16.12.2002 / 17:55:18 / penk"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5755	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5756
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5757	hostNameInLabelHolder
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5758	hostNameInLabelHolder isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5759	hostNameInLabelHolder := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5760	hostNameInLabelHolder onChangeSend:#updateModifiedChannel to:self
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5761	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5762	^ hostNameInLabelHolder.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5763	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5764
6014 5ec12867ba18 * empty log message * ca parents: 6013 diff changeset	5765	nativeDialogs
5ec12867ba18 * empty log message * ca parents: 6013 diff changeset	5766	nativeDialogs isNil ifTrue:[
5ec12867ba18 * empty log message * ca parents: 6013 diff changeset	5767	nativeDialogs := Screen current nativeDialogs asValue.
5ec12867ba18 * empty log message * ca parents: 6013 diff changeset	5768	nativeDialogs onChangeSend:#updateModifiedChannel to:self
5ec12867ba18 * empty log message * ca parents: 6013 diff changeset	5769	].
5ec12867ba18 * empty log message * ca parents: 6013 diff changeset	5770	^ nativeDialogs.
5ec12867ba18 * empty log message * ca parents: 6013 diff changeset	5771	!
5ec12867ba18 * empty log message * ca parents: 6013 diff changeset	5772
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5773	nativeWidgets
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5774	nativeWidgets isNil ifTrue:[
6025 70cd59f93dbb * empty log message * Claus Gittinger <cg@exept.de> parents: 6023 diff changeset	5775	nativeWidgets := Screen current nativeWidgets asValue.
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5776	nativeWidgets onChangeSend:#updateModifiedChannel to:self
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5777	].
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5778	^ nativeWidgets.
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5779	!
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5780
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5781	newWindowLabelFormat
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5782	newWindowLabelFormat isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5783	newWindowLabelFormat := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5784	newWindowLabelFormat onChangeSend:#updateModifiedChannel to:self
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5785	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5786	^ newWindowLabelFormat.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5787
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5788	"Created: / 16.12.2002 / 17:50:49 / penk"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5789	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5790
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5791	opaqueTableColumnResize
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5792	opaqueTableColumnResize isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5793	opaqueTableColumnResize := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5794	opaqueTableColumnResize onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5795	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5796	^ opaqueTableColumnResize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5797	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5798
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5799	opaqueVariablePanelResize
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5800	opaqueVariablePanelResize isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5801	opaqueVariablePanelResize := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5802	opaqueVariablePanelResize onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5803	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5804	^ opaqueVariablePanelResize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5805	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5806
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5807	returnFocus
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5808	returnFocus isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5809	returnFocus := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5810	returnFocus onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5811	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5812	^ returnFocus.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5813	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5814
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5815	shadows
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5816	shadows isNil ifTrue:[
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5817	shadows := PopUpView shadows asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5818	shadows onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5819	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5820	^ shadows.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5821	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5822
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5823	showAccelerators
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5824	showAccelerators isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5825	showAccelerators := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5826	showAccelerators onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5827	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5828	^ showAccelerators.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5829	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5830
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5831	takeFocus
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5832	takeFocus isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5833	takeFocus := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5834	takeFocus onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5835	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5836	^ takeFocus.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5837	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5838
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5839	!AbstractSettingsApplication::MiscDisplaySettingsAppl methodsFor:'queries'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5840
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5841	hasUnsavedChanges
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	5842	self newWindowLabelFormat value ~= StandardSystemView windowLabelFormat ifTrue:[^ true].
6025 70cd59f93dbb * empty log message * Claus Gittinger <cg@exept.de> parents: 6023 diff changeset	5843	self nativeWidgets value ~= Screen current nativeWidgets ifTrue:[^ true].
6014 5ec12867ba18 * empty log message * ca parents: 6013 diff changeset	5844	self nativeDialogs value ~= Screen current nativeDialogs ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	5845	self shadows value ~= PopUpView shadows ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	5846	self beepEnabled value ~= currentUserPrefs beepEnabled ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	5847	self hostNameInLabelHolder value ~= StandardSystemView includeHostNameInLabel ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	5848	self returnFocus value ~= StandardSystemView returnFocusWhenClosingModalBoxes ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	5849	self takeFocus value ~= StandardSystemView takeFocusWhenMapped ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	5850	self focusFollowsMouse value ~= (currentUserPrefs focusFollowsMouse ? true) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	5851	self activateOnClick value ~= (Display activateOnClick:nil) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	5852	self opaqueVariablePanelResize value ~= currentUserPrefs opaqueVariablePanelResizing ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	5853	self opaqueTableColumnResize value ~= currentUserPrefs opaqueTableColumnResizing ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	5854	self showAccelerators value ~= MenuView showAcceleratorKeys ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	5855	^ false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5856	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5857
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5858	!AbstractSettingsApplication::OsiSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5859
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5860	defaultIcon
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	5861	<resource: #programImage>
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	5862	^ AbstractSettingsApplication::MiscCommunicationSettingsAppl defaultIcon.
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5863	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5864
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5865	!AbstractSettingsApplication::OsiSettingsAppl class methodsFor:'interface specs'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5866
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5867	windowSpec
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5868	"This resource specification was automatically generated
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5869	by the UIPainter of ST/X."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5870
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5871	"Do not manually edit this!! If it is corrupted,
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5872	the UIPainter may not be able to read the specification."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5873
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5874	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5875	UIPainter new openOnClass:AbstractSettingsApplication::OsiSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5876	AbstractSettingsApplication::OsiSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5877	AbstractSettingsApplication::OsiSettingsAppl open
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5878	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5879
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5880	<resource: #canvas>
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5881
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5882	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5883	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5884	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5885	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5886	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5887	label: 'OSI Protocols Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5888	name: 'OSI Protocols Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5889	min: (Point 10 10)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5890	bounds: (Rectangle 14 46 614 596)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5891	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5892	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5893	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5894	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5895	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5896	name: 'VerticalPanel2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5897	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	5898	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5899	verticalLayout: top
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5900	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5901	verticalSpace: 3
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	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5906	label: 'ACSE'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5907	name: 'Label1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5908	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5909	extent: (Point 600 22)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5910	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5911	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5912	name: 'Box1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5913	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5914	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5915	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5916	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5917	label: 'Log Errors'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5918	name: 'CheckBox1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5919	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	5920	enableChannel: osiACSEPresent
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5921	model: osiACSEErrorLogging
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5922	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5923	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5924	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5925	label: 'Log Connections'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5926	name: 'CheckBox2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5927	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	5928	enableChannel: osiACSEPresent
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5929	model: osiACSEConnectionLogging
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5930	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5931	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5932	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5933	label: 'Log Data Xfer'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5934	name: 'CheckBox3'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5935	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	5936	enableChannel: osiACSEPresent
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5937	model: osiACSEDataLogging
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5938	translateLabel: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5939	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5940	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5941
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5942	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5943	extent: (Point 600 27)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5944	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5945	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5946	name: 'Box9'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5947	extent: (Point 600 22)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5948	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5949	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5950	label: 'ROSE'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5951	name: 'Label2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5952	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5953	extent: (Point 600 22)
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: 'Box4'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5957	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5958	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5959	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5960	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5961	label: 'Log Errors'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5962	name: 'CheckBox4'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5963	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	5964	enableChannel: osiROSEPresent
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5965	model: osiROSEErrorLogging
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5966	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5967	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5968	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5969	label: 'Log Invoactions'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5970	name: 'CheckBox5'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5971	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	5972	enableChannel: osiROSEPresent
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5973	model: osiROSEInvokationLogging
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5974	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5975	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5976	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5977	label: 'Log Responses'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5978	name: 'CheckBox6'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5979	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	5980	enableChannel: osiROSEPresent
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5981	model: osiROSEResponseLogging
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5982	translateLabel: true
5086 b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	5983	)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	5984	)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	5985
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	5986	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5987	extent: (Point 600 25)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5988	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5989	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5990	name: 'Box6'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5991	extent: (Point 600 23)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5992	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5993	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5994	label: 'CMISE'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5995	name: 'Label3'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5996	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5997	extent: (Point 600 22)
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: 'Box7'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6001	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6002	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6003	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6004	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6005	label: 'Log Errors'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6006	name: 'CheckBox7'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6007	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	6008	enableChannel: osiCMISEPresent
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6009	model: osiCMISEErrorLogging
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6010	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6011	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6012	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6013	label: 'Log Messages'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6014	name: 'CheckBox8'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6015	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	6016	enableChannel: osiCMISEPresent
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6017	model: osiCMISEMessageLogging
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6018	translateLabel: true
5086 b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	6019	)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	6020	)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	6021
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	6022	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6023	extent: (Point 600 22)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6024	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6025	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6026
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6027	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6028	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6029	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6030
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6031	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6032	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6033	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6034
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6035	!AbstractSettingsApplication::OsiSettingsAppl methodsFor:'actions'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6036
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6037	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6038
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6039	self osiACSEPresent value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6040	OSI::ACSE errorLogging:self osiACSEErrorLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6041	OSI::ACSE connectionLogging:self osiACSEConnectionLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6042	OSI::ACSE dataLogging:self osiACSEDataLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6043	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6044	self osiROSEPresent value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6045	OSI::ROSE errorLogging:self osiROSEErrorLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6046	OSI::ROSE invocationLogging:self osiROSEInvokationLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6047	OSI::ROSE responseLogging:self osiROSEResponseLogging value.
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 osiCMISEPresent value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6050	OSI::CMISE errorLogging:self osiCMISEErrorLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6051	OSI::CMISE messageLogging:self osiCMISEMessageLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6052	].
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
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	6055	helpFilename
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	6056	^ 'Launcher/communicationsSettings.html'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6057	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6058
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6059	readSettings
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6060	self osiACSEPresent value:(OSI::ACSE notNil and:[OSI::ACSE isLoaded]).
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6061	self osiROSEPresent value:(OSI::ROSE notNil and:[OSI::ROSE isLoaded]).
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6062	self osiCMISEPresent value:(OSI::CMISE notNil and:[OSI::CMISE isLoaded]).
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6063	self osiACSEPresent value ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6064	self osiACSEErrorLogging value:OSI::ACSE errorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6065	self osiACSEConnectionLogging value:OSI::ACSE connectionLogging.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6066	self osiACSEDataLogging value:OSI::ACSE dataLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6067	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6068	self osiROSEPresent value ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6069	self osiROSEErrorLogging value:OSI::ROSE errorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6070	self osiROSEInvokationLogging value:OSI::ROSE invocationLogging.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6071	self osiROSEResponseLogging value:OSI::ROSE responseLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6072	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6073	self osiCMISEPresent value ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6074	self osiCMISEErrorLogging value:OSI::CMISE errorLogging.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6075	self osiCMISEMessageLogging value:OSI::CMISE messageLogging
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6076	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6077	self modifiedChannel value:false
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6078	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6079
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6080	!AbstractSettingsApplication::OsiSettingsAppl methodsFor:'aspects'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6081
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6082	osiACSEConnectionLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6083	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6084
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6085	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6086	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6087	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6088	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6089
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6090	osiACSEConnectionLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6091	osiACSEConnectionLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6092	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6093	"/ osiACSEConnectionLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6094	"/ osiACSEConnectionLogging onChangeSend:#osiACSEConnectionLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6095	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6096	^ osiACSEConnectionLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6097	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6098
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6099	osiACSEDataLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6100	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6101
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6102	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6103	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6104	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6105	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6106
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6107	osiACSEDataLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6108	osiACSEDataLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6109	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6110	"/ osiACSEDataLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6111	"/ osiACSEDataLogging onChangeSend:#osiACSEDataLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6112	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6113	^ osiACSEDataLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6114	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6115
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6116	osiACSEErrorLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6117	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6118
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6119	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6120	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6121	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6122	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6123
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6124	osiACSEErrorLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6125	osiACSEErrorLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6126	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6127	"/ osiACSEErrorLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6128	"/ osiACSEErrorLogging onChangeSend:#osiACSEErrorLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6129	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6130	^ osiACSEErrorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6131	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6132
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6133	osiACSEPresent
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6134	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6135
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6136	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6137	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6138	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6139	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6140
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6141	osiACSEPresent isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6142	osiACSEPresent := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6143	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6144	"/ osiACSEPresent addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6145	"/ osiACSEPresent onChangeSend:#osiACSEPresentChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6146	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6147	^ osiACSEPresent.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6148	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6149
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6150	osiCMISEErrorLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6151	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6152
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6153	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6154	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6155	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6156	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6157
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6158	osiCMISEErrorLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6159	osiCMISEErrorLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6160	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6161	"/ osiCMISEErrorLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6162	"/ osiCMISEErrorLogging onChangeSend:#osiCMISEErrorLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6163	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6164	^ osiCMISEErrorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6165	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6166
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6167	osiCMISEMessageLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6168	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6169
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6170	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6171	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6172	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6173	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6174
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6175	osiCMISEMessageLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6176	osiCMISEMessageLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6177	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6178	"/ osiCMISEMessageLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6179	"/ osiCMISEMessageLogging onChangeSend:#osiCMISEMessageLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6180	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6181	^ osiCMISEMessageLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6182	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6183
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6184	osiCMISEPresent
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6185	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6186
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6187	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6188	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6189	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6190	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6191
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6192	osiCMISEPresent isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6193	osiCMISEPresent := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6194	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6195	"/ osiCMISEPresent addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6196	"/ osiCMISEPresent onChangeSend:#osiCMISEPresentChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6197	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6198	^ osiCMISEPresent.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6199	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6200
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6201	osiROSEErrorLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6202	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6203
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6204	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6205	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6206	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6207	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6208
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6209	osiROSEErrorLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6210	osiROSEErrorLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6211	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6212	"/ osiROSEErrorLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6213	"/ osiROSEErrorLogging onChangeSend:#osiROSEErrorLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6214	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6215	^ osiROSEErrorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6216	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6217
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6218	osiROSEInvokationLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6219	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6220
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6221	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6222	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6223	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6224	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6225
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6226	osiROSEInvokationLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6227	osiROSEInvokationLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6228	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6229	"/ osiROSEInvokationLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6230	"/ osiROSEInvokationLogging onChangeSend:#osiROSEInvokationLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6231	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6232	^ osiROSEInvokationLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6233	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6234
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6235	osiROSEPresent
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6236	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6237
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6238	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6239	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6240	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6241	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6242
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6243	osiROSEPresent isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6244	osiROSEPresent := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6245	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6246	"/ osiROSEPresent addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6247	"/ osiROSEPresent onChangeSend:#osiROSEPresentChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6248	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6249	^ osiROSEPresent.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6250	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6251
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6252	osiROSEResponseLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6253	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6254
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6255	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6256	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6257	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6258	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6259
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6260	osiROSEResponseLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6261	osiROSEResponseLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6262	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6263	"/ osiROSEResponseLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6264	"/ osiROSEResponseLogging onChangeSend:#osiROSEResponseLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6265	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6266	^ osiROSEResponseLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6267	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6268
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6269	!AbstractSettingsApplication::OsiSettingsAppl methodsFor:'queries'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6270
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6271	hasUnsavedChanges
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6272
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6273	^ ((
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6274	(self osiACSEPresent value and:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6275	self osiACSEErrorLogging value ~= OSI::ACSE errorLogging or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6276	self osiACSEConnectionLogging value ~= OSI::ACSE connectionLogging or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6277	self osiACSEDataLogging value ~= OSI::ACSE dataLogging]]]) or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6278	self osiROSEPresent value and:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6279	self osiROSEErrorLogging value ~= OSI::ROSE errorLogging or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6280	self osiROSEInvokationLogging value ~= OSI::ROSE invocationLogging or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6281	self osiROSEResponseLogging value ~= OSI::ROSE responseLogging]]]]) or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6282	(self osiCMISEPresent value) and:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6283	self osiCMISEErrorLogging value ~= OSI::CMISE errorLogging or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6284	self osiCMISEMessageLogging value ~= OSI::CMISE messageLogging]]])
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6285	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6286
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6287	!AbstractSettingsApplication::PrinterSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6288
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6289	defaultIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6290	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6291	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6292
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6293	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6294	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6295
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6296	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6297	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6298	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6299	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6300	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6301
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6302	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6303
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6304	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6305	constantNamed:#'AbstractSettingsApplication::PrinterSettingsAppl class defaultIcon'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	6306	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	6307	QDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQ@@@@@@@@@ADQDQ@QDQDQDQDADQDQDAD@@AD@@PDQDQD
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	6308	ADQDQDQDPDQDQDPD@@P@P@P@@DQDPDQDQDQDQ@DAADP@@@@@@@@@DA@DPADQDQDQDQDA@0Q@@@@@@@@@@@@3AD@3L3L3L2H#LCADPCL3L3L3H"L0ADQ@@@@@
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	6309	@@@@@@ADQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDPb') ; colorMapFromArray:#[0 0 0 194 194 194 255 255 0 105 133 190 255 255 255]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@@@??0A?? A?? C??@C??0G??8O??8_??8_??8_??0_?? _??@@@@@@@@@@@@@@@@@@@@@') ; yourself); yourself]
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6310	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6311
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6312	!AbstractSettingsApplication::PrinterSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6313
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6314	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6315	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6316	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6317
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6318	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6319	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6320
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6321	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6322	UIPainter new openOnClass:AbstractSettingsApplication::PrinterSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6323	AbstractSettingsApplication::PrinterSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6324	AbstractSettingsApplication::PrinterSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6325	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6326
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6327	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6328
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6329	^
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6330	#(FullSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6331	name: windowSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6332	window:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6333	(WindowSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6334	label: 'Printer Settings'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6335	name: 'Printer Settings'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6336	min: (Point 10 10)
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	6337	bounds: (Rectangle 0 0 616 385)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6338	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6339	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6340	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6341	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6342	(VerticalPanelViewSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6343	name: 'VerticalPanel1'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6344	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	6345	horizontalLayout: fit
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6346	verticalLayout: top
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6347	horizontalSpace: 3
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6348	verticalSpace: 3
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6349	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6350	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6351	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6352	(ViewSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6353	name: 'PrinterSelectBox'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6354	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6355	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6356	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6357	(LabelSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6358	label: 'Printer Type:'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6359	name: 'PrinterTypeLabel'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	6360	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	6361	translateLabel: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6362	adjust: right
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	(ComboListSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6365	name: 'PrinterTypeComboList'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	6366	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	6367	model: printerTypeSelection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6368	comboList: printerType
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6369	useIndex: true
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	(LabelSpec
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	6372	label: 'Print Command:'
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6373	name: 'PrinterCommandLabel'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	6374	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	6375	translateLabel: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6376	adjust: right
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6377	)
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6378	(ComboBoxSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6379	name: 'CommandComboBox'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	6380	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	6381	enableChannel: printCommandEnabled
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6382	model: printCommand
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6383	acceptOnLostFocus: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6384	acceptOnPointerLeave: false
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6385	comboList: printCommandList
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6386	useIndex: false
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6387	)
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6388	(LabelSpec
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6389	label: 'Print to File:'
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6390	name: 'PrinterFileLabel'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	6391	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	6392	translateLabel: true
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6393	adjust: right
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6394	)
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6395	(FilenameInputFieldSpec
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6396	name: 'PrinterFileEntryField'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	6397	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	6398	model: printFilename
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	6399	formatString: ''
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6400	immediateAccept: true
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6401	acceptOnLeave: true
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6402	acceptOnLostFocus: true
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6403	acceptOnPointerLeave: false
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6404	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6405	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6406
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6407	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6408	extent: (Point 600 84)
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6409	)
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6410	(DividerSpec
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6411	name: 'Separator1'
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6412	extent: (Point 600 3)
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6413	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6414	(ViewSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6415	name: 'FormatBox'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6416	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6417	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6418	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6419	(LabelSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6420	label: 'Page Format:'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6421	name: 'PageFormatLabel'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	6422	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	6423	translateLabel: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6424	adjust: right
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6425	)
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6426	(PopUpListSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6427	label: 'PopUp List'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6428	name: 'PageFormatPopUpList'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	6429	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	6430	tabable: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6431	model: pageFormat
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6432	enableChannel: enableFormat
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6433	menu: pageFormatList
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6434	)
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6435	(CheckBoxSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6436	label: 'Landscape'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6437	name: 'LandscapeCheckBox'
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6438	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	6439	enableChannel: enablelandscape
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6440	model: landscape
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6441	translateLabel: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6442	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6443	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6444
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6445	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6446	extent: (Point 600 30)
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6447	)
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6448	(DividerSpec
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6449	name: 'Separator5'
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6450	extent: (Point 600 3)
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6451	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6452	(ViewSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6453	name: 'MarginBox'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6454	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6455	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6456	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6457	(VerticalPanelViewSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6458	name: 'VerticalPanel2'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6459	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	6460	horizontalLayout: fit
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6461	verticalLayout: center
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6462	horizontalSpace: 3
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6463	verticalSpace: 3
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6464	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6465	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6466	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6467	(ViewSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6468	name: 'Box1'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6469	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6470	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6471	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6472	(LabelSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6473	label: 'Top Margin:'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6474	name: 'TopMarginLabel'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	6475	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	6476	translateLabel: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6477	adjust: right
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6478	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6479	(InputFieldSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6480	name: 'TopMarginEntryField'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	6481	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	6482	enableChannel: enableMargins
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6483	model: topMargin
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6484	type: numberOrNil
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6485	acceptOnReturn: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6486	acceptOnTab: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6487	acceptOnLostFocus: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6488	acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6489	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6490	(PopUpListSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6491	label: 'PopUp List'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6492	name: 'PopUpList2'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6493	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	6494	tabable: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6495	model: selectedUnit
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6496	menu: unitList
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6497	useIndex: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6498	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6499	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6500
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6501	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6502	extent: (Point 600 24)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6503	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6504	(ViewSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6505	name: 'Box2'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6506	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6507	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6508	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6509	(LabelSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6510	label: 'Left Margin:'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6511	name: 'LeftMarginLabel'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	6512	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	6513	translateLabel: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6514	adjust: right
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6515	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6516	(InputFieldSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6517	name: 'LeftMarginEntryField'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	6518	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	6519	enableChannel: enableMargins
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6520	model: leftMargin
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6521	type: numberOrNil
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6522	acceptOnReturn: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6523	acceptOnTab: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6524	acceptOnLostFocus: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6525	acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6526	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6527	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6528
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6529	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6530	extent: (Point 600 24)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6531	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6532	(ViewSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6533	name: 'Box3'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6534	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6535	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6536	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6537	(LabelSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6538	label: 'Right Margin:'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6539	name: 'RightMarginLabel'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	6540	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	6541	translateLabel: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6542	adjust: right
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6543	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6544	(InputFieldSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6545	name: 'RightMarginEntryField'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	6546	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	6547	enableChannel: enableMargins
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6548	model: rightMargin
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6549	type: numberOrNil
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6550	acceptOnReturn: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6551	acceptOnTab: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6552	acceptOnLostFocus: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6553	acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6554	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6555	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6556
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6557	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6558	extent: (Point 600 24)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6559	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6560	(ViewSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6561	name: 'Box4'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6562	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6563	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6564	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6565	(LabelSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6566	label: 'Bottom Margin:'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6567	name: 'BottomMarginLabel'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	6568	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	6569	translateLabel: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6570	adjust: right
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6571	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6572	(InputFieldSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6573	name: 'BottomMarginEntryField'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	6574	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	6575	enableChannel: enableMargins
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6576	model: bottomMargin
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6577	type: numberOrNil
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6578	acceptOnReturn: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6579	acceptOnTab: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6580	acceptOnLostFocus: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6581	acceptOnPointerLeave: true
4310 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	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6586	extent: (Point 600 24)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6587	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6588	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6589
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6590	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6591	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6592	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6593
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6594	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6595	extent: (Point 600 100)
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6596	)
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6597	(DividerSpec
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6598	name: 'Separator6'
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6599	extent: (Point 600 3)
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6600	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6601	(ViewSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6602	name: 'Box5'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6603	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6604	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6605	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6606	(CheckBoxSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6607	label: 'Color Printer'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6608	name: 'ColorPrinterCheckBox'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	6609	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	6610	enableChannel: enableColorBox
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6611	model: supportsColor
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6612	translateLabel: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6613	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6614	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6615
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6616	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6617	extent: (Point 600 27)
4286 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	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6623	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6624
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6625	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6626	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6627	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6628
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6629	!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6630
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6631	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6632
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6633	Printer := self possiblePrinters at:(self printerTypeSelection value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6634	Printer printCommand:self printCommand value.
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6635	Printer printFilename:(printFilename value isEmptyOrNil ifTrue:[nil] ifFalse:[printFilename value]).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6636
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6637	Printer supportsPageSizes ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6638	Printer pageFormat:(self pageFormat value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6639	Printer landscape:(self landscape value).
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 supportsMargins ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6642	\| unit \|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6643	self selectedUnit value == 2 ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6644	unit := #mm
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6645	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6646	unit := #inch
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6647	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6648	Printer topMargin:(UnitConverter convert:(self topMargin value) from:unit to:#inch).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6649	Printer leftMargin:(UnitConverter convert:(self leftMargin value) from:unit to:#inch).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6650	Printer rightMargin:(UnitConverter convert:(self rightMargin value) from:unit to:#inch).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6651	Printer bottomMargin:(UnitConverter convert:(self bottomMargin value) from:unit to:#inch).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6652	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6653	Printer supportsPostscript ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6654	Printer supportsColor:self supportsColor value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6655	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6656	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6657
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	6658	helpFilename
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	6659	^ 'Launcher/printerSettings.html'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6660	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6661
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6662	readSettings
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6663	self bottomMargin value:Printer bottomMargin.
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6664	self landscape value:Printer landscape.
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6665	self leftMargin value:Printer leftMargin.
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6666	self rightMargin value:Printer rightMargin.
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6667	self topMargin value:Printer topMargin.
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6668	self printCommand value:Printer printCommand.
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6669	self printFilename value:Printer printFilename.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6670	self printerTypeSelection
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6671	value:(self possiblePrinters identityIndexOf:Printer).
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6672	self supportsColor value:Printer supportsColor.
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6673	self pageFormatList notEmpty ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6674	self pageFormat value:Printer pageFormat
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6675	].
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6676	self printerTypeSelectionOrUnitListChanged.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6677	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6678	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6679
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6680	!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6681
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6682	bottomMargin
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6683
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6684	bottomMargin isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6685	bottomMargin := Printer bottomMargin asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6686	bottomMargin onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6687	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6688	^ bottomMargin.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6689	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6690
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6691	enableColorBox
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6692
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6693	enableColorBox isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6694	enableColorBox := true asValue.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6695	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6696	^ enableColorBox.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6697	!
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	enableFormat
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6700
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6701	enableFormat isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6702	enableFormat := true asValue.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6703	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6704	^ enableFormat.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6705	!
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	enableMargins
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6708
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6709	enableMargins isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6710	enableMargins := true asValue.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6711	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6712	^ enableMargins.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6713	!
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	enablelandscape
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6716
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6717	enablelandscape isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6718	enablelandscape := true asValue.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6719	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6720	^ enablelandscape.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6721	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6722
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6723	landscape
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6724
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6725	landscape isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6726	landscape := Printer landscape asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6727	landscape onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6728	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6729	^ landscape.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6730	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6731
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6732	leftMargin
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	leftMargin isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6735	leftMargin := Printer leftMargin asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6736	leftMargin onChangeSend:#updateModifiedChannel to:self
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6737	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6738	^ leftMargin.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6739	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6740
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6741	pageFormat
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6742
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6743	pageFormat isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6744	self pageFormatList notEmpty ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6745	\| index \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6746	(index := self pageFormatList indexOf:#a4) ~~ 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6747	pageFormat := index asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6748	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6749	pageFormat := 1 asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6750	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6751	].
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6752	pageFormat onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6753	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6754	^ pageFormat.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6755	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6756
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6757	pageFormatList
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6758
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6759	pageFormatList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6760	pageFormatList := Printer defaultPageFormats asList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6761	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6762	^ pageFormatList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6763	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6764
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6765	printCommand
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6766
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6767	printCommand isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6768	printCommand := Printer printCommand asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6769	printCommand onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6770	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6771	^ printCommand.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6772	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6773
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6774	printCommandEnabled
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6775	^ BlockValue
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6776	with:[:m \| m value isEmptyOrNil]
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6777	argument:(self printFilename).
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6778	!
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6779
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6780	printCommandList
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6781
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6782	printCommandList isNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6783	printCommandList := self commandList asList.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6784	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6785	^ printCommandList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6786	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6787
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6788	printFilename
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6789	printFilename isNil ifTrue:[
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6790	printFilename := (Printer printFilename ? '') asValue.
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6791	printFilename onChangeSend:#updateModifiedChannel to:self
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6792	].
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6793	^ printFilename.
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6794	!
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6795
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6796	printerType
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6797
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6798	printerType isNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6799	printerType := (self possiblePrinters collect:[:cls \| cls printerTypeName]) asList.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6800	printerType onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6801	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6802	^ printerType.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6803	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6804
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6805	printerTypeSelection
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6806
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6807	printerTypeSelection isNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6808	printerTypeSelection := (self possiblePrinters identityIndexOf:Printer) asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6809	"/ printerTypeSelection onChangeSend:#printerTypeSelectionChanged to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6810	printerTypeSelection addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6811	printerTypeSelection changed.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6812	printerTypeSelection onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6813	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6814	^ printerTypeSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6815	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6816
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6817	rightMargin
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6818
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6819	rightMargin isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6820	rightMargin := Printer rightMargin asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6821	rightMargin onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6822	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6823	^ rightMargin.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6824	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6825
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6826	selectedUnit
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6827
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6828	selectedUnit isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6829	selectedUnit := 1 asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6830	selectedUnit addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6831	selectedUnit changed.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6832	selectedUnit onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6833	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6834	^ selectedUnit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6835	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6836
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6837	supportsColor
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6838
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6839	supportsColor isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6840	supportsColor := Printer supportsColor asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6841	supportsColor onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6842	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6843	^ supportsColor.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6844	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6845
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6846	topMargin
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6847
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6848	topMargin isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6849	topMargin := Printer topMargin asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6850	topMargin onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6851	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6852	^ topMargin.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6853	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6854
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6855	unitList
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6856
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6857	unitList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6858	unitList := #('inch' 'mm') asList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6859	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6860	^ unitList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6861	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6862
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6863	!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6864
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6865	printerTypeSelectionChanged
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6866	\| p hasPageSize hasMargins\|
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6867
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6868	self printerType selectionIndex ~~ 0 ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6869	p := self possiblePrinters at:(self printerType selectionIndex).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6870	hasPageSize := p supportsPageSizes.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6871	hasMargins := p supportsMargins.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6872	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6873	hasPageSize := false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6874	hasMargins := false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6875	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6876	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6877
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6878	printerTypeSelectionOrUnitListChanged
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6879	\| p hasPageSize hasMargins unit\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6880
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6881	self printerTypeSelection value ~~ 0 ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6882	p := self possiblePrinters at:(self printerTypeSelection value).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6883	hasPageSize := p supportsPageSizes.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6884	hasMargins := p supportsMargins.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6885	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6886	hasPageSize := false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6887	hasMargins := false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6888	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6889	self enablelandscape value:hasPageSize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6890	self enableFormat value:hasPageSize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6891	hasPageSize ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6892	self pageFormat value:(p pageFormat).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6893	self landscape value:(p landscape).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6894	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6895	self landscape value:false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6896	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6897	hasMargins ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6898	self selectedUnit value == 2 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6899	unit := #mm
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6900	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6901	unit := #inch
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6902	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6903
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6904	self topMargin value:(UnitConverter convert:p topMargin from:#inch to:unit).
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6905	self leftMargin value:(UnitConverter convert:p leftMargin from:#inch to:unit).
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6906	self rightMargin value:(UnitConverter convert:p rightMargin from:#inch to:unit).
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6907	self bottomMargin value:(UnitConverter convert:p bottomMargin from:#inch to:unit).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6908
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6909	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6910	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6911	self enableMargins value:hasMargins.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6912
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6913	p notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6914	\| newCommandList \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6915	newCommandList := p defaultCommands.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6916	newCommandList notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6917	self printCommandList contents:(newCommandList asList).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6918	self printCommandList changed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6919	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6920	self printCommand value:(p printCommand).
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6921	self printFilename value:(p printFilename ? '').
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6922	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6923	self enableColorBox value:p supportsPostscript.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6924	p supportsPostscript ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6925	self supportsColor value:false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6926	] ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6927	self supportsColor value:(Printer supportsColor).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6928	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6929	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6930
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6931	unitListChanged
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6932	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6933
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6934	update:something with:aParameter from:changedObject
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6935	(changedObject == self selectedUnit or:[changedObject == self printerTypeSelection]) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6936	self printerTypeSelectionOrUnitListChanged.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6937	^ self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6938	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6939
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6940	super update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6941	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6942
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6943	!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6944
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6945	commandList
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6946	commandList isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6947	commandList := resources at:'PRINT_COMMANDS' ifAbsent:nil.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6948	commandList isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6949	commandList := PrinterStream defaultCommands.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6950	commandList isNil ifTrue:[
5151 53c19d72ff59 Avoid warning about slow grow operation Stefan Vogel <sv@exept.de> parents: 5149 diff changeset	6951	commandList := #('lpr' 'lp').
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6952	].
5151 53c19d72ff59 Avoid warning about slow grow operation Stefan Vogel <sv@exept.de> parents: 5149 diff changeset	6953	(commandList includes:self printCommand value) ifFalse:[
53c19d72ff59 Avoid warning about slow grow operation Stefan Vogel <sv@exept.de> parents: 5149 diff changeset	6954	commandList := commandList copyWith:self printCommand value.
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6955	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6956	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6957	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6958	^ commandList
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6959	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6960
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6961	hasUnsavedChanges
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6962	\| printer unit\|
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6963
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6964	self selectedUnit value == 2 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6965	unit := #mm
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6966	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6967	unit := #inch
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6968	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6969	printer := self possiblePrinters at:(self printerTypeSelection value).
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6970
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6971	printer ~= Printer 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 printCommand ~= self printCommand value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6974	(Printer printFilename ? '') ~= (self printFilename value ? '') ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6975
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6976	Printer supportsPageSizes ifTrue:[
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6977	Printer pageFormat ~= self pageFormat value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6978	Printer landscape ~= (self landscape value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6979	].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6980	Printer supportsMargins ifTrue:[
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6981	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	6982	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	6983	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	6984	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	6985	].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6986	Printer supportsPostscript ifTrue:[
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6987	Printer supportsColor ~= self supportsColor value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6988	].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6989	^ false
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6990	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6991
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6992	possiblePrinters
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6993	possiblePrinters isNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6994	possiblePrinters := PrinterStream withAllSubclasses asArray.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6995	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6996	^ possiblePrinters
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6997	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6998
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6999	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7000
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7001	defaultIcon
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7002	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7003	by the ImageEditor of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7004
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7005	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7006	the ImageEditor may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7007
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	self defaultIcon inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7010	ImageEditor openOnClass:self andSelector:#defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7011	Icon flushCachedIcons
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7012	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7013
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7014	<resource: #image>
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	^Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7017	constantNamed:#'AbstractSettingsApplication::ProcessorSchedulerSettingsAppl class defaultIcon'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	7018	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	7019	@@@@@@@@@@@@@@@@@@@@ADQ@@@@@@@@@@DQBL2QD@@@@@@@DH"D3D"I@@@@@@DHQDSLQDRP@@@@DHQDQDQDQD$@@@DHQDQDQDQDQI@@@P!!DQDQDQDQD$@@AB
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	7020	DQDQDQLQDRP@ABDQDQDQLQDQD$@DHQDQDSLQDQDRP@P!!DQDQL1DQDQI@ABDQDQDQLQDQD$@@P!!DQDQDSDQD$@@ABDQDQDQD1DRP@@DHQDQDQDQLQI@@@ABDQ
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	7021	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	7022	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7023
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7024	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl class methodsFor:'interface specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7025
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7026	windowSpec
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7027	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7028	by the UIPainter of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7029
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7030	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7031	the UIPainter may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7032
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	UIPainter new openOnClass:AbstractSettingsApplication::ProcessorSchedulerSettingsAppl andSelector:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7035	AbstractSettingsApplication::ProcessorSchedulerSettingsAppl new openInterface:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7036	AbstractSettingsApplication::ProcessorSchedulerSettingsAppl open
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7037	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7038
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7039	<resource: #canvas>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7040
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7041	^
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7042	#(FullSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7043	name: windowSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7044	window:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7045	(WindowSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7046	label: 'Processor and Scheduler Settings'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7047	name: 'Processor and Scheduler Settings'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7048	min: (Point 10 10)
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7049	bounds: (Rectangle 14 46 614 366)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7050	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7051	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7052	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7053	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7054	(VerticalPanelViewSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7055	name: 'VerticalPanel2'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7056	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	7057	horizontalLayout: fit
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7058	verticalLayout: topSpace
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7059	horizontalSpace: 3
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7060	verticalSpace: 5
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7061	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7062	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7063	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7064	(CheckBoxSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7065	label: 'Preemptive Scheduling'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7066	name: 'CheckBox11'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7067	model: preemptive
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7068	translateLabel: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7069	extent: (Point 600 22)
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7070	)
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7071	(ViewSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7072	name: 'Box2'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7073	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7074	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7075	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7076	(CheckBoxSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7077	label: 'Dynamic Priorities'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7078	name: 'CheckBox12'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7079	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	7080	enableChannel: preemptive
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7081	model: dynamicPrios
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7082	translateLabel: true
4398 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	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7087	extent: (Point 600 23)
4398 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	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7093	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7094
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7095	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7096	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7097	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7098
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7099	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl methodsFor:'actions'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7100
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7101	basicSaveSettings
4574 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 isTimeSlicing ~~ self preemptive value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7104	self preemptive value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7105	Processor startTimeSlicing
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7106	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7107	Processor stopTimeSlicing
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7108	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7109	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7110	Processor supportDynamicPriorities ~~ self dynamicPrios value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7111	Processor supportDynamicPriorities:self dynamicPrios value
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7112	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7113	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7114
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	7115	helpFilename
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	7116	^ 'Launcher/miscSettings.html'
4398 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
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7119	readSettings
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7120	self preemptive value:Processor isTimeSlicing.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7121	self dynamicPrios value:Processor supportDynamicPriorities.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7122	self modifiedChannel value:false
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7123	! !
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	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl methodsFor:'aspects'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7126
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7127	dynamicPrios
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7128	dynamicPrios isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7129	dynamicPrios := true asValue.
5085 e22e91773cf9 have no save button enabled on timeSlicing changes penk parents: 5083 diff changeset	7130	dynamicPrios onChangeSend:#updateModifiedChannel to:self.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7131	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7132	^ dynamicPrios.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7133	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7134
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7135	preemptive
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7136	preemptive isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7137	preemptive := true asValue.
5085 e22e91773cf9 have no save button enabled on timeSlicing changes penk parents: 5083 diff changeset	7138	preemptive onChangeSend:#updateModifiedChannel to:self.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7139	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7140	^ preemptive.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7141	! !
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	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl methodsFor:'queries'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7144
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7145	hasUnsavedChanges
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	7146	self preemptive value ~= Processor isTimeSlicing ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	7147	self dynamicPrios value ~= Processor supportDynamicPriorities ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	7148	^ false
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7149	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7150
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7151	!AbstractSettingsApplication::RDoItServerSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7152
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7153	defaultIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7154	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7155	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7156
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7157	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7158	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7159
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7160	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7161	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7162	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7163	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7164	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7165
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7166	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7167
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7168	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7169	constantNamed:#'AbstractSettingsApplication::RDoItServerSettingsAppl class defaultIcon'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	7170	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	7171	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@&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	7172	''#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	7173	!!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	7174	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7175
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7176	!AbstractSettingsApplication::RDoItServerSettingsAppl class methodsFor:'interface specs'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7177
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7178	windowSpec
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7179	"This resource specification was automatically generated
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7180	by the UIPainter of ST/X."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7181
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7182	"Do not manually edit this!! If it is corrupted,
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7183	the UIPainter may not be able to read the specification."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7184
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7185	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7186	UIPainter new openOnClass:AbstractSettingsApplication::RDoItServerSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7187	AbstractSettingsApplication::RDoItServerSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7188	AbstractSettingsApplication::RDoItServerSettingsAppl open
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7189	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7190
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7191	<resource: #canvas>
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7192
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7193	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7194	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7195	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7196	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7197	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7198	label: 'RDoIt Server Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7199	name: 'RDoIt Server Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7200	min: (Point 10 10)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7201	bounds: (Rectangle 14 46 614 596)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7202	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7203	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7204	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7205	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7206	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7207	name: 'VerticalPanel2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7208	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	7209	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7210	verticalLayout: top
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7211	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7212	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7213	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7214	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7215	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7216	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7217	name: 'Box1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7218	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7219	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7220	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7221	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7222	label: 'Remote doits enabled'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7223	name: 'CheckBox1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7224	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	7225	enableChannel: hasRDoitServerClass
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7226	model: rDoitsEnabled
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7227	translateLabel: true
5086 b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	7228	)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	7229	)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	7230
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	7231	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7232	extent: (Point 600 25)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7233	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7234	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7235	name: 'Box2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7236	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7237	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7238	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7239	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7240	label: 'Port/Path:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7241	name: 'Label2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7242	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	7243	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7244	adjust: right
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7245	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7246	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7247	name: 'EntryField1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7248	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	7249	enableChannel: rDoitsEnabled
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7250	model: rDoitServerPortOrPath
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7251	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7252	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7253	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7254	acceptOnPointerLeave: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7255	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7256	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7257	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	7258	name: 'Label3'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7259	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	7260	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7261	adjust: left
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7262	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7263	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7264
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7265	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7266	extent: (Point 600 72)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7267	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7268	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7269	name: 'Box3'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7270	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7271	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7272	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7273	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7274	label: 'Log errors'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7275	name: 'CheckBox2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7276	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	7277	enableChannel: rDoitsEnabled
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7278	model: rDoitErrorLogging
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7279	translateLabel: true
5086 b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	7280	)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	7281	)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	7282
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	7283	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7284	extent: (Point 600 25)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7285	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7286	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7287	name: 'Box4'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7288	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7289	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7290	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7291	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7292	label: 'Log requests'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7293	name: 'CheckBox3'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7294	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	7295	enableChannel: rDoitsEnabled
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7296	model: rDoitLogging
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7297	translateLabel: true
5086 b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	7298	)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	7299	)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	7300
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	7301	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7302	extent: (Point 600 24)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7303	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7304	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7305	name: 'Box5'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7306	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7307	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7308	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7309	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7310	label: 'Debug errors'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7311	name: 'CheckBox4'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7312	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	7313	enableChannel: rDoitsEnabled
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7314	model: rDoitErrorDebugging
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7315	translateLabel: true
5086 b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	7316	)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	7317	)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	7318
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	7319	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7320	extent: (Point 600 23)
4310 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	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7326	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7327
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7328	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7329	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7330	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7331
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7332	!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'actions'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7333
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7334	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7335
5991 1f8b715b9c06 Fix rdoit settings: allow to specify a port number Stefan Vogel <sv@exept.de> parents: 5943 diff changeset	7336	\|shouldRun portOrPath\|
1f8b715b9c06 Fix rdoit settings: allow to specify a port number Stefan Vogel <sv@exept.de> parents: 5943 diff changeset	7337
1f8b715b9c06 Fix rdoit settings: allow to specify a port number Stefan Vogel <sv@exept.de> parents: 5943 diff changeset	7338	portOrPath := self rDoitServerPortOrPath value.
6064 94d7e5b3471d * empty log message * penk parents: 6058 diff changeset	7339	portOrPath isNumber ifFalse:[
5991 1f8b715b9c06 Fix rdoit settings: allow to specify a port number Stefan Vogel <sv@exept.de> parents: 5943 diff changeset	7340	"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	7341	portOrPath := portOrPath asInteger.
1f8b715b9c06 Fix rdoit settings: allow to specify a port number Stefan Vogel <sv@exept.de> parents: 5943 diff changeset	7342	].
1f8b715b9c06 Fix rdoit settings: allow to specify a port number Stefan Vogel <sv@exept.de> parents: 5943 diff changeset	7343
1f8b715b9c06 Fix rdoit settings: allow to specify a port number Stefan Vogel <sv@exept.de> parents: 5943 diff changeset	7344	RDoItServer defaultPortNumberOrPath:portOrPath.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7345	RDoItServer logging:self rDoitLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7346	RDoItServer errorLogging:self rDoitErrorLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7347	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	7348	shouldRun := self rDoitsEnabled value.
1f8b715b9c06 Fix rdoit settings: allow to specify a port number Stefan Vogel <sv@exept.de> parents: 5943 diff changeset	7349	shouldRun ~~ RDoItServer serverRunning ifTrue:[
1f8b715b9c06 Fix rdoit settings: allow to specify a port number Stefan Vogel <sv@exept.de> parents: 5943 diff changeset	7350	shouldRun ifFalse:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7351	RDoItServer stop
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7352	] ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7353	RDoItServer start.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7354	"/ must wait a bit; give it a chance to
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7355	"/ really start (before checking)
5991 1f8b715b9c06 Fix rdoit settings: allow to specify a port number Stefan Vogel <sv@exept.de> parents: 5943 diff changeset	7356	Delay waitForSeconds:1.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7357	RDoItServer serverRunning ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7358	self warn:'RDoit startup failed (see stderr).'
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7359	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7360	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7361	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7362	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7363
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	7364	helpFilename
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	7365	^ 'Launcher/communicationsSettings.html'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7366	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7367
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7368	readSettings
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7369	(self hasRDoitServer and:[RDoItServer isLoaded]) ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7370	self rDoitsEnabled value:RDoItServer serverRunning.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7371	self rDoitLogging value:RDoItServer isLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7372	self rDoitErrorLogging value:RDoItServer isErrorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7373	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	7374	self rDoitServerPortOrPath value:RDoItServer defaultPortNumberOrPath
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7375	] ifFalse:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7376	self rDoitsEnabled value:false.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7377	self rDoitLogging value:false.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7378	self rDoitErrorLogging value:false.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7379	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	7380	self rDoitServerPortOrPath value:nil
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7381	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7382	self modifiedChannel value:false
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7383	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7384
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7385	!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'aspects'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7386
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7387	rDoitErrorDebugging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7388
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7389	rDoitErrorDebugging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7390	rDoitErrorDebugging := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7391	rDoitErrorDebugging onChangeSend:#updateModifiedChannel to:self
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7392	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7393	^ rDoitErrorDebugging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7394	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7395
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7396	rDoitErrorLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7397
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7398	rDoitErrorLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7399	rDoitErrorLogging := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7400	rDoitErrorLogging onChangeSend:#updateModifiedChannel to:self
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7401	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7402	^ rDoitErrorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7403	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7404
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7405	rDoitLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7406
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7407	rDoitLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7408	rDoitLogging := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7409	rDoitLogging onChangeSend:#updateModifiedChannel to:self
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7410	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7411	^ rDoitLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7412	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7413
5032 2a26da89dada allow for rdoitPort to be a string (for ud sockets) Claus Gittinger <cg@exept.de> parents: 5031 diff changeset	7414	rDoitServerPortOrPath
2a26da89dada allow for rdoitPort to be a string (for ud sockets) Claus Gittinger <cg@exept.de> parents: 5031 diff changeset	7415
2a26da89dada allow for rdoitPort to be a string (for ud sockets) Claus Gittinger <cg@exept.de> parents: 5031 diff changeset	7416	rDoitServerPortOrPath isNil ifTrue:[
2a26da89dada allow for rdoitPort to be a string (for ud sockets) Claus Gittinger <cg@exept.de> parents: 5031 diff changeset	7417	rDoitServerPortOrPath := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7418	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	7419	].
2a26da89dada allow for rdoitPort to be a string (for ud sockets) Claus Gittinger <cg@exept.de> parents: 5031 diff changeset	7420	^ rDoitServerPortOrPath.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7421	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7422
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7423	rDoitsEnabled
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7424
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7425	rDoitsEnabled isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7426	rDoitsEnabled := true asValue.
4675 40c7fa2ca3e5 rDoit - enablement fixed. Claus Gittinger <cg@exept.de> parents: 4658 diff changeset	7427	rDoitsEnabled onChangeSend:#rDoitsEnabledChanged to:self
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7428	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7429	^ rDoitsEnabled.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7430	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7431
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7432	!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'change & update'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7433
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7434	rDoitsEnabledChanged
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7435	self updateModifiedChannel.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7436	self rDoitsEnabled value ifTrue:[
5991 1f8b715b9c06 Fix rdoit settings: allow to specify a port number Stefan Vogel <sv@exept.de> parents: 5943 diff changeset	7437	rDoitServerPortOrPath value isEmptyOrNil ifTrue:[
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7438	rDoitServerPortOrPath value:(RDoItServer defaultPortNumberOrPath)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7439	]
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7440	]
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7441	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7442
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7443	update:something with:aParameter from:changedObject
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7444	changedObject == self rDoitsEnabled ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7445	self rDoitsEnabledChanged.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7446	^ self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7447	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7448
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7449	super update:something with:aParameter from:changedObject
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7450	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7451
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7452	!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'queries'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7453
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7454	hasRDoitServer
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7455
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7456	^ RDoItServer notNil and:[RDoItServer isLoaded]
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7457	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7458
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7459	hasRDoitServerClass
4675 40c7fa2ca3e5 rDoit - enablement fixed. Claus Gittinger <cg@exept.de> parents: 4658 diff changeset	7460	^ RDoItServer notNil
40c7fa2ca3e5 rDoit - enablement fixed. Claus Gittinger <cg@exept.de> parents: 4658 diff changeset	7461	!
40c7fa2ca3e5 rDoit - enablement fixed. Claus Gittinger <cg@exept.de> parents: 4658 diff changeset	7462
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7463	hasUnsavedChanges
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7464	(self hasRDoitServer and:[RDoItServer isLoaded]) ifTrue:[
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	7465	self rDoitsEnabled value ~= RDoItServer serverRunning ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	7466	RDoItServer serverRunning ifTrue:[
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	7467	self rDoitLogging value ~= RDoItServer isLogging ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	7468	self rDoitErrorLogging value ~= RDoItServer isErrorLogging ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	7469	self rDoitErrorDebugging value ~= RDoItServer isErrorCatching not ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	7470	self rDoitServerPortOrPath value ~= RDoItServer defaultPortNumberOrPath ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	7471	]
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7472	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7473	^ false
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7474	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7475
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7476	!AbstractSettingsApplication::STCCompilerSettingsAppl class methodsFor:'defaults'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7477
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7478	stcCompilationOptions
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7479
5278 67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	7480	^ #(default never)
67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	7481	!
67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	7482
67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	7483	stcCompilationStrings
67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	7484
67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	7485	^ #('primitive code only' 'never')
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7486	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7487
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7488	!AbstractSettingsApplication::STCCompilerSettingsAppl class methodsFor:'image specs'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7489
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7490	defaultIcon
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7491	"This resource specification was automatically generated
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7492	by the ImageEditor of ST/X."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7493
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7494	"Do not manually edit this!! If it is corrupted,
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7495	the ImageEditor may not be able to read the specification."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7496
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	self defaultIcon inspect
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7499	ImageEditor openOnClass:self andSelector:#defaultIcon
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7500	Icon flushCachedIcons
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7501	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7502
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7503	<resource: #image>
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7504
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7505	^Icon
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7506	constantNamed:#'AbstractSettingsApplication::STCCompilerSettingsAppl class defaultIcon'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	7507	ifAbsentPut:[(Depth1Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@B@@@B@@@@@@@AG.=1G.=0D*%PG.=0@@@@G??1FHH0E>7PE>70F^70G.71G.7PD^80G??0@@@@@@@@@@@@@@@@') ; colorMapFromArray:#[0 0 0 255 255 255]; mask:((ImageMask new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8@@@@@@@@@@@@') ; yourself); yourself]
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7508	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7509
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7510	!AbstractSettingsApplication::STCCompilerSettingsAppl class methodsFor:'interface specs'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7511
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7512	windowSpec
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7513	"This resource specification was automatically generated
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7514	by the UIPainter of ST/X."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7515
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7516	"Do not manually edit this!! If it is corrupted,
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7517	the UIPainter may not be able to read the specification."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7518
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7519	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7520	UIPainter new openOnClass:AbstractSettingsApplication::STCCompilerSettingsAppl andSelector:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7521	AbstractSettingsApplication::STCCompilerSettingsAppl new openInterface:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7522	AbstractSettingsApplication::STCCompilerSettingsAppl open
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7523	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7524
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7525	<resource: #canvas>
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7526
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7527	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7528	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7529	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7530	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7531	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7532	label: 'STC Compiler Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7533	name: 'STC Compiler Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7534	min: (Point 10 10)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7535	bounds: (Rectangle 14 46 614 660)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7536	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7537	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7538	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7539	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7540	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7541	name: 'VerticalPanel2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7542	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	7543	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7544	verticalLayout: top
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7545	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7546	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7547	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7548	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7549	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7550	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7551	name: 'Box11'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7552	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7553	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7554	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7555	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7556	label: 'STC Compilation to Machine Code'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7557	name: 'Label11'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7558	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	7559	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7560	adjust: right
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7561	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7562	(PopUpListSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7563	label: 'PopUp List'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7564	name: 'StcCompilation'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7565	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	7566	tabable: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7567	model: stcCompilationSelection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7568	enableChannel: canLoadBinaries
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7569	menu: stcCompilationList
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7570	useIndex: true
4387 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	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7573
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7574	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7575	extent: (Point 600 29)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7576	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7577	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7578	name: 'Box1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7579	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7580	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7581	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7582	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7583	label: 'STC Command:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7584	name: 'Label1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7585	layout: (LayoutFrame 5 0 0 0 132 0 22 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7586	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7587	adjust: right
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7588	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7589	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7590	name: 'EntryField1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7591	layout: (LayoutFrame 139 0 0 0 -5 1 22 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7592	enableChannel: canLoadBinaries
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7593	model: stc
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7594	acceptOnLeave: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7595	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7596	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7597	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7598	acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7599	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7600	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7601
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7602	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7603	extent: (Point 600 35)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7604	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7605	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7606	name: 'Box2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7607	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7608	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7609	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7610	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7611	label: 'STC Options:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7612	name: 'Label2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7613	layout: (LayoutFrame 5 0 0 0 132 0 22 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7614	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7615	adjust: right
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7616	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7617	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7618	name: 'EntryField2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7619	layout: (LayoutFrame 139 0 0 0 -5 1 22 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7620	enableChannel: canLoadBinaries
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7621	model: stcOptions
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7622	acceptOnLeave: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7623	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7624	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7625	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7626	acceptOnPointerLeave: 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 35)
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
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7634	name: 'Box3'
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: 'CC Command:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7640	name: 'Label3'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7641	layout: (LayoutFrame 5 0 0 0 132 0 22 0)
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: 'EntryField3'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7647	layout: (LayoutFrame 139 0 0 0 -5 1 22 0)
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: cc
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
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7662	name: 'Box4'
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: 'CC Options:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7668	name: 'Label4'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7669	layout: (LayoutFrame 5 0 0 0 132 0 22 0)
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: 'EntryField4'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7675	layout: (LayoutFrame 139 0 0 0 -5 1 22 0)
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: ccOptions
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
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7690	name: 'Box5'
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: 'Include Directories:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7696	name: 'Label5'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7697	layout: (LayoutFrame 5 0 0 0 132 0 22 0)
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: 'EntryField5'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7703	layout: (LayoutFrame 139 0 0 0 -5 1 22 0)
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: stcIncludes
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
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7718	name: 'Box6'
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: 'Defines:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7724	name: 'Label6'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7725	layout: (LayoutFrame 5 0 0 0 132 0 22 0)
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: 'EntryField6'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7731	layout: (LayoutFrame 139 0 0 0 -5 1 22 0)
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: stcDefines
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 34)
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
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7746	name: 'Box7'
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: 'Link Command:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7752	name: 'Label7'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7753	layout: (LayoutFrame 5 0 0 0 132 0 22 0)
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: 'EntryField7'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7759	layout: (LayoutFrame 139 0 0 0 -5 1 22 0)
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: linkCommand
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 33)
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
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7774	name: 'Box8'
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: 'Link Arguments:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7780	name: 'Label8'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7781	layout: (LayoutFrame 5 0 0 0 132 0 22 0)
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: 'EntryField8'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7787	layout: (LayoutFrame 139 0 0 0 -5 1 22 0)
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: linkArgs
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 32)
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
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7802	name: 'Box9'
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: 'C-Libraries:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7808	name: 'Label9'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7809	layout: (LayoutFrame 5 0 0 0 132 0 22 0)
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: 'EntryField9'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7815	layout: (LayoutFrame 139 0 0 0 -5 1 22 0)
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: stcLibraries
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 31)
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
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7830	name: 'Box10'
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: 'STC Library Path:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7836	name: 'Label10'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7837	layout: (LayoutFrame 5 0 0 0 132 0 22 0)
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: 'EntryField10'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7843	layout: (LayoutFrame 139 0 0 0 -5 1 22 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7844	enableChannel: enableStcLibraryPath
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7845	model: stcLibraryPath
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 30)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7856	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7857	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7858
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7859	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7860	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7861	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7862
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7863	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7864	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7865	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7866
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7867	!AbstractSettingsApplication::STCCompilerSettingsAppl methodsFor:'actions'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7868
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7869	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7870
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7871	Compiler stcCompilation:(self class stcCompilationOptions at:self stcCompilationSelection value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7872	Compiler stcCompilationIncludes:self stcIncludes value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7873	Compiler stcCompilationDefines:self stcDefines value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7874	Compiler stcCompilationOptions:self stcOptions value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7875	Compiler ccCompilationOptions:self ccOptions value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7876	Compiler ccPath:self cc value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7877	self stc value ~= Compiler stcPath ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7878	Compiler stcPath:self stc value
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7879	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7880	ObjectFileLoader linkCommand:self linkCommand value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7881	ObjectFileLoader linkArgs:self linkArgs value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7882	ObjectFileLoader notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7883	self stcLibraries value notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7884	ObjectFileLoader searchedLibraries:(self stcLibraries value asCollectionOfWords).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7885	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7886	stcLibraryPath notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7887	ObjectFileLoader libPath:(self stcLibraryPath value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7888	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7889	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7890	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7891
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	7892	helpFilename
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	7893	^ 'Launcher/compilerSettings.html'
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7894	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7895
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7896	readSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7897	self canLoadBinaries
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7898	value:(ObjectFileLoader notNil and:[ObjectFileLoader canLoadObjectFiles]).
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7899	self stcIncludes value:Compiler stcCompilationIncludes.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7900	self stcDefines value:Compiler stcCompilationDefines.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7901	self stcOptions value:Compiler stcCompilationOptions.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7902	self ccOptions value:Compiler ccCompilationOptions.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7903	self cc value:Compiler ccPath.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7904	self stc value:Compiler stcPath.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7905	self linkCommand value:ObjectFileLoader linkCommand.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7906	self linkArgs value:ObjectFileLoader linkArgs.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7907	ObjectFileLoader notNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7908	\|t\|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7909
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7910	(t := ObjectFileLoader searchedLibraries) notNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7911	self stcLibraries value:(String fromStringCollection:t separatedBy:' ')
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7912	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7913	(t := ObjectFileLoader libPath) notNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7914	self stcLibraryPath value:t
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7915	]
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7916	].
5278 67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	7917
67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	7918	self stcCompilationSelection value:(self class stcCompilationOptions
67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	7919	indexOf:(Compiler stcCompilation)
67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	7920	ifAbsent:1).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7921	self modifiedChannel value:false
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7922	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7923
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7924	!AbstractSettingsApplication::STCCompilerSettingsAppl methodsFor:'aspects'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7925
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7926	canLoadBinaries
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7927
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7928	canLoadBinaries isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7929	canLoadBinaries := (ObjectFileLoader notNil and:[ObjectFileLoader canLoadObjectFiles]) asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7930	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7931	^ canLoadBinaries.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7932	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7933
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7934	cc
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7935
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7936	cc isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7937	cc := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7938	cc onChangeSend:#updateModifiedChannel to:self.
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7939	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7940	^ cc.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7941	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7942
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7943	ccOptions
4387 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	ccOptions isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7946	ccOptions := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7947	ccOptions onChangeSend:#updateModifiedChannel to:self.
4387 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	^ ccOptions.
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
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7952	enableStcLibraryPath
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7953
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7954	^ (ObjectFileLoader libPath notNil and:[self canLoadBinaries])
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7955	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7956
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7957	linkArgs
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7958
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7959	linkArgs isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7960	linkArgs := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7961	linkArgs onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7962	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7963	^ linkArgs.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7964	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7965
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7966	linkCommand
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7967
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7968	linkCommand isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7969	linkCommand := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7970	linkCommand onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7971	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7972	^ linkCommand.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7973	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7974
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7975	stc
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7976
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7977	stc isNil ifTrue:[
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7978	stc := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7979	stc onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7980	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7981	^ stc.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7982	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7983
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7984	stcCompilationList
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7985
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7986	stcCompilationList isNil ifTrue:[
5278 67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	7987	stcCompilationList := (resources array:(self class stcCompilationStrings)) asList.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7988	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7989	^ stcCompilationList.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7990	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7991
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7992	stcCompilationSelection
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7993
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7994	stcCompilationSelection isNil ifTrue:[
5278 67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	7995	stcCompilationSelection := (self class stcCompilationOptions indexOf:(Compiler stcCompilation) ifAbsent:1) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7996	stcCompilationSelection onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7997	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7998	^ stcCompilationSelection.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7999	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8000
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8001	stcDefines
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8002
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8003	stcDefines isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8004	stcDefines := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	8005	stcDefines onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8006	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8007	^ stcDefines.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8008	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8009
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8010	stcIncludes
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	stcIncludes isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8013	stcIncludes := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	8014	stcIncludes onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8015	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8016	^ stcIncludes.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8017	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8018
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8019	stcLibraries
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8020
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8021	stcLibraries isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8022	stcLibraries := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	8023	stcLibraries onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8024	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8025	^ stcLibraries.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8026	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8027
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8028	stcLibraryPath
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8029
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8030	stcLibraryPath isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8031	stcLibraryPath := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	8032	stcLibraryPath onChangeSend:#updateModifiedChannel to:self.
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	^ stcLibraryPath.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8035	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8036
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8037	stcOptions
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8038
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8039	stcOptions isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8040	stcOptions := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	8041	stcOptions onChangeSend:#updateModifiedChannel to:self.
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	^ stcOptions.
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
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8046	!AbstractSettingsApplication::STCCompilerSettingsAppl methodsFor:'queries'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8047
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8048	hasUnsavedChanges
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8049	\| searchedLibs \|
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8050
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8051	searchedLibs := ObjectFileLoader searchedLibraries.
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8052
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8053	((Compiler stcCompilation) ~= (self class stcCompilationOptions at:self stcCompilationSelection value)) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8054	((ObjectFileLoader notNil and:[ObjectFileLoader canLoadObjectFiles]) ~= self canLoadBinaries value ) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8055	((Compiler stcCompilationIncludes) ~= self stcIncludes value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8056	((Compiler stcCompilationDefines) ~= self stcDefines value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8057	((Compiler stcCompilationOptions) ~= self stcOptions value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8058	((Compiler ccCompilationOptions) ~= self ccOptions value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8059	((Compiler ccPath) ~= self cc value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8060	((Compiler stcPath) ~= self stc value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8061	((ObjectFileLoader linkCommand) ~= self linkCommand value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8062	((ObjectFileLoader linkArgs) ~= self linkArgs value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8063
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8064	ObjectFileLoader notNil ifTrue:[
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8065	searchedLibs notNil ifTrue:[
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8066	(String fromStringCollection:searchedLibs separatedBy:' ') ~= self stcLibraries value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8067	].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8068	ObjectFileLoader libPath notNil ifTrue:[
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8069	ObjectFileLoader libPath ~= self stcLibraryPath value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8070	].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8071	].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8072	^ false.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8073	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8074
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8075	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl class methodsFor:'defaults'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8076
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8077	exampleText
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8078
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8079	^ 'methodSelector:methodArg
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8080	"method comment:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8081	some stupid code to show the current settings"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8082
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8083	\|index\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8084
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8085	"/ another comment ...
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8086	self at:index+1. "/ a message
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8087	self at:index put:methodArg. "/ a two arg message
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8088	self from:1 to:index put:methodArg. "/ a three arg message
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8089	methodArg ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8090	Transcript showCR:''hello''. "/ condition
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8091	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8092	methodArg ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8093	Transcript showCR:''hello''. "/ condition
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8094	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8095	Transcript showCR:''world''.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8096	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8097	[methodArg] whileTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8098	Transcript showCR:''hello''. "/ looping
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8099	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8100	[self aVeryLongConditionBlock and:[self toMakeBlockLonger]] whileTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8101	Transcript showCR:''hello''. "/ long blocks
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8102	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8103	methodArg do:[:element \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8104	Transcript showCR:''hello''. "/ looping
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8105	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8106	1 to:methodArg size do:[:index \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8107	Transcript showCR:''hello''. "/ looping
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8108	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8109	methodArg keysAndValuesDo:[:index \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8110	Transcript showCR:''hello''. "/ looping
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8111	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8112	Object errorSignal handle:[:ex \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8113	ex return
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8114	] do:[ "/ exception handling
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8115	self someAction "/ blocks
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8116	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8117	^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8118	'.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8119	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8120
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8121	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl class methodsFor:'image specs'!
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8122
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8123	defaultIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8124	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8125	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8126
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8127	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8128	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8129
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8130	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8131	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8132	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8133	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8134	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8135
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8136	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8137
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8138	^Icon
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	8139	constantNamed:#'AbstractSettingsApplication::SourceCodeFormatSettingsAppl class defaultIcon'
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	8140	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	8141	*****************************("H"H"H"H"J(@"EUUU%UUUU@@^*HUUUVUUUU@@]:(!!UUUYUUUT@A7"FY&Y&Y&X@]7^HUUUVUU@@]7\Z*(
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	8142	!!UUUYU@@]7\R"EUUU%T@A7]1JHY&Y&XC]7\Q&(!!UUU(3M7\Y&"EUUU#L3L2QJHY&Z#L3L6)D(!!&YL3L6Z$R*"EUUP3M&ZEQJ*HUU
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	8143	RRY(UUUD**(")J***$R"J)J***QJHUUUZUUUUUDTQDQDQDQDQDR*************(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	8144	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8145
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8146	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl class methodsFor:'interface specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8147
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8148	windowSpec
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8149	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8150	by the UIPainter of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8151
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8152	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8153	the UIPainter may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8154
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8155	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8156	UIPainter new openOnClass:AbstractSettingsApplication::SourceCodeFormatSettingsAppl andSelector:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8157	AbstractSettingsApplication::SourceCodeFormatSettingsAppl new openInterface:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8158	AbstractSettingsApplication::SourceCodeFormatSettingsAppl open
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8159	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8160
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8161	<resource: #canvas>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8162
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8163	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8164	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8165	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8166	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8167	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8168	label: 'Code Format Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8169	name: 'Code Format Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8170	min: (Point 10 10)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8171	bounds: (Rectangle 0 0 604 676)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8172	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8173	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8174	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8175	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8176	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8177	name: 'VerticalPanel3'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8178	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	8179	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8180	verticalLayout: topSpace
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8181	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8182	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8183	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8184	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8185	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8186	(VerticalPanelViewSpec
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8187	name: 'VerticalPanel1'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8188	horizontalLayout: fit
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8189	verticalLayout: bottom
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8190	horizontalSpace: 3
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8191	verticalSpace: 3
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8192	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8193	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8194	collection: (
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8195	(ViewSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8196	name: 'Box1'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8197	component:
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8198	(SpecCollection
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8199	collection: (
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8200	(CheckBoxSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8201	label: 'Space around Temporaries'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8202	name: 'CheckBox3'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8203	layout: (LayoutFrame 0 0 0 0 250 0 22 0)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8204	model: spaceAroundTemporaries
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8205	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8206	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8207	(CheckBoxSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8208	label: 'Blank line after local Var Declaration'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8209	name: 'CheckBox4'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8210	layout: (LayoutFrame 250 0 0 0 0 1 22 0)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8211	model: emptyLineAfterTemporaries
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8212	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8213	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8214	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8215
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8216	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8217	extent: (Point 604 22)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8218	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8219	(ViewSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8220	name: 'Box11'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8221	component:
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8222	(SpecCollection
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8223	collection: (
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8224	(CheckBoxSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8225	label: 'Space after ''^'''
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8226	name: 'CheckBox5'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8227	layout: (LayoutFrame 0 0 0 0 250 0 22 0)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8228	model: spaceAfterReturnToken
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8229	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8230	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8231	(CheckBoxSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8232	label: 'Space after '':'' in Keywords'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8233	name: 'CheckBox6'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8234	layout: (LayoutFrame 250 0 0 0 -5 1 22 0)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8235	model: spaceAfterKeywordSelector
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8236	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8237	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8238	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8239
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8240	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8241	extent: (Point 604 22)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8242	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8243	(ViewSpec
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8244	name: 'Box15'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8245	component:
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8246	(SpecCollection
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8247	collection: (
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8248	(CheckBoxSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8249	label: 'Space after ''['''
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8250	name: 'CheckBox9'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8251	layout: (LayoutFrame 0 0 0 0 250 0 22 0)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8252	model: spaceAfterBlockStart
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8253	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8254	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8255	(CheckBoxSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8256	label: 'Space before '']'''
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8257	name: 'CheckBox10'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8258	layout: (LayoutFrame 250 0 0 0 -5 1 22 0)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8259	model: spaceBeforeBlockEnd
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8260	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8261	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8262	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8263
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8264	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8265	extent: (Point 604 22)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8266	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8267	(ViewSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8268	name: 'Box12'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8269	component:
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8270	(SpecCollection
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8271	collection: (
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8272	(CheckBoxSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8273	label: 'Block Args on new Line'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8274	name: 'CheckBox7'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8275	layout: (LayoutFrame 250 0 0 0 -5 1 22 0)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8276	model: blockArgumentsOnNewLine
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8277	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8278	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8279	(CheckBoxSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8280	label: 'C-Style Blocks'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8281	name: 'CheckBox8'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8282	layout: (LayoutFrame 0 0 0 0 250 0 22 0)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8283	model: cStyleBlocks
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8284	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8285	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8286	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8287
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8288	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8289	extent: (Point 604 22)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8290	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8291	(ViewSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8292	name: 'Box13'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8293	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8294	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8295	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8296	(LabelSpec
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8297	label: 'Indent:'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8298	name: 'Label1'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8299	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	8300	translateLabel: true
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8301	adjust: right
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8302	)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8303	(InputFieldSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8304	name: 'EntryField1'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8305	layout: (LayoutFrame 253 0 0 0 300 0 22 0)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8306	model: tabIndent
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8307	type: number
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8308	acceptOnReturn: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8309	acceptOnTab: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8310	acceptOnLostFocus: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8311	acceptOnPointerLeave: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8312	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8313	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8314
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8315	)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8316	extent: (Point 604 30)
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: 'Box16'
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	(LabelSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8324	label: 'Max Length for Single Line Blocks:'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8325	name: 'Label5'
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	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8328	adjust: right
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	(InputFieldSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8331	name: 'EntryField4'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8332	layout: (LayoutFrame 253 0 0 0 300 0 22 0)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8333	model: maxLengthForSingleLineBlocks
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8334	type: number
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8335	acceptOnReturn: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8336	acceptOnTab: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8337	acceptOnLostFocus: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8338	acceptOnPointerLeave: true
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	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8341
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8342	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8343	extent: (Point 604 29)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8344	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8345	(HorizontalPanelViewSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8346	name: 'HorizontalPanel1'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8347	horizontalLayout: fitSpace
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8348	verticalLayout: bottom
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8349	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8350	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8351	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8352	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8353	collection: (
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8354	(ActionButtonSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8355	label: 'Reset to ST/X Default'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8356	name: 'Button1'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8357	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8358	model: resetToStxDefault
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8359	extent: (Point 297 22)
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8360	)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8361	(ActionButtonSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8362	label: 'Reset to RefactoryBrowser Default'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8363	name: 'Button2'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8364	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8365	model: resetToRBDefault
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8366	extent: (Point 298 22)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8367	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8368	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8369
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8370	)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8371	extent: (Point 604 30)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8372	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8373	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8374
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8375	)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8376	extent: (Point 604 180)
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	(ViewSpec
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	8379	name: 'SpacingBox1'
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	8380	extent: (Point 604 10)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8381	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8382	(ViewSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8383	name: 'Box14'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8384	component:
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8385	(SpecCollection
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8386	collection: (
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8387	(LabelSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8388	label: 'Sample Output:'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8389	name: 'Label3'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8390	layout: (LayoutFrame 0 0 0 0 0 1 22 0)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8391	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8392	adjust: left
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8393	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8394	(TextEditorSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8395	name: 'TextEditor3'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8396	layout: (LayoutFrame 0 0 22 0 0 1 300 0)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8397	model: editorText
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8398	hasHorizontalScrollBar: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8399	hasVerticalScrollBar: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8400	isReadOnly: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8401	postBuildCallback: postBuildTextEditor:
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8402	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8403	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8404
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8405	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8406	extent: (Point 604 300)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8407	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8408	(ViewSpec
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	8409	name: 'SpacingBox2'
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	8410	extent: (Point 604 10)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8411	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8412	(CheckBoxSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8413	label: 'Auto Format'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8414	name: 'CheckBox2'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8415	model: autoFormat
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8416	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8417	extent: (Point 604 22)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8418	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8419	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8420
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8421	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8422	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8423	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8424
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8425	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8426	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8427	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8428
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8429	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'actions'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8430
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8431	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8432
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8433	currentUserPrefs autoFormatting:self autoFormat value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8434	currentUserPrefs at:#'formatter.tabIndent' put:self tabIndent value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8435	currentUserPrefs at:#'formatter.spaceAroundTemporaries' put:self spaceAroundTemporaries value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8436	currentUserPrefs at:#'formatter.emptyLineAfterTemporaries' put:self emptyLineAfterTemporaries value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8437	currentUserPrefs at:#'formatter.spaceAfterReturnToken' put:self spaceAfterReturnToken value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8438	currentUserPrefs at:#'formatter.spaceAfterKeywordSelector' put:self spaceAfterKeywordSelector value.
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8439	currentUserPrefs at:#'formatter.spaceAfterBlockStart' put:self spaceAfterBlockStart value.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8440	currentUserPrefs at:#'formatter.spaceBeforeBlockEnd' put:self spaceBeforeBlockEnd value.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8441	currentUserPrefs at:#'formatter.cStyleBlocks' put:self cStyleBlocks value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8442	currentUserPrefs at:#'formatter.blockArgumentsOnNewLine' put:self blockArgumentsOnNewLine value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8443	currentUserPrefs at:#'formatter.maxLengthForSingleLineBlocks' put:self maxLengthForSingleLineBlocks value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8444	RBFormatter
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8445	tabIndent:self tabIndent value;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8446	spaceAroundTemporaries:self spaceAroundTemporaries value;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8447	emptyLineAfterTemporaries:self emptyLineAfterTemporaries value;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8448	spaceAfterReturnToken:self spaceAfterReturnToken value;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8449	spaceAfterKeywordSelector:self spaceAfterKeywordSelector value;
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8450	spaceAfterBlockStart:self spaceAfterBlockStart value;
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8451	spaceBeforeBlockEnd:self spaceBeforeBlockEnd value;
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8452	cStyleBlocks:self cStyleBlocks value;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8453	blockArgumentsOnNewLine:self blockArgumentsOnNewLine value;
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	8454	maxLengthForSingleLineBlocks:self maxLengthForSingleLineBlocks value asInteger.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8455	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8456
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	8457	helpFilename
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	8458	^ 'Launcher/sourceFormatSettings.html'
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8459	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8460
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8461	readSettings
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8462	reformatLocked := true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8463	self autoFormat value:currentUserPrefs autoFormatting.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8464	self tabIndent value:RBFormatter tabIndent.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8465	self spaceAroundTemporaries value:RBFormatter spaceAroundTemporaries.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8466	self emptyLineAfterTemporaries
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	8467	value:RBFormatter emptyLineAfterTemporaries.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8468	self spaceAfterReturnToken value:RBFormatter spaceAfterReturnToken.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8469	self spaceAfterKeywordSelector
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	8470	value:RBFormatter spaceAfterKeywordSelector.
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8471	self spaceAfterBlockStart value:RBFormatter spaceAfterBlockStart.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8472	self spaceBeforeBlockEnd value:RBFormatter spaceBeforeBlockEnd.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8473	self cStyleBlocks value:RBFormatter cStyleBlocks.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8474	self blockArgumentsOnNewLine value:RBFormatter blockArgumentsOnNewLine.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8475	self maxLengthForSingleLineBlocks
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	8476	value:RBFormatter maxLengthForSingleLineBlocks.
c72e35116b13 instable state penk parents: 5040 diff changeset	8477	self updateModifiedChannel.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8478	reformatLocked := false.
4581 d61fec7a9e4f * empty log message * penk parents: 4574 diff changeset	8479	self reformat.
d61fec7a9e4f * empty log message * penk parents: 4574 diff changeset	8480	self modifiedChannel value:false
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8481	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8482
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8483	reformat
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8484
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8485	\|tree s_tabIndent s_spaceAroundTemporaries s_emptyLineAfterTemporaries
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8486	s_spaceAfterReturnToken s_spaceAfterKeywordSelector s_cStyleBlocks
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8487	s_maxLengthForSingleLineBlocks s_blockArgumentsOnNewLine
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8488	s_spaceAfterBlockStart s_spaceBeforeBlockEnd\|
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8489
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8490	reformatLocked ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8491	"/
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8492	"/ temporary change the RBFormatters settings ...
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8493	"/
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8494	s_tabIndent := RBFormatter tabIndent.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8495	s_spaceAroundTemporaries := RBFormatter spaceAroundTemporaries.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8496	s_emptyLineAfterTemporaries := RBFormatter emptyLineAfterTemporaries.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8497	s_spaceAfterReturnToken := RBFormatter spaceAfterReturnToken.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8498	s_spaceAfterKeywordSelector := RBFormatter spaceAfterKeywordSelector.
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8499	s_spaceAfterBlockStart := RBFormatter spaceAfterBlockStart.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8500	s_spaceBeforeBlockEnd := RBFormatter spaceBeforeBlockEnd.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8501	s_cStyleBlocks := RBFormatter cStyleBlocks.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8502	s_blockArgumentsOnNewLine := RBFormatter blockArgumentsOnNewLine.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8503	s_maxLengthForSingleLineBlocks := RBFormatter maxLengthForSingleLineBlocks.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8504
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8505	RBFormatter
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8506	tabIndent:self tabIndent value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8507	spaceAroundTemporaries:self spaceAroundTemporaries value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8508	emptyLineAfterTemporaries:self emptyLineAfterTemporaries value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8509	spaceAfterReturnToken:self spaceAfterReturnToken value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8510	spaceAfterKeywordSelector:self spaceAfterKeywordSelector value;
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8511	spaceAfterBlockStart:self spaceAfterBlockStart value;
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8512	spaceBeforeBlockEnd:self spaceBeforeBlockEnd value;
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8513	cStyleBlocks:self cStyleBlocks value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8514	blockArgumentsOnNewLine:self blockArgumentsOnNewLine value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8515	maxLengthForSingleLineBlocks:self maxLengthForSingleLineBlocks value.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8516
5076 c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	8517	"/ tree := RBParser
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	8518	"/ parseMethod:self class exampleText
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	8519	"/ onError: [:aString :position \| nil].
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	8520	"/ tree do:[:node \|
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	8521	"/ (node ~~ tree and:[node parent isNil]) ifTrue:[
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	8522	"/ self error:'No parent for node'.
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	8523	"/ ]
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	8524	"/ ].
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	8525	"/ self editorText value:tree printString.
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	8526	self editorText value:(RBFormatter format:(self class exampleText)).
4398 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	RBFormatter
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8529	tabIndent:s_tabIndent;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8530	spaceAroundTemporaries:s_spaceAroundTemporaries;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8531	emptyLineAfterTemporaries:s_emptyLineAfterTemporaries;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8532	spaceAfterReturnToken:s_spaceAfterReturnToken;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8533	spaceAfterKeywordSelector:s_spaceAfterKeywordSelector;
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8534	spaceAfterBlockStart:s_spaceAfterBlockStart;
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8535	spaceBeforeBlockEnd:s_spaceBeforeBlockEnd;
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8536	cStyleBlocks:s_cStyleBlocks;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8537	blockArgumentsOnNewLine:s_blockArgumentsOnNewLine;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8538	maxLengthForSingleLineBlocks:s_maxLengthForSingleLineBlocks.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8539	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8540	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8541
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8542	resetToRBDefault
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8543
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8544	reformatLocked := true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8545	self tabIndent value: 8.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8546	self spaceAfterReturnToken value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8547	self spaceAfterKeywordSelector value:true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8548	self spaceAroundTemporaries value:true.
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8549	self spaceAfterBlockStart value:true.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8550	self spaceBeforeBlockEnd value:true.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8551	self emptyLineAfterTemporaries value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8552	self cStyleBlocks value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8553	self blockArgumentsOnNewLine value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8554	self maxLengthForSingleLineBlocks value: 20.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8555	reformatLocked := false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8556	self reformat.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8557	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8558
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8559	resetToStxDefault
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8560
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 tabIndent value: 4.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8563	self spaceAfterReturnToken value: true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8564	self spaceAfterKeywordSelector value: false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8565	self spaceAroundTemporaries value: false.
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8566	self spaceAfterBlockStart value:false.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8567	self spaceBeforeBlockEnd value:false.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8568	self emptyLineAfterTemporaries value: true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8569	self cStyleBlocks value: true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8570	self blockArgumentsOnNewLine value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8571	self maxLengthForSingleLineBlocks value: 20.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8572	reformatLocked := false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8573	self reformat.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8574	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8575
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8576	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'aspects'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8577
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8578	autoFormat
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8579
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8580	autoFormat isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8581	autoFormat := currentUserPrefs autoFormatting asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	8582	autoFormat onChangeSend:#updateModifiedChannel to:self
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	^ autoFormat.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8585	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8586
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8587	blockArgumentsOnNewLine
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	blockArgumentsOnNewLine isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8590	blockArgumentsOnNewLine := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8591	blockArgumentsOnNewLine addDependent:self.
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	^ blockArgumentsOnNewLine.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8594	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8595
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8596	cStyleBlocks
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8597
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8598	cStyleBlocks isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8599	cStyleBlocks := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8600	cStyleBlocks addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8601	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8602	^ cStyleBlocks.
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
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8605	editorText
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8606
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8607	editorText isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8608	editorText := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8609	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8610	^ editorText.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8611	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8612
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8613	emptyLineAfterTemporaries
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8614
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8615	emptyLineAfterTemporaries isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8616	emptyLineAfterTemporaries := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8617	emptyLineAfterTemporaries addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8618	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8619	^ emptyLineAfterTemporaries.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8620	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8621
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8622	maxLengthForSingleLineBlocks
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8623
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8624	maxLengthForSingleLineBlocks isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8625	maxLengthForSingleLineBlocks := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8626	maxLengthForSingleLineBlocks addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8627	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8628	^ maxLengthForSingleLineBlocks.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8629	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8630
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8631	spaceAfterBlockStart
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8632
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8633	spaceAfterBlockStart isNil ifTrue:[
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8634	spaceAfterBlockStart := true asValue.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8635	spaceAfterBlockStart addDependent:self.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8636	].
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8637	^ spaceAfterBlockStart.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8638	!
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8639
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8640	spaceAfterKeywordSelector
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8641
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8642	spaceAfterKeywordSelector isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8643	spaceAfterKeywordSelector := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8644	spaceAfterKeywordSelector addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8645	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8646	^ spaceAfterKeywordSelector.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8647	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8648
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8649	spaceAfterReturnToken
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8650
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8651	spaceAfterReturnToken isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8652	spaceAfterReturnToken := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8653	spaceAfterReturnToken addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8654	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8655	^ spaceAfterReturnToken.
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	spaceAroundTemporaries
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	spaceAroundTemporaries isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8661	spaceAroundTemporaries := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8662	spaceAroundTemporaries addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8663	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8664	^ spaceAroundTemporaries.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8665	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8666
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8667	spaceBeforeBlockEnd
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8668
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8669	spaceBeforeBlockEnd isNil ifTrue:[
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8670	spaceBeforeBlockEnd := true asValue.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8671	spaceBeforeBlockEnd addDependent:self.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8672	].
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8673	^ spaceBeforeBlockEnd.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8674	!
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8675
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8676	tabIndent
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8677
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8678	tabIndent isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8679	tabIndent := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8680	tabIndent addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8681	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8682	^ tabIndent.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8683	! !
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	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'change & update'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8686
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	8687	update:something with:aParameter from:changedObject
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8688	(changedObject == self blockArgumentsOnNewLine or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8689	changedObject == self cStyleBlocks or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8690	changedObject == self emptyLineAfterTemporaries or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8691	changedObject == self maxLengthForSingleLineBlocks or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8692	changedObject == self spaceAfterKeywordSelector or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8693	changedObject == self spaceAfterReturnToken or:[
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8694	changedObject == self spaceAfterBlockStart or:[
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8695	changedObject == self spaceBeforeBlockEnd or:[
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8696	changedObject == self spaceAroundTemporaries or:[
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8697	changedObject == self tabIndent]]]]]]]]]) ifTrue:[
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	8698	self updateModifiedChannel.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8699	self reformat.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	8700	^ self
c72e35116b13 instable state penk parents: 5040 diff changeset	8701	].
c72e35116b13 instable state penk parents: 5040 diff changeset	8702	super
c72e35116b13 instable state penk parents: 5040 diff changeset	8703	update:something
c72e35116b13 instable state penk parents: 5040 diff changeset	8704	with:aParameter
c72e35116b13 instable state penk parents: 5040 diff changeset	8705	from:changedObject
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8706	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8707
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8708	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'initialization & release'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8709
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8710	initialize
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8711	super initialize.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8712	RBFormatter isNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8713	^ self warn:'Sorry, no RBFormatter class'
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8714	].
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8715	RBFormatter isLoaded ifFalse:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8716	WindowGroup activeGroup withWaitCursorDo:[RBFormatter autoload]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8717	].
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8718	reformatLocked := false.
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	postBuildTextEditor:aWidget
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	aWidget cursorMovementWhenUpdating:nil;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8724	scrollWhenUpdating:nil.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8725	! !
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	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'queries'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8728
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8729	hasUnsavedChanges
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8730	self autoFormat value ~= currentUserPrefs autoFormatting ? false ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8731	self tabIndent value ~= RBFormatter tabIndent ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8732	self spaceAroundTemporaries value ~= RBFormatter spaceAroundTemporaries ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8733	self emptyLineAfterTemporaries value ~= RBFormatter emptyLineAfterTemporaries ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8734	self spaceAfterReturnToken value ~= RBFormatter spaceAfterReturnToken ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8735	self spaceAfterKeywordSelector value ~= RBFormatter spaceAfterKeywordSelector ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8736	self spaceAfterBlockStart value ~= RBFormatter spaceAfterBlockStart ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8737	self spaceBeforeBlockEnd value ~= RBFormatter spaceBeforeBlockEnd ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8738	self cStyleBlocks value ~= RBFormatter cStyleBlocks ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8739	self blockArgumentsOnNewLine value ~= RBFormatter blockArgumentsOnNewLine ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8740	self maxLengthForSingleLineBlocks value ~= RBFormatter maxLengthForSingleLineBlocks ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8741	^ false
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8742	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8743
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8744	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8745
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8746	defaultIcon
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8747	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8748	by the ImageEditor of ST/X."
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	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8751	the ImageEditor may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8752
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	self defaultIcon inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8755	ImageEditor openOnClass:self andSelector:#defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8756	Icon flushCachedIcons
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8757	"
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	<resource: #image>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8760
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8761	^Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8762	constantNamed:#'AbstractSettingsApplication::SourceCodeManagementSettingsAppl class defaultIcon'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8763	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	8764	@@@@@@@@@@@A@PHB@0P@@@@@@@@@@@@@@@@@@@HEA \HA $JB0HD@@@@@@@@@@@@@@HLA04NC0HD@@L@@ P@@@@@@@@@@@@ED@ NDP@@@@@@@@@D@@@@@@@@
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	8765	@@@BA \FAPP@@@@@@@@@@@P@@@@@@@@@AQ@RC0@@@@@@@@@@@@@@@@@@@@@@@@TGA!!DD@@@@@@@@@@@@@@@@@@@D@PDIA08OA@@@@@@@@@@@@@@@@@@@AP S
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	8766	A0XIBPXGC0P@@@@@@@@@@@@@@@@ECAPLBPXOAP@@@@@@EQX@@@@@@@@@@@TIE@XOAP@@@@@@EQ\XE @@@@@@@@@@AP$OAP@@@@@@FQ\ZE!! V@@@@@@@@@@@E
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	8767	F0@@@@@@EQ\ZF!!(VFAX@@@@@@@@@@@@@@@@ZEQ\VE!!(ZF!!XWF @@@@@@@@@@@@@@@@@@@A\ZE!!(@@@@@@@@@@@@@@@@@@@@@@@@XE!!XZ@@@@@@@@@@@@@@@@
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	8768	@@@@@@@@EQ(V@@@@@@@@@@@@@@@@@@@@@@@@EQ\VE @@@@@@@@@@@@@@@@@@@@@@EQ VE @@@@@@@@@@@@@@F @@@@@WEQ VE!!(@@@@@@@@@@@@@@@@@E!!\W
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	8769	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	8770	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8771
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8772	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl class methodsFor:'interface specs'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8773
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8774	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8775	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8776	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8777
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8778	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8779	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8780
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8781	"
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8782	UIPainter new openOnClass:AbstractSettingsApplication::SourceCodeManagementSettingsAppl andSelector:#windowSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8783	AbstractSettingsApplication::SourceCodeManagementSettingsAppl new openInterface:#windowSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8784	AbstractSettingsApplication::SourceCodeManagementSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8785	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8786
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8787	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8788
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8789	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8790	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8791	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8792	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8793	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8794	label: 'Source Code Manager Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8795	name: 'Source Code Manager Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8796	min: (Point 10 10)
6103 d8147b126f9d * empty log message * penk parents: 6086 diff changeset	8797	bounds: (Rectangle 0 0 659 551)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8798	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8799	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8800	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8801	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8802	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8803	name: 'VerticalPanel2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8804	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	8805	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8806	verticalLayout: topSpace
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8807	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8808	verticalSpace: 20
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8809	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8810	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8811	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8812	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8813	name: 'VerticalPanel3'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8814	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8815	verticalLayout: top
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8816	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8817	verticalSpace: 10
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8818	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8819	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8820	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8821	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8822	name: 'Box3'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8823	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8824	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8825	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8826	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8827	label: 'Sourcecode Management'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8828	name: 'SourcecodeManagementCheckBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8829	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	8830	enableChannel: cvsIsSetup
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8831	model: useManager
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8832	translateLabel: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8833	)
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8834	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8835
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8836	)
6103 d8147b126f9d * empty log message * penk parents: 6086 diff changeset	8837	extent: (Point 659 30)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8838	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8839	(FramedBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8840	label: 'Source Code Manager Setup'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8841	name: 'FramedBox1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8842	labelPosition: topLeft
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8843	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8844	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8845	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8846	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8847	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8848	name: 'Box1'
6103 d8147b126f9d * empty log message * penk parents: 6086 diff changeset	8849	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	8850	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8851	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8852	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8853	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8854	label: 'CVS BinDirectory:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8855	name: 'Label1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8856	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	8857	level: 0
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8858	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8859	adjust: right
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8860	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8861	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8862	name: 'BinDirectoryField'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8863	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	8864	enableChannel: useManager
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8865	tabable: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8866	model: cvsBinDirectoryHolder
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8867	acceptChannel: acceptChannel
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8868	acceptOnPointerLeave: true
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8869	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8870	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8871
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8872	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8873	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8874	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8875	name: 'Box7'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8876	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	8877	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8878	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8879	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8880	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8881	label: 'CVSRoot default:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8882	name: 'defaultCvsRootLabel'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8883	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	8884	level: 0
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8885	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8886	adjust: right
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8887	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8888	(ComboBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8889	name: 'cvsRootComboBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8890	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	8891	enableChannel: useManager
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8892	tabable: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8893	model: cvsRootHolder
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8894	immediateAccept: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8895	acceptOnLeave: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8896	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8897	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8898	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8899	acceptChannel: acceptChannel
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8900	acceptOnPointerLeave: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8901	comboList: cvsRootPrototypeList
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8902	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8903	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8904
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8905	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8906	)
5343 eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	8907	(HorizontalPanelViewSpec
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	8908	name: 'HorizontalPanel3'
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	8909	layout: (LayoutFrame 44 0.25 51 0 -1 1 82 0)
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	8910	horizontalLayout: fitSpace
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	8911	verticalLayout: center
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	8912	horizontalSpace: 3
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	8913	verticalSpace: 3
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	8914	component:
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	8915	(SpecCollection
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	8916	collection: (
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	8917	(ViewSpec
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	8918	name: 'Box8'
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	8919	extent: (Point 103 10)
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	8920	)
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	8921	(ViewSpec
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	8922	name: 'Box9'
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	8923	extent: (Point 103 10)
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	8924	)
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	8925	(ViewSpec
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	8926	name: 'Box10'
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	8927	extent: (Point 103 10)
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	8928	)
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	8929	(ActionButtonSpec
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	8930	label: 'CVS-Login'
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	8931	name: 'loginButton1'
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	8932	translateLabel: true
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	8933	tabable: true
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	8934	model: loginCVSRoot
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	8935	enableChannel: cvsLoginEnabled
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	8936	extent: (Point 103 22)
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	8937	)
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	8938	)
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	8939
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	8940	)
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	8941	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8942	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8943	label: 'CVSRoot per Module:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8944	name: 'knownModulesLabel'
5343 eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	8945	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	8946	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8947	adjust: right
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8948	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8949	(SequenceViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8950	name: 'List1'
5343 eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	8951	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	8952	enableChannel: useManager
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8953	tabable: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8954	model: selectedPerModuleRoot
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8955	hasHorizontalScrollBar: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8956	hasVerticalScrollBar: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8957	miniScrollerHorizontal: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8958	useIndex: false
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8959	sequenceList: listOfModules
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8960	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8961	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8962	label: 'Module:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8963	name: 'moduleLabel'
5343 eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	8964	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	8965	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8966	adjust: right
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8967	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8968	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8969	name: 'perModuleRootModuleEntryField'
5343 eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	8970	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	8971	enableChannel: useManager
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8972	tabable: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8973	model: perModuleRootModule
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8974	acceptChannel: acceptChannel
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8975	acceptOnPointerLeave: true
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8976	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8977	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8978	label: 'CVSRoot:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8979	name: 'cvsRootLabel'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8980	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	8981	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8982	adjust: right
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8983	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8984	(ComboBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8985	name: 'perModuleRootComboBox'
5343 eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	8986	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	8987	enableChannel: useManager
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8988	tabable: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8989	model: perModuleRoot
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8990	immediateAccept: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8991	acceptOnLeave: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8992	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8993	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8994	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8995	acceptChannel: acceptChannel
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8996	acceptOnPointerLeave: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8997	comboList: cvsRootPrototypeList
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8998	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8999	(HorizontalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9000	name: 'HorizontalPanel2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9001	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	9002	horizontalLayout: fitSpace
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9003	verticalLayout: center
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9004	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9005	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9006	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9007	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9008	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9009	(ActionButtonSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9010	label: 'Add/Apply'
5343 eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9011	name: 'addButton'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9012	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9013	tabable: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9014	model: addPerModuleRoot
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9015	enableChannel: useManager
5343 eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9016	extent: (Point 103 22)
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9017	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9018	(ActionButtonSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9019	label: 'Remove'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9020	name: 'removeButton'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9021	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9022	tabable: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9023	model: removePerModuleRoot
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9024	enableChannel: removeEnabled
5343 eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9025	extent: (Point 103 22)
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9026	)
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9027	(ViewSpec
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9028	name: 'Box11'
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9029	extent: (Point 103 10)
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9030	)
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9031	(ActionButtonSpec
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9032	label: 'CVS-Login'
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9033	name: 'loginButton2'
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9034	translateLabel: true
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9035	tabable: true
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9036	model: loginPerModuleRoot
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9037	enableChannel: cvsLoginInModuleEnabled
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9038	extent: (Point 103 22)
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9039	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9040	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9041
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9042	)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9043	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9044	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9045
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9046	)
6103 d8147b126f9d * empty log message * penk parents: 6086 diff changeset	9047	extent: (Point 659 327)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9048	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9049	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9050	name: 'Box4'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9051	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9052	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9053	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9054	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9055	label: 'Source Cache Dir:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9056	name: 'SourceCacheDirLabel'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9057	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	9058	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9059	adjust: right
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9060	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9061	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9062	name: 'SourceCacheDirEntryField'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9063	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	9064	enableChannel: useManager
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9065	model: sourceCacheDir
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9066	immediateAccept: false
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9067	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9068	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9069	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9070	acceptOnPointerLeave: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9071	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9072	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9073
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9074	)
6103 d8147b126f9d * empty log message * penk parents: 6086 diff changeset	9075	extent: (Point 659 30)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9076	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9077	(HorizontalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9078	name: 'HorizontalPanel1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9079	horizontalLayout: fitSpace
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9080	verticalLayout: center
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9081	horizontalSpace: 30
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9082	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9083	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9084	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9085	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9086	(ActionButtonSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9087	label: 'Flush Cache now'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9088	name: 'FlushCacheNowButton'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9089	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9090	model: flushSourceCache
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9091	enableChannel: useManager
6103 d8147b126f9d * empty log message * penk parents: 6086 diff changeset	9092	extent: (Point 284 22)
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9093	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9094	(ActionButtonSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9095	label: 'Condense Cache now'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9096	name: 'CondenseCacheNowButton'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9097	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9098	model: condenseSourceCache
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9099	enableChannel: useManager
6103 d8147b126f9d * empty log message * penk parents: 6086 diff changeset	9100	extent: (Point 285 22)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9101	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9102	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9103
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9104	)
6103 d8147b126f9d * empty log message * penk parents: 6086 diff changeset	9105	extent: (Point 659 40)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9106	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9107	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9108	name: 'Box5'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9109	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9110	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9111	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9112	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9113	label: 'If Present, Use Local Source (Suppress Checkout)'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9114	name: 'CheckBox4'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9115	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	9116	enableChannel: useManager
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9117	model: localSourceFirst
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9118	translateLabel: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9119	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9120	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9121
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9122	)
6103 d8147b126f9d * empty log message * penk parents: 6086 diff changeset	9123	extent: (Point 659 25)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9124	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9125	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9126	name: 'Box6'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9127	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9128	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9129	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9130	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9131	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	9132	name: 'CheckBox5'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9133	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	9134	enableChannel: useManager
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9135	model: checkClassesWhenCheckingIn
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9136	translateLabel: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9137	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9138	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9139
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9140	)
6103 d8147b126f9d * empty log message * penk parents: 6086 diff changeset	9141	extent: (Point 659 25)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9142	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9143	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9144
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9145	)
6103 d8147b126f9d * empty log message * penk parents: 6086 diff changeset	9146	extent: (Point 659 768)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9147	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9148	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9149
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9150	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9151	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9152	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9153
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9154	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9155	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9156	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9157
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9158	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'accessing'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9159
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9160	manager
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9161
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9162	^ Smalltalk at:#SourceCodeManager
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9163	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9164
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9165	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'actions'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9166
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9167	addPerModuleRoot
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9168
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9169	\|module cvsRoot\|
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9170
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9171	acceptChannel value:true.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9172	module := self perModuleRootModule value.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9173	cvsRoot := self perModuleRoot value.
5174 bfd29db1a419 source code management per module get apply for changes Michael Beyl <mb@exept.de> parents: 5172 diff changeset	9174	(self listOfModules includes:module) ifFalse:[
bfd29db1a419 source code management per module get apply for changes Michael Beyl <mb@exept.de> parents: 5172 diff changeset	9175	self listOfModules add:module.
bfd29db1a419 source code management per module get apply for changes Michael Beyl <mb@exept.de> parents: 5172 diff changeset	9176	self listOfModules sort.
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9177	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9178	cvsRoot size > 0 ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9179	rootsPerModule at:module put:cvsRoot.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9180	].
5174 bfd29db1a419 source code management per module get apply for changes Michael Beyl <mb@exept.de> parents: 5172 diff changeset	9181	self updateModifiedChannel.
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9182	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9183
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9184	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9185
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9186	(self hasManager and:[self useManager value]) ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9187	manager isNil ifTrue:[
6103 d8147b126f9d * empty log message * penk parents: 6086 diff changeset	9188	Smalltalk at:#SourceCodeManager put:(CVSSourceCodeManager).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9189	manager := Smalltalk at:#SourceCodeManager.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9190	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9191	Class tryLocalSourceFirst:self localSourceFirst value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9192
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9193	manager notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9194	\| nm fn\|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9195	nm := self sourceCacheDir value.
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9196	nm notEmptyOrNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9197	(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	9198	(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	9199	fn makeDirectory;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9200	makeReadableForAll;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9201	makeWritableForAll;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9202	makeExecutableForAll.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9203	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9204	].
5318 02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	9205	(fn isDirectory
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9206	and:[fn isReadable
5318 02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	9207	and:[fn isWritable]]) ifTrue:[
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9208	AbstractSourceCodeManager cacheDirectoryName:nm.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9209	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9210	self warn:'Invalid sourceCache directory.'
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9211	]
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9212	"/ ] ifFalse:[
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9213	"/ AbstractSourceCodeManager cacheDirectoryName:nil.
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9214	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9215	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9216
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9217	repositoryHolder notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9218	repositoryHolder value size > 0 ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9219	manager notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9220	manager initializeForRepository:repositoryHolder value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9221	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9222	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9223	].
5912 c276be9276dd Strip trailing/leading blanks from CVS-Path. Stefan Vogel <sv@exept.de> parents: 5902 diff changeset	9224	CVSSourceCodeManager cvsBinDirectory:self cvsBinDirectoryHolder value withoutSeparators.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9225	CVSSourceCodeManager initializeForRepository:self cvsRootHolder value.
4760 206a67dba8a8 repository changes after initialize will now reloaded penk parents: 4737 diff changeset	9226	self cvsBinDirectoryHolder value:CVSSourceCodeManager cvsBinDirectory.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9227	CVSSourceCodeManager repositoryNamesPerModule:rootsPerModule.
4650 c358bcfef403 source code management have no unsaved changes after enable anymore penk parents: 4635 diff changeset	9228	self sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9229	DebugView newDebugger.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9230	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9231	Smalltalk at:#SourceCodeManager put:nil
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9232	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9233
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9234	UserPreferences current at:#checkClassesWhenCheckingIn put:self checkClassesWhenCheckingIn value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9235	self acceptChannel value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9236	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9237
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9238	condenseSourceCache
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9239
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9240	self withWaitCursorDo:[ AbstractSourceCodeManager condenseSourceCache ]
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9241	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9242
5343 eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9243	cvsLogin:cvsRoot
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9244	\|cmd term\|
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9245
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9246	cmd := 'cvs -d ' , cvsRoot , ' login ; exit'.
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9247	term := VT100TerminalView open.
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9248	term topView label:'CVS Login for ' , cvsRoot.
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9249	term topView waitUntilVisible.
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9250	term shellTerminateAction:[
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9251	"/ term topView destroy
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9252	].
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9253
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9254	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	9255	term showCR:''.
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9256	term endEntry.
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9257	Delay waitForSeconds:1.
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9258	term sendLine:cmd.
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9259
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9260	"
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9261	self basicNew cvsLogin:':pserver:stx@exept.eu.org:/stx'
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9262	"
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9263	!
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9264
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9265	flushSourceCache
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9266
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9267	self withWaitCursorDo:[ AbstractSourceCodeManager flushSourceCache ]
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9268	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9269
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	9270	helpFilename
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	9271	^ 'Launcher/cvsSetup.html'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9272	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9273
5343 eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9274	loginCVSRoot
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9275	self cvsLogin:cvsRootHolder value.
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9276	!
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9277
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9278	loginPerModuleRoot
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9279	self cvsLogin:perModuleRoot value.
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9280	!
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9281
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9282	readSettings
5174 bfd29db1a419 source code management per module get apply for changes Michael Beyl <mb@exept.de> parents: 5172 diff changeset	9283	self initialize.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9284	self hasManager ifTrue:[
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9285	self useManager value:(manager := Smalltalk at:#SourceCodeManager) notNil.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9286	self localSourceFirst value:Class tryLocalSourceFirst.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9287	self sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9288	manager notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9289	manager forgetDisabledModules.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9290	repository := manager repositoryName.
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9291	repositoryHolder := (repository ? '') asValue
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9292	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9293	self cvsIsSetup value:true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9294	] ifFalse:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9295	self useManager value:false.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9296	self localSourceFirst value:false.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9297	self cvsIsSetup value:false
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9298	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9299	self checkClassesWhenCheckingIn
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9300	value:(currentUserPrefs at:#checkClassesWhenCheckingIn ifAbsent:true).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9301	self cvsRootHolder
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9302	value:CVSSourceCodeManager repositoryName ? '/cvs/stx'.
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9303	self cvsBinDirectoryHolder value:CVSSourceCodeManager cvsBinDirectory.
4812 f4d7501fd235 checkin from browser penk parents: 4805 diff changeset	9304	rootsPerModule notNil ifTrue:[
5175 8fd9af3eee73 source code management per module get apply for changes Michael Beyl <mb@exept.de> parents: 5174 diff changeset	9305	self listOfModules removeAll.
5174 bfd29db1a419 source code management per module get apply for changes Michael Beyl <mb@exept.de> parents: 5172 diff changeset	9306	listOfModules addAll:rootsPerModule keys asList.
4812 f4d7501fd235 checkin from browser penk parents: 4805 diff changeset	9307	].
4779 98f77618ef6f root per module reading fixed penk parents: 4767 diff changeset	9308	self selectedPerModuleRootChanged.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9309	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9310	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9311
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9312	removePerModuleRoot
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9313
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9314	\|module\|
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9315
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9316	acceptChannel value:true.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9317	module := self perModuleRootModule value.
5174 bfd29db1a419 source code management per module get apply for changes Michael Beyl <mb@exept.de> parents: 5172 diff changeset	9318	self listOfModules remove:module ifAbsent:nil.
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9319	rootsPerModule removeKey:module ifAbsent:nil.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9320	self perModuleRootModule value:nil.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9321	self perModuleRoot value:nil.
5174 bfd29db1a419 source code management per module get apply for changes Michael Beyl <mb@exept.de> parents: 5172 diff changeset	9322	self updateModifiedChannel.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9323	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9324
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9325	setupSourceCodeManager
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9326
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9327	AbstractLauncherApplication::LauncherDialogs cvsConfigurationDialog.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9328	manager := (Smalltalk at:#SourceCodeManager).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9329	cvsIsSetup value:manager notNil.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9330	manager notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9331	repositoryHolder value: manager repositoryName.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9332	sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9333	].
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9334	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9335
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9336	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'aspects'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9337
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9338	acceptChannel
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9339
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9340	acceptChannel isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9341	acceptChannel := TriggerValue new.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9342	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9343	^ acceptChannel.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9344	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9345
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9346	checkClassesWhenCheckingIn
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9347
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9348	checkClassesWhenCheckingIn isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9349	checkClassesWhenCheckingIn := (currentUserPrefs at:#checkClassesWhenCheckingIn ifAbsent:true) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	9350	checkClassesWhenCheckingIn onChangeSend:#updateModifiedChannel to:self
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9351	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9352	^ checkClassesWhenCheckingIn.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9353	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9354
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9355	cvsBinDirectoryHolder
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	9356	cvsBinDirectoryHolder isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	9357	cvsBinDirectoryHolder := ValueHolder new.
5286 ab068226973e has unsaved changes penk parents: 5283 diff changeset	9358	cvsBinDirectoryHolder onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	9359	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	9360	^ cvsBinDirectoryHolder.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	9361	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	9362
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9363	cvsIsSetup
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	9364	cvsIsSetup isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	9365	cvsIsSetup := true asValue.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	9366	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	9367	^ cvsIsSetup.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	9368	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	9369
5343 eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9370	cvsLoginEnabled
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9371	cvsLoginEnabled isNil ifTrue:[
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9372	cvsLoginEnabled := false asValue.
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9373	].
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9374	^ cvsLoginEnabled.
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	cvsLoginInModuleEnabled
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9378	cvsLoginInModuleEnabled isNil ifTrue:[
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9379	cvsLoginInModuleEnabled := false asValue.
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9380	].
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9381	^ cvsLoginInModuleEnabled.
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9382	!
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9383
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9384	cvsRootHolder
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	9385
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	9386	cvsRootHolder isNil ifTrue:[
5318 02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	9387	cvsRootHolder := self cvsRootFromCVSRootFileOrNil asValue.
5343 eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9388	cvsRootHolder addDependent:self.
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	9389	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	9390	^ cvsRootHolder.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	9391	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	9392
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9393	cvsRootPrototypeList
5318 02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	9394	\|cvsRoot\|
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9395
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9396	cvsRootPrototypeList isNil ifTrue:[
5343 eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9397	cvsRootPrototypeList := OrderedCollection new.
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9398
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9399	cvsRoot := self cvsRootFromCVSRootFileOrNil.
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9400	(cvsRoot notNil and:[(cvsRootPrototypeList includes:cvsRoot) not]) ifTrue:[
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9401	cvsRootPrototypeList add:cvsRoot
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9402	].
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9403
5318 02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	9404	OperatingSystem getDomainName = 'exept' ifTrue:[
5343 eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9405	cvsRootPrototypeList add:'exept:/cvs/stx'.
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9406	cvsRootPrototypeList add:(':pserver:' , OperatingSystem getLoginName , '@exept:/cvs/stx')
5318 02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	9407	] ifFalse:[
5343 eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9408	cvsRootPrototypeList add:'host:/cvs/stx'.
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9409	cvsRootPrototypeList add:(':pserver:' , OperatingSystem getLoginName , '@host:/cvs/stx').
4767 389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9410	].
389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9411
389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9412	OperatingSystem isUNIXlike ifTrue:[
5343 eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9413	cvsRootPrototypeList addFirst:'/cvs/stx'.
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9414	] ifFalse:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9415	OperatingSystem isMSDOSlike ifTrue:[
5343 eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9416	cvsRootPrototypeList addFirst:':local:c:\cvs\stx'.
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9417	] ifFalse:[
4767 389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9418	"there might be more here in the future"
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9419	]
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9420	].
5318 02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	9421
5343 eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9422	"/ cvsRootPrototypeList add:(':pserver:stx@exept.eu.org:/cvs/stx').
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9423	cvsRootPrototypeList add:(':pserver:stx@exept.eu.org:/stx').
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9424	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9425	^ cvsRootPrototypeList.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9426	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9427
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9428	listOfModules
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9429
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9430	listOfModules isNil ifTrue:[
5174 bfd29db1a419 source code management per module get apply for changes Michael Beyl <mb@exept.de> parents: 5172 diff changeset	9431	rootsPerModule notNil ifTrue:[
bfd29db1a419 source code management per module get apply for changes Michael Beyl <mb@exept.de> parents: 5172 diff changeset	9432	listOfModules := rootsPerModule keys asList.
bfd29db1a419 source code management per module get apply for changes Michael Beyl <mb@exept.de> parents: 5172 diff changeset	9433	].
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9434	listOfModules sort.
5174 bfd29db1a419 source code management per module get apply for changes Michael Beyl <mb@exept.de> parents: 5172 diff changeset	9435	listOfModules onChangeSend:#updateModifiedChannel to:self
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9436	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9437	^ listOfModules.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9438	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9439
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9440	localSourceFirst
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9441
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9442	localSourceFirst isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9443	localSourceFirst := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	9444	localSourceFirst onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9445	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9446	^ localSourceFirst.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9447	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9448
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9449	perModuleRoot
5332 d02586ccaa63 value holder for roots per module penk parents: 5318 diff changeset	9450	perModuleRoot isNil ifTrue:[
d02586ccaa63 value holder for roots per module penk parents: 5318 diff changeset	9451	perModuleRoot := ValueHolder new.
5343 eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9452	perModuleRoot addDependent:self.
5332 d02586ccaa63 value holder for roots per module penk parents: 5318 diff changeset	9453	].
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9454	^ perModuleRoot.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9455	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9456
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9457	perModuleRootModule
5332 d02586ccaa63 value holder for roots per module penk parents: 5318 diff changeset	9458	perModuleRootModule isNil ifTrue:[
d02586ccaa63 value holder for roots per module penk parents: 5318 diff changeset	9459	perModuleRootModule := ValueHolder new.
d02586ccaa63 value holder for roots per module penk parents: 5318 diff changeset	9460	].
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9461	^ perModuleRootModule.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9462	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9463
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9464	removeEnabled
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9465
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9466	removeEnabled isNil ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9467	removeEnabled := false asValue.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9468	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9469	^ removeEnabled.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9470	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9471
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9472	selectedPerModuleRoot
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9473	selectedPerModuleRoot isNil ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9474	selectedPerModuleRoot := ValueHolder new.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9475	selectedPerModuleRoot addDependent:self.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9476	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9477	^ selectedPerModuleRoot.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9478	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9479
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9480	sourceCacheDir
5286 ab068226973e has unsaved changes penk parents: 5283 diff changeset	9481	sourceCacheDir isNil ifTrue:[
ab068226973e has unsaved changes penk parents: 5283 diff changeset	9482	sourceCacheDir := ValueHolder new.
ab068226973e has unsaved changes penk parents: 5283 diff changeset	9483	sourceCacheDir onChangeSend:#updateModifiedChannel to:self
ab068226973e has unsaved changes penk parents: 5283 diff changeset	9484	].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9485	^ sourceCacheDir.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9486	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9487
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9488	useManager
5286 ab068226973e has unsaved changes penk parents: 5283 diff changeset	9489	useManager isNil ifTrue:[
ab068226973e has unsaved changes penk parents: 5283 diff changeset	9490	useManager := ValueHolder new.
ab068226973e has unsaved changes penk parents: 5283 diff changeset	9491	useManager onChangeSend:#updateModifiedChannel to:self
ab068226973e has unsaved changes penk parents: 5283 diff changeset	9492	].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9493	^ useManager.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9494	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9495
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9496	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'change & update'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9497
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9498	selectedPerModuleRootChanged
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9499	\|module cvsRoot\|
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9500
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9501	self acceptChannel value:true.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9502	module := self selectedPerModuleRoot value.
4812 f4d7501fd235 checkin from browser penk parents: 4805 diff changeset	9503	module isNil ifTrue:[ ^ self].
5343 eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9504
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9505	self removeEnabled value:true.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9506	cvsRoot := rootsPerModule at:module ifAbsent:''.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9507	self perModuleRootModule value:module.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9508	self perModuleRoot value:cvsRoot.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9509	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9510
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9511	sourceDirChanged
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9512	\| nm fn\|
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9513
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9514	manager isNil ifTrue:[^ self].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9515
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9516	nm := self sourceCacheDir value.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9517	nm isEmptyOrNil ifTrue:[^ self].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9518
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9519	(fn := nm asFilename) exists ifFalse:[
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9520	(self confirm:('SourceCache directory ''' , nm , ''' does not exist.\Create ?' withCRs)) ifTrue:[
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9521	fn makeDirectory;
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9522	makeReadableForAll;
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9523	makeWritableForAll;
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9524	makeExecutableForAll.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9525	] ifFalse:[
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9526	self sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName).
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9527	^ self.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9528	].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9529	].
5318 02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	9530	(fn isDirectory
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9531	and:[fn isReadable
5318 02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	9532	and:[fn isWritable]]) ifTrue:[
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9533	AbstractSourceCodeManager cacheDirectoryName:nm.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9534	] ifFalse:[
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9535	self warn:'Invalid sourceCache directory.'.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9536	self sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9537	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9538	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9539
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	9540	update:something with:aParameter from:changedObject
5343 eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9541	changedObject == cvsRootHolder ifTrue:[
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9542	self updateModifiedChannel.
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9543	self updateLoginEnableHolders.
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9544	^ self
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9545	].
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9546	changedObject == perModuleRoot ifTrue:[
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9547	self updateLoginEnableHolders.
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9548	^ self
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9549	].
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9550	changedObject == sourceCacheDir ifTrue:[
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9551	self sourceDirChanged.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	9552	self updateModifiedChannel.
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9553	^ self
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9554	].
5343 eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9555	changedObject == selectedPerModuleRoot ifTrue:[
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9556	self selectedPerModuleRootChanged.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9557	^ self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9558	].
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	9559	super
c72e35116b13 instable state penk parents: 5040 diff changeset	9560	update:something
c72e35116b13 instable state penk parents: 5040 diff changeset	9561	with:aParameter
c72e35116b13 instable state penk parents: 5040 diff changeset	9562	from:changedObject
5343 eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9563	!
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9564
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9565	updateLoginEnableHolders
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9566	self cvsLoginEnabled value:((cvsRootHolder value ? '') startsWith:':pserver:').
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9567	self cvsLoginInModuleEnabled value:((perModuleRoot value ? '') startsWith:':pserver:').
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9568	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9569
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9570	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'initialization & release'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9571
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9572	initialize
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9573	(AbstractSourceCodeManager notNil) ifTrue:[AbstractSourceCodeManager autoload].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9574
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9575	useManager := false asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	9576	useManager onChangeSend:#updateModifiedChannel to:self.
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9577
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9578	sourceCacheDir := nil asValue.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9579	sourceCacheDir addDependent:self.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9580
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9581	repositoryHolder := '' asValue.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9582	rootsPerModule := Dictionary new.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9583
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9584	SourceCodeManager == CVSSourceCodeManager ifTrue:[
5943 df089099d96d Use #addAll: instead of #declareAllFrom:, since #declareAllFrom: Stefan Vogel <sv@exept.de> parents: 5920 diff changeset	9585	rootsPerModule addAll:(SourceCodeManager repositoryNamesPerModule).
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9586	].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9587
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9588	super initialize.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9589	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9590
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9591	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'queries'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9592
5318 02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	9593	cvsRootFromCVSRootFileOrNil
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	9594	\|cvsDir cvsRootFile cvsRoot\|
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	9595
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	9596	cvsDir := 'CVS' asFilename.
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	9597	cvsDir isDirectory ifTrue:[
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	9598	cvsRootFile := cvsDir construct:'Root'.
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	9599	cvsRootFile isReadable ifTrue:[
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	9600	cvsRoot := cvsRootFile contents firstIfEmpty:nil.
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	9601	].
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	9602	].
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	9603	^ cvsRoot
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	9604	!
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	9605
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9606	hasManager
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9607	^ AbstractSourceCodeManager notNil
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9608	and:[AbstractSourceCodeManager isLoaded]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9609	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9610
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9611	hasUnsavedChanges
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	9612	(self useManager value ~= ((Smalltalk at:#SourceCodeManager) notNil)) ifTrue:[^ true].
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9613
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9614	((self hasManager and:[self useManager value])
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9615	and:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9616	Class tryLocalSourceFirst ~= self localSourceFirst value or:[
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9617	AbstractSourceCodeManager cacheDirectoryName ~= self sourceCacheDir value]
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9618	])
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9619	ifTrue:[^ true].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9620
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	9621	(self hasManager and:[self useManager value]) ifFalse:[^ false].
5286 ab068226973e has unsaved changes penk parents: 5283 diff changeset	9622
ab068226973e has unsaved changes penk parents: 5283 diff changeset	9623	((UserPreferences current at:#checkClassesWhenCheckingIn ifAbsent:true) ~= self checkClassesWhenCheckingIn value)
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9624	ifTrue:[^ true].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9625
5919 0d11395cb5a4 care for nil withoutSeparators Claus Gittinger <cg@exept.de> parents: 5918 diff changeset	9626	((CVSSourceCodeManager cvsBinDirectory ? '') ~= (self cvsBinDirectoryHolder value ? '') withoutSeparators)
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9627	ifTrue:[^ true].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9628
5286 ab068226973e has unsaved changes penk parents: 5283 diff changeset	9629	(CVSSourceCodeManager repositoryName ? '/files/CVS' ~= self cvsRootHolder value)
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9630	ifTrue:[^ true].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9631
5943 df089099d96d Use #addAll: instead of #declareAllFrom:, since #declareAllFrom: Stefan Vogel <sv@exept.de> parents: 5920 diff changeset	9632	((Dictionary new addAll:(CVSSourceCodeManager repositoryNamesPerModule); yourself) ~= rootsPerModule)
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9633	ifTrue:[^ true].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9634
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	9635	(self sourceCacheDir value ~= AbstractSourceCodeManager cacheDirectoryName) ifTrue:[^ true].
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9636
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9637	^ false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9638	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9639
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9640	!AbstractSettingsApplication::StyleSettingsAppl class methodsFor:'defaults'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9641
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9642	standardStyles
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9643
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9644	^ #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9645	'decWindows'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9646	'iris'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9647	'motif'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9648	'mswindows95'
6073 09b4a678793a more xp style Claus Gittinger <cg@exept.de> parents: 6072 diff changeset	9649	'mswindowsxp'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9650	'next'
6108 7e6d327225fa * empty log message * Claus Gittinger <cg@exept.de> parents: 6103 diff changeset	9651	"/ 'normal'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9652	'os2'
6003 668703f77d2c * empty log message * Claus Gittinger <cg@exept.de> parents: 5991 diff changeset	9653	'sgmotif'
6073 09b4a678793a more xp style Claus Gittinger <cg@exept.de> parents: 6072 diff changeset	9654	"/ 'st80'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9655	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9656	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9657
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9658	!AbstractSettingsApplication::StyleSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9659
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9660	defaultIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9661	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9662	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9663
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9664	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9665	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9666
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9667	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9668	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9669	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9670	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9671	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9672
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9673	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9674
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9675	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9676	constantNamed:#'AbstractSettingsApplication::StyleSettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9677	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	9678	@@@@@@@@@@@@@@DA@@@@@@@@@@@@@@@@@@@@@@@@@@DB@0D@@@@@@@@@@@@@@@@@@@@@@@DB@0LD@P@@@@@@@@@@@@@@@@@@@@DB@0LDA@DA@@@@@@@@@@@@
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	9679	@@@@@@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	9680	@ 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	9681	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	9682	@ 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	9683	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	9684	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9685
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9686	!AbstractSettingsApplication::StyleSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9687
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9688	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9689	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9690	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9691
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9692	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9693	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9694
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9695	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9696	UIPainter new openOnClass:AbstractSettingsApplication::StyleSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9697	AbstractSettingsApplication::StyleSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9698	AbstractSettingsApplication::StyleSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9699	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9700
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9701	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9702
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9703	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9704	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9705	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9706	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9707	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9708	label: 'ViewStyle Selection'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9709	name: 'ViewStyle Selection'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9710	min: (Point 10 10)
5576 8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	9711	bounds: (Rectangle 0 0 562 661)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9712	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9713	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9714	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9715	collection: (
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9716	(VariableVerticalPanelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9717	name: 'VariableVerticalPanel1'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9718	layout: (LayoutFrame 0 0.0 0 0 0 1.0 -35 1)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9719	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9720	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9721	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9722	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9723	name: 'Box1'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9724	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9725	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9726	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9727	(TextEditorSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9728	name: 'TextEditor1'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9729	layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	9730	style: (FontDescription arial medium roman 9)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9731	model: noticeLabelHolder
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9732	hasHorizontalScrollBar: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9733	hasVerticalScrollBar: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9734	isReadOnly: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9735	postBuildCallback: postBuildHelpLabel:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9736	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9737	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9738
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9739	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9740	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9741	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9742	name: 'Box2'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9743	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9744	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9745	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9746	(VerticalPanelViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9747	name: 'VerticalPanel1'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9748	layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9749	horizontalLayout: fit
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9750	verticalLayout: topFit
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9751	horizontalSpace: 3
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9752	verticalSpace: 3
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9753	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9754	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9755	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9756	(CheckBoxSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9757	label: 'standard styles only'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9758	name: 'CheckBox1'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9759	model: showStandardStylesOnly
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9760	translateLabel: true
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	9761	extent: (Point 562 35)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9762	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9763	(SequenceViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9764	name: 'StyleList'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9765	model: selectedStyle
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9766	hasHorizontalScrollBar: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9767	hasVerticalScrollBar: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9768	doubleClickSelector: doubleClickAt:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9769	useIndex: false
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9770	sequenceList: styleList
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	9771	extent: (Point 562 353)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9772	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9773	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9774
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9775	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9776	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9777	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9778
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9779	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9780	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9781	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9782
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9783	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9784	handles: (Any 0.37 1.0)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9785	)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9786	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9787	name: 'Box3'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9788	layout: (LayoutFrame 0 0 -35 1 0 1 0 1)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9789	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9790	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9791	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9792	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9793	label: 'Label'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9794	name: 'Label1'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9795	layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9796	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9797	labelChannel: infoLabelHolder
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9798	resizeForLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9799	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9800	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9801	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9802
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	9803	)
5378 4054d8298e68 windowspec for view style penk parents: 5362 diff changeset	9804	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9805	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9806
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9807	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9808	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9809	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9810
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9811	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9812
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9813	basicSaveSettings
6029 40b96dc2621d * empty log message * ca parents: 6025 diff changeset	9814	\|newStyle\|
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9815
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9816	newStyle := self selectedStyle value.
4705 16cfb945d591 * empty log message * penk parents: 4675 diff changeset	9817
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9818	self withWaitCursorDo:[
6081 74df33ee24b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 6073 diff changeset	9819	Transcript showCR:'Change style to ' , newStyle , ' ...'.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9820	View defaultStyle:newStyle asSymbol.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9821	].
6029 40b96dc2621d * empty log message * ca parents: 6025 diff changeset	9822	self reopenToolsAfterChangedViewStyleSetting.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9823	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9824
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9825	doubleClickAt:aLine
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9826
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9827	self saveSettings.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9828	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9829
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	9830	helpFilename
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	9831	^ 'Launcher/styleSettings.html'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9832	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9833
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9834	readSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9835	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9836	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9837
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9838	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9839
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9840	infoLabelHolder
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9841
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9842	infoLabelHolder isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9843	infoLabelHolder := '' asValue.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9844	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9845	^ infoLabelHolder.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9846	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9847
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9848	noticeLabelHolder
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9849
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9850	noticeLabelHolder isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9851	noticeLabelHolder := '' asValue.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9852	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9853	^ noticeLabelHolder.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9854	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9855
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9856	selectedStyle
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9857
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9858	selectedStyle isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9859	selectedStyle := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9860	selectedStyle addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9861	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9862	^ selectedStyle.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9863	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9864
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9865	showStandardStylesOnly
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9866
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9867	showStandardStylesOnly isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9868	showStandardStylesOnly := true asValue.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9869	showStandardStylesOnly addDependent:self.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9870	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9871	^ showStandardStylesOnly.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9872	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9873
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9874	styleList
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	9875
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	9876	styleList isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	9877	styleList := List new.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	9878	styleList addDependent:self.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	9879	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	9880	^ styleList.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9881	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9882
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9883	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9884
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9885	changeInfoLabel
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9886
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9887	\|nm sheet comment\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9888
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9889	comment := ''.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9890	nm := self selectedStyle value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9891	nm notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9892	sheet := ViewStyle fromFile:(nm , '.style').
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9893	comment := (sheet at:#comment ifAbsent:'') withoutSeparators.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9894	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9895	comment := comment withCRs asStringCollection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9896	comment size == 1 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9897	comment := comment first
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9898	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9899	self infoLabelHolder value:comment
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9900	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9901
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	9902	update:something with:aParameter from:changedObject
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9903	changedObject == self showStandardStylesOnly ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9904	self updateList.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	9905	^ self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9906	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9907	changedObject == self selectedStyle ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9908	self changeInfoLabel.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	9909	self updateModifiedChannel.
c72e35116b13 instable state penk parents: 5040 diff changeset	9910	^ self
c72e35116b13 instable state penk parents: 5040 diff changeset	9911	].
c72e35116b13 instable state penk parents: 5040 diff changeset	9912	super
c72e35116b13 instable state penk parents: 5040 diff changeset	9913	update:something
c72e35116b13 instable state penk parents: 5040 diff changeset	9914	with:aParameter
c72e35116b13 instable state penk parents: 5040 diff changeset	9915	from:changedObject
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9916	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9917
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9918	updateList
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9919
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9920	\|listOfStyles lastSelection\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9921
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9922	lastSelection := self selectedStyle value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9923	listOfStyles := styleDirectoryContents select:[:aFileName \| aFileName asFilename hasSuffix:'style'].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9924	listOfStyles := listOfStyles collect:[:aFileName \| aFileName asFilename withoutSuffix name].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9925	Filename isCaseSensitive ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9926	listOfStyles := listOfStyles collect:[:aStyleName \| aStyleName asLowercase].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9927	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9928	listOfStyles remove:'generic' ifAbsent:nil; remove:'mswindows3' ifAbsent:nil.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9929	self showStandardStylesOnly value ifTrue:[
6086 1d3d8652e87d * empty log message * Claus Gittinger <cg@exept.de> parents: 6081 diff changeset	9930	listOfStyles := listOfStyles select:[:aStyleName \| self class standardStyles includes:aStyleName asLowercase].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9931	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9932
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9933	listOfStyles sort.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9934	self styleList contents:listOfStyles.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9935	self selectedStyle value:lastSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9936	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9937
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9938	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9939
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9940	initialize
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9941
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9942	\|someRsrcFile resourceDir\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9943
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9944	super initialize.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9945
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9946	someRsrcFile := Smalltalk getSystemFileName:('resources' asFilename constructString:'normal.style').
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9947	someRsrcFile isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9948	someRsrcFile := Smalltalk getResourceFileName:'normal.style' forPackage:'stx:libview'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9949	someRsrcFile isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9950	someRsrcFile := Smalltalk getResourceFileName:'styles/normal.style' forPackage:'stx:libview'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9951	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9952	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9953	someRsrcFile notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9954	resourceDir := someRsrcFile asFilename directoryName
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9955	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9956	resourceDir := Smalltalk getSystemFileName:'resources'.
4635 6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	9957	resourceDir isNil ifTrue:[
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	9958	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	9959	^ self
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	9960	].
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	9961	].
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	9962
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	9963	[
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	9964	styleDirectoryContents := resourceDir asFilename directoryContents.
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	9965	] on:FileStream openErrorSignal do:[:ex\|
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	9966	self warn:'no styles found (unaccessable ''resources'' directory)'.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9967	^ self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9968	].
4635 6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	9969
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9970	self updateList.
6086 1d3d8652e87d * empty log message * Claus Gittinger <cg@exept.de> parents: 6081 diff changeset	9971	(self class standardStyles includes:View defaultStyle asLowercase) ifFalse:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9972	self showStandardStylesOnly value:false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9973	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9974	self selectedStyle value:(View defaultStyle).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9975	self noticeLabelHolder value:(resources at:'STYLE_MSG' default:'Select a Style') withCRs.
5378 4054d8298e68 windowspec for view style penk parents: 5362 diff changeset	9976	!
4054d8298e68 windowspec for view style penk parents: 5362 diff changeset	9977
4054d8298e68 windowspec for view style penk parents: 5362 diff changeset	9978	postBuildHelpLabel:aWidget
4054d8298e68 windowspec for view style penk parents: 5362 diff changeset	9979	aWidget level:0.
4054d8298e68 windowspec for view style penk parents: 5362 diff changeset	9980	aWidget scrolledView backgroundColor:self window viewBackground.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9981	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9982
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9983	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9984
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9985	hasUnsavedChanges
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9986
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9987	^ (self selectedStyle value ~= View defaultStyle)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9988	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9989
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9990	!AbstractSettingsApplication::SyntaxColorSettingsAppl class methodsFor:'defaults'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9991
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9992	emphasisList
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9993
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9994	^ #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9995	#normal
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9996	#underline
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9997	#'red underline'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9998	#underwave
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9999	#'red underwave'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10000	#bold
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10001	#boldUnderline
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10002	#'bold+red underline'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10003	#boldUnderwave
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10004	#'bold+red underwave'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10005	#italic
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10006	#italicUnderline
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10007	#'italic+red underline'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10008	#italicUnderwave
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10009	#'italic+red underwave'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10010	#reverse
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10011	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10012	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10013
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10014	exampleText
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10015
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10016	^ 'methodSelector:methodArg
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10017	"method comment:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10018	some stupid code to show the current settings"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10019
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10020	\|methodVar\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10021
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10022	"/ another comment ...
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10023	self at:methodArg. "/ a message
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10024	self fooBarBaz:methodVar. "/ a bad message
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10025	methodVar := Array new:1.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10026	unknonVar := 1. "/ a bad variable
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10027	UnknonVar := 1. "/ another bad variable
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10028	"self bar:methodVar. detect commented code easily"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10029	1 to:5 do:[:i \| self at:i + 1].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10030	Transcript showCR:''some string'' , #someSymbol.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10031	^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10032	'.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10033	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10034
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10035	fontList
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10036
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10037	^ #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10038	normal
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10039	underline
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10040	#'red underline'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10041	underwave
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10042	#'red underwave'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10043	bold
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10044	boldUnderline
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10045	#'bold+red underline'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10046	boldUnderwave
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10047	#'bold+red underwave'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10048	italic
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10049	italicUnderline
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10050	#'italic+red underline'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10051	italicUnderwave
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10052	#'italic+red underwave'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10053	reverse
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10054	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10055	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10056
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10057	!AbstractSettingsApplication::SyntaxColorSettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10058
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10059	defaultIcon
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10060	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10061	by the ImageEditor of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10062
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10063	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10064	the ImageEditor may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10065
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10066	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10067	self defaultIcon inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10068	ImageEditor openOnClass:self andSelector:#defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10069	Icon flushCachedIcons
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10070	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10071
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10072	<resource: #image>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10073
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10074	^Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10075	constantNamed:#'AbstractSettingsApplication::SyntaxColorSettingsAppl class defaultIcon'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	10076	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	10077	DQDQDQDQDQDQDQDTQDQDQDQDQDQDPQQ@QDADQBP$QDP!!E@QDQ@QDIBQDP$DTADQDADQDQDQBPQPDQDPDQDQDQBQAE@QDQ@QDQDQDIDDTADQDADQDQDIDPQPD
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	10078	QDPDQDQDP$QAEDADPDQDQDP$QDDTQDQDQDQDQDQDPQQDADQDQDQDQDQAEDADQDQDQDQDQDDTPDQ@QDADQDQDPQP@A@PDA@Q@QDQAEDADA@PDADQDQDDTPDPD
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	10079	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	10080	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10081
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10082	!AbstractSettingsApplication::SyntaxColorSettingsAppl class methodsFor:'interface specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10083
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10084	windowSpec
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10085	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10086	by the UIPainter of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10087
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10088	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10089	the UIPainter may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10090
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10091	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10092	UIPainter new openOnClass:AbstractSettingsApplication::SyntaxColorSettingsAppl andSelector:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10093	AbstractSettingsApplication::SyntaxColorSettingsAppl new openInterface:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10094	AbstractSettingsApplication::SyntaxColorSettingsAppl open
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10095	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10096
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10097	<resource: #canvas>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10098
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10099	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10100	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10101	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10102	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10103	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10104	label: 'Syntax Color Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10105	name: 'Syntax Color Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10106	min: (Point 10 10)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10107	bounds: (Rectangle 0 0 695 609)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10108	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10109	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10110	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10111	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10112	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10113	name: 'VerticalPanel2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10114	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	10115	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10116	verticalLayout: topSpace
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10117	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10118	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10119	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10120	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10121	collection: (
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10122	(ViewSpec
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10123	name: 'ElementSelectionBox'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10124	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10125	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10126	collection: (
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10127	(LabelSpec
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10128	label: 'Element:'
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10129	name: 'Label4'
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10130	layout: (LayoutFrame 0 0 0 0 100 0 22 0)
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10131	translateLabel: true
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10132	adjust: right
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10133	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10134	(ComboListSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10135	name: 'ComboList3'
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10136	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	10137	enableChannel: syntaxColoring
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10138	model: syntaxElementSelection
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10139	comboList: syntaxElementList
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10140	useIndex: false
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10141	hidePullDownMenuButton: false
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10142	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10143	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10144
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10145	)
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10146	extent: (Point 695 25)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10147	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10148	(ViewSpec
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10149	name: 'ColorBox'
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10150	component:
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10151	(SpecCollection
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10152	collection: (
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10153	(LabelSpec
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10154	label: 'Color:'
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10155	name: 'Label2'
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10156	layout: (LayoutFrame 40 0 0 0 140 0 22 0)
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10157	translateLabel: true
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10158	adjust: right
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10159	)
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10160	(ColorMenuSpec
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10161	name: 'ColorMenu2'
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10162	layout: (LayoutFrame 140 0 0 0 0 1 22 0)
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10163	enableChannel: syntaxColoring
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10164	model: syntaxColor
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10165	labelsAreColored: true
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10166	)
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10167	)
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10168
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10169	)
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10170	extent: (Point 695 25)
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10171	)
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10172	(ViewSpec
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10173	name: 'EmphasisBox'
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10174	component:
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10175	(SpecCollection
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10176	collection: (
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10177	(LabelSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10178	label: 'Emphasis:'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10179	name: 'Label1'
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10180	layout: (LayoutFrame 40 0 0 0 140 0 22 0)
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10181	translateLabel: true
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10182	adjust: right
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10183	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10184	(ComboListSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10185	name: 'ComboList5'
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10186	layout: (LayoutFrame 140 0 0 0 0 1 22 0)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10187	enableChannel: syntaxColoring
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10188	model: syntaxEmphasisSelection
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10189	comboList: syntaxEmphasisList
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10190	useIndex: false
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10191	hidePullDownMenuButton: false
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10192	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10193	)
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	)
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10196	extent: (Point 695 25)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10197	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10198	(ViewSpec
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10199	name: 'ResetBox'
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10200	component:
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10201	(SpecCollection
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10202	collection: (
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10203	(ActionButtonSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10204	label: 'Reset To:'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10205	name: 'Button2'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10206	layout: (LayoutFrame 0 0 -22 1 150 0 0 1)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10207	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10208	model: resetToColorScheme
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10209	enableChannel: syntaxColoring
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10210	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10211	(ComboListSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10212	name: 'ComboList4'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10213	layout: (LayoutFrame 150 0 -22 1 0 1 0 1)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10214	enableChannel: syntaxColoring
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10215	model: resetListSelection
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10216	comboList: resetList
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10217	useIndex: false
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10218	hidePullDownMenuButton: false
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10219	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10220	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10221
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10222	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10223	extent: (Point 695 35)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10224	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10225	(ViewSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10226	name: 'SpacingBox1'
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10227	extent: (Point 695 10)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10228	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10229	(LabelSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10230	label: 'Sample Output:'
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10231	name: 'SampleLabel3'
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10232	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10233	adjust: left
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10234	extent: (Point 695 22)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10235	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10236	(TextEditorSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10237	name: 'TextEditor2'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10238	enableChannel: syntaxColoring
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10239	model: coloredText
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10240	hasHorizontalScrollBar: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10241	hasVerticalScrollBar: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10242	isReadOnly: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10243	extent: (Point 695 280)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10244	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10245	(ViewSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10246	name: 'SpacingBox2'
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10247	extent: (Point 695 10)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10248	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10249	(CheckBoxSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10250	label: 'Syntax Coloring'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10251	name: 'CheckBox1'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10252	model: syntaxColoring
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10253	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10254	extent: (Point 695 22)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10255	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10256	(CheckBoxSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10257	label: 'Immediate Selector Check'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10258	name: 'ImmediateSelectorCheckBox'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10259	enableChannel: syntaxColoring
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10260	model: fullSelectorCheck
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10261	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10262	extent: (Point 695 22)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10263	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10264	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10265
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10266	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10267	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10268	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10269
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10270	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10271	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10272	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10273
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10274	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'actions'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10275
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10276	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10277
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10278	oldUserPreferences := currentUserPrefs copy.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10279	currentUserPrefs syntaxColoring:self syntaxColoring value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10280	currentUserPrefs at:#fullSelectorCheck put:self fullSelectorCheck value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10281	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10282
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10283	formattingConfiguration
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10284	"automatically generated by UIPainter ..."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10285
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10286	"*** the code below performs no action"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10287	"*** (except for some feedback on the Transcript)"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10288	"*** Please change as required and accept in the browser."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10289
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10290	"action to be added ..."
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	Transcript showCR:self class name, ': action for formattingConfiguration ...'.
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
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	10295	helpFilename
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	10296	^ 'Launcher/sourceSettings.html'
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10297	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10298
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10299	readSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10300	\|colorList resetListLoc\|
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10301
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10302	oldUserPreferences notNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10303	(UserPreferences
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10304	reset;
5943 df089099d96d Use #addAll: instead of #declareAllFrom:, since #declareAllFrom: Stefan Vogel <sv@exept.de> parents: 5920 diff changeset	10305	current) addAll:oldUserPreferences
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10306	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10307	self syntaxColoring value:currentUserPrefs syntaxColoring.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10308	self fullSelectorCheck value:currentUserPrefs fullSelectorCheck.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10309	oldUserPreferences := currentUserPrefs copy.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10310	colorList := UserPreferences syntaxColorNames.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10311	resetListLoc := currentUserPrefs listOfPredefinedSyntaxColoringSchemes
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10312	collect:[:entry \| entry second].
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10313	self resetList value:resetListLoc.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10314	self resetListSelection value:resetListLoc first.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10315	self syntaxEmphasisList value:self class emphasisList.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10316	self syntaxElementList value:colorList.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10317	self syntaxElementSelection value:(colorList at:1).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10318	self modifiedChannel value:false
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10319	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10320
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10321	recolor
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10322	\|text\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10323
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10324	self syntaxColoring value ifTrue:[
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10325	text := SyntaxHighlighter
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10326	formatMethod:self class exampleText
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10327	in:nil
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10328	using:currentUserPrefs.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10329	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10330	text := self class exampleText.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10331	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10332	self coloredText value:text
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10333	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10334
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10335	resetToColorScheme
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10336	\|resetSelector\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10337
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10338	resetSelector := resetListDictionary
c72e35116b13 instable state penk parents: 5040 diff changeset	10339	keyAtValue:(self resetListSelection value).
c72e35116b13 instable state penk parents: 5040 diff changeset	10340	currentUserPrefs perform:resetSelector.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10341	self recolor.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10342	self updateModifiedChannel
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10343	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10344
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10345	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'aspects'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10346
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10347	coloredText
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10348
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10349	coloredText isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10350	coloredText := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10351	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10352	^ coloredText.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10353	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10354
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10355	fullSelectorCheck
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10356
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10357	fullSelectorCheck isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10358	fullSelectorCheck := currentUserPrefs fullSelectorCheck asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10359	fullSelectorCheck onChangeSend:#updateModifiedChannel to:self
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10360	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10361	^ fullSelectorCheck.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10362	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10363
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10364	resetList
4398 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	resetList isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10367	resetList := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10368	"/ 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	10369	"/ resetList addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10370	"/ resetList onChangeSend:#resetListChanged to:self.
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	^ resetList.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10373	!
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	resetListSelection
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10376
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10377	resetListSelection isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10378	resetListSelection := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10379	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10380	^ resetListSelection.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10381	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10382
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10383	syntaxColor
4398 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	syntaxColor isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10386	syntaxColor := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10387	syntaxColor addDependent:self.
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	^ syntaxColor.
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
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10392	syntaxColoring
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10393
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10394	syntaxColoring isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10395	syntaxColoring := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10396	syntaxColoring addDependent:self.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10397	syntaxColoring onChangeSend:#updateModifiedChannel to:self.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10398	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10399	^ syntaxColoring.
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
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10402	syntaxElementList
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10403	"automatically generated by UIPainter ..."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10404
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10405	"*** the code below creates a default model when invoked."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10406	"*** (which may not be the one you wanted)"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10407	"*** Please change as required and accept it in the browser."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10408	"*** (and replace this comment by something more useful ;-)"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10409
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10410	syntaxElementList isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10411	syntaxElementList := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10412	"/ 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	10413	"/ syntaxElementList addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10414	"/ syntaxElementList onChangeSend:#syntaxElementListChanged to:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10415	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10416	^ syntaxElementList.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10417	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10418
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10419	syntaxElementSelection
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10420
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10421	syntaxElementSelection isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10422	syntaxElementSelection := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10423	syntaxElementSelection addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10424	"/ syntaxElementSelection onChangeSend:#syntaxElementSelectionChanged to:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10425	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10426	^ syntaxElementSelection.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10427	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10428
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10429	syntaxEmphasisList
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10430	"automatically generated by UIPainter ..."
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10431
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10432	"*** the code below creates a default model when invoked."
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10433	"*** (which may not be the one you wanted)"
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10434	"*** Please change as required and accept it in the browser."
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10435	"*** (and replace this comment by something more useful ;-)"
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10436
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10437	syntaxEmphasisList isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10438	syntaxEmphasisList := ValueHolder new.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10439	"/ 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	10440	"/ syntaxEmphasisList addDependent:self.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10441	"/ syntaxEmphasisList onChangeSend:#syntaxEmphasisListChanged to:self.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10442	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10443	^ syntaxEmphasisList.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10444	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10445
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10446	syntaxEmphasisSelection
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	syntaxEmphasisSelection isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10449	syntaxEmphasisSelection := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10450	syntaxEmphasisSelection addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10451	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10452	^ syntaxEmphasisSelection.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10453	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10454
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10455	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'change & update'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10456
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10457	getEmphasis:anEmphasisOrSymbol
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10458	" return emphasis Symbol for emphasis or emphasis for emphasis symbol "
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10459
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10460	^ emphasisDictionary at:anEmphasisOrSymbol ifAbsent:[nil]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10461	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10462
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10463	syntaxColorChanged
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10464	currentUserPrefs at:(self syntaxColorSelector) put:(self syntaxColor value).
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10465	self recolor.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10466	self updateModifiedChannel
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10467	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10468
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10469	syntaxElementSelectionChanged
4398 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	\| syntaxEmphasisValue \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10472
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10473	self syntaxColor value:(currentUserPrefs perform:(self syntaxColorSelector)).
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10474	syntaxEmphasisValue := (currentUserPrefs perform:(self syntaxEmphasisSelector)).
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10475	self syntaxEmphasisSelection value:(self getEmphasis:syntaxEmphasisValue).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10476	self recolor.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10477	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10478
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10479	syntaxEmphasisSelectionChanged
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10480	\|em\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10481
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10482	em := self getEmphasis:self syntaxEmphasisSelection value.
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10483	currentUserPrefs at:(self syntaxEmphasisSelector) put:em.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10484	self recolor.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10485	self updateModifiedChannel
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10486	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10487
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10488	update:something with:aParameter from:changedObject
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10489	changedObject == self syntaxElementSelection ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10490	self syntaxElementSelectionChanged.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10491	^ self.
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	changedObject == self syntaxColor ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10494	self syntaxColorChanged.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10495	^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10496	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10497	changedObject == self syntaxEmphasisSelection ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10498	self syntaxEmphasisSelectionChanged.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10499	^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10500	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10501	changedObject == self syntaxColoring ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10502	self recolor.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10503	^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10504	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10505
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10506	super update:something with:aParameter from:changedObject
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10507	! !
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	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'initialization & release'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10510
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10511	initialize
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10512	self initializeEmphasisDictionary.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10513	super initialize.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10514
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10515	resetListDictionary := Dictionary new.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10516	currentUserPrefs listOfPredefinedSyntaxColoringSchemes do:[:entry \|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10517	resetListDictionary at:(entry at:1) put:(entry at:2)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10518	].
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
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10521	initializeEmphasisDictionary
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10522
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10523	emphasisDictionary := Dictionary new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10524	self class emphasisList do:[ : entry \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10525	entry == #'red underline' ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10526	emphasisDictionary at:entry put:(Array with:#underline with:(#underlineColor->Color red)).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10527	emphasisDictionary at:(Array with:#underline with:(#underlineColor->Color red)) put:entry.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10528	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10529	entry == #'red underwave' ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10530	emphasisDictionary at:entry put:(Array with:#underwave with:(#underlineColor->Color red)).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10531	emphasisDictionary at:(Array with:#underwave with:(#underlineColor->Color red)) put:entry.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10532	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10533	entry == #'bold+red underline' ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10534	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	10535	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	10536	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10537	entry == #'bold+red underwave' ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10538	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	10539	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	10540	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10541	entry == #'italic+red underline' ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10542	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	10543	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	10544	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10545	entry == #'italic+red underwave' ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10546	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	10547	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	10548	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10549	emphasisDictionary at:entry put:entry
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	]
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	]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10555	]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10556	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10557	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10558
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10559	release
4398 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	oldUserPreferences notNil ifTrue:[
5943 df089099d96d Use #addAll: instead of #declareAllFrom:, since #declareAllFrom: Stefan Vogel <sv@exept.de> parents: 5920 diff changeset	10562	(UserPreferences reset; current) addAll:oldUserPreferences
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10563	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10564	super release
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10565	! !
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	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'queries'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10568
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10569	hasUnsavedChanges
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10570	\|colorList colorPerformer emphasisPerformer\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10571
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10572	colorList := UserPreferences syntaxColorNames.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10573	colorList do:[:syntaxElement \|
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10574	colorPerformer := (self syntaxColorSelectorForElement:syntaxElement).
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10575	emphasisPerformer := (self syntaxEmphasisSelectorForElement:syntaxElement).
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10576	((oldUserPreferences perform:colorPerformer) ~= (currentUserPrefs perform:colorPerformer)) ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10577	^ true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10578	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10579	((oldUserPreferences perform:emphasisPerformer) ~= (currentUserPrefs perform:emphasisPerformer)) ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10580	^ true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10581	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10582	syntaxElement
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10583	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10584	currentUserPrefs syntaxColoring ~= self syntaxColoring value ifTrue:[^ true].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10585	currentUserPrefs fullSelectorCheck ~= self fullSelectorCheck value ifTrue:[^ true].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10586	^ false
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10587	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10588
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10589	syntaxColorSelector
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10590	^ (self syntaxColorSelectorForElement:self syntaxElementSelection value)
4398 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
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10593	syntaxColorSelectorForElement:aSyntaxElement
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10594	^ (aSyntaxElement replChar:$ withString: '') asLowercaseFirst asSymbol
4398 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
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10597	syntaxEmphasisSelector
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10598
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10599	^ self syntaxEmphasisSelectorForElement:(self syntaxElementSelection value)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10600	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10601
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10602	syntaxEmphasisSelectorForElement:anEmElement
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10603	^ (((self syntaxColorSelectorForElement:anEmElement) readStream upToAll: 'Color'), 'Emphasis')
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10604	asLowercaseFirst asSymbol
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10605	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10606
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10607	!AbstractSettingsApplication::SystemMessageSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10608
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10609	defaultIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10610	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10611	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10612
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10613	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10614	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10615
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10616	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10617	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10618	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10619	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10620	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10621
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10622	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10623
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10624	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10625	constantNamed:#'AbstractSettingsApplication::SystemMessageSettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10626	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	10627	@@@@@@@@@@@@@PDA@P@@@@@@@@@@@@@@@@@@@@@@@PHB@0D@@@@@@@@@@@@@@@@@@@@@@PHDAPLC@P@@@@@@@@@@@@@@@@@@@@DBA PGA0 @@@@@@@@@@@@@
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	10628	@@@@@@@A@ XDA0\H@@@@@@@@@@@@@@@@@@@@@PHIA@(J@@@@@@@@@@@@@@@@@@@@@@DAB00MCP@@@@@@@@@@@@@@@@@@@@@@@@DN@@@@@@@@@@@@@@@@@@@@
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	10629	@@@@@@@AC @@@@@@@@@@@@@@@@@@@@@@@@@@@P8@@@@@@@@@@@@@@@@@@@@@@@<OC0PNDA@@DQD@@@@@@@@@@@@@@@<RD1LTEQXVE1 XDP@@@@@@@@@@@@@O
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	10630	D!!LSEATVE!!\XFAD@@@@@@@@@@@@@C1HSD1$UEAPZF1,\@@@@@@@@@@@@@@<RGQ4YF!!PTEAXVG@@@@@@@@@@@@@@OD!!4]FQ(TEAPVE!!0@@@@@@@@@@@@@C1H]
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	10631	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	10632	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	10633	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10634
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10635	!AbstractSettingsApplication::SystemMessageSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10636
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10637	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10638	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10639	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10640
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10641	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10642	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10643
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10644	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10645	UIPainter new openOnClass:AbstractSettingsApplication::SystemMessageSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10646	AbstractSettingsApplication::SystemMessageSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10647	AbstractSettingsApplication::SystemMessageSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10648	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10649
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10650	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10651
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10652	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10653	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10654	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10655	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10656	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10657	label: 'Messages Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10658	name: 'Messages Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10659	min: (Point 10 10)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10660	bounds: (Rectangle 14 46 575 395)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10661	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10662	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10663	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10664	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10665	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10666	name: 'VerticalPanel2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10667	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	10668	horizontalLayout: fitSpace
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10669	verticalLayout: topSpace
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10670	horizontalSpace: 5
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10671	verticalSpace: 5
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10672	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10673	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10674	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10675	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10676	name: 'VerticalPanel1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10677	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10678	verticalLayout: topSpace
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10679	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10680	verticalSpace: 20
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10681	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10682	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10683	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10684	(FramedBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10685	label: 'Info & Error Messages'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10686	name: 'FramedBox2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10687	labelPosition: topLeft
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10688	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10689	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10690	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10691	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10692	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10693	label: 'VM Info Messages'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10694	name: 'VMInfoMessages'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10695	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	10696	model: vmInfo
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10697	translateLabel: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10698	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10699	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10700	label: 'VM Error Messages'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10701	name: 'VMErrorMessages'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10702	layout: (LayoutFrame 5 0 30 0 -5 1 52 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10703	model: vmErrors
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10704	translateLabel: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10705	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10706	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10707	label: 'Display Error Messages (Xlib, Xtlib, WinAPI ...)'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10708	name: 'DisplayErrorMessages'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10709	layout: (LayoutFrame 5 0 55 0 -5 1 77 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10710	model: displayErrors
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10711	translateLabel: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10712	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10713	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10714	label: 'Other Info Messages'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10715	name: 'OtherInfoMessages'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10716	layout: (LayoutFrame 5 0 80 0 -5 1 102 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10717	model: classInfos
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10718	translateLabel: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10719	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10720	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10721
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10722	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10723	extent: (Point 551 133)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10724	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10725	(FramedBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10726	label: 'Change File'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10727	name: 'FramedBox1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10728	labelPosition: topLeft
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10729	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10730	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10731	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10732	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10733	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10734	label: 'Log compiles in Changefile'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10735	name: 'CheckBox1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10736	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	10737	model: updChanges
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10738	translateLabel: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10739	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10740	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10741	label: 'Log doIts in Changefile'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10742	name: 'CheckBox2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10743	layout: (LayoutFrame 5 0 30 0 -5 1 52 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10744	model: logDoits
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10745	translateLabel: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10746	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10747	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10748	label: 'Changefile Name:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10749	name: 'ChangefileNameLabel'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10750	layout: (LayoutFrame 5 0 55 0 200 0 77 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10751	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10752	adjust: right
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10753	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10754	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10755	name: 'ChangeFileNameEntryField'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10756	layout: (LayoutFrame 200 0 55 0 -5 1 77 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10757	model: changeFileName
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10758	immediateAccept: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10759	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10760	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10761	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10762	acceptOnPointerLeave: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10763	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10764	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10765
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10766	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10767	extent: (Point 551 120)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10768	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10769	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10770
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10771	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10772	extent: (Point 551 250)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10773	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10774	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10775
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10776	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10777	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10778	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10779
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10780	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10781	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10782	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10783
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10784	!AbstractSettingsApplication::SystemMessageSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10785
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10786	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10787
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10788	ObjectMemory infoPrinting:self vmInfo value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10789	ObjectMemory debugPrinting:self vmErrors value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10790	Object infoPrinting:self classInfos value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10791	DeviceWorkstation errorPrinting:self displayErrors value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10792	ObjectMemory nameForChanges:self changeFileName value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10793	Smalltalk logDoits:self logDoits value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10794	Class updateChanges:self updChanges value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10795	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10796
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	10797	helpFilename
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	10798	^ 'Launcher/messageSettings.html'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10799	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10800
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10801	readSettings
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10802	self vmInfo value:ObjectMemory infoPrinting.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10803	self vmErrors value:ObjectMemory debugPrinting.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10804	self classInfos value:Object infoPrinting.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10805	self displayErrors value:DeviceWorkstation errorPrinting.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10806	self changeFileName value:ObjectMemory nameForChanges.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10807	self logDoits value:Smalltalk logDoits.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10808	self updChanges value:Class updatingChanges.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10809	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10810	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10811
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10812	!AbstractSettingsApplication::SystemMessageSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10813
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10814	changeFileName
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10815
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10816	changeFileName isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10817	changeFileName := ObjectMemory nameForChanges asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10818	changeFileName onChangeSend:#updateModifiedChannel to:self
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10819	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10820	^ changeFileName.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10821	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10822
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10823	classInfos
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10824
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10825	classInfos isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10826	classInfos := Object infoPrinting asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10827	classInfos onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10828	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10829	^ classInfos.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10830	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10831
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10832	displayErrors
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10833
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10834	displayErrors isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10835	displayErrors := DeviceWorkstation errorPrinting asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10836	displayErrors onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10837	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10838	^ displayErrors.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10839	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10840
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10841	logDoits
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10842
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10843	logDoits isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10844	logDoits := Smalltalk logDoits asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10845	logDoits onChangeSend:#updateModifiedChannel to:self
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10846	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10847	^ logDoits.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10848	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10849
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10850	updChanges
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10851
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10852	updChanges isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10853	updChanges := Class updatingChanges asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10854	updChanges onChangeSend:#updateModifiedChannel to:self
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10855	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10856	^ updChanges.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10857	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10858
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10859	vmErrors
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10860
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10861	vmErrors isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10862	vmErrors := ObjectMemory debugPrinting asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10863	vmErrors onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10864	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10865	^ vmErrors.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10866	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10867
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10868	vmInfo
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10869
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10870	vmInfo isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10871	vmInfo := ObjectMemory infoPrinting asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10872	vmInfo onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10873	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10874	^ vmInfo.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10875	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10876
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10877	!AbstractSettingsApplication::SystemMessageSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10878
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10879	initialize
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10880
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10881	resources := self class classResources.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10882	super initialize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10883	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10884
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10885	!AbstractSettingsApplication::SystemMessageSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10886
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10887	hasUnsavedChanges
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	10888	self vmInfo value ~= ObjectMemory infoPrinting ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	10889	self vmErrors value ~= ObjectMemory debugPrinting ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	10890	self classInfos value ~= Object infoPrinting ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	10891	Smalltalk logDoits ~= self logDoits value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	10892	Class updatingChanges ~= self updChanges value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	10893	ObjectMemory nameForChanges ~= self changeFileName value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	10894	self displayErrors value ~= DeviceWorkstation errorPrinting ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	10895	^ false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10896	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10897
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10898	!AbstractSettingsApplication::ToolsSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10899
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10900	defaultIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10901	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10902	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10903
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10904	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10905	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10906
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10907	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10908	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10909	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10910	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10911	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10912
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10913	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10914
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10915	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10916	constantNamed:#'AbstractSettingsApplication::ToolsSettingsAppl class defaultIcon'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	10917	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	10918	*****************************@@@@@@@@@@@@@J(@@@@@@@@@@@@@ @@@F(QD@@@@@B@@@@B((QD@@@@J(@@@@@@JLQ@@@@ @B$@@@)CD@@@B*@@
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	10919	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	10920	@@@@@@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	10921	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10922
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10923	!AbstractSettingsApplication::ToolsSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10924
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10925	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10926	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10927	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10928
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10929	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10930	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10931
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10932	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10933	UIPainter new openOnClass:AbstractSettingsApplication::ToolsSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10934	AbstractSettingsApplication::ToolsSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10935	AbstractSettingsApplication::ToolsSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10936	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10937
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10938	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10939
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10940	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10941	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10942	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10943	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10944	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10945	label: 'Tool Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10946	name: 'Tool Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10947	min: (Point 10 10)
5576 8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	10948	bounds: (Rectangle 0 0 607 786)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10949	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10950	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10951	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10952	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10953	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10954	name: 'VerticalPanel2'
5576 8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	10955	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	10956	horizontalLayout: fit
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10957	verticalLayout: top
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10958	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10959	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10960	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10961	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10962	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10963	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10964	label: 'Use the New System Browser'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10965	name: 'NewSystemBrowser'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10966	model: useNewSystemBrowser
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10967	translateLabel: true
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	10968	extent: (Point 607 25)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10969	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10970	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10971	label: 'Use the New File Browser'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10972	name: 'NewFileBrowser'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10973	model: useNewFileBrowser
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10974	translateLabel: true
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	10975	extent: (Point 607 25)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10976	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10977	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10978	label: 'Use the New VersionDiff Browser'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10979	name: 'VersionDiffBrowser'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10980	model: useNewVersionDiffBrowser
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10981	translateLabel: true
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	10982	extent: (Point 607 25)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10983	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10984	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10985	label: 'Use the New FileTree File Dialog'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10986	name: 'UseNewFileDialogCheckBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10987	model: useNewFileDialog
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10988	translateLabel: true
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	10989	extent: (Point 607 25)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10990	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10991	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10992	label: 'Use the New Settings Dialog'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10993	name: 'UseNewSettinsApplicationCheckBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10994	model: useNewSettingsApplication
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10995	translateLabel: true
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	10996	extent: (Point 607 25)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10997	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10998	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10999	label: 'Use the New Process Monitor'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11000	name: 'UseNewProcessMonitor'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11001	model: useProcessMonitorV2
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11002	translateLabel: true
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	11003	extent: (Point 607 25)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11004	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11005	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11006	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	11007	name: 'ChangesBrowser'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11008	model: useNewChangesBrowser
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11009	translateLabel: true
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	11010	extent: (Point 607 25)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11011	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11012	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11013	label: 'Use Hierarchical Inspector (not yet recommended)'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11014	name: 'HierarchicalInspector'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11015	model: useNewInspector
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11016	translateLabel: true
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	11017	extent: (Point 607 25)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11018	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11019	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11020	name: 'Box2'
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	11021	extent: (Point 607 20)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11022	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11023	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11024	label: 'Show Clock in Launcher'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11025	name: 'Clock'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11026	model: showClockInLauncher
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11027	translateLabel: true
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	11028	extent: (Point 607 25)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11029	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11030	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11031	name: 'Box3'
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	11032	extent: (Point 607 19)
5576 8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	11033	)
8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	11034	(HorizontalPanelViewSpec
8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	11035	name: 'HorizontalPanel1'
8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	11036	horizontalLayout: leftSpaceFit
8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	11037	verticalLayout: center
8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	11038	horizontalSpace: 3
8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	11039	verticalSpace: 3
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11040	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11041	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11042	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11043	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11044	label: 'Transcripts Buffer Size:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11045	name: 'Label1'
5576 8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	11046	translateLabel: true
8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	11047	resizeForLabel: true
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11048	adjust: right
6072 470d0fb1c937 * empty log message * Claus Gittinger <cg@exept.de> parents: 6064 diff changeset	11049	extent: (Point 190 19)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11050	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11051	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11052	name: 'Transcripts Buffer Size'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11053	model: transcriptBufferSize
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11054	type: number
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11055	immediateAccept: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11056	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11057	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11058	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11059	acceptOnPointerLeave: true
6072 470d0fb1c937 * empty log message * Claus Gittinger <cg@exept.de> parents: 6064 diff changeset	11060	extent: (Point 408 24)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11061	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11062	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11063
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11064	)
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	11065	extent: (Point 607 35)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11066	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11067	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11068
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11069	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11070	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11071	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11072
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11073	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11074	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11075	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11076
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11077	!AbstractSettingsApplication::ToolsSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11078
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11079	basicSaveSettings
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11080
5627 d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	11081	\| showClock launcher reopenLauncher newSystemBrowserClass transcript\|
5594 06aba5d1bb6e NewSystemBrowser -> Tools::NewSystemBrowser Claus Gittinger <cg@exept.de> parents: 5583 diff changeset	11082
06aba5d1bb6e NewSystemBrowser -> Tools::NewSystemBrowser Claus Gittinger <cg@exept.de> parents: 5583 diff changeset	11083	newSystemBrowserClass := Tools::NewSystemBrowser ? NewSystemBrowser.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11084
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11085	currentUserPrefs := UserPreferences current.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11086	currentUserPrefs useNewInspector:self useNewInspector value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11087	currentUserPrefs useNewChangesBrowser:self useNewChangesBrowser value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11088	currentUserPrefs useNewVersionDiffBrowser:self useNewVersionDiffBrowser value.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11089	currentUserPrefs useNewFileDialog:self useNewFileDialog value.
4464 997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	11090	currentUserPrefs useProcessMonitorV2:self useProcessMonitorV2 value.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11091	currentUserPrefs useNewSettingsApplication ~= self useNewSettingsApplication value ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11092	currentUserPrefs useNewSettingsApplication:self useNewSettingsApplication value.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11093	].
5083 7fdf1e8c8f03 reopen launcher when systemBrowser setting changes Claus Gittinger <cg@exept.de> parents: 5080 diff changeset	11094
7fdf1e8c8f03 reopen launcher when systemBrowser setting changes Claus Gittinger <cg@exept.de> parents: 5080 diff changeset	11095	currentUserPrefs useNewSystemBrowser ~= self useNewSystemBrowser value ifTrue:[
7fdf1e8c8f03 reopen launcher when systemBrowser setting changes Claus Gittinger <cg@exept.de> parents: 5080 diff changeset	11096	currentUserPrefs useNewSystemBrowser:self useNewSystemBrowser value.
5594 06aba5d1bb6e NewSystemBrowser -> Tools::NewSystemBrowser Claus Gittinger <cg@exept.de> parents: 5583 diff changeset	11097	(self useNewSystemBrowser value and:[newSystemBrowserClass isLoaded]) ifTrue:[
06aba5d1bb6e NewSystemBrowser -> Tools::NewSystemBrowser Claus Gittinger <cg@exept.de> parents: 5583 diff changeset	11098	newSystemBrowserClass installInLauncher.
5083 7fdf1e8c8f03 reopen launcher when systemBrowser setting changes Claus Gittinger <cg@exept.de> parents: 5080 diff changeset	11099	] ifFalse:[
5594 06aba5d1bb6e NewSystemBrowser -> Tools::NewSystemBrowser Claus Gittinger <cg@exept.de> parents: 5583 diff changeset	11100	newSystemBrowserClass removeFromLauncher.
5083 7fdf1e8c8f03 reopen launcher when systemBrowser setting changes Claus Gittinger <cg@exept.de> parents: 5080 diff changeset	11101	].
7fdf1e8c8f03 reopen launcher when systemBrowser setting changes Claus Gittinger <cg@exept.de> parents: 5080 diff changeset	11102	reopenLauncher := true.
7fdf1e8c8f03 reopen launcher when systemBrowser setting changes Claus Gittinger <cg@exept.de> parents: 5080 diff changeset	11103	].
7fdf1e8c8f03 reopen launcher when systemBrowser setting changes Claus Gittinger <cg@exept.de> parents: 5080 diff changeset	11104
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11105	(Smalltalk at:#FileBrowserV2) isBehavior ifTrue:[
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11106	currentUserPrefs useNewFileBrowser ~= self useNewFileBrowser value ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11107	currentUserPrefs useNewFileBrowser:self useNewFileBrowser value.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11108	(self useNewFileBrowser value and:[FileBrowserV2 isLoaded]) ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11109	FileBrowserV2 installInLauncher.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11110	] ifFalse:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11111	FileBrowserV2 removeFromLauncher.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11112	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11113	reopenLauncher := true.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11114	]
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11115	].
5627 d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	11116
d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	11117	transcript := Transcript current.
d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	11118	(transcript notNil and:[transcript isExternalStream not]) ifTrue:[
d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	11119	launcher := transcript application.
d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	11120	].
d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	11121
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11122	showClock := self showClockInLauncher value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11123	currentUserPrefs showClockInLauncher ~= showClock ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11124	currentUserPrefs showClockInLauncher:showClock.
5627 d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	11125	launcher notNil ifTrue:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11126	showClock ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11127	launcher startClock
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11128	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11129	launcher stopClock
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11130	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11131	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11132	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11133	Inspector := currentUserPrefs inspectorClassSetting.
5627 d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	11134
d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	11135	(transcript notNil and:[transcript isExternalStream not]) ifTrue:[
d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	11136	transcript lineLimit:self transcriptBufferSize value.
d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	11137	].
d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	11138
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11139	reopenLauncher ifTrue:[
5627 d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	11140	launcher notNil ifTrue:[
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11141	launcher reopenLauncher.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11142	]
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11143	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11144	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11145
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	11146	helpFilename
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	11147	^ 'Launcher/toolSettings.html'
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11148	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11149
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11150	readSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11151	currentUserPrefs := UserPreferences current.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11152	self showClockInLauncher value:currentUserPrefs showClockInLauncher.
5627 d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	11153	Transcript current isExternalStream ifFalse:[
d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	11154	self transcriptBufferSize value:Transcript current lineLimit.
d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	11155	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11156	self useNewChangesBrowser value:currentUserPrefs useNewChangesBrowser.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11157	self useNewFileBrowser value:currentUserPrefs useNewFileBrowser.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11158	self useNewInspector value:currentUserPrefs useNewInspector.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11159	self useNewSystemBrowser value:currentUserPrefs useNewSystemBrowser.
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	11160	self useNewVersionDiffBrowser value:currentUserPrefs useNewVersionDiffBrowser.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11161	self useProcessMonitorV2 value:currentUserPrefs useProcessMonitorV2.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11162	self useNewFileDialog value:currentUserPrefs useNewFileDialog.
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	11163	self useNewSettingsApplication value:currentUserPrefs useNewSettingsApplication.
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	11164
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11165	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11166	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11167
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11168	!AbstractSettingsApplication::ToolsSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11169
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11170	showClockInLauncher
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11171
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11172	showClockInLauncher isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11173	showClockInLauncher := currentUserPrefs showClockInLauncher asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	11174	showClockInLauncher onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11175	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11176	^ showClockInLauncher.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11177	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11178
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11179	transcriptBufferSize
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11180
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11181	transcriptBufferSize isNil ifTrue:[
5627 d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	11182	transcriptBufferSize := 600 asValue. "/ Transcript current lineLimit asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	11183	transcriptBufferSize onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11184	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11185	^ transcriptBufferSize.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11186	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11187
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11188	useNewChangesBrowser
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11189
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11190	useNewChangesBrowser isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11191	useNewChangesBrowser := currentUserPrefs useNewChangesBrowser asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	11192	useNewChangesBrowser onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11193	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11194	^ useNewChangesBrowser.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11195	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11196
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11197	useNewFileBrowser
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11198
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11199	useNewFileBrowser isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11200	useNewFileBrowser := currentUserPrefs useNewFileBrowser asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	11201	useNewFileBrowser onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11202	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11203	^ useNewFileBrowser.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11204	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11205
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11206	useNewFileDialog
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11207
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11208	useNewFileDialog isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11209	useNewFileDialog := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	11210	useNewFileDialog onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11211	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11212	^ useNewFileDialog.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11213	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11214
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11215	useNewInspector
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11216
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11217	useNewInspector isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11218	useNewInspector := currentUserPrefs useNewInspector asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	11219	useNewInspector onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11220	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11221	^ useNewInspector.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11222	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11223
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11224	useNewSettingsApplication
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11225
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11226	useNewSettingsApplication isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11227	useNewSettingsApplication := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	11228	useNewSettingsApplication onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11229	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11230	^ useNewSettingsApplication.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11231	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11232
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11233	useNewSystemBrowser
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11234
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11235	useNewSystemBrowser isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11236	useNewSystemBrowser := currentUserPrefs useNewSystemBrowser asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	11237	useNewSystemBrowser onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11238	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11239	^ useNewSystemBrowser.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11240	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11241
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11242	useNewVersionDiffBrowser
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11243
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11244	useNewVersionDiffBrowser isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11245	useNewVersionDiffBrowser := currentUserPrefs useNewVersionDiffBrowser asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	11246	useNewVersionDiffBrowser onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11247	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11248	^ useNewVersionDiffBrowser.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11249	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11250
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11251	useProcessMonitorV2
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11252
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11253	useProcessMonitorV2 isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11254	useProcessMonitorV2 := currentUserPrefs useProcessMonitorV2 asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	11255	useProcessMonitorV2 onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11256	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11257	^ useProcessMonitorV2.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11258	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11259
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11260	!AbstractSettingsApplication::ToolsSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11261
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11262	hasUnsavedChanges
5627 d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	11263	(self useNewInspector value ~= currentUserPrefs useNewInspector) ifTrue:[^ true].
d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	11264	(self useNewChangesBrowser value ~= currentUserPrefs useNewChangesBrowser) ifTrue:[^ true].
d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	11265	(self useNewSystemBrowser value ~= currentUserPrefs useNewSystemBrowser) ifTrue:[^ true].
d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	11266	(self showClockInLauncher value ~= currentUserPrefs showClockInLauncher) ifTrue:[^ true].
d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	11267	(self useNewVersionDiffBrowser value ~= currentUserPrefs useNewVersionDiffBrowser) ifTrue:[^ true].
d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	11268	(self useNewFileBrowser value ~= currentUserPrefs useNewFileBrowser) ifTrue:[^ true].
d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	11269	(self useNewFileDialog value ~= currentUserPrefs useNewFileDialog) ifTrue:[^ true].
d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	11270	(self useNewSettingsApplication value ~= currentUserPrefs useNewSettingsApplication) ifTrue:[^ true].
d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	11271	(self useProcessMonitorV2 value ~= currentUserPrefs useProcessMonitorV2) ifTrue:[^ true].
d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	11272	Transcript current isExternalStream ifFalse:[
d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	11273	(self transcriptBufferSize value ~= Transcript current lineLimit) ifTrue:[^ true].
d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	11274	].
d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	11275	^ false.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11276	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11277
4226 44e2f83cc526 initial checkin penk parents: diff changeset	11278	!AbstractSettingsApplication class methodsFor:'documentation'!
44e2f83cc526 initial checkin penk parents: diff changeset	11279
44e2f83cc526 initial checkin penk parents: diff changeset	11280	version
6125 09320e47ccb2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6108 diff changeset	11281	^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.186 2004-11-10 17:56:22 cg Exp $'
09320e47ccb2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6108 diff changeset	11282	! !

author	Claus Gittinger <cg@exept.de>
	Thu, 11 Nov 2004 10:14:21 +0100
changeset 6129	4203bef24b27
parent 6125	09320e47ccb2
child 6135	7c6536c11c6d
permissions	-rw-r--r--