hg/stx-libtool: AbstractSettingsApplication.st@26d4f0a51124 (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
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	16	instanceVariableNames:'settingsString currentUserPrefs modifiedChannel settingsDialog
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	17	requestor'
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	18	classVariableNames:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	19	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 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
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	24	instanceVariableNames:'warnings warnSTX warnDollar warnOldStyle warnCommonMistakes
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	25	warnUnderscore warnCompatibility warnUnusedVars
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	26	warnAboutWrongVariableNames warnAboutBadComments
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	27	warnInconsistentReturnValues warnAboutLowercaseLocalVariableNames
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	28	allowQualifiedNames allowDollar allowReservedWordsAsSelectors
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	29	allowOldStyleAssignment allowUnderscore allowDolphinExtensions
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	30	allowSqueakExtensions allowVisualAgeESSymbolLiterals
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	31	allowFixedPointLiterals justInTimeCompilation canLoadBinaries
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	32	constantFoldingSelection keepSource constantFolding
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	33	constantFoldingOptions fullDebugSupport immutableArrays
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	34	enableUnderscore enableDollar'
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	35	classVariableNames:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	36	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	37	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	38	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	39
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	40	AbstractSettingsApplication subclass:#DebuggerSettingsAppl
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	41	instanceVariableNames:'showErrorNotifier showVerboseStack allowSendMailFromDebugger'
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	42	classVariableNames:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	43	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	44	privateIn:AbstractSettingsApplication
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	45	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	46
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	47	AbstractSettingsApplication subclass:#DisplaySettingsAppl
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	48	instanceVariableNames:'isColorMonitor useFixGrayPaletteLabel useFixPalette sizeY
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	49	clipEncodingListSelection sizeX monitorList ditherList
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	50	clipEncodingList ditherListSelection deepIcons monitorSelection
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	51	useFixPaletteLabel visualIsPseudoColor ditherSymsNotNil
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	52	useFixGrayPalette sizeInfos screen ditherStyles ditherSyms
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	53	screenDepthVisualLabelHolder maxCopyBufferSize'
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	54	classVariableNames:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	55	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	56	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	57	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	58
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	59	AbstractSettingsApplication subclass:#EditSettingsAppl
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	60	instanceVariableNames:'st80EditingMode tabsIs4 st80DoubleClickSelectMode
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	61	searchDialogIsModal startTextDragWithControl'
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	62	classVariableNames:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	63	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	64	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	65	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	66
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	67	AbstractSettingsApplication subclass:#FontSettingsAppl
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	68	instanceVariableNames:'filter allOfThem labelDef buttonDef listDef menuDef textDef
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	69	allFontLabelHolder buttonsFontLabelHolder textFontLabelHolder
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	70	labelsFontLabelHolder listsFontLabelHolder menusFontLabelHolder
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	71	allLabel buttonsLabel textLabel labelLabel listsLabel menuLabel'
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	72	classVariableNames:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	73	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	74	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	75	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	76
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	77	AbstractSettingsApplication subclass:#GeneralCompilerSettingsAppl
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	78	instanceVariableNames:'st80EditingMode tabsIs4 st80DoubleClickSelectMode
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	79	searchDialogIsModal startTextDragWithControl catchClassRedefs
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	80	fullHistoryUpdate historyLines keepSourceSelection keepSource
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	81	hasHistoryManager canLoadBinaries loadBinaries catchMethodRedefs'
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	82	classVariableNames:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	83	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	84	privateIn:AbstractSettingsApplication
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	85	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	86
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	87	AbstractSettingsApplication subclass:#HTTPStartServerSettingsApplication
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	88	instanceVariableNames:'portNumberChannel informationLabel hasNoCreatedServerChannel
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	89	hasCreatedServerChannel useFcgiHolder'
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	90	classVariableNames:'CreatedServers'
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	91	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	92	privateIn:AbstractSettingsApplication
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	93	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	94
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	95	AbstractSettingsApplication subclass:#KbdMappingSettingsAppl
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	96	instanceVariableNames:'selectedRawKey macroTextHolder selectedFunctionKey
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	97	labelTextHolder functionKeyList rawKeyList mappings'
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	98	classVariableNames:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	99	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	100	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	101	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	102
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	103	AbstractSettingsApplication subclass:#LanguageSettingsAppl
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	104	instanceVariableNames:'languageHolder languageIndexHolder languageList
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	105	languageListHolder listOfLanguages translatedLanguages
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	106	noticeLabelHolder currentFlagAndLanguageChannel
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	107	currentLanguageLabel perLanguageResources'
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	108	classVariableNames:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	109	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	110	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	111	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	112
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	113	AbstractSettingsApplication subclass:#MemorySettingsAppl
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	114	instanceVariableNames:'newSpaceSize maxOldSpace fastMoreLimit warningLabelHolder
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	115	codeTrigger codeLimit oldIncr compressLimit igcFreeLimit igcLimit
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	116	igcFreeAmount stackLimit supportsJustInTimeCompilation'
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	117	classVariableNames:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	118	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	119	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	120	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	121
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	122	AbstractSettingsApplication subclass:#MiscCommunicationSettingsAppl
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	123	instanceVariableNames:'remoteBrowsingEnabled windowMigrationEnabled
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	124	windowMigrationPassword windowMigrationAuthenticate
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	125	enablePasswordCheck'
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	126	classVariableNames:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	127	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	128	privateIn:AbstractSettingsApplication
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	129	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	130
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	131	AbstractSettingsApplication subclass:#MiscDisplaySettingsAppl
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	132	instanceVariableNames:'returnFocus focusFollowsMouse beepEnabled takeFocus
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	133	activateOnClick nativeWidgets nativeDialogs shadows
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	134	opaqueVariablePanelResize formatHostNameinWindowLabels
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	135	opaqueTableColumnResize hostNameInLabelHolder showAccelerators
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	136	newWindowLabelFormat formatHostNameWindowLabel'
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	137	classVariableNames:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	138	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	139	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	140	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	141
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	142	AbstractSettingsApplication subclass:#OsiSettingsAppl
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	143	instanceVariableNames:'osiACSEConnectionLogging osiROSEErrorLogging osiCMISEErrorLogging
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	144	osiACSEErrorLogging osiROSEPresent osiCMISEPresent
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	145	osiCMISEMessageLogging osiACSEDataLogging
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	146	osiROSEInvokationLogging osiACSEPresent osiROSEResponseLogging'
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	147	classVariableNames:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	148	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	149	privateIn:AbstractSettingsApplication
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	150	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	151
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	152	AbstractSettingsApplication subclass:#PrinterSettingsAppl
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	153	instanceVariableNames:'selectedUnit supportsColor topMargin rightMargin bottomMargin
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	154	landscape pageFormatList pageFormat unitList leftMargin
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	155	possiblePrinters printerType printerTypeSelection
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	156	printCommandList commandList printCommand printFilename
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	157	enableFormat enablelandscape enableMargins enableColorBox'
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	158	classVariableNames:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	159	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	160	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	161	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	162
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	163	AbstractSettingsApplication subclass:#ProcessorSchedulerSettingsAppl
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	164	instanceVariableNames:'dynamicPrios preemptive'
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	165	classVariableNames:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	166	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	167	privateIn:AbstractSettingsApplication
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	168	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	169
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	170	AbstractSettingsApplication subclass:#RDoItServerSettingsAppl
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	171	instanceVariableNames:'rDoitLogging rDoitsEnabled rDoitErrorLogging hasRDoitServer
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	172	rDoitErrorDebugging rDoitServerPortOrPath'
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	173	classVariableNames:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	174	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	175	privateIn:AbstractSettingsApplication
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	176	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	177
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	178	AbstractSettingsApplication subclass:#SQLServerSettingsAppl
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	179	instanceVariableNames:'sqlServerEnabled sqlSmalltalkServerEnabled sqlLogging
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	180	sqlDataLogging sqlErrorLogging hasSQLServer sqlErrorDebugging
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	181	sqlServerPort'
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	182	classVariableNames:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	183	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	184	privateIn:AbstractSettingsApplication
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	185	!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	186
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	187	AbstractSettingsApplication subclass:#STCCompilerSettingsAppl
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	188	instanceVariableNames:'cc ccOptions stcIncludes linkCommand stc linkArgs linkSharedArgs
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	189	canLoadBinaries stcDefines stcLibraries stcOptions stcLibraryPath
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	190	stcCompilationSelection stcCompilationList makeCommand'
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	191	classVariableNames:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	192	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	193	privateIn:AbstractSettingsApplication
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	194	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	195
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	196	AbstractSettingsApplication subclass:#SourceCodeFormatSettingsAppl
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	197	instanceVariableNames:'spaceAfterKeywordSelector emptyLineAfterTemporaries tabIndent
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	198	autoFormat cStyleBlocks editorText maxLengthForSingleLineBlocks
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	199	blockArgumentsOnNewLine spaceAfterReturnToken
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	200	spaceAroundTemporaries spaceAfterBlockStart spaceBeforeBlockEnd
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	201	oldUserPreferences reformatLocked'
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	202	classVariableNames:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	203	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	204	privateIn:AbstractSettingsApplication
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	205	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	206
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	207	AbstractSettingsApplication subclass:#SourceCodeManagementSettingsAppl
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	208	instanceVariableNames:'sourceCacheDir useManager availableManagers condenseSourceCache
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	209	setupSourceCodeManager checkClassesWhenCheckingIn
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	210	formattingConfiguration flushSourceCache localSourceFirst
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	211	repositoryHolder manager repository listOfModules
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	212	cvsRootPrototypeList addPerModuleRoot removeEnabled
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	213	perModuleRootModule acceptChannel removePerModuleRoot
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	214	perModuleRoot cvsRootHolder selectedPerModuleRoot
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	215	cvsBinDirectoryHolder rootsPerModule cvsLoginInModuleEnabled
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	216	cvsLoginEnabled selectedManagerTypeIndexHolder
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	217	managerIsCVSSourceCodeManager managerIsStoreSourceCodeManager
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	218	storeLoginEnabled storeHostPrototypeList storeHostnameHolder
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	219	storeUsernameHolder storePasswordHolder
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	220	perStoreModuleHostnameHolder perStoreModuleUsernameHolder
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	221	perStoreModulePasswordHolder perStoreModuleRoot
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	222	perStoreModuleRootModule selectedPerStoreModuleRoot
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	223	storeConnectEnabled storeConnectInModuleEnabled
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	224	perModuleFieldsEnableHolder perStoreModuleFieldsEnableHolder'
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	225	classVariableNames:'RecentlyUsedCVSRoots RecentlyUsedStoreHosts LastStoreHost
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	226	LastStoreUser LastStorePassword'
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	227	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	228	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	229	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	230
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	231	AbstractSettingsApplication subclass:#StyleSettingsAppl
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	232	instanceVariableNames:'showStandardStylesOnly styleList selectedStyle
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	233	styleDirectoryContents infoLabelHolder noticeLabelHolder'
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	234	classVariableNames:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	235	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	236	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	237	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	238
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	239	AbstractSettingsApplication subclass:#SyntaxColorSettingsAppl
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	240	instanceVariableNames:'coloredText syntaxColor syntaxColors resetList resetListSelection
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	241	fullSelectorCheck syntaxColoring oldUserPreferences
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	242	syntaxFontSelector syntaxFonts syntaxElementList
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	243	syntaxElementSelection syntaxEmphasisList syntaxEmphasisSelection
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	244	emphasisDictionary resetListDictionary'
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	245	classVariableNames:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	246	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	247	privateIn:AbstractSettingsApplication
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	248	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	249
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	250	AbstractSettingsApplication subclass:#SystemMessageSettingsAppl
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	251	instanceVariableNames:'classInfos vmInfo vmErrors displayErrors logDoits updChanges
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	252	changeFileName beepForInfoDialog beepForWarningDialog
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	253	beepForErrorDialog flyByHelp'
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	254	classVariableNames:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	255	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	256	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	257	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	258
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	259	AbstractSettingsApplication subclass:#ToolsSettingsAppl
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	260	instanceVariableNames:'useNewVersionDiffBrowser transcriptBufferSize useNewInspector
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	261	showClockInLauncher useNewChangesBrowser useNewFileBrowser
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	262	useNewSystemBrowser useNewFileDialog useNewSettingsApplication
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	263	useProcessMonitorV2 useSmalltalkDocumentViewer'
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	264	classVariableNames:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	265	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	266	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	267	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	268
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	269	!AbstractSettingsApplication class methodsFor:'documentation'!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	270
5140 36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	271	copyright
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	272	"
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	273	COPYRIGHT (c) 2002 by eXept Software AG
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	274	All Rights Reserved
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	275
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	276	This software is furnished under a license and may be used
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	277	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	278	inclusion of the above copyright notice. This software may not
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	279	be provided or otherwise made available to, or used by, any
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	280	other person. No title to or ownership of the software is
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	281	hereby transferred.
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	282	"
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	283	! !
4226 44e2f83cc526 initial checkin penk parents: diff changeset	284
4292 68504047f229 * empty log message * penk parents: 4286 diff changeset	285	!AbstractSettingsApplication class methodsFor:'defaults'!
68504047f229 * empty log message * penk parents: 4286 diff changeset	286
68504047f229 * empty log message * penk parents: 4286 diff changeset	287	classResources
68504047f229 * empty log message * penk parents: 4286 diff changeset	288
68504047f229 * empty log message * penk parents: 4286 diff changeset	289	^ AbstractLauncherApplication classResources
5563 5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	290	!
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	291
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	292	resourcePackName
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	293	^ AbstractLauncherApplication resourcePackName
4292 68504047f229 * empty log message * penk parents: 4286 diff changeset	294	! !
68504047f229 * empty log message * penk parents: 4286 diff changeset	295
5283 9264c15059e7 category change penk parents: 5280 diff changeset	296	!AbstractSettingsApplication class methodsFor:'interface specs'!
9264c15059e7 category change penk parents: 5280 diff changeset	297
9264c15059e7 category change penk parents: 5280 diff changeset	298	windowSpec
9264c15059e7 category change penk parents: 5280 diff changeset	299	self subclassResponsibility
9264c15059e7 category change penk parents: 5280 diff changeset	300	! !
9264c15059e7 category change penk parents: 5280 diff changeset	301
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	302	!AbstractSettingsApplication class methodsFor:'queries'!
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	303
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	304	isVisualStartable
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	305	"return true, if this application can be started via #open.
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	306	(to allow start of a change browser via double-click in the browser)"
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	307
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	308	(self == AbstractSettingsApplication) ifTrue:[^ false "I am abstract"].
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	309	^ super isVisualStartable
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	310	! !
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	311
4705 16cfb945d591 * empty log message * penk parents: 4675 diff changeset	312	!AbstractSettingsApplication methodsFor:'accessing'!
16cfb945d591 * empty log message * penk parents: 4675 diff changeset	313
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	314	requestor:something
4705 16cfb945d591 * empty log message * penk parents: 4675 diff changeset	315	"set the value of the instance variable 'requestor' (automatically generated)"
16cfb945d591 * empty log message * penk parents: 4675 diff changeset	316
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	317	requestor := something.
5031 86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	318	!
86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	319
86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	320	settingsDialog
86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	321	^ settingsDialog
86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	322	!
86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	323
86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	324	settingsDialog:something
86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	325	settingsDialog := something.
4705 16cfb945d591 * empty log message * penk parents: 4675 diff changeset	326	! !
16cfb945d591 * empty log message * penk parents: 4675 diff changeset	327
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	328	!AbstractSettingsApplication methodsFor:'actions'!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	329
4598 330907eab7e0 * empty log message * penk parents: 4581 diff changeset	330	evaluateModified
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	331	self obsoleteMethodWarning.
c72e35116b13 instable state penk parents: 5040 diff changeset	332	^ self updateModifiedChannel.
4598 330907eab7e0 * empty log message * penk parents: 4581 diff changeset	333	!
330907eab7e0 * empty log message * penk parents: 4581 diff changeset	334
6782 8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	335	readSettings
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	336	self basicReadSettings.
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	337
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	338	self modifiedChannel value:false.
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	339	!
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	340
6029 40b96dc2621d * empty log message * ca parents: 6025 diff changeset	341	reopenToolsAfterChangedViewStyleSetting
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	342	\|app transcript\|
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	343
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	344	DebugView newDebugger.
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	345	transcript := Transcript current.
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	346	(transcript notNil and:[transcript isExternalStream not]) ifTrue:[
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	347	app := transcript topView application.
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	348	(app respondsTo:#reopenLauncher) ifTrue:[
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	349	app reopenLauncher.
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	350	].
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	351	].
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	352	!
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	353
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	354	saveRequest
4944 fce7d52d36da * empty log message * Claus Gittinger <cg@exept.de> parents: 4941 diff changeset	355	^ self saveRequestAsking:self askForChangeOnRelease
4941 42d9b274824d askForSaving fixed Claus Gittinger <cg@exept.de> parents: 4899 diff changeset	356	!
42d9b274824d askForSaving fixed Claus Gittinger <cg@exept.de> parents: 4899 diff changeset	357
42d9b274824d askForSaving fixed Claus Gittinger <cg@exept.de> parents: 4899 diff changeset	358	saveRequestAsking:askForChangeOnRelease
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	359	\|result\|
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	360
6383 62aec07a7f42 * empty log message * Claus Gittinger <cg@exept.de> parents: 6358 diff changeset	361	self hasUnsavedChanges ifTrue:[
4941 42d9b274824d askForSaving fixed Claus Gittinger <cg@exept.de> parents: 4899 diff changeset	362	askForChangeOnRelease ifTrue:[
4825 97ccd5a946f4 next step penk parents: 4813 diff changeset	363	result := self confirmWithCancel:(resources
6757 fbce24177fdb transcript buffersize fix Claus Gittinger <cg@exept.de> parents: 6743 diff changeset	364	string:'Save changes made in %1 ?' with:settingsString allBold).
4825 97ccd5a946f4 next step penk parents: 4813 diff changeset	365	] ifFalse:[
97ccd5a946f4 next step penk parents: 4813 diff changeset	366	result := true.
97ccd5a946f4 next step penk parents: 4813 diff changeset	367	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	368	result isNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	369	^ false
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	370	].
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	371	result ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	372	self saveSettings
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	373	] ifFalse:[
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	374	"/ self readSettings
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	375	]
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	376	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	377	^ true
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	378	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	379
6782 8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	380	saveSettings
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	381	self basicSaveSettings.
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	382
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	383	self modifiedChannel value:false.
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	384	!
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	385
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	386	saveSettingsIfUnsavedChangesArePresent
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	387	self hasUnsavedChanges ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	388	self saveSettings.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	389	self modifiedChannel value:false
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	390	].
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	391	!
c72e35116b13 instable state penk parents: 5040 diff changeset	392
c72e35116b13 instable state penk parents: 5040 diff changeset	393	updateModifiedChannel
c72e35116b13 instable state penk parents: 5040 diff changeset	394	self modifiedChannel value:self hasUnsavedChanges
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	395	! !
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	396
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	397	!AbstractSettingsApplication methodsFor:'aspects'!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	398
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	399	modifiedChannel
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	400
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	401	modifiedChannel isNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	402	modifiedChannel := false asValue.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	403	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	404	^ modifiedChannel
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	405	! !
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	406
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	407	!AbstractSettingsApplication methodsFor:'helpers'!
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	408
6782 8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	409	hasChangedAspectIn:aListOfAspects asComparedTo:anAspectProvider
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	410	"this code-sharing helper compares a bunch of aspect value against some object.
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	411	The object is typically the current userPreferences object, or a flag-holder, such
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	412	as ParserFlags.
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	413	Using this, and a list of aspect selectors replaces code like:
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	414	someone aspect1 ~= (self aspect1 value) ifTrue:[^ true].
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	415	someone aspect2 ~= (self aspect2 value) ifTrue:[^ true].
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	416	...
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	417	someone aspectN ~= (self aspectN value) ifTrue:[^ true].
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	418	^ false
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	419	Prerequisite:
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	420	local aspects must be named like corresponding aspect methods in the flag-provider.
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	421	"
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	422
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	423	aListOfAspects do:[:eachAspectSymbol \|
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	424	(self perform:eachAspectSymbol) value ~= (anAspectProvider perform:eachAspectSymbol) ifTrue:[^ true].
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	425	].
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	426	^ false
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	427	!
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	428
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	429	readAspects:aListOfAspects from:anAspectProvider
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	430	"this code-sharing helper reads a bunch of aspect values from some object.
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	431	The object is typically the current userPreferences object, or a flag-holder, such
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	432	as ParserFlags.
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	433	Using this, and a list of aspect selectors replaces code like:
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	434	self aspect1 value:(someone aspect1).
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	435	self aspect2 value:(someone aspect2).
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	436	...
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	437	self aspectN value:(someone aspectN).
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	438	Prerequisite:
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	439	local aspects must be named like corresponding aspect methods in the flag-provider.
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	440	"
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	441
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	442	aListOfAspects do:[:eachAspectSymbol \|
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	443	(self perform:eachAspectSymbol) value:(anAspectProvider perform:eachAspectSymbol)
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	444	].
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	445	!
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	446
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	447	writeAspects:aListOfAspects to:anAspectProvider
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	448	"this code-sharing helper writes a bunch of aspect values into some object.
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	449	The object is typically the current userPreferences object, or a flag-holder, such
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	450	as ParserFlags.
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	451	Using this, and a list of aspect selectors replaces code like:
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	452	someone aspect1:(self aspect1 value).
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	453	someone aspect2:(self aspect2 value).
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	454	...
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	455	someone aspectN:(self aspectN value).
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	456	Prerequisite:
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	457	local aspects must be named like corresponding aspect methods in the flag-provider.
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	458	"
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	459
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	460	aListOfAspects do:[:eachAspectSymbol \|
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	461	anAspectProvider perform:(eachAspectSymbol,':')asSymbol with:(self perform:eachAspectSymbol) value
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	462	].
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	463	! !
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	464
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	465	!AbstractSettingsApplication methodsFor:'initialization'!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	466
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	467	initialize
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	468	super initialize.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	469	resources := self class classResources.
6125 09320e47ccb2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6108 diff changeset	470	self initializeCurrentUserPreferences.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	471	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	472	"/ self readSettings.
6125 09320e47ccb2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6108 diff changeset	473	!
09320e47ccb2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6108 diff changeset	474
09320e47ccb2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6108 diff changeset	475	initializeCurrentUserPreferences
09320e47ccb2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6108 diff changeset	476	currentUserPrefs := UserPreferences current.
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	477	! !
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	478
5078 9fafc6b058bc new middleButtonMenu for remove service in SettingsDialog penk parents: 5076 diff changeset	479	!AbstractSettingsApplication methodsFor:'menu'!
9fafc6b058bc new middleButtonMenu for remove service in SettingsDialog penk parents: 5076 diff changeset	480
5080 9c9736712295 middleButtonMenu fix penk parents: 5078 diff changeset	481	settingsDialogPopUpMenu
5078 9fafc6b058bc new middleButtonMenu for remove service in SettingsDialog penk parents: 5076 diff changeset	482	^ nil
9fafc6b058bc new middleButtonMenu for remove service in SettingsDialog penk parents: 5076 diff changeset	483	! !
9fafc6b058bc new middleButtonMenu for remove service in SettingsDialog penk parents: 5076 diff changeset	484
4324 289972d3e455 * empty log message * penk parents: 4319 diff changeset	485	!AbstractSettingsApplication methodsFor:'protocol'!
289972d3e455 * empty log message * penk parents: 4319 diff changeset	486
4873 3ffb8a8812ec * empty log message * penk parents: 4851 diff changeset	487	askForChangeOnRelease
5011 42d7fed9da6a ask for changes Claus Gittinger <cg@exept.de> parents: 4986 diff changeset	488	^ true "/ false
4825 97ccd5a946f4 next step penk parents: 4813 diff changeset	489	!
97ccd5a946f4 next step penk parents: 4813 diff changeset	490
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	491	basicReadSettings
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	492	self subclassResponsibility
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	493	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	494
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	495	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	496
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	497	self subclassResponsibility.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	498	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	499
4324 289972d3e455 * empty log message * penk parents: 4319 diff changeset	500	help
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	501	\|filename\|
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	502
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	503	filename := self helpFilename.
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	504	filename isNil ifTrue:[
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	505	self warn:'Sorry - no help available here.'.
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	506	^ self.
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	507	].
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	508	self withWaitCursorDo:[
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	509	HTMLDocumentView openFullOnHelpFile:filename
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	510	].
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	511	!
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	512
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	513	helpFilename
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	514	"subclasses must return the relative name of a helpFile
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	515	in the doc/online/<language>/help directory.
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	516	Or nil, if no help is available."
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	517
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	518	self subclassResponsibility
4226 44e2f83cc526 initial checkin penk parents: diff changeset	519	! !
44e2f83cc526 initial checkin penk parents: diff changeset	520
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	521	!AbstractSettingsApplication methodsFor:'queries'!
1bde09704293 * empty log message * penk parents: 4893 diff changeset	522
6358 582d839d5b93 * empty log message * Claus Gittinger <cg@exept.de> parents: 6346 diff changeset	523	hasUnsavedChanges
582d839d5b93 * empty log message * Claus Gittinger <cg@exept.de> parents: 6346 diff changeset	524
582d839d5b93 * empty log message * Claus Gittinger <cg@exept.de> parents: 6346 diff changeset	525	^ self subclassResponsibility
582d839d5b93 * empty log message * Claus Gittinger <cg@exept.de> parents: 6346 diff changeset	526	!
582d839d5b93 * empty log message * Claus Gittinger <cg@exept.de> parents: 6346 diff changeset	527
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	528	itemPathName
6389 9f4010737320 code cleanup Claus Gittinger <cg@exept.de> parents: 6383 diff changeset	529	^ settingsDialog getNameOfApplication:self.
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	530	! !
1bde09704293 * empty log message * penk parents: 4893 diff changeset	531
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	532	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class methodsFor:'defaults'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	533
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	534	constantFoldingOptions
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	535
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	536	^ #( nil #level1 #level2 #full )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	537	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	538
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	539	constantFoldingStrings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	540
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	541	^ #('disabled' 'level1 (always safe)' 'level2 (usually safe)' 'full')
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	542	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	543
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	544	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class methodsFor:'image specs'!
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	545
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	546	defaultIcon
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	547	^ self defaultIcon3
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	548	!
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	549
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	550	defaultIcon1
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	551	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	552	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	553
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	554	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	555	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	556
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	557	"
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	558	self defaultIcon1 inspect
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	559	ImageEditor openOnClass:self andSelector:#defaultIcon1
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	560	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	561	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	562
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	563	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	564
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	565	^Icon
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	566	constantNamed:#'AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class defaultIcon1'
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	567	ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#[2]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	568	@@@@@@@@C??????@CUUUUUW@CZ(J@B''@CZ""(''CCZ"(''@CV(J(WKCV"(W@CU""()WJCU(J()W@CUZ%W@CUZ%WACUPJ(EW@CUR""QWDCUQ"!!UWI
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	569	CUPJ!!UWICUQR!!UWJCUQR!!QWACUPFTEW@CUUUUUW@C??????@@@@@@@@B') ; colorMapFromArray:#[0 0 0 255 255 255 255 189 23 127 127 127]; mask:((ImageMask new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8@@@@') ; yourself); yourself]
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	570	!
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	571
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	572	defaultIcon2
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	573	"This resource specification was automatically generated
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	574	by the ImageEditor of ST/X."
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	575
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	576	"Do not manually edit this!! If it is corrupted,
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	577	the ImageEditor may not be able to read the specification."
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	578
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	579	"
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	580	self defaultIcon2 inspect
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	581	ImageEditor openOnClass:self andSelector:#defaultIcon2
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	582	Icon flushCachedIcons
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	583	"
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	584
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	585	<resource: #image>
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	586
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	587	^Icon
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	588	constantNamed:#'AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class defaultIcon2'
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	589	ifAbsentPut:[(Depth8Image new) width: 24; height: 24; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	590	A@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PD@0LDA@PDA@PDA@PDA@PDA@PD
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	591	A@PDA@LCA PCA@P@@@@@@@@@@@@@@@@@@@@D@0PFA PCA@PC@0@@@@@@@@@@@@@C@0@D@0PFAPTD@0LDA L@@@@@@@@@@@LFA@LCA@TEAPTEA@PE@PL@@@@@
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	592	@@@@@@LAAPPDAPTEAPTEAPTF@0@@@@@@@@@@@@@CA TEAPTEA DFAPTD@0@@@@@@@@@@@@@CA@TEA DF@0LAA TEA@LC@@@@@@@@@0LDAPTF@PLC@ HC@PTE
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	593	APPD@0@@@@@CA@PEAPTA@0HB@ HCA TEAPDA@0@@@@@C@PDEAPTF@0HB@0LDAPTFA LC@@@@@@@@@0LFA TEA@LCA@PEAPTF@0PD@@@@@@@@@@PCA TEAPPD
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	594	APTEAPTD@0PDA@@@@@@@A@PCA@TEAPTEAPTEA DEA@LDA@@@@@@@A@LDAPDFAPTEAPTD@0LAA LDA@P@@@@DA@LF@PLCA@TE@PPCA@PC@0PDA@P@@@@DA@PC
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	595	@0PD@0PA@PPCA@PDA@PDA@PD@@PDA@PDA@PD@0PA@0LDA@PDA@PDA@PDA@PDA@PDA@PDA@LCA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PD
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	596	A@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PD') ; colorMapFromArray:#[255 189 23 127 127 127 236 233 216 0 0 0 255 255 255 194 194 194 161 161 165]; yourself]
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	597	!
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	598
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	599	defaultIcon3
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	600	"This resource specification was automatically generated
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	601	by the ImageEditor of ST/X."
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	602
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	603	"Do not manually edit this!! If it is corrupted,
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	604	the ImageEditor may not be able to read the specification."
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	605
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	606	"
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	607	self defaultIcon3 inspect
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	608	ImageEditor openOnClass:self andSelector:#defaultIcon3
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	609	Icon flushCachedIcons
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	610	"
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	611
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	612	<resource: #image>
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	613
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	614	^Icon
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	615	constantNamed:#'AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class defaultIcon3'
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	616	ifAbsentPut:[(Depth8Image new) width: 24; height: 24; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	617	A@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PC@0PDA@PD
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	618	A@PDA@PDA@PDA@PDA@PDA@LDA LDA@PDA@PDA@PDA@PDA@PD@0LDA@LDA LDA@LCA@PDA@PDA@PDA@PCA PC@0PEAPPC@0PF@0PDA@PDA@PDA@PC@PTDA@TE
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	619	APTDA@TA@0PDA@PDA@PDA@PD@0XEAPTEAPTEAPXCA@PDA@PDA@PDA@PD@0PEAPXAA XEAPPCA@PDA@PDA@PDA@LCA@TEA DC@0DFAPTD@0LDA@PDA@PD@0PD
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	620	APTE@PLB@ LAAPTEA@PCA@P@A@PD@0DAAPTEA LB@ LFAPTE@PDCA@P@A@PDA@LCA XEAPPC@0PEAPXF@0LDA@PDA@PDA@PD@0XEAPTDA@TEAPXCA@PDA@PD
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	621	A@PDA@PD@0PEAPTEAPTEAPPCA@PDA@PDA@PDA@PCA@TAA TEAPTF@PTD@0PDA@PDA@PDA@PCA DC@0PEAPPC@0DF@0PDA@PDA@PDA@PD@0LDA@LD@PLDA@LC
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	622	A@PDA@PDA@PDA@PDA@PDA@LD@PLDA@PDA@PDA@PDA@PDA@PDA@PDA@PC@0PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PD
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	623	A@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PD') ; colorMapFromArray:#[255 189 23 127 127 127 236 233 216 0 0 0 255 255 255 194 194 194 161 161 165]; mask:((Depth1Image new) width: 24; height: 24; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@A @@C0@@33@A?? A?? @??@@??@C??0G??8G??8C??0@??@@??@A?? A?? @33@@C0@@A @@@@@@@@@@@@@') ; yourself); yourself]
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	624	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	625
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	626	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class methodsFor:'interface specs'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	627
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	628	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	629	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	630	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	631
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	632	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	633	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	634
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	635	"
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	636	UIPainter new openOnClass:AbstractSettingsApplication::ByteCodeCompilerSettingsAppl andSelector:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	637	AbstractSettingsApplication::ByteCodeCompilerSettingsAppl new openInterface:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	638	AbstractSettingsApplication::ByteCodeCompilerSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	639	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	640
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	641	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	642
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	643	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	644	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	645	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	646	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	647	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	648	label: 'Byte Code Compiler Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	649	name: 'Byte Code Compiler Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	650	min: (Point 10 10)
6473 d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	651	bounds: (Rectangle 0 0 665 689)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	652	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	653	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	654	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	655	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	656	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	657	name: 'VerticalPanel1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	658	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	659	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	660	verticalLayout: top
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	661	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	662	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	663	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	664	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	665	collection: (
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: 'Just in Time Compilation to Machine Code'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	668	name: 'JustInTimeCompilation'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	669	model: justInTimeCompilation
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	670	translateLabel: true
6473 d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	671	extent: (Point 665 25)
5149 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	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	674	name: 'Separator3'
6473 d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	675	extent: (Point 665 3)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	676	)
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	677	(ViewSpec
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	678	name: 'Box1'
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	679	component:
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	680	(SpecCollection
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	681	collection: (
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	682	(VerticalPanelViewSpec
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	683	name: 'VerticalPanel1_1'
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	684	layout: (LayoutFrame 0 0 0 0 -20 0.5 0 1)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	685	horizontalLayout: fit
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	686	verticalLayout: top
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	687	horizontalSpace: 3
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	688	verticalSpace: 3
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	689	component:
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	690	(SpecCollection
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	691	collection: (
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	692	(CheckBoxSpec
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	693	label: 'Allow Underscore in Identifiers'
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	694	name: 'AllowUnderscoreInIdentifiers'
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	695	model: allowUnderscoreInIdentifier
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	696	translateLabel: true
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	697	extent: (Point 313 22)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	698	)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	699	(CheckBoxSpec
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	700	label: 'Allow Dollar in Identifiers'
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	701	name: 'AllowDollarInIdentifiers'
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	702	model: allowDollarInIdentifier
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	703	translateLabel: true
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	704	extent: (Point 313 22)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	705	)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	706	(CheckBoxSpec
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	707	label: 'Allow VW3 QualifiedNames'
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	708	name: 'AllowVW3QualifiedNames'
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	709	model: allowQualifiedNames
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	710	translateLabel: true
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	711	extent: (Point 313 22)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	712	)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	713	(CheckBoxSpec
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	714	label: 'Allow OldStyle Assignment (_)'
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	715	name: 'AllowOldStyleAssignment'
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	716	model: allowOldStyleAssignment
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	717	translateLabel: true
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	718	extent: (Point 313 22)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	719	)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	720	(CheckBoxSpec
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	721	label: 'Allow Reserved Words as Selector (self)'
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	722	name: 'AllowReservedWordsAsSelector'
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	723	model: allowReservedWordsAsSelectors
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	724	translateLabel: true
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	725	extent: (Point 313 22)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	726	)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	727	)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	728
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	729	)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	730	)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	731	(VerticalPanelViewSpec
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	732	name: 'VerticalPanel1_2'
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	733	layout: (LayoutFrame 0 0.5 0 0 0 1 0 1)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	734	horizontalLayout: left
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	735	verticalLayout: top
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	736	horizontalSpace: 3
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	737	verticalSpace: 3
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	738	component:
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	739	(SpecCollection
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	740	collection: (
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	741	(CheckBoxSpec
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	742	label: 'Allow Squeak Extensions'
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	743	name: 'AllowSqueakExtensions'
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	744	model: allowSqueakExtensions
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	745	translateLabel: true
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	746	extent: (Point 665 22)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	747	)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	748	(CheckBoxSpec
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	749	label: 'Allow Dolphin Extensions'
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	750	name: 'AllowDolphinExtensions'
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	751	model: allowDolphinExtensions
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	752	translateLabel: true
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	753	extent: (Point 665 22)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	754	)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	755	(CheckBoxSpec
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	756	label: 'Allow VisualAge ES-Symbols'
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	757	name: 'AllowVisualAgeESSymbolLiterals'
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	758	model: allowVisualAgeESSymbolLiterals
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	759	translateLabel: true
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	760	extent: (Point 665 22)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	761	)
6578 560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	762	(CheckBoxSpec
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	763	label: 'Allow FixedPoint-Number Literals'
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	764	name: 'AllowFixedPointLiterals'
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	765	model: allowFixedPointLiterals
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	766	translateLabel: true
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	767	extent: (Point 665 22)
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	768	)
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	769	)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	770
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	771	)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	772	)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	773	)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	774
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	775	)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	776	extent: (Point 665 118)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	777	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	778	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	779	name: 'Separator4'
6473 d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	780	extent: (Point 665 3)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	781	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	782	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	783	label: 'Warnings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	784	name: 'Warnings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	785	model: warnings
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	786	translateLabel: true
6473 d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	787	extent: (Point 665 22)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	788	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	789	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	790	name: 'Box2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	791	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	792	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	793	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	794	(VerticalPanelViewSpec
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	795	name: 'VerticalPanel2_1'
6497 a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	796	layout: (LayoutFrame 20 0 0 0 0 0.5 0 1)
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	797	horizontalLayout: fit
6497 a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	798	verticalLayout: top
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	799	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	800	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	801	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	802	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	803	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	804	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	805	label: 'ST/X Extensions'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	806	name: 'STXExtensions'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	807	enableChannel: warnings
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	808	model: warnSTXSpecials
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	809	translateLabel: true
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	810	extent: (Point 313 22)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	811	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	812	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	813	label: 'Underscores in Identifiers'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	814	name: 'UnderscoresInIdentifiers'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	815	enableChannel: enableUnderscore
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	816	model: warnUnderscoreInIdentifier
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	817	translateLabel: true
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	818	extent: (Point 313 22)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	819	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	820	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	821	label: 'Dollars in Identifiers'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	822	name: 'DollarsInIdentifiers'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	823	enableChannel: enableDollar
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	824	model: warnDollarInIdentifier
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	825	translateLabel: true
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	826	extent: (Point 313 22)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	827	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	828	(CheckBoxSpec
6497 a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	829	label: 'OldStyle Assignment'
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	830	name: 'OldStyleAssignment'
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	831	enableChannel: warnings
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	832	model: warnOldStyleAssignment
6497 a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	833	translateLabel: true
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	834	extent: (Point 313 22)
6497 a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	835	)
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	836	(CheckBoxSpec
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	837	label: 'Possible Incompatibilities'
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	838	name: 'PossibleIncompatibilities'
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	839	enableChannel: warnings
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	840	model: warnPossibleIncompatibilities
6497 a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	841	translateLabel: true
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	842	extent: (Point 313 22)
6497 a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	843	)
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	844	)
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	845
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	846	)
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	847	)
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	848	(VerticalPanelViewSpec
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	849	name: 'VerticalPanel2_2'
6497 a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	850	layout: (LayoutFrame 0 0.5 0 0 0 1 0 1)
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	851	horizontalLayout: left
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	852	verticalLayout: top
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	853	horizontalSpace: 3
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	854	verticalSpace: 3
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	855	component:
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	856	(SpecCollection
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	857	collection: (
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	858	(CheckBoxSpec
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	859	label: 'Unused Method Variables'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	860	name: 'UnusedMethodVariables'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	861	enableChannel: warnings
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	862	model: warnUnusedVars
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	863	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	864	extent: (Point 600 22)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	865	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	866	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	867	label: 'Common Mistakes'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	868	name: 'CommonMistakes'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	869	enableChannel: warnings
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	870	model: warnCommonMistakes
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	871	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	872	extent: (Point 600 22)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	873	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	874	(CheckBoxSpec
6497 a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	875	label: 'Bad (non-English) Variable Names'
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	876	name: 'BadVariableNames'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	877	enableChannel: warnings
6497 a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	878	model: warnAboutWrongVariableNames
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	879	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	880	extent: (Point 600 22)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	881	)
6473 d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	882	(CheckBoxSpec
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	883	label: 'Bad (Lowercase) Local Variable Names'
6769 4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	884	name: 'BadLocalVariableNames'
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	885	enableChannel: warnings
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	886	model: warnAboutLowercaseLocalVariableNames
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	887	translateLabel: true
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	888	extent: (Point 600 22)
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	889	)
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	890	(CheckBoxSpec
6497 a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	891	label: 'Bad (empty) Comments'
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	892	name: 'BadComments'
6473 d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	893	enableChannel: warnings
6497 a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	894	model: warnAboutBadComments
6473 d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	895	translateLabel: true
d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	896	extent: (Point 600 22)
d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	897	)
6580 db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	898	(CheckBoxSpec
db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	899	label: 'Inconsistent Return Values'
db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	900	name: 'InconsistentReturnValues'
db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	901	enableChannel: warnings
db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	902	model: warnInconsistentReturnValues
db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	903	translateLabel: true
db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	904	extent: (Point 600 22)
db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	905	)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	906	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	907
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	908	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	909	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	910	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	911
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	912	)
6769 4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	913	extent: (Point 665 150)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	914	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	915	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	916	name: 'Separator5'
6473 d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	917	extent: (Point 665 2)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	918	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	919	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	920	label: 'Literal Arrays are Immutable'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	921	name: 'LiteralArraysAreImmutable'
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	922	model: arraysAreImmutable
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	923	translateLabel: true
6473 d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	924	extent: (Point 665 22)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	925	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	926	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	927	label: 'Full Debug Info'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	928	name: 'FullDebugInfo'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	929	model: fullDebugSupport
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	930	translateLabel: true
6473 d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	931	extent: (Point 665 22)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	932	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	933	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	934	name: 'Separator6'
6473 d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	935	extent: (Point 665 2)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	936	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	937	(ViewSpec
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	938	name: 'Box3'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	939	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	940	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	941	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	942	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	943	label: 'Constant Folding:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	944	name: 'ConstantFoldingLabel'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	945	layout: (LayoutFrame 0 0 0 0 229 0 22 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	946	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	947	adjust: right
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	948	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	949	(PopUpListSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	950	label: 'PopUp List'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	951	name: 'ConstantFolding'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	952	layout: (LayoutFrame 234 0 0 0 -5 1 22 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	953	tabable: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	954	model: constantFoldingSelection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	955	menu: constantFolding
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	956	useIndex: true
4428 00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	957	)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	958	)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	959
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	960	)
6473 d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	961	extent: (Point 665 22)
4428 00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	962	)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	963	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	964
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	965	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	966	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	967	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	968
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	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	972
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	973	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'actions'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	974
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	975	basicReadSettings
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	976	self
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	977	readAspects:
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	978	#(
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	979	allowDollarInIdentifier
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	980	allowDolphinExtensions
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	981	allowOldStyleAssignment
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	982	allowQualifiedNames
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	983	allowReservedWordsAsSelectors
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	984	allowSqueakExtensions
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	985	allowUnderscoreInIdentifier
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	986	allowVisualAgeESSymbolLiterals
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	987	allowFixedPointLiterals
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	988	arraysAreImmutable
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	989	warnings
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	990	warnCommonMistakes
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	991	warnPossibleIncompatibilities
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	992	warnDollarInIdentifier
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	993	warnOldStyleAssignment
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	994	warnSTXSpecials
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	995	warnUnderscoreInIdentifier
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	996	warnUnusedVars
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	997	warnAboutWrongVariableNames
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	998	warnAboutBadComments
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	999	warnInconsistentReturnValues
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	1000	warnAboutLowercaseLocalVariableNames
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	1001	)
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	1002	from:ParserFlags.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1003
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1004	self constantFoldingSelection
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1005	value:(self class constantFoldingOptions indexOf:Compiler foldConstants ifAbsent:3).
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1006	self supportsJustInTimeCompilation ifTrue:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1007	self fullDebugSupport value:(ObjectMemory fullSingleStepSupport ? false)
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1008	] ifFalse:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1009	self fullDebugSupport value:(Compiler lineNumberInfo == #full)
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1010	].
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1011	self supportsJustInTimeCompilation ifTrue:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1012	self justInTimeCompilation value:(ObjectMemory justInTimeCompilation ? false)
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1013	] ifFalse:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1014	self justInTimeCompilation value:false
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1015	].
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1016	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1017
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1018	basicSaveSettings
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	1019	self
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	1020	writeAspects:
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	1021	#(
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	1022	warnings
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	1023	warnSTXSpecials
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	1024	warnOldStyleAssignment
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	1025	warnUnderscoreInIdentifier
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	1026	warnDollarInIdentifier
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	1027	warnCommonMistakes
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	1028	warnPossibleIncompatibilities
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	1029	warnUnusedVars
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	1030	warnAboutWrongVariableNames
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	1031	warnAboutBadComments
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	1032	warnInconsistentReturnValues
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	1033	warnAboutLowercaseLocalVariableNames
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	1034	allowUnderscoreInIdentifier
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	1035	allowDollarInIdentifier
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	1036	allowSqueakExtensions
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	1037	allowDolphinExtensions
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	1038	allowQualifiedNames
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	1039	allowOldStyleAssignment
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	1040	allowReservedWordsAsSelectors
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	1041	allowVisualAgeESSymbolLiterals
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	1042	allowFixedPointLiterals
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	1043	arraysAreImmutable
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	1044	)
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	1045	to:ParserFlags.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1046
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1047	self fullDebugSupport value ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1048	Compiler lineNumberInfo:#full.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1049	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1050	Compiler lineNumberInfo:true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1051	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1052
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1053	Compiler foldConstants:(self class constantFoldingOptions at:self constantFoldingSelection value).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1054
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1055	self supportsJustInTimeCompilation ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1056	\| justInTime \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1057	justInTime := self justInTimeCompilation value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1058	justInTime ifTrue:[
6662 3deee4183f1d code cleanup: use new Smalltalk>>allMethodsDo: Claus Gittinger <cg@exept.de> parents: 6638 diff changeset	1059	Smalltalk allMethodsDo:[:m \| m checked:false].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1060	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1061	ObjectMemory justInTimeCompilation:justInTime.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1062	ObjectMemory fullSingleStepSupport:self fullDebugSupport value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1063	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1064	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1065
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	1066	helpFilename
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	1067	^ 'Launcher/compilerSettings.html'
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1068	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1069
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1070	stcCompilerSettings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1071
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1072	AbstractLauncherApplication::LauncherDialogs stcCompilerSettings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1073	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1074
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1075	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'aspects'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1076
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1077	allowDollarInIdentifier
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1078
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1079	allowDollar isNil ifTrue:[
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1080	allowDollar := Compiler allowDollarInIdentifier asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1081	allowDollar onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1082	allowDollar addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1083	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1084	^ allowDollar.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1085	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1086
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1087	allowDolphinExtensions
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1088
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1089	allowDolphinExtensions isNil ifTrue:[
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1090	allowDolphinExtensions := Compiler allowDolphinExtensions asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1091	allowDolphinExtensions onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1092	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1093	^ allowDolphinExtensions.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1094	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1095
6578 560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	1096	allowFixedPointLiterals
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	1097
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	1098	allowFixedPointLiterals isNil ifTrue:[
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	1099	allowFixedPointLiterals := (ParserFlags allowFixedPointLiterals ? false) asValue.
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	1100	allowFixedPointLiterals onChangeSend:#updateModifiedChannel to:self.
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	1101	].
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	1102	^ allowFixedPointLiterals.
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	1103	!
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	1104
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1105	allowOldStyleAssignment
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1106
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1107	allowOldStyleAssignment isNil ifTrue:[
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1108	allowOldStyleAssignment := Compiler allowOldStyleAssignment asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1109	allowOldStyleAssignment onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1110	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1111	^ allowOldStyleAssignment.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1112	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1113
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1114	allowQualifiedNames
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1115
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1116	allowQualifiedNames isNil ifTrue:[
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1117	allowQualifiedNames := Compiler allowQualifiedNames asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1118	allowQualifiedNames onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1119	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1120	^ allowQualifiedNames.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1121	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1122
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1123	allowReservedWordsAsSelectors
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1124
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1125	allowReservedWordsAsSelectors isNil ifTrue:[
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1126	allowReservedWordsAsSelectors := Compiler allowReservedWordsAsSelectors asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1127	allowReservedWordsAsSelectors onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1128	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1129	^ allowReservedWordsAsSelectors.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1130	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1131
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1132	allowSqueakExtensions
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1133
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1134	allowSqueakExtensions isNil ifTrue:[
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1135	allowSqueakExtensions := Compiler allowSqueakExtensions asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1136	allowSqueakExtensions onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1137	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1138	^ allowSqueakExtensions.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1139	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1140
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1141	allowUnderscoreInIdentifier
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1142
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1143	allowUnderscore isNil ifTrue:[
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1144	allowUnderscore := Compiler allowUnderscoreInIdentifier asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1145	allowUnderscore onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1146	allowUnderscore addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1147	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1148	^ allowUnderscore.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1149	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1150
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1151	allowVisualAgeESSymbolLiterals
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1152
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1153	allowVisualAgeESSymbolLiterals isNil ifTrue:[
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1154	allowVisualAgeESSymbolLiterals := ParserFlags allowVisualAgeESSymbolLiterals asValue.
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1155	allowVisualAgeESSymbolLiterals onChangeSend:#updateModifiedChannel to:self.
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1156	].
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1157	^ allowVisualAgeESSymbolLiterals.
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1158	!
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1159
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1160	arraysAreImmutable
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1161
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1162	immutableArrays isNil ifTrue:[
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1163	immutableArrays := Compiler arraysAreImmutable asValue.
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1164	immutableArrays onChangeSend:#updateModifiedChannel to:self.
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1165	].
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1166	^ immutableArrays.
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1167	!
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1168
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1169	constantFolding
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1170
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1171	constantFolding isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1172	constantFolding := (resources array:(self class constantFoldingStrings)) asList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1173	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1174	^ constantFolding.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1175	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1176
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1177	constantFoldingOptions
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1178
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1179	constantFoldingOptions isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1180	constantFoldingOptions := self class constantFoldingOptions.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1181	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1182	^ constantFoldingOptions.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1183	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1184
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1185	constantFoldingSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1186
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1187	constantFoldingSelection isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1188	\| index \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1189	index := self class constantFoldingOptions indexOf:Compiler foldConstants ifAbsent:3.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1190	constantFoldingSelection := index asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1191	constantFoldingSelection onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1192	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1193	^ constantFoldingSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1194	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1195
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1196	enableDollar
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1197
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1198	enableDollar isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1199	enableDollar := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1200	enableDollar addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1201	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1202	^ enableDollar.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1203	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1204
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1205	enableUnderscore
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1206	"automatically generated by UIPainter ..."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1207
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1208	"*** the code below creates a default model when invoked."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1209	"*** (which may not be the one you wanted)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1210	"*** Please change as required and accept it in the browser."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1211	"*** (and replace this comment by something more useful ;-)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1212
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1213	enableUnderscore isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1214	enableUnderscore := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1215	"/ if your app needs to be notified of changes, uncomment one of the lines below:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1216	"/ enableUnderscore addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1217	"/ enableUnderscore onChangeSend:#enableUnderscoreChanged to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1218	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1219	^ enableUnderscore.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1220	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1221
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1222	fullDebugSupport
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1223
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1224	fullDebugSupport isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1225	self supportsJustInTimeCompilation ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1226	fullDebugSupport := (ObjectMemory fullSingleStepSupport ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1227	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1228	fullDebugSupport := (Compiler lineNumberInfo == #full) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1229	].
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1230	fullDebugSupport onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1231	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1232	^ fullDebugSupport.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1233	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1234
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1235	justInTimeCompilation
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1236
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1237	justInTimeCompilation isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1238	self supportsJustInTimeCompilation ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1239	justInTimeCompilation := (ObjectMemory justInTimeCompilation ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1240	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1241	justInTimeCompilation := false asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1242	].
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1243	justInTimeCompilation onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1244	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1245	^ justInTimeCompilation.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1246	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1247
6497 a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1248	warnAboutBadComments
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1249	warnAboutBadComments isNil ifTrue:[
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1250	warnAboutBadComments := ParserFlags warnAboutBadComments asValue.
6497 a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1251	warnAboutBadComments onChangeSend:#updateModifiedChannel to:self.
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1252	].
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1253	^ warnAboutBadComments.
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1254	!
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1255
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	1256	warnAboutLowercaseLocalVariableNames
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	1257	warnAboutLowercaseLocalVariableNames isNil ifTrue:[
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	1258	warnAboutLowercaseLocalVariableNames := ParserFlags warnAboutLowercaseLocalVariableNames asValue.
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	1259	warnAboutLowercaseLocalVariableNames onChangeSend:#updateModifiedChannel to:self.
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	1260	].
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	1261	^ warnAboutLowercaseLocalVariableNames.
6769 4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	1262	!
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	1263
6473 d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	1264	warnAboutWrongVariableNames
d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	1265	warnAboutWrongVariableNames isNil ifTrue:[
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1266	warnAboutWrongVariableNames := ParserFlags warnAboutWrongVariableNames asValue.
6473 d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	1267	warnAboutWrongVariableNames onChangeSend:#updateModifiedChannel to:self.
d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	1268	].
d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	1269	^ warnAboutWrongVariableNames.
d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	1270	!
d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	1271
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1272	warnCommonMistakes
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1273
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1274	warnCommonMistakes isNil ifTrue:[
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1275	warnCommonMistakes := ParserFlags warnCommonMistakes asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1276	warnCommonMistakes onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1277	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1278	^ warnCommonMistakes.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1279	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1280
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1281	warnDollarInIdentifier
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1282
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1283	warnDollar isNil ifTrue:[
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1284	warnDollar := ParserFlags warnDollarInIdentifier asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1285	warnDollar onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1286	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1287	^ warnDollar.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1288	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1289
6580 db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	1290	warnInconsistentReturnValues
db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	1291	warnInconsistentReturnValues isNil ifTrue:[
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1292	warnInconsistentReturnValues := ParserFlags warnInconsistentReturnValues asValue.
6580 db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	1293	warnInconsistentReturnValues onChangeSend:#updateModifiedChannel to:self.
db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	1294	].
db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	1295	^ warnInconsistentReturnValues.
db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	1296	!
db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	1297
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1298	warnOldStyleAssignment
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1299
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1300	warnOldStyle isNil ifTrue:[
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1301	warnOldStyle := ParserFlags warnOldStyleAssignment asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1302	warnOldStyle onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1303	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1304	^ warnOldStyle.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1305	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1306
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1307	warnPossibleIncompatibilities
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1308
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1309	warnCompatibility isNil ifTrue:[
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1310	warnCompatibility := ParserFlags warnPossibleIncompatibilities asValue.
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1311	warnCompatibility onChangeSend:#updateModifiedChannel to:self.
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1312	].
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1313	^ warnCompatibility.
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1314	!
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1315
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1316	warnSTXSpecials
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1317
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1318	warnSTX isNil ifTrue:[
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1319	warnSTX := ParserFlags warnSTXSpecials asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1320	warnSTX onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1321	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1322	^ warnSTX.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1323	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1324
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1325	warnUnderscoreInIdentifier
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1326
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1327	warnUnderscore isNil ifTrue:[
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1328	warnUnderscore := ParserFlags warnUnderscoreInIdentifier asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1329	warnUnderscore onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1330	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1331	^ warnUnderscore.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1332	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1333
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1334	warnUnusedVars
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1335
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1336	warnUnusedVars isNil ifTrue:[
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1337	warnUnusedVars := Compiler warnUnusedVars asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1338	warnUnusedVars onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1339	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1340	^ warnUnusedVars.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1341	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1342
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1343	warnings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1344
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1345	warnings isNil ifTrue:[
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1346	warnings := ParserFlags warnings asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1347	warnings addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1348	warnings changed.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1349	warnings onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1350	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1351	^ warnings.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1352	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1353
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1354	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'change & update'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1355
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1356	update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1357	changedObject == self warnings ifTrue:[
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	1358	changedObject value ifTrue:[
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1359	self enableUnderscore value:self allowUnderscoreInIdentifier value.
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1360	self enableDollar value:self allowDollarInIdentifier value.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1361	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1362	self enableUnderscore value:false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1363	self enableDollar value:false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1364	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1365	^ self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1366	].
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1367	(changedObject == self allowDollarInIdentifier or:[changedObject == self allowUnderscoreInIdentifier]) ifTrue:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1368	self warnings changed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1369	^ self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1370	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1371
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1372	super update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1373	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1374
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1375	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'queries'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1376
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1377	hasUnsavedChanges
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	1378	(self
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	1379	hasChangedAspectIn:
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	1380	#(
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	1381	warnings
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	1382	warnCommonMistakes
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	1383	warnUnusedVars
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	1384	warnAboutWrongVariableNames
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	1385	warnAboutBadComments
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	1386	warnInconsistentReturnValues
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	1387	warnAboutLowercaseLocalVariableNames
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	1388	warnSTXSpecials
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	1389	warnOldStyleAssignment
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	1390	warnUnderscoreInIdentifier
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	1391	warnDollarInIdentifier
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	1392	warnPossibleIncompatibilities
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	1393
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	1394	allowVisualAgeESSymbolLiterals
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	1395	allowSqueakExtensions
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	1396	allowDolphinExtensions
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	1397	allowQualifiedNames
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	1398	allowOldStyleAssignment
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	1399	allowReservedWordsAsSelectors
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	1400	allowUnderscoreInIdentifier
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	1401	allowDollarInIdentifier
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	1402	allowFixedPointLiterals
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	1403	arraysAreImmutable
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	1404	)
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	1405	asComparedTo:ParserFlags) ifTrue:[^ true].
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1406
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	1407	((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	1408	((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	1409	((ObjectMemory justInTimeCompilation ? false) ~= self justInTimeCompilation value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	1410	^ false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1411	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1412
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1413	supportsJustInTimeCompilation
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1414
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1415	^ ObjectMemory supportsJustInTimeCompilation
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1416	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1417
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1418	!AbstractSettingsApplication::DebuggerSettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1419
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1420	defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1421	<resource: #programImage>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1422
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1423	^ ToolbarIconLibrary bugReporter24x24Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1424	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1425
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1426	!AbstractSettingsApplication::DebuggerSettingsAppl class methodsFor:'interface specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1427
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1428	windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1429	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1430	by the UIPainter of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1431
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1432	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1433	the UIPainter may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1434
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1435	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1436	UIPainter new openOnClass:AbstractSettingsApplication::DebuggerSettingsAppl andSelector:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1437	AbstractSettingsApplication::DebuggerSettingsAppl new openInterface:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1438	AbstractSettingsApplication::DebuggerSettingsAppl open
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1439	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1440
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1441	<resource: #canvas>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1442
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1443	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1444	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1445	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1446	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1447	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1448	label: 'Debugger Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1449	name: 'Debugger Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1450	min: (Point 10 10)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1451	bounds: (Rectangle 14 46 614 366)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1452	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1453	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1454	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1455	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1456	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1457	name: 'VerticalPanel2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1458	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	1459	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1460	verticalLayout: top
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1461	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1462	verticalSpace: 5
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1463	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1464	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1465	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1466	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1467	name: 'VerticalPanel5'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1468	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1469	verticalLayout: topSpace
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1470	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1471	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1472	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1473	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1474	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1475	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1476	name: 'Box10'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1477	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1478	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1479	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1480	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1481	label: 'Show Error Notifier before Opening Debugger'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1482	name: 'ShowErrorNotifierCheckBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1483	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	1484	model: showErrorNotifier
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1485	translateLabel: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1486	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1487	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1488
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1489	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1490	extent: (Point 600 30)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1491	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1492	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1493	name: 'Box11'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1494	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1495	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1496	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1497	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1498	label: 'Verbose Backtrace by Default in Debugger'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1499	name: 'ShowVerboseStackCheckBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1500	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	1501	model: showVerboseStack
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1502	translateLabel: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1503	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1504	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1505
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1506	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1507	extent: (Point 600 30)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1508	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1509	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1510	name: 'Box12'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1511	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1512	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1513	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1514	(CheckBoxSpec
6018 4f403b3bd8ea * empty log message * Claus Gittinger <cg@exept.de> parents: 6017 diff changeset	1515	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	1516	name: 'CheckBox6'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1517	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	1518	model: allowSendMailFromDebugger
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1519	translateLabel: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1520	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1521	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1522
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1523	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1524	extent: (Point 600 30)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1525	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1526	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1527
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1528	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1529	extent: (Point 600 320)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1530	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1531	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1532
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1533	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1534	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1535	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1536
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1537	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1538	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1539	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1540
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1541	!AbstractSettingsApplication::DebuggerSettingsAppl methodsFor:'actions'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1542
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1543	basicReadSettings
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1544	self allowSendMailFromDebugger value:currentUserPrefs allowSendMailFromDebugger.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1545	self showErrorNotifier value:(NoHandlerError emergencyHandler == AbstractLauncherApplication notifyingEmergencyHandler).
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1546	self showVerboseStack value:(DebugView defaultVerboseBacktrace ? false).
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1547	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1548
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1549	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1550	currentUserPrefs allowSendMailFromDebugger:self allowSendMailFromDebugger value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1551	self showErrorNotifier value ifFalse:[
6165 2bd97fffdf95 EmergencyHandlers have been relocated to NoHandlerError long ago Stefan Vogel <sv@exept.de> parents: 6163 diff changeset	1552	NoHandlerError emergencyHandler:nil
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1553	] ifTrue:[
6165 2bd97fffdf95 EmergencyHandlers have been relocated to NoHandlerError long ago Stefan Vogel <sv@exept.de> parents: 6163 diff changeset	1554	NoHandlerError emergencyHandler:(AbstractLauncherApplication notifyingEmergencyHandler)
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1555	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1556	DebugView defaultVerboseBacktrace:self showVerboseStack value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1557	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1558
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	1559	helpFilename
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	1560	^ 'Launcher/debuggerSettings.html'
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1561	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1562
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1563	!AbstractSettingsApplication::DebuggerSettingsAppl methodsFor:'aspects'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1564
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1565	allowSendMailFromDebugger
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1566
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1567	allowSendMailFromDebugger isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1568	allowSendMailFromDebugger := currentUserPrefs allowSendMailFromDebugger asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1569	allowSendMailFromDebugger onChangeSend:#updateModifiedChannel to:self
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1570	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1571	^ allowSendMailFromDebugger.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1572	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1573
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1574	showErrorNotifier
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1575
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1576	showErrorNotifier isNil ifTrue:[
4566 af369740e2bc Replace referneces to Exception. Stefan Vogel <sv@exept.de> parents: 4563 diff changeset	1577	showErrorNotifier := (NoHandlerError emergencyHandler == AbstractLauncherApplication notifyingEmergencyHandler) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1578	showErrorNotifier onChangeSend:#updateModifiedChannel to:self
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1579	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1580	^ showErrorNotifier.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1581	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1582
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1583	showVerboseStack
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1584
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1585	showVerboseStack isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1586	showVerboseStack := (DebugView defaultVerboseBacktrace ? false) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1587	showVerboseStack onChangeSend:#updateModifiedChannel to:self
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1588	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1589	^ showVerboseStack.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1590	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1591
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1592	!AbstractSettingsApplication::DebuggerSettingsAppl methodsFor:'queries'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1593
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1594	hasUnsavedChanges
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	1595	self showErrorNotifier value ~= (NoHandlerError emergencyHandler == AbstractLauncherApplication notifyingEmergencyHandler) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	1596	DebugView defaultVerboseBacktrace ? false ~= self showVerboseStack value ifTrue:[^ true].
6781 facbb533a366 * empty log message * Claus Gittinger <cg@exept.de> parents: 6780 diff changeset	1597	(currentUserPrefs at:#allowSendMailFromDebugger ifAbsent:true) ~= self allowSendMailFromDebugger value ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	1598	^ false
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1599	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1600
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1601	!AbstractSettingsApplication::DisplaySettingsAppl class methodsFor:'defaults'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1602
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1603	clipEncodingStrings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1604
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1605	^ #('untranslated' 'iso8859' 'jis' 'jis7' 'shift-JIS' 'EUC' 'big5')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1606	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1607
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1608	clipEncodingSyms
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1609
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1610	^ #(nil #iso8859 #jis #jis7 #sjis #euc #big5)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1611	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1612
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1613	staticGrayOrGrayScaleDitherStrings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1614
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1615	^ #('threshold' 'ordered dither' 'error diffusion')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1616	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1617
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1618	staticGrayOrGrayScaleDitherSyms
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1619
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1620	^ #(threshold ordered floydSteinberg)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1621	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1622
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1623	trueColorDitherStrings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1624
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1625	^ #('nearest color' 'error diffusion')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1626	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1627
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1628	trueColorDitherSyms
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1629
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1630	^ #(ordered floydSteinberg)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1631	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1632
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1633	!AbstractSettingsApplication::DisplaySettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1634
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1635	defaultIcon
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	1636	<resource: #programImage>
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	1637
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	1638	^ ToolbarIconLibrary displayScreenIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1639	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1640
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1641	!AbstractSettingsApplication::DisplaySettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1642
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1643	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1644	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1645	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1646
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1647	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1648	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1649
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1650	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	1651	UIPainter new openOnClass:AbstractSettingsApplication::DisplaySettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	1652	AbstractSettingsApplication::DisplaySettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	1653	AbstractSettingsApplication::DisplaySettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1654	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1655
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1656	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1657
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1658	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1659	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1660	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1661	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1662	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1663	label: 'Display Screen Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1664	name: 'Display Screen Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1665	min: (Point 10 10)
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	1666	bounds: (Rectangle 0 0 600 378)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1667	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1668	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1669	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1670	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1671	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1672	label: 'Actual Visible Screen Area:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1673	name: 'ActualVisibleScreenAreaLabel'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1674	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	1675	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1676	adjust: left
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1677	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1678	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1679	label: 'Common Sizes:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1680	name: 'CommonSizesLabel'
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	1681	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	1682	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1683	adjust: right
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1684	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1685	(PopUpListSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1686	label: 'monitor size'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1687	name: 'MonitorSelectionPopUpList'
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	1688	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	1689	tabable: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1690	model: monitorSelection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1691	menu: monitorList
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1692	useIndex: true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1693	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1694	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1695	label: 'Screen Size:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1696	name: 'ScreenSizeLabel'
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	1697	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	1698	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1699	adjust: right
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1700	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1701	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1702	name: 'SizeXEntryField'
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	1703	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	1704	model: sizeX
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1705	type: number
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1706	immediateAccept: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1707	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1708	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1709	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1710	acceptOnPointerLeave: true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1711	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1712	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1713	label: ' x '
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1714	name: 'xLabel'
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	1715	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	1716	translateLabel: true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1717	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1718	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1719	name: 'SizeYEntryField'
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	1720	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	1721	model: sizeY
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1722	type: number
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1723	immediateAccept: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1724	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1725	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1726	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1727	acceptOnPointerLeave: true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1728	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1729	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1730	label: '(mm)'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1731	name: 'mmLabel'
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	1732	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	1733	translateLabel: true
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	1734	adjust: left
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1735	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1736	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1737	name: 'Separator1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1738	layout: (LayoutFrame 0 0.0 105 0 0 1.0 109 0)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1739	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1740	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1741	name: 'ScreenDepthVisualLabel'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1742	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	1743	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1744	labelChannel: screenDepthVisualLabelHolder
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1745	adjust: left
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1746	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1747	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1748	name: 'Separator2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1749	layout: (LayoutFrame 0 0.0 139 0 0 1.0 143 0)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1750	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1751	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1752	label: 'Color Monitor'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1753	name: 'ColorMonitorCheckBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1754	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	1755	model: isColorMonitor
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1756	translateLabel: true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1757	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1758	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1759	label: 'Use Fix Color Palette'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1760	name: 'FixColorPaletteCheckBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1761	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	1762	enableChannel: visualIsPseudoColor
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1763	model: useFixPalette
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1764	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1765	labelChannel: useFixPaletteLabel
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1766	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1767	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1768	label: 'Use Fix Gray Color Palette'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1769	name: 'UseFixGrayPaletteCheckBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1770	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	1771	enableChannel: visualIsPseudoColor
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1772	model: useFixGrayPalette
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1773	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1774	labelChannel: useFixGrayPaletteLabel
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1775	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1776	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1777	label: 'Image Display:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1778	name: 'ImageDisplayLabel'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1779	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	1780	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1781	adjust: right
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1782	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1783	(PopUpListSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1784	label: 'image display'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1785	name: 'DitherListPopUpList'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1786	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	1787	tabable: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1788	model: ditherListSelection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1789	enableChannel: ditherSymsNotNil
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1790	menu: ditherList
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1791	useIndex: true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1792	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1793	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1794	label: 'Allow Colored/Grayscale Icons'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1795	name: 'AllowColoredGrayscaleIconsCheckBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1796	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	1797	model: deepIcons
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1798	translateLabel: true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1799	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1800	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1801	name: 'Separator3'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1802	layout: (LayoutFrame 0 0.0 288 0 0 1.0 292 0)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1803	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1804	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1805	label: 'ClipBoard Encoding:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1806	name: 'ClipBoardEncodingLabel'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1807	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	1808	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1809	adjust: right
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1810	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1811	(PopUpListSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1812	label: 'image display'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1813	name: 'ClipEncodingListPopUpList'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1814	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	1815	tabable: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1816	model: clipEncodingListSelection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1817	menu: clipEncodingList
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1818	useIndex: true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1819	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1820	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1821	name: 'Separator4'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1822	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	1823	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1824	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1825	label: 'Max. CopyBuffer Size:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1826	name: 'MaxCopyBufferSizeLabel'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1827	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	1828	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1829	adjust: right
5086 b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	1830	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1831	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1832	name: 'MaxCopyBufferEntryField'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1833	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	1834	model: maxCopyBufferSize
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1835	type: fileSize
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1836	immediateAccept: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1837	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1838	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1839	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1840	acceptOnPointerLeave: true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1841	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1842	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1843
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1844	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1845	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1846	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1847
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1848	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1849
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1850	basicReadSettings
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1851	self useFixPalette value:screen fixColors notNil.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1852	self useFixGrayPalette value:screen fixGrayColors notNil.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1853	self isColorMonitor value:screen hasColors.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1854	self sizeX value:screen widthInMillimeter.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1855	self sizeY value:screen heightInMillimeter.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1856	self deepIcons value:screen supportsDeepIcons.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1857	ditherSyms notNil ifTrue:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1858	self ditherListSelection
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1859	value:(ditherSyms indexOf:(Image ditherAlgorithm) ifAbsent:#threshold)
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1860	].
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1861	self clipEncodingListSelection
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1862	value:(self class clipEncodingSyms indexOf:screen clipboardEncoding
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1863	ifAbsent:1).
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1864	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1865
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1866	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1867
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1868	Image flushDeviceImages.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1869
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1870	screen visualType == #PseudoColor ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1871	self useFixPalette value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1872	Color colorAllocationFailSignal handle:[:ex \|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1873	self warn:'Could not allocate colors.'.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1874	] do:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1875	Color getColorsRed:4 green:8 blue:4 on:screen
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1876	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1877	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1878	screen releaseFixColors
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1879	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1880
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1881	self useFixGrayPalette value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1882	Color colorAllocationFailSignal handle:[:ex \|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1883	self warn:'Could not allocate colors.'.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1884	] do:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1885	Color getGrayColors:32 on:screen
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1886	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1887	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1888	screen releaseFixGrayColors
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1889	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1890	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1891	screen hasColors:self isColorMonitor value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1892	screen widthInMillimeter:self sizeX value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1893	screen heightInMillimeter:self sizeY value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1894
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1895	screen supportsDeepIcons:self deepIcons value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1896	ditherSyms notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1897	Image ditherAlgorithm:(ditherSyms at:self ditherListSelection value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1898	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1899
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1900	WindowGroup activeGroup withWaitCursorDo:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1901	View defaultStyle:(View defaultStyle).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1902	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1903
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1904	screen clipBoardEncoding:(self class clipEncodingSyms at:self clipEncodingListSelection value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1905	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1906
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	1907	helpFilename
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	1908	^ 'Launcher/screenSettings.html'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1909	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1910
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1911	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1912
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1913	clipEncodingList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1914
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1915	clipEncodingList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1916	clipEncodingList := (resources array:self class clipEncodingStrings) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1917	"/ if your app needs to be notified of changes, uncomment one of the lines below:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1918	"/ clipEncodingList addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1919	"/ clipEncodingList onChangeSend:#clipEncodingListChanged to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1920	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1921	^ clipEncodingList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1922	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1923
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1924	clipEncodingListSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1925
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1926	clipEncodingListSelection isNil ifTrue:[
6037 4ee47a9ce56a Unify naming: clipBoard->clipboard Stefan Vogel <sv@exept.de> parents: 6030 diff changeset	1927	clipEncodingListSelection := (self class clipEncodingSyms indexOf:screen clipboardEncoding ifAbsent:1) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1928	clipEncodingListSelection onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1929	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1930	^ clipEncodingListSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1931	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1932
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1933	deepIcons
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1934
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1935	deepIcons isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1936	deepIcons := screen supportsDeepIcons asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1937	deepIcons onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1938	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1939	^ deepIcons.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1940	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1941
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1942	ditherList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1943
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1944	ditherList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1945	ditherList := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1946	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1947	^ ditherList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1948	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1949
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1950	ditherListSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1951
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1952	ditherListSelection isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1953	ditherSyms notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1954	ditherListSelection := (ditherSyms indexOf:(Image ditherAlgorithm) ifAbsent:#threshold) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1955	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1956	ditherListSelection := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1957	].
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1958	ditherListSelection onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1959	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1960	^ ditherListSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1961	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1962
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1963	ditherSymsNotNil
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1964
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1965	ditherSymsNotNil isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1966	ditherSymsNotNil := ditherSyms notNil asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1967	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1968	^ ditherSymsNotNil.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1969	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1970
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1971	isColorMonitor
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1972
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1973	isColorMonitor isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1974	isColorMonitor := screen hasColors asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1975	isColorMonitor onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1976	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1977	^ isColorMonitor.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1978	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1979
5086 b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	1980	maxCopyBufferSize
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	1981
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	1982	maxCopyBufferSize isNil ifTrue:[
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	1983	maxCopyBufferSize := (810241024) asValue.
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	1984	maxCopyBufferSize addDependent:self.
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	1985	maxCopyBufferSize changed.
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	1986	maxCopyBufferSize onChangeSend:#updateModifiedChannel to:self.
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	1987	].
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	1988	^ maxCopyBufferSize.
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	1989	!
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	1990
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1991	monitorList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1992
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1993	monitorList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1994	monitorList := (resources array:(sizeInfos collect:[:entry \| entry at:1])) asList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1995	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1996	^ monitorList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1997	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1998
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1999	monitorSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2000
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2001	monitorSelection isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2002	monitorSelection := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2003	monitorSelection addDependent:self.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	2004	monitorSelection onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2005	monitorSelection changed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2006	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2007	^ monitorSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2008	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2009
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2010	screenDepthVisualLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2011
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2012	screenDepthVisualLabelHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2013	screenDepthVisualLabelHolder := (resources string:'Screen: Depth: %1 Visual: %2 (%3)'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2014	with:screen depth printString
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2015	with:screen visualType
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2016	with:screen serverVendor) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2017	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2018	^ screenDepthVisualLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2019	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2020
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2021	sizeX
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2022
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2023	sizeX isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2024	sizeX := screen widthInMillimeter asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2025	sizeX addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2026	sizeX changed.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	2027	sizeX onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2028	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2029	^ sizeX.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2030	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2031
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	2032	sizeY
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2033
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2034	sizeY isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2035	sizeY := screen heightInMillimeter asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2036	sizeY addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2037	sizeY changed.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	2038	sizeY onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2039	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2040	^ sizeY.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2041	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2042
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2043	useFixGrayPalette
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2044
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2045	useFixGrayPalette isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2046	useFixGrayPalette := screen fixGrayColors notNil asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	2047	useFixGrayPalette onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2048	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2049	^ useFixGrayPalette.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2050	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2051
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2052	useFixGrayPaletteLabel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2053
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2054	useFixGrayPaletteLabel isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2055	useFixGrayPaletteLabel := (resources string:'Use Fix Gray Color Palette %1' with:'(32)') asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2056	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2057	^ useFixGrayPaletteLabel.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2058	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2059
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2060	useFixPalette
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2061
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2062	useFixPalette isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2063	useFixPalette := screen fixColors notNil asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	2064	useFixPalette onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2065	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2066	^ useFixPalette.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2067	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2068
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2069	useFixPaletteLabel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2070
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2071	useFixPaletteLabel isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2072	useFixPaletteLabel := (resources string:'Use Fix Color Palette %1' with:'(4x8x4)') asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2073	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2074	^ useFixPaletteLabel.
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	visualIsPseudoColor
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2078
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2079	visualIsPseudoColor isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2080	visualIsPseudoColor := (screen visualType == #PseudoColor) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	2081	visualIsPseudoColor onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2082	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2083	^ visualIsPseudoColor.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2084	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2085
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2086	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2087
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2088	monitorSelectionChanged
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2089
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2090	\| sel sizeInfoEntry sizes\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2091
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2092	sel := self monitorSelection value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2093	(sel notNil and:[sel ~~ 0]) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2094	sizeInfoEntry := sizeInfos at:sel.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2095	sizes := sizeInfoEntry at:2.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2096	self sizeX value:(sizes at:1).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2097	self sizeY value:(sizes at:2).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2098	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2099	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2100
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2101	sizeXorYChanged
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2102	\| sizes idx\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2103
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2104	sizes := sizeInfos collect:[:entry \| entry at:2].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2105	idx := sizes findFirst:[:entry \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2106	((entry at:1) = sizeX value)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2107	and:[((entry at:2) = sizeY value)]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2108	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2109	idx ~~ 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2110	self monitorSelection value:idx
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2111	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2112	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2113
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2114	update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2115	changedObject == self monitorSelection ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2116	self monitorSelectionChanged.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2117	^ self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2118	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2119	(changedObject == self sizeX or:[self sizeY]) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2120	self sizeXorYChanged.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2121	^ self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2122	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2123
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2124	super update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2125	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2126
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2127	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2128
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2129	initialize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2130
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2131	\| listOfSizes visual\|
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2132
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2133	screen := Screen current.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2134
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2135	listOfSizes := self class classResources at:'LIST_OF_OFFERED_SCREEN_SIZES' default:#default.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2136	listOfSizes == #default ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2137	"/ nothing in resource file; offer at least some.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2138	sizeInfos := #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2139	( '11.3'' (235mm x 175mm) LCD' (235 175) )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2140	( '17'' (325mm x 245mm)' (325 245) )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2141	( '19'' (340mm x 270mm)' (340 270) )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2142	( '20'' (350mm x 280mm)' (350 280) )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2143	( '21'' (365mm x 285mm)' (365 285) )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2144	).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2145	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2146	sizeInfos := resources array:listOfSizes.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2147	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2148	visual := screen visualType.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2149	(visual == #StaticGray or:[visual == #GrayScale]) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2150	ditherStyles := self class staticGrayOrGrayScaleDitherStrings.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2151	ditherSyms := self class staticGrayOrGrayScaleDitherSyms.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2152	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2153	visual ~~ #TrueColor ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2154	ditherStyles := self class trueColorDitherStrings.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2155	ditherSyms := self class trueColorDitherSyms.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2156	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2157	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2158	super initialize.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2159
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2160	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2161
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2162	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2163
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2164	hasUnsavedChanges
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	2165	self useFixPalette value ~= screen fixColors notNil ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	2166	self useFixGrayPalette value ~= screen fixGrayColors notNil ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	2167	self isColorMonitor value ~= screen hasColors ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	2168	self sizeX value ~= screen widthInMillimeter ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	2169	self sizeY value ~= screen heightInMillimeter ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	2170
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	2171	self deepIcons value ~= screen supportsDeepIcons ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	2172	ditherSyms notNil ifTrue:[
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	2173	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	2174	].
6037 4ee47a9ce56a Unify naming: clipBoard->clipboard Stefan Vogel <sv@exept.de> parents: 6030 diff changeset	2175	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	2176	^ false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2177	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2178
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2179	!AbstractSettingsApplication::EditSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2180
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2181	defaultIcon
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	2182	<resource: #programImage>
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	2183
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	2184	^ ToolbarIconLibrary editorIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2185	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2186
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2187	!AbstractSettingsApplication::EditSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2188
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2189	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2190	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2191	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2192
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2193	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2194	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2195
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2196	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2197	UIPainter new openOnClass:AbstractSettingsApplication::EditSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2198	AbstractSettingsApplication::EditSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2199	AbstractSettingsApplication::EditSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2200	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2201
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2202	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2203
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2204	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2205	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2206	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2207	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2208	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2209	label: 'Editor Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2210	name: 'Editor Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2211	min: (Point 10 10)
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2212	bounds: (Rectangle 14 46 614 366)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2213	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2214	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2215	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2216	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2217	(VerticalPanelViewSpec
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2218	name: 'VerticalPanel2'
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2219	layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2220	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2221	verticalLayout: top
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2222	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2223	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2224	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2225	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2226	collection: (
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2227	(VerticalPanelViewSpec
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2228	name: 'VerticalPanel1'
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2229	horizontalLayout: fit
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2230	verticalLayout: top
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2231	horizontalSpace: 3
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2232	verticalSpace: 3
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2233	component:
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2234	(SpecCollection
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2235	collection: (
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2236	(CheckBoxSpec
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2237	label: 'CTRL-Key to Start TextDrag'
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2238	name: 'CTRLKeyStTextDragCheckBox'
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2239	model: startTextDragWithControl
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2240	translateLabel: true
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2241	extent: (Point 600 23)
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2242	)
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2243	(CheckBoxSpec
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2244	label: 'SearchBox is Modal'
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2245	name: 'SearchBoxModalCheckBox'
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2246	model: searchDialogIsModal
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2247	translateLabel: true
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2248	extent: (Point 600 23)
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2249	)
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2250	(CheckBoxSpec
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2251	label: 'Tab Stops in Multiples of 4'
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2252	name: 'TabStopsMultiples4CheckBox'
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2253	model: tabsIs4
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2254	translateLabel: true
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2255	extent: (Point 600 23)
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2256	)
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2257	(CheckBoxSpec
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2258	label: 'Double Click Select Behavior as in ST80'
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2259	name: 'DoubleClickSelectBehaviorST80CheckBox'
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2260	model: st80DoubleClickSelectMode
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2261	translateLabel: true
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2262	extent: (Point 600 23)
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2263	)
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2264	(CheckBoxSpec
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2265	label: 'Cursor has ST80 Line-end Behavior'
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2266	name: 'CursorST80LineEndBehaviorCheckBox'
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2267	model: st80EditMode
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2268	translateLabel: true
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2269	extent: (Point 600 23)
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2270	)
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2271	)
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2272
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2273	)
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2274	extent: (Point 600 127)
6860 9992480933a9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6853 diff changeset	2275	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2276	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2277
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2278	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2279	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2280	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2281
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2282	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2283	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2284	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2285
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2286	!AbstractSettingsApplication::EditSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2287
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2288	basicReadSettings
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	2289	self
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	2290	readAspects:
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	2291	#(
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	2292	searchDialogIsModal
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	2293	startTextDragWithControl
6783 6bda02cccffd * empty log message * Claus Gittinger <cg@exept.de> parents: 6782 diff changeset	2294	st80EditMode
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	2295	)
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	2296	from:currentUserPrefs.
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	2297
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2298	self st80DoubleClickSelectMode value:TextView st80SelectMode.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2299	self tabsIs4 value:(ListView userDefaultTabPositions = ListView tab4Positions).
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2300	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2301
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2302	basicSaveSettings
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	2303	self
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	2304	writeAspects:
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	2305	#(
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	2306	searchDialogIsModal
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	2307	startTextDragWithControl
6783 6bda02cccffd * empty log message * Claus Gittinger <cg@exept.de> parents: 6782 diff changeset	2308	st80EditMode
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	2309	)
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	2310	to:currentUserPrefs.
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	2311
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2312	TextView st80SelectMode:(self st80DoubleClickSelectMode value).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2313	tabsIs4 value ~~ (ListView userDefaultTabPositions = ListView tab4Positions) ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2314	ListView userDefaultTabPositions:(self tabsIs4 value ifTrue:[ListView tab4Positions] ifFalse:[ListView tab8Positions]).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2315	ListView allSubInstancesDo:[:eachKindOfListView \|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2316	self tabsIs4 value ifTrue:[eachKindOfListView setTab4] ifFalse:[eachKindOfListView setTab8]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2317	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2318	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2319	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2320
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	2321	helpFilename
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	2322	^ 'Launcher/editSettings.html'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2323	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2324
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2325	!AbstractSettingsApplication::EditSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2326
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2327	searchDialogIsModal
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2328
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2329	searchDialogIsModal isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2330	searchDialogIsModal := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	2331	searchDialogIsModal onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2332	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2333	^ searchDialogIsModal.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2334	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2335
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2336	st80DoubleClickSelectMode
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2337
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2338	st80DoubleClickSelectMode isNil ifTrue:[
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2339	st80DoubleClickSelectMode := true asValue.
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2340	st80DoubleClickSelectMode onChangeSend:#updateModifiedChannel to:self.
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2341	].
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2342	^ st80DoubleClickSelectMode.
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2343	!
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2344
6783 6bda02cccffd * empty log message * Claus Gittinger <cg@exept.de> parents: 6782 diff changeset	2345	st80EditMode
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2346
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2347	st80EditingMode isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2348	st80EditingMode := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	2349	st80EditingMode onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2350	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2351	^ st80EditingMode.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2352	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2353
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2354	startTextDragWithControl
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2355
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2356	startTextDragWithControl isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2357	startTextDragWithControl := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	2358	startTextDragWithControl onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2359	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2360	^ startTextDragWithControl.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2361	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2362
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2363	tabsIs4
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2364
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2365	tabsIs4 isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2366	tabsIs4 := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	2367	tabsIs4 onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2368	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2369	^ tabsIs4.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2370	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2371
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2372	!AbstractSettingsApplication::EditSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2373
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2374	hasUnsavedChanges
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2375	TextView st80SelectMode ~= (self st80DoubleClickSelectMode value) ifTrue:[^ true].
5915 d7d685d60d82 * empty log message * Claus Gittinger <cg@exept.de> parents: 5912 diff changeset	2376	tabsIs4 value ~~ (ListView userDefaultTabPositions = ListView tab4Positions) ifTrue:[
d7d685d60d82 * empty log message * Claus Gittinger <cg@exept.de> parents: 5912 diff changeset	2377	ListView userDefaultTabPositions ~= (self tabsIs4 value
d7d685d60d82 * empty log message * Claus Gittinger <cg@exept.de> parents: 5912 diff changeset	2378	ifTrue:[ListView tab4Positions]
d7d685d60d82 * empty log message * Claus Gittinger <cg@exept.de> parents: 5912 diff changeset	2379	ifFalse:[ListView tab8Positions]) ifTrue:[^ true].
d7d685d60d82 * empty log message * Claus Gittinger <cg@exept.de> parents: 5912 diff changeset	2380	].
6783 6bda02cccffd * empty log message * Claus Gittinger <cg@exept.de> parents: 6782 diff changeset	2381
6bda02cccffd * empty log message * Claus Gittinger <cg@exept.de> parents: 6782 diff changeset	2382	(self
6bda02cccffd * empty log message * Claus Gittinger <cg@exept.de> parents: 6782 diff changeset	2383	hasChangedAspectIn:
6bda02cccffd * empty log message * Claus Gittinger <cg@exept.de> parents: 6782 diff changeset	2384	#(
6bda02cccffd * empty log message * Claus Gittinger <cg@exept.de> parents: 6782 diff changeset	2385	searchDialogIsModal
6bda02cccffd * empty log message * Claus Gittinger <cg@exept.de> parents: 6782 diff changeset	2386	startTextDragWithControl
6bda02cccffd * empty log message * Claus Gittinger <cg@exept.de> parents: 6782 diff changeset	2387	st80EditMode
6bda02cccffd * empty log message * Claus Gittinger <cg@exept.de> parents: 6782 diff changeset	2388	)
6bda02cccffd * empty log message * Claus Gittinger <cg@exept.de> parents: 6782 diff changeset	2389	asComparedTo:currentUserPrefs) ifTrue:[^ true].
6bda02cccffd * empty log message * Claus Gittinger <cg@exept.de> parents: 6782 diff changeset	2390
5915 d7d685d60d82 * empty log message * Claus Gittinger <cg@exept.de> parents: 5912 diff changeset	2391	^ false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2392	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2393
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2394	!AbstractSettingsApplication::FontSettingsAppl class methodsFor:'defaults'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2395
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2396	widgetList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2397
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2398	^ #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2399	'All'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2400	'Labels'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2401	'Buttons'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2402	'Lists'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2403	'Menus'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2404	'Edited Text'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2405	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2406	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2407
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2408	!AbstractSettingsApplication::FontSettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2409
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2410	defaultIcon
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	2411	<resource: #programImage>
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	2412
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	2413	^ ToolbarIconLibrary fontIcon
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2414	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2415
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2416	defaultIcon2
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2417	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2418	by the ImageEditor of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2419
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2420	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2421	the ImageEditor may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2422
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2423	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2424	self defaultIcon2 inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2425	ImageEditor openOnClass:self andSelector:#defaultIcon2
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2426	Icon flushCachedIcons
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2427	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2428
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2429	<resource: #image>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2430
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2431	^Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2432	constantNamed:#'AbstractSettingsApplication::FontSettingsAppl class defaultIcon2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2433	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	2434	@@@@@@@@@@@@@@@@@@@@@!!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	2435	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	2436	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	2437	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2438
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2439	!AbstractSettingsApplication::FontSettingsAppl class methodsFor:'instance creation'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2440
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2441	fontForEncoding:encodingMatch
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2442
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2443	\| inst \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2444
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2445	inst := self new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2446	inst encodingMatch:encodingMatch.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2447	self initialize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2448	self open.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2449	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2450
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2451	!AbstractSettingsApplication::FontSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2452
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2453	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2454	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2455	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2456
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2457	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2458	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2459
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2460	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2461	UIPainter new openOnClass:AbstractSettingsApplication::FontSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2462	AbstractSettingsApplication::FontSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2463	AbstractSettingsApplication::FontSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2464	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2465
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2466	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2467
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2468	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2469	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2470	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2471	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2472	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2473	label: 'Font Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2474	name: 'Font Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2475	min: (Point 10 10)
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	2476	bounds: (Rectangle 0 0 512 657)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2477	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2478	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2479	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2480	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2481	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2482	name: 'VerticalPanel1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2483	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	2484	horizontalLayout: fitSpace
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2485	verticalLayout: center
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2486	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2487	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2488	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2489	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2490	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2491	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2492	name: 'AllBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2493	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2494	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2495	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2496	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2497	label: 'All (Others)'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2498	name: 'All'
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	2499	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	2500	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2501	adjust: left
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2502	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2503	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2504	label: 'Label'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2505	name: 'AllFont'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2506	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	2507	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2508	labelChannel: allFontLabelHolder
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2509	adjust: left
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2510	postBuildCallback: postBuildAllFontLabel:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2511	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2512	(ActionButtonSpec
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	2513	label: 'Change...'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2514	name: 'ChangeAll'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2515	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	2516	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2517	model: changeAllFont
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2518	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2519	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2520	name: 'Separator1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2521	layout: (LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2522	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2523	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2524
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2525	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2526	extent: (Point 490 50)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2527	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2528	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2529	name: 'LabelsBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2530	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2531	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2532	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2533	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2534	label: 'Labels'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2535	name: 'Labels'
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	2536	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	2537	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2538	adjust: left
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2539	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2540	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2541	label: 'Labels'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2542	name: 'LabelsFont'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2543	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	2544	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2545	labelChannel: labelsFontLabelHolder
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2546	adjust: left
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2547	postBuildCallback: postBuildLabelsFontLabel:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2548	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2549	(ActionButtonSpec
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	2550	label: 'Change...'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2551	name: 'ChangeLabels'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2552	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	2553	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2554	model: changeLabelsFont
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2555	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2556	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2557	name: 'Separator6'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2558	layout: (LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2559	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2560	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2561
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2562	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2563	extent: (Point 490 50)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2564	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2565	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2566	name: 'ButtonsBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2567	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2568	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2569	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2570	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2571	label: 'Buttons'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2572	name: 'Buttons'
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	2573	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	2574	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2575	adjust: left
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2576	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2577	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2578	label: 'Buttons Font'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2579	name: 'ButtonsFont'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2580	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	2581	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2582	labelChannel: buttonsFontLabelHolder
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2583	adjust: left
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2584	postBuildCallback: postBuildButtonsFontLabel:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2585	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2586	(ActionButtonSpec
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	2587	label: 'Change...'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2588	name: 'Change Buttons'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2589	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	2590	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2591	model: changeButtonsFont
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2592	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2593	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2594	name: 'Separator7'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2595	layout: (LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2596	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2597	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2598
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2599	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2600	extent: (Point 490 50)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2601	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2602	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2603	name: 'ListsBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2604	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2605	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2606	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2607	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2608	label: 'Lists'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2609	name: 'Lists'
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	2610	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	2611	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2612	adjust: left
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2613	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2614	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2615	label: 'Lists Font'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2616	name: 'ListsFont'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2617	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	2618	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2619	labelChannel: listsFontLabelHolder
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2620	adjust: left
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2621	postBuildCallback: postBuildListsFontLabel:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2622	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2623	(ActionButtonSpec
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	2624	label: 'Change...'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2625	name: 'ChangeLists'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2626	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	2627	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2628	model: changeListsFont
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2629	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2630	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2631	name: 'Separator8'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2632	layout: (LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2633	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2634	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2635
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2636	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2637	extent: (Point 490 50)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2638	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2639	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2640	name: 'MenusBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2641	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2642	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2643	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2644	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2645	label: 'Menus'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2646	name: 'Menus'
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	2647	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	2648	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2649	adjust: left
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2650	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2651	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2652	label: 'Menus Font'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2653	name: 'MenusFont'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2654	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	2655	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2656	labelChannel: menusFontLabelHolder
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2657	adjust: left
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2658	postBuildCallback: postBuildMenuesFontLabel:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2659	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2660	(ActionButtonSpec
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	2661	label: 'Change...'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2662	name: 'ChangeMenus'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2663	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	2664	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2665	model: changeMenusFont
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2666	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2667	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2668	name: 'Separator9'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2669	layout: (LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2670	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2671	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2672
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2673	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2674	extent: (Point 490 50)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2675	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2676	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2677	name: 'TextBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2678	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2679	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2680	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2681	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2682	label: 'Text'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2683	name: 'Text'
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	2684	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	2685	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2686	adjust: left
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2687	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2688	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2689	label: 'Text Font'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2690	name: 'TextFont'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2691	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	2692	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2693	labelChannel: textFontLabelHolder
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2694	adjust: left
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2695	postBuildCallback: postBuildTextFontLabel:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2696	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2697	(ActionButtonSpec
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	2698	label: 'Change...'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2699	name: 'ChangeText'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2700	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	2701	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2702	model: changeTextFont
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2703	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2704	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2705	name: 'Separator10'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2706	layout: (LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2707	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2708	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2709
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2710	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2711	extent: (Point 490 50)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2712	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2713	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2714
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2715	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2716	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2717	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2718
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2719	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2720	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2721	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2722
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2723	!AbstractSettingsApplication::FontSettingsAppl methodsFor:'accessing'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2724
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2725	encodingMatch:aEncodingMatch
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2726
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2727	aEncodingMatch notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2728	filter := [:f \| f encoding notNil
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2729	and:[aEncodingMatch match:f encoding]].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2730	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2731	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2732
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2733	!AbstractSettingsApplication::FontSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2734
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2735	basicReadSettings
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2736	"/ View readStyleSheetAndUpdateAllStyleCaches.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2737	self labelDef value:Label defaultFont.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2738	self buttonDef value:Button defaultFont.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2739	self listDef value:SelectionInListView defaultFont.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2740	self menuDef value:MenuView defaultFont.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2741	self textDef value:TextView defaultFont.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2742	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2743
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2744	basicSaveSettings
5464 4f59a3bc9fb2 * empty log message * ca parents: 5448 diff changeset	2745	\|fn\|
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2746
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2747	Label defaultFont:self labelDef value.
5551 24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	2748
24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	2749	fn := self buttonDef value.
24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	2750	Button defaultFont:fn.
24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	2751	Toggle defaultFont:fn.
24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	2752
24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	2753	fn := self textDef value.
24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	2754	TextView withAllSubclasses do:[:cls \| cls defaultFont:fn].
24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	2755
24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	2756	fn := self listDef value.
24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	2757	SelectionInListView withAllSubclasses do:[:cls \| cls defaultFont:fn].
24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	2758
5464 4f59a3bc9fb2 * empty log message * ca parents: 5448 diff changeset	2759	fn := self menuDef value.
5551 24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	2760	ListView defaultFont:fn.
5464 4f59a3bc9fb2 * empty log message * ca parents: 5448 diff changeset	2761	MenuView defaultFont:fn.
4f59a3bc9fb2 * empty log message * ca parents: 5448 diff changeset	2762	MenuPanel defaultFont:fn.
4f59a3bc9fb2 * empty log message * ca parents: 5448 diff changeset	2763	NoteBookView defaultFont:fn.
5551 24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	2764	PullDownMenu defaultFont:fn.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2765	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2766
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2767	changeAllFont
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2768	\|f\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2769
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2770	f := FontPanel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2771	fontFromUserInitial:(self allOfThem value)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2772	title:(resources string:'Font for %1' with:'All')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2773	filter:filter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2774	f notNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2775	self allOfThem value:(f onDevice:allLabel device).
6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2776	self labelDef value:(f onDevice:labelLabel device).
6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2777	self buttonDef value:(f onDevice:buttonsLabel device).
6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2778	self listDef value:(f onDevice:listsLabel device).
6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2779	self menuDef value:(f onDevice:menuLabel device).
6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2780	self textDef value:(f onDevice:textLabel device).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2781	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2782	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2783
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2784	changeButtonsFont
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2785
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2786	\|f\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2787
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2788	f := FontPanel
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2789	fontFromUserInitial:(self buttonDef value)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2790	title:(resources string:'Font for %1' with:'All')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2791	filter:filter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2792	f notNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2793	self buttonDef value:(f onDevice:buttonsLabel device).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2794	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2795	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2796
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2797	changeLabelsFont
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2798	\|f \|
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2799
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2800	f := FontPanel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2801	fontFromUserInitial:(self labelDef value)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2802	title:(resources string:'Font for %1' with:'Labels')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2803	filter:filter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2804	f notNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2805	self labelDef value:(f onDevice:labelLabel device).
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2806	].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2807	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2808
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2809	changeListsFont
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2810	\|f\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2811
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2812	f := FontPanel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2813	fontFromUserInitial:(self listDef value)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2814	title:(resources string:'Font for %1' with:'Lists')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2815	filter:filter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2816	f notNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2817	self listDef value:(f onDevice:listsLabel device).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2818	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2819	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2820
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2821	changeMenusFont
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2822	\|f\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2823
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2824	f := FontPanel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2825	fontFromUserInitial:(self menuDef value)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2826	title:(resources string:'Font for %1' with:'Menus')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2827	filter:filter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2828	f notNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2829	self menuDef value:(f onDevice:menuLabel device).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2830	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2831	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2832
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2833	changeTextFont
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2834	\|f\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2835
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2836	f := FontPanel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2837	fontFromUserInitial:(self textDef value)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2838	title:(resources string:'Font for %1' with:'Edited Text')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2839	filter:filter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2840	f notNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2841	self textDef value:(f onDevice:textLabel device).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2842	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2843	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2844
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	2845	helpFilename
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	2846	^ 'Launcher/fontSettings.html'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2847	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2848
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2849	!AbstractSettingsApplication::FontSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2850
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2851	allFontLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2852
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2853	allFontLabelHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2854	allFontLabelHolder := '' asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2855	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2856	^ allFontLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2857	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2858
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2859	allOfThem
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2860	"return/create the 'allOfThem' value holder (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2861
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2862	allOfThem isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2863	allOfThem := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2864	allOfThem addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2865	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2866	^ allOfThem
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2867	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2868
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2869	buttonDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2870	"return/create the 'buttonDef' value holder (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2871
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2872	buttonDef isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2873	buttonDef := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2874	buttonDef addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2875	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2876	^ buttonDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2877	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2878
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2879	buttonsFontLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2880
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2881	buttonsFontLabelHolder isNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2882	buttonsFontLabelHolder := '' asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2883	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2884	^ buttonsFontLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2885	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2886
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2887	labelDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2888	"return/create the 'labelDef' value holder (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2889
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2890	labelDef isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2891	labelDef := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2892	labelDef addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2893	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2894	^ labelDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2895	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2896
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2897	labelsFontLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2898
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2899	labelsFontLabelHolder isNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2900	labelsFontLabelHolder := '' asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2901	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2902	^ labelsFontLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2903	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2904
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2905	listDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2906	"return/create the 'listDef' value holder (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2907
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2908	listDef isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2909	listDef := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2910	listDef addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2911	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2912	^ listDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2913	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2914
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2915	listsFontLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2916
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2917	listsFontLabelHolder isNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2918	listsFontLabelHolder := '' asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2919	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2920	^ listsFontLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2921	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2922
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2923	menuDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2924	"return/create the 'menuDef' value holder (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2925
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2926	menuDef isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2927	menuDef := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2928	menuDef addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2929	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2930	^ menuDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2931	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2932
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2933	menusFontLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2934
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2935	menusFontLabelHolder isNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2936	menusFontLabelHolder := '' asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2937	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2938	^ menusFontLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2939	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2940
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2941	textDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2942	"return/create the 'textDef' value holder (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2943
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2944	textDef isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2945	textDef := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2946	textDef addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2947	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2948	^ textDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2949	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2950
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2951	textFontLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2952
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2953	textFontLabelHolder isNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2954	textFontLabelHolder := '' asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2955	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2956	^ textFontLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2957	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2958
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2959	!AbstractSettingsApplication::FontSettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2960
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2961	update:something with:aParameter from:changedObject
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2962	builder notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2963	changedObject == self allOfThem ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2964	self updateFontOfLabel:allLabel andFontNameHolder:(self allFontLabelHolder) from:changedObject.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2965	^ self.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2966	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2967	changedObject == self labelDef ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2968	self updateFontOfLabel:labelLabel andFontNameHolder:(self labelsFontLabelHolder) from:changedObject.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2969	^ self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2970	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2971	changedObject == self buttonDef ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2972	self updateFontOfLabel:buttonsLabel andFontNameHolder:(self buttonsFontLabelHolder) from:changedObject.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2973	^ self.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2974	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2975	changedObject == self listDef ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2976	self updateFontOfLabel:listsLabel andFontNameHolder:(self listsFontLabelHolder) from:changedObject.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2977	^ self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2978	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2979	changedObject == self menuDef ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2980	self updateFontOfLabel:menuLabel andFontNameHolder:(self menusFontLabelHolder) from:changedObject.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2981	^ self.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2982	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2983	changedObject == self textDef ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2984	self updateFontOfLabel:textLabel andFontNameHolder:(self textFontLabelHolder) from:changedObject.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2985	^ self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2986	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2987	].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2988	super update:something with:aParameter from:changedObject
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2989	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2990
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2991	updateAllFontLabels
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2992	self update:#value with:nil from:self allOfThem.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2993	self update:#value with:nil from:self labelDef.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2994	self update:#value with:nil from:self buttonDef.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2995	self update:#value with:nil from:self listDef.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2996	self update:#value with:nil from:self menuDef.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2997	self update:#value with:nil from:self textDef.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2998	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2999
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3000	updateFontOfLabel:labelWidget andFontNameHolder:fontNameHolder from:changedObject
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	3001	\|f label\|
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3002
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3003	f := changedObject value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3004	labelWidget font:f.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3005	label := f isNil ifTrue:[
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	3006	''
c72e35116b13 instable state penk parents: 5040 diff changeset	3007	] ifFalse:[
c72e35116b13 instable state penk parents: 5040 diff changeset	3008	f userFriendlyName
c72e35116b13 instable state penk parents: 5040 diff changeset	3009	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3010	fontNameHolder value:label.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	3011	self updateModifiedChannel
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3012	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3013
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3014	!AbstractSettingsApplication::FontSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3015
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3016	postBuildAllFontLabel:aWidget
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3017
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3018	allLabel := aWidget.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3019	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3020
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3021	postBuildButtonsFontLabel:aWidget
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3022
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3023	buttonsLabel := aWidget.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3024	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3025
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3026	postBuildLabelsFontLabel:aWidget
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3027
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3028	labelLabel := aWidget.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3029	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3030
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3031	postBuildListsFontLabel:aWidget
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3032
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3033	listsLabel := aWidget.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3034	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3035
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3036	postBuildMenuesFontLabel:aWidget
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3037
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3038	menuLabel := aWidget.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3039	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3040
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3041	postBuildTextFontLabel:aWidget
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3042
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3043	textLabel := aWidget.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3044	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3045
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3046	postBuildWith:aBuilder
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3047	"/ self readSettings.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3048	self updateAllFontLabels.
4438 74e64acf5dd0 font settings loadrequest on postBuild now penk parents: 4434 diff changeset	3049	super postBuildWith:aBuilder
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3050	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3051
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3052	!AbstractSettingsApplication::FontSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3053
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3054	hasUnsavedChanges
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	3055	self labelDef value ~= Label defaultFont ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	3056	self buttonDef value ~= Button defaultFont ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	3057	self listDef value ~= SelectionInListView defaultFont ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	3058	self menuDef value ~= MenuView defaultFont ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	3059	self textDef value ~= TextView defaultFont ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	3060	^ false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3061	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3062
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3063	!AbstractSettingsApplication::GeneralCompilerSettingsAppl class methodsFor:'defaults'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3064
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3065	keepSourceOptions
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3066
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3067	^ #( keep reference absReference sourceReference discard )
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
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3070	keepSourceStrings
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3071
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3072	^ #('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	3073	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3074
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3075	!AbstractSettingsApplication::GeneralCompilerSettingsAppl class methodsFor:'image specs'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3076
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3077	defaultIcon
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	3078	^ self defaultIcon3
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	3079	!
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	3080
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	3081	defaultIcon1
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3082	"This resource specification was automatically generated
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3083	by the ImageEditor of ST/X."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3084
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3085	"Do not manually edit this!! If it is corrupted,
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3086	the ImageEditor may not be able to read the specification."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3087
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3088	"
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	3089	self defaultIcon1 inspect
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	3090	ImageEditor openOnClass:self andSelector:#defaultIcon1
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3091	Icon flushCachedIcons
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3092	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3093
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3094	<resource: #image>
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3095
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3096	^Icon
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	3097	constantNamed:#'AbstractSettingsApplication::GeneralCompilerSettingsAppl class defaultIcon1'
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	3098	ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#[2]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	3099	@@@@@@@@C??????@CUUUUUW@CZ**''@CZ''CCZ''@CVWKCVW@CU)WJCU)W@CUZ%W@CUZ%WACUVUW@CUV*UWDCUU)UWI
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	3100	CUU*)UWICUUZ%UWJCUUZ%UWACUUVUUW@CUUUUUW@C??????@@@@@@@@B') ; colorMapFromArray:#[0 0 0 255 255 255 255 189 23 127 127 127]; mask:((ImageMask new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8@@@@') ; yourself); yourself]
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	3101	!
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	3102
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	3103	defaultIcon3
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	3104	"This resource specification was automatically generated
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	3105	by the ImageEditor of ST/X."
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	3106
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	3107	"Do not manually edit this!! If it is corrupted,
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	3108	the ImageEditor may not be able to read the specification."
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	3109
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	3110	"
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	3111	self defaultIcon3 inspect
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	3112	ImageEditor openOnClass:self andSelector:#defaultIcon3
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	3113	Icon flushCachedIcons
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	3114	"
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	3115
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	3116	<resource: #image>
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	3117
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	3118	^Icon
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	3119	constantNamed:#'AbstractSettingsApplication::GeneralCompilerSettingsAppl class defaultIcon3'
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	3120	ifAbsentPut:[(Depth8Image new) width: 24; height: 24; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	3121	A@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PC@0PDA@PD
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	3122	A@PDA@PDA@PDA@PDA@PDA@LDA LDA@PDA@PDA@PDA@PDA@PD@0LDA@LDA LDA@LCA@PDA@PDA@PDA@PCA PC@0PEAPPC@0PF@0PDA@PDA@PDA@PC@PTDA@TE
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	3123	APTDA@TA@0PDA@PDA@PDA@PD@0XEAPTEAPTEAPXCA@PDA@PDA@PDA@PD@0PEAPXAA XEAPPCA@PDA@PDA@PDA@LCA@TEA DC@0DFAPTD@0LDA@PDA@PD@0PD
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	3124	APTE@PLB@ LAAPTEA@PCA@P@A@PD@0DAAPTEA LB@ LFAPTE@PDCA@P@A@PDA@LCA XEAPPC@0PEAPXF@0LDA@PDA@PDA@PD@0XEAPTDA@TEAPXCA@PDA@PD
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	3125	A@PDA@PD@0PEAPTEAPTEAPPCA@PDA@PDA@PDA@PCA@TAA TEAPTF@PTD@0PDA@PDA@PDA@PCA DC@0PEAPPC@0DF@0PDA@PDA@PDA@PD@0LDA@LD@PLDA@LC
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	3126	A@PDA@PDA@PDA@PDA@PDA@LD@PLDA@PDA@PDA@PDA@PDA@PDA@PDA@PC@0PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PD
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	3127	A@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PD') ; colorMapFromArray:#[255 189 23 127 127 127 236 233 216 0 0 0 255 255 255 194 194 194 161 161 165]; mask:((Depth1Image new) width: 24; height: 24; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@A @@C0@@33@A?? A?? @??@@??@C??0G??8G??8C??0@??@@??@A?? A?? @33@@C0@@A @@@@@@@@@@@@@') ; yourself); yourself]
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3128	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3129
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3130	!AbstractSettingsApplication::GeneralCompilerSettingsAppl class methodsFor:'interface specs'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3131
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3132	windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3133	"This resource specification was automatically generated
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3134	by the UIPainter of ST/X."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3135
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3136	"Do not manually edit this!! If it is corrupted,
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3137	the UIPainter may not be able to read the specification."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3138
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3139	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3140	UIPainter new openOnClass:AbstractSettingsApplication::GeneralCompilerSettingsAppl andSelector:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3141	AbstractSettingsApplication::GeneralCompilerSettingsAppl new openInterface:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3142	AbstractSettingsApplication::GeneralCompilerSettingsAppl open
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3143	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3144
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3145	<resource: #canvas>
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3146
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3147	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3148	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3149	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3150	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3151	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3152	label: 'General Compiler Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3153	name: 'General Compiler Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3154	min: (Point 10 10)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3155	max: (Point 1024 768)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3156	bounds: (Rectangle 14 46 614 366)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3157	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3158	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3159	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3160	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3161	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3162	name: 'VerticalPanel2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3163	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	3164	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3165	verticalLayout: top
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3166	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3167	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3168	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3169	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3170	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3171	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3172	label: 'Catch Method Redefinitions'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3173	name: 'CatchMethodRedefinitions'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3174	model: catchMethodRedefs
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3175	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3176	extent: (Point 600 25)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3177	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3178	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3179	label: 'Catch Class Redefinitions'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3180	name: 'CatchClassRedefinitions'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3181	model: catchClassRedefs
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3182	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3183	extent: (Point 600 25)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3184	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3185	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3186	label: 'Keep History Line in Methods'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3187	name: 'KeepHistoryLineinMethods'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3188	model: historyLines
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3189	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3190	extent: (Point 600 25)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3191	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3192	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3193	label: 'Keep Full Class History'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3194	name: 'KeepFullClassHistory'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3195	enableChannel: hasHistoryManager
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3196	model: fullHistoryUpdate
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	extent: (Point 600 25)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3199	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3200	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3201	name: 'Box1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3202	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3203	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3204	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3205	(PopUpListSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3206	label: 'PopUp List'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3207	name: 'KeepSourceSelection'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3208	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	3209	tabable: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3210	model: keepSourceSelection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3211	menu: keepSource
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3212	useIndex: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3213	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3214	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3215	label: 'FileIn Source Mode:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3216	name: 'FileInSourceModeLabel'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3217	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	3218	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3219	adjust: right
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3220	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3221	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3222
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3223	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3224	extent: (Point 600 30)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3225	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3226	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3227	name: 'Separator1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3228	extent: (Point 600 3)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3229	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3230	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3231	label: 'If Present, Load Binary Objects when Autoloading'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3232	name: 'LoadBinaryObjectsWhenAutoloading'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3233	enableChannel: canLoadBinaries
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3234	model: loadBinaries
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3235	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3236	extent: (Point 600 25)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3237	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3238	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3239
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3240	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3241	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3242	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3243
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3244	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3245	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3246	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3247
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3248	!AbstractSettingsApplication::GeneralCompilerSettingsAppl methodsFor:'actions'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3249
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	3250	basicReadSettings
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	3251	self keepSourceSelection value:(self class keepSourceOptions
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	3252	indexOf:ClassCategoryReader sourceMode
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	3253	ifAbsent:1).
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	3254	self catchClassRedefs value:(Class catchClassRedefinitions ? false).
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	3255	self catchMethodRedefs value:(Class catchMethodRedefinitions ? false).
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	3256	self canLoadBinaries ifTrue:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	3257	self loadBinaries value:Smalltalk loadBinaries
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	3258	] ifFalse:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	3259	self loadBinaries value:false
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	3260	].
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	3261	self hasHistoryManager ifTrue:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	3262	self fullHistoryUpdate value:(HistoryManager fullHistoryUpdate ? false)
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	3263	] ifFalse:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	3264	self fullHistoryUpdate value:false
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	3265	].
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	3266	self historyLines value:self hasHistoryManager.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	3267	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	3268
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3269	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3270
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3271	ClassCategoryReader sourceMode:(self class keepSourceOptions at:self keepSourceSelection value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3272	Class catchClassRedefinitions:self catchClassRedefs value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3273	Class catchMethodRedefinitions:self catchMethodRedefs value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3274	HistoryManager notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3275	HistoryManager fullHistoryUpdate:self fullHistoryUpdate value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3276	self historyLines value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3277	HistoryManager activate
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3278	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3279	HistoryManager deactivate
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3280	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3281	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3282	Smalltalk loadBinaries:self loadBinaries value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3283	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3284
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	3285	helpFilename
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	3286	^ 'Launcher/compilerSettings.html'
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3287	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3288
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3289	!AbstractSettingsApplication::GeneralCompilerSettingsAppl methodsFor:'aspects'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3290
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3291	canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3292
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3293	canLoadBinaries isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3294	canLoadBinaries := (ObjectFileLoader notNil and:[ObjectFileLoader canLoadObjectFiles]) asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3295	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3296	^ canLoadBinaries.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3297	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3298
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3299	catchClassRedefs
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3300
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3301	catchClassRedefs isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3302	catchClassRedefs := (Class catchClassRedefinitions ? false) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	3303	catchClassRedefs onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3304	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3305	^ catchClassRedefs.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3306	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3307
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3308	catchMethodRedefs
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3309
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3310	catchMethodRedefs isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3311	catchMethodRedefs := (Class catchMethodRedefinitions ? false) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	3312	catchMethodRedefs onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3313	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3314	^ catchMethodRedefs.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3315	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3316
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3317	fullHistoryUpdate
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3318
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3319	fullHistoryUpdate isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3320	self hasHistoryManager ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3321	fullHistoryUpdate := (HistoryManager fullHistoryUpdate ? false) asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3322	] ifFalse:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3323	fullHistoryUpdate := false asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3324	].
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	3325	fullHistoryUpdate onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3326	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3327	^ fullHistoryUpdate.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3328	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3329
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3330	hasHistoryManager
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3331
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3332	^ HistoryManager notNil and:[HistoryManager isLoaded and:[HistoryManager isActive]]
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3333	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3334
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	3335	historyLines
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3336
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3337	historyLines isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3338	historyLines := self hasHistoryManager asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	3339	historyLines onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3340	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3341	^ historyLines.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3342	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3343
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3344	keepSource
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3345
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3346	keepSource isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3347	keepSource := (resources array:(self class keepSourceStrings)) asList.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3348	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3349	^ keepSource.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3350	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3351
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3352	keepSourceSelection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3353
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3354	keepSourceSelection isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3355	keepSourceSelection := (self class keepSourceOptions indexOf:ClassCategoryReader sourceMode ifAbsent:1) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	3356	keepSourceSelection onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3357	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3358	^ keepSourceSelection.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3359	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3360
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3361	loadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3362
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3363	loadBinaries isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3364	self canLoadBinaries ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3365	loadBinaries:= Smalltalk loadBinaries asValue
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3366	] ifFalse:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3367	loadBinaries:= false asValue
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3368	].
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	3369	loadBinaries onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3370	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3371	^ loadBinaries.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3372	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3373
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3374	!AbstractSettingsApplication::GeneralCompilerSettingsAppl methodsFor:'queries'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3375
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3376	hasUnsavedChanges
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	3377	((HistoryManager fullHistoryUpdate ? false) ~= self fullHistoryUpdate value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	3378	((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	3379	((Class catchMethodRedefinitions ? false) ~= self catchMethodRedefs value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	3380	((Class catchClassRedefinitions ? false) ~= self catchClassRedefs value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	3381	((Smalltalk loadBinaries ? false) ~= self loadBinaries value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	3382	((self hasHistoryManager) ~= self historyLines value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	3383	^ false.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3384	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3385
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3386	!AbstractSettingsApplication::HTTPStartServerSettingsApplication class methodsFor:'image specs'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3387
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3388	defaultIcon
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3389	"This resource specification was automatically generated
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3390	by the ImageEditor of ST/X."
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3391
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3392	"Do not manually edit this!! If it is corrupted,
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3393	the ImageEditor may not be able to read the specification."
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3394
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3395	"
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3396	self defaultIcon inspect
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3397	ImageEditor openOnClass:self andSelector:#defaultIcon
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3398	Icon flushCachedIcons
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3399	"
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3400
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3401	<resource: #image>
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3402
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3403	^Icon
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	3404	constantNamed:#'AbstractSettingsApplication::HTTPStartServerSettingsApplication class defaultIcon'
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3405	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	3406	@@@@@@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	3407	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	3408	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	3409	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	3410	K2</K2</KSXEL@@@@@@@@@@@@@@+K"<AJB (JB46AS@@@@@@@@@@@@@@J28/@@@@@@@/M T0@@@@@@@@@@@@@B,.R41LSD1LSSXEL@@@@@@@@@@@@@@+K#8(
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	3411	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	3412	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3413
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3414	!AbstractSettingsApplication::HTTPStartServerSettingsApplication class methodsFor:'interface specs'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3415
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3416	windowSpec
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3417	"This resource specification was automatically generated
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3418	by the UIPainter of ST/X."
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3419
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3420	"Do not manually edit this!! If it is corrupted,
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3421	the UIPainter may not be able to read the specification."
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	"
4726 8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3424	UIPainter new openOnClass:AbstractSettingsApplication::HTTPStartServerSettingsApplication andSelector:#windowSpec
8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3425	AbstractSettingsApplication::HTTPStartServerSettingsApplication new openInterface:#windowSpec
8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3426	AbstractSettingsApplication::HTTPStartServerSettingsApplication open
4724 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
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3429	<resource: #canvas>
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3430
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3431	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3432	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3433	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3434	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3435	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3436	label: 'HTTP Server Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3437	name: 'HTTP Server Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3438	min: (Point 10 10)
6426 d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	3439	bounds: (Rectangle 0 0 539 630)
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3440	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3441	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3442	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3443	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3444	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3445	name: 'VerticalPanel1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3446	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	3447	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3448	verticalLayout: top
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3449	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3450	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3451	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3452	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3453	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3454	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3455	name: 'VerticalPanel4'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3456	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3457	verticalLayout: topSpace
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3458	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3459	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3460	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3461	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3462	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3463	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3464	name: 'Box19'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3465	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3466	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3467	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3468	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3469	label: 'Label'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3470	name: 'Label2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3471	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	3472	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3473	labelChannel: informationLabel
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3474	resizeForLabel: false
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3475	adjust: left
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3476	)
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	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3480	extent: (Point 539 200)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3481	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3482	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3483	name: 'Box18'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3484	extent: (Point 539 20)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3485	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3486	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3487	name: 'Box17'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3488	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3489	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3490	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3491	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3492	label: 'Port:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3493	name: 'Label1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3494	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	3495	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3496	adjust: right
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3497	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3498	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3499	name: 'EntryField1'
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3500	layout: (LayoutFrame 40 0 20 0 111 0 42 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3501	model: portNumberChannel
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3502	type: number
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3503	immediateAccept: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3504	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3505	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3506	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3507	acceptOnPointerLeave: false
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3508	)
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3509	(VerticalPanelViewSpec
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3510	name: 'VerticalPanel5'
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3511	layout: (LayoutFrame 136 0 14 0 -12 1 132 0)
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3512	horizontalLayout: fit
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3513	verticalLayout: spreadSpace
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3514	horizontalSpace: 3
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3515	verticalSpace: 3
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3516	component:
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3517	(SpecCollection
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3518	collection: (
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3519	(ActionButtonSpec
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3520	label: 'Create new HTTP Server'
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3521	name: 'Button4'
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3522	translateLabel: true
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3523	model: createServer
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3524	useDefaultExtent: true
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3525	)
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3526	(ActionButtonSpec
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3527	label: 'Create new FastCGI Server'
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3528	name: 'Button7'
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3529	translateLabel: true
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3530	model: createFcgiServer
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3531	useDefaultExtent: true
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3532	)
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3533	(ActionButtonSpec
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3534	label: 'Create Server from Settings File...'
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3535	name: 'Button6'
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3536	translateLabel: true
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3537	model: createServerFromFile
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3538	useDefaultExtent: true
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3539	)
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3540	(ActionButtonSpec
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3541	label: 'Remove all Servers'
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3542	name: 'Button5'
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3543	translateLabel: true
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3544	model: removeAllServers
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3545	enableChannel: hasCreatedServerChannel
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3546	useDefaultExtent: true
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3547	)
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3548	)
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3549
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3550	)
6426 d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	3551	)
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3552	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3553
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3554	)
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3555	extent: (Point 539 142)
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3556	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3557	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3558
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3559	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3560	extent: (Point 539 620)
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3561	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3562	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3563
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3564	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3565	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3566	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3567
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3568	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3569	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3570	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3571
5346 7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3572	!AbstractSettingsApplication::HTTPStartServerSettingsApplication class methodsFor:'servers access'!
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3573
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3574	addCreatedServer:aServer
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3575	self createdServers add:aServer.
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3576	!
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3577
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3578	createdServers
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3579	CreatedServers isNil ifTrue:[
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3580	CreatedServers := Set new.
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3581	].
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3582	^ CreatedServers
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3583	!
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3584
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3585	removeAllCreatedServer
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3586	self createdServers removeAll.
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3587	!
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3588
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3589	removeCreatedServer:aServer
5355 aa7b1d44d7a8 remove server from createdServers penk parents: 5346 diff changeset	3590	self createdServers remove:aServer ifAbsent:nil.
5346 7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3591	! !
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3592
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3593	!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'actions'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3594
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	3595	basicReadSettings
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	3596	(self serverClass notNil and:[HTTPServer isLoaded]) ifTrue:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	3597	self serverClass runningServers
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	3598	removeDependent:self;
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	3599	addDependent:self.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	3600	].
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	3601	self createServerSubApplicationsForRunningServers.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	3602	self createdServerChanged.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	3603	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	3604
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3605	basicSaveSettings
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	3606	"nothing done here"
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3607
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3608	^ self
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3609	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3610
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3611	createFcgiServer
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3612	"create a FastCGI server"
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3613
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3614	^ self createServerForClass:FCGIServer.
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3615	!
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3616
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3617	createServer
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3618	"create a default server - i.e. a HTTP server"
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3619
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3620	^ self createServerForClass:self serverClass.
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3621	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3622
4893 39dec723f6ad * empty log message * penk parents: 4886 diff changeset	3623	createServerApplicationFor:aServerInstance
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	3624	\|settingsApp itemPathName newItem openApps\|
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3625
6389 9f4010737320 code cleanup Claus Gittinger <cg@exept.de> parents: 6383 diff changeset	3626	openApps := settingsDialog getAllChildrenAppsForApplication:self childrenClass:HTTPServerSettingsAppl.
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	3627	(openApps contains:[:app \| app httpServerInstance == aServerInstance]) ifTrue:[
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3628	" already have an Item for this application "
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3629	^ self
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3630	].
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	3631
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3632	settingsApp := HTTPServerSettingsAppl basicNew.
5031 86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	3633	settingsApp settingsDialog:self settingsDialog.
4893 39dec723f6ad * empty log message * penk parents: 4886 diff changeset	3634	settingsApp httpServerInstance:aServerInstance.
5038 c605d7909165 * empty log message * penk parents: 5035 diff changeset	3635	settingsApp defaultSettingsApplication:false.
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3636	settingsApp basicInitialize.
5044 fea72184bd8e instable state penk parents: 5041 diff changeset	3637	itemPathName := self itemPathName , '/', settingsApp nameInSettingsDialog.
5038 c605d7909165 * empty log message * penk parents: 5035 diff changeset	3638	newItem := self settingsDialog addApplClass:#'HTTPServerSettingsAppl' withName:itemPathName.
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3639	newItem application:settingsApp.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3640	self createdServerChanged.
5038 c605d7909165 * empty log message * penk parents: 5035 diff changeset	3641	self settingsDialog expandItemForApplication:self.
5280 a68af81b7b2c readSettings after create penk parents: 5278 diff changeset	3642	settingsApp readSettings.
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3643	settingsApp initialize.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3644	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3645
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3646	createServerForClass:serverClass
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3647
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3648	\|newServer port runningServers\|
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3649
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3650	serverClass isNil ifTrue:[
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3651	self warn:'The server class is missing - cannot create server.'.
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3652	^ self.
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3653	].
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3654
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3655	self withWaitCursorDo:[
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3656	port := self portNumberChannel value.
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3657	runningServers := serverClass runningServers.
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3658	runningServers notEmpty ifTrue:[
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3659	runningServers do:[:aServer \|
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3660	aServer port = port asInteger ifTrue:[
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3661	Dialog warn:'There is already a server for port ', port asString.
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3662	^ self
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3663	]
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3664	]
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3665	].
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3666	runningServers addDependent:self.
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3667
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3668	(port = serverClass defaultPort) ifTrue:[
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3669	newServer := serverClass newServerWithDefaultServiceListOn:port.
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3670	] ifFalse:[
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3671	newServer := serverClass newServerOnPort:port.
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3672	].
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3673	self class addCreatedServer:newServer.
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3674	self createServerApplicationFor:newServer.
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3675	]
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3676	!
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3677
5049 3df132763949 instable state penk parents: 5044 diff changeset	3678	createServerFromFile
3df132763949 instable state penk parents: 5044 diff changeset	3679
5055 b3cba6441579 ready to use penk parents: 5049 diff changeset	3680	\| newServer fileName runningServers newServerPort answer\|
5049 3df132763949 instable state penk parents: 5044 diff changeset	3681
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3682	fileName := Dialog requestFileName:'Select a Server Settings File'
6426 d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	3683	default:(self serverClass settingsFilename)
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3684	pattern:'*.xml'.
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3685
5049 3df132763949 instable state penk parents: 5044 diff changeset	3686	fileName isEmptyOrNil ifTrue:[ ^ self].
5055 b3cba6441579 ready to use penk parents: 5049 diff changeset	3687	self withWaitCursorDo:[
6426 d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	3688	newServer := self serverClass serverFromSettingsFile:(fileName asFilename).
5055 b3cba6441579 ready to use penk parents: 5049 diff changeset	3689	newServer notNil ifTrue:[
b3cba6441579 ready to use penk parents: 5049 diff changeset	3690	newServerPort := newServer port.
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3691	runningServers := self serverClass runningServers.
5055 b3cba6441579 ready to use penk parents: 5049 diff changeset	3692	runningServers notEmpty ifTrue:[
b3cba6441579 ready to use penk parents: 5049 diff changeset	3693	[self hasServerForPort:newServerPort] whileTrue:[
b3cba6441579 ready to use penk parents: 5049 diff changeset	3694	answer := Dialog
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3695	request:('There is already a server for port <1p>. Please select another one' expandMacrosWith:newServerPort)
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3696	initialAnswer:self portNumberChannel value printString.
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3697	answer isEmptyOrNil ifTrue:[
5055 b3cba6441579 ready to use penk parents: 5049 diff changeset	3698	^ self
b3cba6441579 ready to use penk parents: 5049 diff changeset	3699	].
b3cba6441579 ready to use penk parents: 5049 diff changeset	3700	newServerPort := answer asNumber.
5049 3df132763949 instable state penk parents: 5044 diff changeset	3701	]
5055 b3cba6441579 ready to use penk parents: 5049 diff changeset	3702	].
b3cba6441579 ready to use penk parents: 5049 diff changeset	3703	newServer port:newServerPort.
b3cba6441579 ready to use penk parents: 5049 diff changeset	3704	runningServers addDependent:self.
5346 7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3705	self class addCreatedServer:newServer.
5055 b3cba6441579 ready to use penk parents: 5049 diff changeset	3706	self createServerApplicationFor:newServer.
5049 3df132763949 instable state penk parents: 5044 diff changeset	3707	].
3df132763949 instable state penk parents: 5044 diff changeset	3708	].
3df132763949 instable state penk parents: 5044 diff changeset	3709	!
3df132763949 instable state penk parents: 5044 diff changeset	3710
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	3711	createServerSubApplicationsForRunningServers
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3712
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3713	\|serverToStart\|
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3714
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3715	(self serverClass isNil or:[self serverClass isLoaded not]) ifTrue:[
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3716	^ self
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3717	].
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3718
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3719	serverToStart := self serverClass runningServers asSet.
5346 7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3720	serverToStart addAll:self class createdServers.
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3721	serverToStart isEmpty ifTrue:[
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3722	^ self
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3723	].
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3724	serverToStart := serverToStart asSortedCollection:[:a :b \| a port < b port].
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3725	serverToStart do:[:eachServerInstance \|
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3726	self createServerApplicationFor:eachServerInstance.
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3727	]
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3728	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3729
5055 b3cba6441579 ready to use penk parents: 5049 diff changeset	3730	hasServerForPort:newServerPort
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3731	^ self serverClass runningServers contains:[:eachServer\| eachServer port = newServerPort].
5055 b3cba6441579 ready to use penk parents: 5049 diff changeset	3732	!
b3cba6441579 ready to use penk parents: 5049 diff changeset	3733
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	3734	helpFilename
5362 12d488573309 helpFilename in httpStartServerSettings Claus Gittinger <cg@exept.de> parents: 5355 diff changeset	3735	^ 'HTTPServer/index.html'
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	3736	!
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	3737
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3738	removeAllServerSubApplications
6389 9f4010737320 code cleanup Claus Gittinger <cg@exept.de> parents: 6383 diff changeset	3739	settingsDialog removeAllSubApplicationsFor:self
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3740	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3741
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3742	removeAllServers
6426 d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	3743	self serverClass isLoaded ifTrue:[
d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	3744	self serverClass terminateAllServers.
4883 45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3745	].
5346 7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3746	self class removeAllCreatedServer.
4883 45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3747	self removeAllServerSubApplications.
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3748	self createdServerChanged.
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3749	!
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3750
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3751	setPortOnFreePort
6389 9f4010737320 code cleanup Claus Gittinger <cg@exept.de> parents: 6383 diff changeset	3752	\|highestUsedPortNr portToUse instances\|
4893 39dec723f6ad * empty log message * penk parents: 4886 diff changeset	3753
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3754	(self serverClass notNil and:[self serverClass isLoaded]) ifTrue:[
6426 d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	3755	instances := self serverClass runningServers asSet.
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3756	instances addAll:((settingsDialog getAllChildrenAppsForApplication:self)
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3757	collect:[:aApp\| aApp httpServerInstance]).
5040 1500f0fdf4dd instable state penk parents: 5038 diff changeset	3758	highestUsedPortNr := instances
6426 d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	3759	inject:(self serverClass defaultPort - 1)
4893 39dec723f6ad * empty log message * penk parents: 4886 diff changeset	3760	into:[:maxSoFar :thisServer \| thisServer port max:maxSoFar].
39dec723f6ad * empty log message * penk parents: 4886 diff changeset	3761
39dec723f6ad * empty log message * penk parents: 4886 diff changeset	3762	portToUse := highestUsedPortNr + 1
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3763	] ifFalse:[
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3764	portToUse := 8080
4893 39dec723f6ad * empty log message * penk parents: 4886 diff changeset	3765	].
39dec723f6ad * empty log message * penk parents: 4886 diff changeset	3766	self portNumberChannel value:portToUse.
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3767	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3768
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3769	!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'aspects'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3770
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3771	hasCreatedServerChannel
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3772	"automatically generated by UIPainter ..."
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3773
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3774	"*** the code below creates a default model when invoked."
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3775	"*** (which may not be the one you wanted)"
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3776	"*** Please change as required and accept it in the browser."
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3777	"*** (and replace this comment by something more useful ;-)"
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3778
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3779	hasCreatedServerChannel isNil ifTrue:[
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3780	hasCreatedServerChannel := true asValue.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3781	"/ 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	3782	"/ hasCreatedServerChannel addDependent:self.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3783	"/ hasCreatedServerChannel onChangeSend:#hasCreatedServerChannelChanged to:self.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3784	].
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3785	^ hasCreatedServerChannel.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3786	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3787
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3788	informationLabel
4726 8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3789	^ resources
8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3790	string:'HTTPSTARTINFO'
8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3791	default:
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	3792	'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	3793	(i.e. it is possible to serve multiple ports)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	3794
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	3795	Once created, select the individual server in the left tree,
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	3796	configure its services, and finally start it up.'
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3797	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3798
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3799	portNumberChannel
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3800
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3801	portNumberChannel isNil ifTrue:[
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3802	portNumberChannel := ValueHolder new.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3803	].
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3804	^ portNumberChannel.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3805	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3806
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3807	!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'change & update'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3808
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3809	createdServerChanged
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3810
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3811	self hasCreatedServerChannel value:self hasCreatedServer.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3812	self setPortOnFreePort.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3813	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3814
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3815	runningServersChanged
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	3816	self createServerSubApplicationsForRunningServers.
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3817	self setPortOnFreePort.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3818	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3819
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3820	update:something with:aParameter from:changedObject
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3821	(self serverClass isLoaded and:[changedObject == self serverClass runningServers]) ifTrue:[
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3822	self runningServersChanged.
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3823	^ self.
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3824	].
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3825	super update:something with:aParameter from:changedObject
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3826	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3827
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3828	!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'initialization & release'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3829
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3830	release
6426 d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	3831	(self serverClass notNil and:[HTTPServer isLoaded]) ifTrue:[
d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	3832	self serverClass runningServers removeDependent:self.
4883 45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3833	]
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3834	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3835
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3836	!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'queries'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3837
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3838	hasCreatedServer
6389 9f4010737320 code cleanup Claus Gittinger <cg@exept.de> parents: 6383 diff changeset	3839	^ (settingsDialog getAllChildrenAppsForApplication:self childrenClass:HTTPServerSettingsAppl)
9f4010737320 code cleanup Claus Gittinger <cg@exept.de> parents: 6383 diff changeset	3840	notEmpty
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3841	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3842
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3843	hasUnsavedChanges
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3844
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3845	^ false
6426 d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	3846	!
d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	3847
d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	3848	serverClass
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3849	"answer the default class for instanciating servers.
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3850	Note that we may instanciate FCGIServer as well"
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3851
6426 d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	3852	^ HTTPServer
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3853	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3854
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3855	!AbstractSettingsApplication::KbdMappingSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3856
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3857	defaultIcon
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	3858	<resource: #programImage>
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	3859
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	3860	^ ToolbarIconLibrary keyboardMappingIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3861	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3862
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3863	!AbstractSettingsApplication::KbdMappingSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3864
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3865	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3866	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3867	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3868
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3869	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3870	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3871
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3872	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	3873	UIPainter new openOnClass:AbstractSettingsApplication::KbdMappingSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3874	AbstractSettingsApplication::KbdMappingSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3875	AbstractSettingsApplication::KbdMappingSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3876	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3877
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3878	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3879
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3880	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3881	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3882	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3883	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3884	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3885	label: 'Keyboard Mapping Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3886	name: 'Keyboard Mapping Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3887	min: (Point 10 10)
5576 8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	3888	bounds: (Rectangle 0 0 491 653)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3889	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3890	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3891	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3892	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3893	(VariableVerticalPanelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3894	name: 'VariableVerticalPanel1'
5576 8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	3895	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	3896	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3897	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3898	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3899	(VariableHorizontalPanelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3900	name: 'VariableHorizontalPanel1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3901	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3902	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3903	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3904	(SequenceViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3905	name: 'RawKeyList'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3906	model: selectedRawKey
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3907	hasHorizontalScrollBar: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3908	hasVerticalScrollBar: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3909	useIndex: false
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3910	sequenceList: rawKeyList
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3911	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3912	(SequenceViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3913	name: 'FunctionKeyList'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3914	model: selectedFunctionKey
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3915	hasHorizontalScrollBar: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3916	hasVerticalScrollBar: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3917	useIndex: false
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3918	sequenceList: functionKeyList
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3919	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3920	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3921
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3922	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3923	handles: (Any 0.5 1.0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3924	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3925	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3926	name: 'Box1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3927	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3928	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3929	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3930	(TextEditorSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3931	name: 'MacroText'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3932	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	3933	model: macroTextHolder
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3934	hasHorizontalScrollBar: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3935	hasVerticalScrollBar: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3936	isReadOnly: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3937	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3938	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3939	label: 'Macro text (if any):'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3940	name: 'MacroTextLabel'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3941	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	3942	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3943	adjust: left
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3944	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3945	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3946
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3947	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3948	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3949	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3950
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3951	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3952	handles: (Any 0.5 1.0)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3953	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3954	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3955	label: 'NoticeText'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3956	name: 'Text'
5576 8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	3957	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	3958	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3959	labelChannel: labelTextHolder
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3960	resizeForLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3961	adjust: left
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3962	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3963	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3964
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3965	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3966	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3967	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3968
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3969	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3970
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	3971	basicReadSettings
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	3972	"nothing done here"
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	3973	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	3974
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3975	basicSaveSettings
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	3976	"nothing done here"
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3977	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3978
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	3979	helpFilename
5741 28a546bab7e8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5734 diff changeset	3980	^ 'Launcher/keyboardSetting.html'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3981	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3982
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3983	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3984
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3985	functionKeyList
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3986	"automatically generated by UIPainter ..."
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3987
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3988	"*** the code below creates a default model when invoked."
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3989	"*** (which may not be the one you wanted)"
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3990	"*** Please change as required and accept it in the browser."
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3991	"*** (and replace this comment by something more useful ;-)"
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3992
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3993	functionKeyList isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3994	functionKeyList := ValueHolder new.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3995	"/ 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	3996	"/ functionKeyList addDependent:self.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3997	"/ functionKeyList onChangeSend:#functionKeyListChanged to:self.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3998	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3999	^ functionKeyList.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4000	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4001
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4002	labelTextHolder
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4003	"automatically generated by UIPainter ..."
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4004
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4005	"*** the code below creates a default model when invoked."
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4006	"*** (which may not be the one you wanted)"
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4007	"*** Please change as required and accept it in the browser."
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4008	"*** (and replace this comment by something more useful ;-)"
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4009
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4010	labelTextHolder isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4011	labelTextHolder := ValueHolder new.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4012	"/ 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	4013	"/ labelTextHolder addDependent:self.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4014	"/ labelTextHolder onChangeSend:#labelTextHolderChanged to:self.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4015	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4016	^ labelTextHolder.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4017	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4018
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4019	macroTextHolder
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4020	"automatically generated by UIPainter ..."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4021
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4022	"*** the code below creates a default model when invoked."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4023	"*** (which may not be the one you wanted)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4024	"*** Please change as required and accept it in the browser."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4025	"*** (and replace this comment by something more useful ;-)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4026
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4027	macroTextHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4028	macroTextHolder := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4029	"/ if your app needs to be notified of changes, uncomment one of the lines below:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4030	"/ macroTextHolder addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4031	"/ macroTextHolder onChangeSend:#macroTextHolderChanged to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4032	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4033	^ macroTextHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4034	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4035
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4036	rawKeyList
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4037
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4038	rawKeyList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4039	rawKeyList := List new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4040	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4041	^ rawKeyList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4042	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4043
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4044	selectedFunctionKey
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4045
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4046	selectedFunctionKey isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4047	selectedFunctionKey := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4048	selectedFunctionKey addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4049	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4050	^ selectedFunctionKey.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4051	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4052
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4053	selectedRawKey
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4054
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4055	selectedRawKey isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4056	selectedRawKey := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4057	selectedRawKey addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4058	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4059	^ selectedRawKey.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4060	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4061
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4062	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4063
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4064	changeFunctionKeySelection
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4065
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4066	\|raw\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4067	raw := self selectedRawKey value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4068	self selectedFunctionKey value:(mappings at:raw asSymbol) asString.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4069	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4070
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4071	changeMacroText
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4072
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4073	\|f macro indent\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4074
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4075	f := self selectedFunctionKey value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4076	(f startsWith:'Cmd') ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4077	f := f copyFrom:4
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4078	].
6781 facbb533a366 * empty log message * Claus Gittinger <cg@exept.de> parents: 6780 diff changeset	4079	macro := currentUserPrefs functionKeySequences
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4080	at:(f asSymbol) ifAbsent:nil.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4081	macro notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4082	macro := macro asStringCollection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4083	indent := macro
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4084	inject:99999 into:[:min :element \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4085	\|stripped\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4086
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4087	stripped := element withoutLeadingSeparators.
6264 039dc5c1710b slight code cleanup Claus Gittinger <cg@exept.de> parents: 6256 diff changeset	4088	stripped isEmpty ifTrue:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4089	min
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4090	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4091	min min:(element size - stripped size)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4092	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4093	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4094	indent ~~ 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4095	macro := macro collect:[:line \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4096	line size > indent ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4097	line copyFrom:indent+1
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4098	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4099	line
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4100	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4101	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4102	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4103	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4104	macroTextHolder value:macro.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4105	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4106
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4107	changeRawKeySelection
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4108	\|f raw\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4109
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4110	f := self selectedFunctionKey value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4111	raw := mappings keyAtValue:f asString.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4112	raw isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4113	raw := mappings keyAtValue:f first.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4114	raw isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4115	raw := mappings keyAtValue:f asSymbol.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4116	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4117	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4118	self selectedRawKey value:raw.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4119	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4120
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4121	update:something with:aParameter from:changedObject
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4122	changedObject == self selectedFunctionKey ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4123	self changeRawKeySelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4124	self changeMacroText.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4125	^ self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4126	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4127	changedObject == self selectedRawKey ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4128	self changeFunctionKeySelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4129	^ self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4130	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4131	super update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4132	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4133
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4134	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4135
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4136	initialize
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4137
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4138	super initialize.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4139
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4140	mappings := Screen current keyboardMap.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4141
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4142	rawKeyList := (mappings keys asArray collect:[:key \| key asString]) sort.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4143	functionKeyList := (mappings values asSet asArray collect:[:key \| key asString]) sort.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4144
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4145	self labelTextHolder value:(resources at:'KEY_MSG2' default:'keyboard mapping:') withCRs.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4146	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4147
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4148	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4149
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4150	hasUnsavedChanges
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4151
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4152	^ false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4153	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4154
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4155	!AbstractSettingsApplication::LanguageSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4156
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4157	defaultIcon
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	4158	<resource: #programImage>
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	4159
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	4160	^ ToolbarIconLibrary languagesIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4161	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4162
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4163	!AbstractSettingsApplication::LanguageSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4164
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4165	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4166	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4167	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4168
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4169	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4170	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4171
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4172	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4173	UIPainter new openOnClass:AbstractSettingsApplication::LanguageSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4174	AbstractSettingsApplication::LanguageSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4175	AbstractSettingsApplication::LanguageSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4176	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4177
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4178	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4179
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4180	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4181	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4182	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4183	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4184	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4185	label: 'Language Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4186	name: 'Language Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4187	min: (Point 10 10)
6058 d0add4dd0d80 * empty log message * Claus Gittinger <cg@exept.de> parents: 6037 diff changeset	4188	bounds: (Rectangle 0 0 571 939)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4189	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4190	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4191	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4192	collection: (
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	4193	(TextEditorSpec
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	4194	name: 'TextEditor1'
5556 f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	4195	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	4196	style: (FontDescription helvetica medium roman 10 #'iso10646-1')
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	4197	model: noticeLabelHolder
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	4198	hasHorizontalScrollBar: true
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	4199	hasVerticalScrollBar: true
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	4200	miniScrollerHorizontal: true
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	4201	autoHideScrollBars: true
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	4202	isReadOnly: true
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	4203	postBuildCallback: postBuildHelpLabel:
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4204	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4205	(LabelSpec
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4206	label: 'Current Language:'
5556 f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	4207	name: 'Label1'
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	4208	layout: (LayoutFrame 0 0 0 0 -233 1 20 0)
5556 f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	4209	translateLabel: true
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	4210	labelChannel: currentLanguageLabel
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	4211	adjust: right
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	4212	)
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	4213	(LabelSpec
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4214	label: 'Label'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4215	name: 'CurrentLang'
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4216	layout: (LayoutFrame -233 1 0 0 0 1 20 0)
6058 d0add4dd0d80 * empty log message * Claus Gittinger <cg@exept.de> parents: 6037 diff changeset	4217	style: (FontDescription arial bold roman 10 nil)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4218	translateLabel: true
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4219	labelChannel: currentFlagAndLanguageChannel
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4220	adjust: left
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4221	)
5556 f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	4222	(InputFieldSpec
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	4223	name: 'EntryField1'
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	4224	layout: (LayoutFrame 2 0.0 160 0 -2 1.0 184 0)
5556 f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	4225	model: languageHolder
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	4226	acceptOnReturn: true
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	4227	acceptOnTab: true
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	4228	acceptOnLostFocus: true
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	4229	acceptOnPointerLeave: true
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	4230	)
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	4231	(SequenceViewSpec
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	4232	name: 'List1'
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	4233	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	4234	model: languageIndexHolder
5556 f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	4235	hasHorizontalScrollBar: true
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	4236	hasVerticalScrollBar: true
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	4237	doubleClickSelector: doubleClick:
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4238	useIndex: true
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4239	sequenceList: languageListHolder
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4240	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4241	(HorizontalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4242	name: 'HorizontalPanel1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4243	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	4244	horizontalLayout: center
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4245	verticalLayout: center
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4246	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4247	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4248	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4249	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4250	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4251	(ActionButtonSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4252	label: 'Reread Language Resources'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4253	name: 'RereadResourcesButton'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4254	translateLabel: true
5556 f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	4255	resizeForLabel: true
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4256	model: rereadResourceFiles
5556 f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	4257	useDefaultExtent: true
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4258	)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4259	)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4260
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4261	)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4262	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4263	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4264
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4265	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4266	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4267	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4268
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4269	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'accessing'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4270
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4271	languageList
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4272	"return the value of the instance variable 'languageList' (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4273
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4274	^ languageList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4275	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4276
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4277	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4278
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4279	basicReadSettings
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4280	self languageHolder value:self currentLanguage.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4281	self currentFlagAndLanguageChannel value:self currentLanguage.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4282	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4283
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4284	basicSaveSettings
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4285	\|fontPref fontPrefs language oldLanguage languageString territory enc
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4286	answer matchingFonts l screen switch dialog anyWrong\|
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4287
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4288	self withWaitCursorDo:[
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4289	languageString := translatedLanguages at:(self languageIndexHolder value).
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4290	language := self languageHolder value.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4291	(language includes:$-) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4292	l := language asCollectionOfSubstringsSeparatedBy:$-.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4293	language := l at:1.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4294	territory := l at:2.
5837 470e67fd9d0a * empty log message * Claus Gittinger <cg@exept.de> parents: 5825 diff changeset	4295	territory isNil ifTrue:[
470e67fd9d0a * empty log message * Claus Gittinger <cg@exept.de> parents: 5825 diff changeset	4296	territory := language string copyTo:2
470e67fd9d0a * empty log message * Claus Gittinger <cg@exept.de> parents: 5825 diff changeset	4297	].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4298	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4299
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4300	"/ check if the new language needs a differently encoded font;
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4301	"/ ask user to switch font and allow cancellation.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4302	"/ Otherwise, you are left with unreadable menu & button items ...
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4303
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4304	oldLanguage := Smalltalk language.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4305	Smalltalk language:language asSymbol.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4306	ResourcePack flushCachedResourcePacks.
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4307
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4308	"/ refetch resources ...
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4309	resources := AbstractLauncherApplication classResources.
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4310	fontPrefs := resources at:'PREFERRED_FONT_ENCODINGS' default:nil.
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4311	fontPrefs isNil ifTrue:[
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4312	fontPref := resources at:'PREFERRED_FONT_ENCODING' default:nil.
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4313	fontPref isNil ifTrue:[
5700 61de7f81a8fb * empty log message * Claus Gittinger <cg@exept.de> parents: 5627 diff changeset	4314	fontPrefs := #(#'iso10646-1')
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4315	] ifFalse:[
5700 61de7f81a8fb * empty log message * Claus Gittinger <cg@exept.de> parents: 5627 diff changeset	4316	fontPrefs := #(#'iso10646-1') , (Array with:fontPref).
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4317	]
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4318	].
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	4319
9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	4320	"/ 'normalize' names of encodings
5700 61de7f81a8fb * empty log message * Claus Gittinger <cg@exept.de> parents: 5627 diff changeset	4321	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	4322	fontPrefs := fontPrefs select:[:each \| each notNil] thenCollect:[:each \| each nameOfEncoding].
5700 61de7f81a8fb * empty log message * Claus Gittinger <cg@exept.de> parents: 5627 diff changeset	4323	fontPrefs isEmpty ifTrue:[
61de7f81a8fb * empty log message * Claus Gittinger <cg@exept.de> parents: 5627 diff changeset	4324	fontPrefs := #(#'iso10464-1')
61de7f81a8fb * empty log message * Claus Gittinger <cg@exept.de> parents: 5627 diff changeset	4325	].
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4326	fontPref := fontPrefs first.
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4327
5580 11cec5eb8c93 * empty log message * Claus Gittinger <cg@exept.de> parents: 5576 diff changeset	4328	Smalltalk setLanguage:#en.
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4329	ResourcePack flushCachedResourcePacks.
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4330	resources := AbstractLauncherApplication classResources.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4331
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4332	switch := true.
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4333	anyWrong := false.
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4334	(Array
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4335	with:MenuView defaultFont
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4336	"/ with:ListView defaultFont
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4337	with:EditTextView defaultFont
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4338	with:Button defaultFont)
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4339	do:[:fn \|
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4340	enc := fn encoding.
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4341	(fontPrefs contains:[:pref \| CharacterEncoder isEncoding:pref subSetOf:enc])
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4342	ifFalse:[
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4343	anyWrong := true
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4344	].
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4345	].
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4346	anyWrong ifTrue:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4347	"/ look if there is one at all.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4348	screen := Screen current.
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4349	matchingFonts := screen listOfAvailableFonts
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4350	select:[:f \| fontPrefs contains:[:pref \|
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4351	CharacterEncoder
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4352	isEncoding:pref subSetOf:(f encoding ? 'ascii')]].
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4353
6264 039dc5c1710b slight code cleanup Claus Gittinger <cg@exept.de> parents: 6256 diff changeset	4354	matchingFonts isEmpty ifTrue:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4355	"/ flush and try again - just in case, the font path has changed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4356	screen flushListOfAvailableFonts.
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4357	matchingFonts := screen listOfAvailableFonts
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4358	select:[:f \| fontPrefs contains:[:pref \|
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4359	CharacterEncoder
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4360	isEncoding:pref subSetOf:(f encoding ? 'ascii')]].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4361	].
6264 039dc5c1710b slight code cleanup Claus Gittinger <cg@exept.de> parents: 6256 diff changeset	4362	matchingFonts isEmpty ifTrue:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4363	(Dialog
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4364	confirm:(resources
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4365	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	4366	with:fontPref) withCRs)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4367	ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4368	switch := false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4369	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4370	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4371	answer := Dialog
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4372	confirmWithCancel:(resources
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4373	string:'Some font(s) is not %1-encoded.\\Change it ?'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4374	with:fontPref) withCRs
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4375	labels:(resources
5109 27daba118da2 * empty log message * Claus Gittinger <cg@exept.de> parents: 5101 diff changeset	4376	array:#('Cancel' 'No' 'Yes'))
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4377	default:3.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4378	answer isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4379	switch := false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4380	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4381	answer ifTrue:[
5495 61664e06a5d7 * empty log message * Claus Gittinger <cg@exept.de> parents: 5479 diff changeset	4382	switch := (AbstractLauncherApplication::LauncherDialogs fontBoxForEncoding:fontPref)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4383	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4384	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4385	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4386	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4387
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4388	switch ifTrue:[
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4389	Transcript showCR:'Changing language setting to ' , languageString string , ' (' , language , ')...'.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4390	Smalltalk language:language asSymbol.
5837 470e67fd9d0a * empty log message * Claus Gittinger <cg@exept.de> parents: 5825 diff changeset	4391	Smalltalk languageTerritory:(territory ? language) asSymbol.
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4392	ResourcePack flushCachedResourcePacks.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4393	"/ ResourcePack flushCachedResourcePacks - already done by language-change
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4394	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4395	].
4327 076dfc82d0ed * empty log message * penk parents: 4324 diff changeset	4396	switch ifTrue:[
6389 9f4010737320 code cleanup Claus Gittinger <cg@exept.de> parents: 6383 diff changeset	4397	(dialog := settingsDialog) notNil ifTrue:[
5212 5ddf75438c57 checkin from browser Claus Gittinger <cg@exept.de> parents: 5181 diff changeset	4398	dialog reopenLauncher.
4327 076dfc82d0ed * empty log message * penk parents: 4324 diff changeset	4399	] ifFalse:[
076dfc82d0ed * empty log message * penk parents: 4324 diff changeset	4400	NewLauncher current reopenLauncher.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4401	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4402	DebugView newDebugger.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4403	].
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4404	self updateForChangedLanguage.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4405	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4406
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4407	doubleClick:aEntry
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4408	self saveSettingsIfUnsavedChangesArePresent.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4409	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4410
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4411	helpFilename
5741 28a546bab7e8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5734 diff changeset	4412	^ 'Launcher/languageSetting.html'
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4413	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4414
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4415	rereadResourceFiles
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4416	ResourcePack flushCachedResourcePacks.
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4417	perLanguageResources := nil.
5576 8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	4418	self withWaitCursorDo:[
8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	4419	self updateForChangedLanguage.
8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	4420	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4421
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4422	"/ Smalltalk language:(Smalltalk language).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4423	"/ Smalltalk languageTerritory:(Smalltalk languageTerritory).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4424
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4425	Smalltalk changed:#Language.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4426	Smalltalk changed:#LanguageTerritory.
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4427	!
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4428
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4429	updateForChangedLanguage
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4430	self initializeLanguages.
5721 effab3aca7ff * empty log message * Claus Gittinger <cg@exept.de> parents: 5719 diff changeset	4431	languageListHolder value:languageList.
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4432	self languageListHolder value:languageList.
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4433	self currentFlagAndLanguageChannel value:self currentLanguage.
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4434	self setCurrentLanguageLabel.
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4435	self setNoticeLabel.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4436	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4437
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4438	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4439
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4440	currentFlagAndLanguageChannel
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4441	currentFlagAndLanguageChannel isNil ifTrue:[
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4442	currentFlagAndLanguageChannel := self currentLanguage asValue.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4443	].
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4444	^ currentFlagAndLanguageChannel.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4445	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4446
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4447	currentLanguageLabel
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4448	currentLanguageLabel isNil ifTrue:[
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4449	currentLanguageLabel := ValueHolder new.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4450	self setCurrentLanguageLabel.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4451	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4452	^ currentLanguageLabel.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4453	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4454
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4455	languageHolder
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4456	languageHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4457	languageHolder := self currentLanguage asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	4458	languageHolder onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4459	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4460	^ languageHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4461	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4462
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4463	languageIndexChanged
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4464	\|langIdx\|
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4465
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4466	langIdx := self languageIndexHolder value ? 1.
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4467	self languageHolder value:(listOfLanguages at:langIdx).
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4468	self updateModifiedChannel.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4469	!
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4470
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4471	languageIndexHolder
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4472	languageIndexHolder isNil ifTrue:[
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4473	languageIndexHolder := (self currentLanguageIndex) asValue.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4474	languageIndexHolder onChangeSend:#languageIndexChanged to:self.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4475	].
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4476	^ languageIndexHolder.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4477	!
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4478
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4479	languageListHolder
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4480	languageListHolder isNil ifTrue:[
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4481	languageListHolder := self languageList asValue.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4482	].
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4483	^ languageListHolder.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4484	!
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4485
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4486	noticeLabelHolder
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4487	noticeLabelHolder isNil ifTrue:[
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4488	noticeLabelHolder := ValueHolder new.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4489	self setNoticeLabel.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4490	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4491	^ noticeLabelHolder.
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4492	!
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4493
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4494	setCurrentLanguageLabel
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4495	currentLanguageLabel value: (resources string:'Current Language:')
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4496	!
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4497
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4498	setNoticeLabel
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	4499	noticeLabelHolder
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	4500	value: ((resources at:'LANG_MSG' default:'Select a Language') withCRs).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4501	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4502
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4503	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4504
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4505	initialize
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4506	self initializeLanguages.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4507	super initialize.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4508	!
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4509
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4510	initializeLanguages
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4511	\|flags enResources savedLanguage savedLanguageTerritory enLanguages nativeLanguages languages listOfLanguageKeys\|
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4512
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4513	resources := self class classResources.
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	4514	listOfLanguages := resources at:'LIST_OF_OFFERED_LANGUAGES' default:#('default' 'en' ).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4515	listOfLanguages := listOfLanguages asOrderedCollection.
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4516	listOfLanguageKeys := listOfLanguages collect:[:l \| l copyReplaceAll:$- with:$_ ].
5563 5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	4517
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	4518	(perLanguageResources notNil
4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	4519	and:[ (perLanguageResources includesKey:#en) not
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4520	and:[ (perLanguageResources includesKey:#'en_us') not ]])
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	4521	ifTrue:[
4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	4522	perLanguageResources := nil.
4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	4523	].
4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	4524
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4525	perLanguageResources isNil ifTrue:[
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4526	perLanguageResources := Dictionary new.
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4527
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4528	listOfLanguageKeys do:[:eachLang \|
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4529	savedLanguage := Language.
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4530	savedLanguageTerritory := LanguageTerritory.
5573 71a51c6df6a4 checkin from browser Claus Gittinger <cg@exept.de> parents: 5569 diff changeset	4531	ResourcePack flushCachedResourcePacks.
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4532	[
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4533	\|rsc lang terr\|
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4534
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4535	lang := terr := eachLang.
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4536	(lang includes:$_) ifTrue:[
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4537	terr := lang copyFrom:4.
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4538	lang := lang copyTo:2.
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4539	].
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4540	Language := lang asSymbol.
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4541	LanguageTerritory := terr asSymbol.
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4542	rsc := ResourcePack for:(self class) cached:false.
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4543	perLanguageResources at:eachLang asSymbol put:rsc.
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4544	] ensure:[
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4545	Language := savedLanguage.
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4546	LanguageTerritory := savedLanguageTerritory.
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4547	].
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4548	].
5573 71a51c6df6a4 checkin from browser Claus Gittinger <cg@exept.de> parents: 5569 diff changeset	4549	ResourcePack flushCachedResourcePacks.
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4550	].
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4551	enResources := perLanguageResources at:#en ifAbsent:[perLanguageResources at:#'en_us'].
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4552
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4553	enLanguages := listOfLanguageKeys
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4554	collect:[:lang \| \|item\|
5563 5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	4555	item := enResources at:('LANG_' , lang) default:nil.
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	4556	item isNil ifTrue:[
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	4557	lang
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4558	] ifFalse:[
5563 5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	4559	item isString ifTrue:[
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	4560	item
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	4561	] ifFalse:[
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	4562	item at:1
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	4563	]
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4564	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4565	].
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4566
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4567	nativeLanguages := listOfLanguageKeys
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4568	collect:[:lang \| \|item enLang\|
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4569	item := enResources at:('LANG_' , lang) default:nil.
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4570	item isNil ifTrue:[
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4571	enLang := lang
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4572	] ifFalse:[
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4573	item isString ifTrue:[
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4574	enLang := item
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4575	] ifFalse:[
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4576	enLang := item at:1
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4577	]
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4578	].
5583 2da80c3bc608 * empty log message * Claus Gittinger <cg@exept.de> parents: 5580 diff changeset	4579	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	4580	].
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4581
5563 5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	4582	languages := enLanguages
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	4583	collect:[:enLang \| \|item\|
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	4584	item := resources at:enLang default:enLang.
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	4585	].
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	4586
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4587	flags := listOfLanguageKeys collect:[:lang \| \|item coll\|
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4588	item := resources at:('FLAG_' , lang) default:nil.
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4589	item notNil ifTrue:[
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4590	item
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4591	] ifFalse:[
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4592	coll := lang asCollectionOfSubstringsSeparatedBy:$_.
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4593	(coll size > 1
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4594	and:[(item := resources at:('FLAG_' , coll last) default:nil) notNil])
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4595	ifTrue:[
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4596	item
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4597	] ifFalse:[
6638 74439c5aa6dd * empty log message * Claus Gittinger <cg@exept.de> parents: 6580 diff changeset	4598	item := resources string:('LANG_' , lang).
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4599	item isArray ifTrue:[
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4600	item at:2
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4601	] ifFalse:[
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4602	nil
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4603	]
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4604	]
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4605	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4606	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4607	flags := flags collect:[:nm \| \|img d\| nm notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4608	img := Image fromFile:nm.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4609	img isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4610	d := Smalltalk getPackageDirectoryForPackage:'stx:goodies'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4611	img := Image fromFile:(d construct:nm).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4612	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4613	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4614	nil
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4615	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4616	].
5563 5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	4617
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4618
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4619	translatedLanguages := (1 to:languages size) collect:[:idx \|
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4620	\|l eL nL s\|
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4621
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4622	l := languages at:idx.
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4623	eL := enLanguages at:idx.
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4624	nL := nativeLanguages at:idx.
5734 67a9878b31bc * empty log message * Claus Gittinger <cg@exept.de> parents: 5721 diff changeset	4625
67a9878b31bc * empty log message * Claus Gittinger <cg@exept.de> parents: 5721 diff changeset	4626	s := nL.
67a9878b31bc * empty log message * Claus Gittinger <cg@exept.de> parents: 5721 diff changeset	4627	eL ~= nL ifTrue:[
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4628	s := s , ' / ' , eL
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4629	].
5734 67a9878b31bc * empty log message * Claus Gittinger <cg@exept.de> parents: 5721 diff changeset	4630	(l ~= nL and:[l ~= eL]) ifTrue:[
67a9878b31bc * empty log message * Claus Gittinger <cg@exept.de> parents: 5721 diff changeset	4631	s := s , ' / ' , l
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4632	].
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4633	s
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4634	].
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4635
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4636	languageList := translatedLanguages
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4637	with:flags
5563 5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	4638	collect:[:lang :flag \| LabelAndIcon icon:flag string:lang.].
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	4639	!
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	4640
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	4641	postBuildHelpLabel:aWidget
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	4642	aWidget level:0.
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	4643	aWidget scrolledView backgroundColor:self window viewBackground.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4644	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4645
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4646	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4647
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4648	currentLanguage
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4649	^ languageList at:(self currentLanguageIndex)
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4650	!
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4651
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4652	currentLanguageIndex
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4653	\| langIdx \|
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4654
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4655	(Language ~= LanguageTerritory) ifTrue:[
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4656	langIdx := listOfLanguages indexOf:(Language , '-' , LanguageTerritory) ifAbsent:nil.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4657	].
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4658	langIdx isNil ifTrue:[
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4659	langIdx := listOfLanguages indexOf:Language ifAbsent:nil.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4660	].
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4661	langIdx isNil ifTrue:[
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4662	langIdx := listOfLanguages indexOf:'en' ifAbsent:nil.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4663	langIdx isNil ifTrue:[
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4664	langIdx := listOfLanguages indexOf:'en-us' ifAbsent:nil.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4665
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4666	langIdx isNil ifTrue:[
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4667	langIdx := 1.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4668	]
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4669	]
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4670	].
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4671	^ langIdx
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4672	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4673
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4674	hasUnsavedChanges
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4675	^ (self languageHolder value) ~= (self currentLanguage)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4676	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4677
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4678	!AbstractSettingsApplication::MemorySettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4679
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4680	defaultIcon
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	4681	<resource: #programImage>
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	4682
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	4683	^ ToolbarIconLibrary memoryIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4684	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4685
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4686	!AbstractSettingsApplication::MemorySettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4687
5433 f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4688	windowSpec
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4689	"This resource specification was automatically generated
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4690	by the UIPainter of ST/X."
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4691
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4692	"Do not manually edit this!! If it is corrupted,
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4693	the UIPainter may not be able to read the specification."
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4694
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4695	"
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4696	UIPainter new openOnClass:AbstractSettingsApplication::MemorySettingsAppl andSelector:#windowSpec
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4697	AbstractSettingsApplication::MemorySettingsAppl new openInterface:#windowSpec
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4698	AbstractSettingsApplication::MemorySettingsAppl open
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4699	"
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4700
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4701	<resource: #canvas>
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4702
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4703	^
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4704	#(FullSpec
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4705	name: windowSpec
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4706	window:
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4707	(WindowSpec
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4708	label: 'Memory Manager Settings'
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4709	name: 'Memory Manager Settings'
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4710	min: (Point 10 10)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4711	bounds: (Rectangle 13 23 465 745)
5433 f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4712	)
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4713	component:
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4714	(SpecCollection
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4715	collection: (
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4716	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4717	label: 'Label'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4718	name: 'Label1'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4719	layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 50 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4720	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4721	labelChannel: warningLabelHolder
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4722	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4723	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4724	(VerticalPanelViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4725	name: 'VerticalPanel1'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4726	layout: (LayoutFrame 0 0.0 50 0 0 1.0 0 1.0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4727	horizontalLayout: fit
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4728	verticalLayout: top
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4729	horizontalSpace: 0
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4730	verticalSpace: 3
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4731	ignoreInvisibleComponents: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4732	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4733	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4734	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4735	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4736	name: 'NewSpaceSizeBox'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4737	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4738	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4739	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4740	(InputFieldSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4741	name: 'EntryField23'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4742	layout: (LayoutFrame -95 1 3 0 -5 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4743	model: newSpaceSize
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4744	type: fileSize
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4745	acceptOnReturn: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4746	acceptOnTab: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4747	acceptOnLostFocus: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4748	acceptOnPointerLeave: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4749	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4750	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4751	label: 'Size of NewSpace:'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4752	name: 'Label44'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4753	layout: (LayoutFrame 0 0 3 0 -95 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4754	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4755	adjust: right
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4756	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4757	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4758	label: 'Size of newSpace where objects are created'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4759	name: 'Label45'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4760	layout: (LayoutFrame 0 0.0 23 0 0 1.0 43 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4761	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4762	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4763	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4764	(DividerSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4765	name: 'Separator24'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4766	layout: (LayoutFrame 0 0.0 0 0 0 1.0 3 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4767	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4768	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4769
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4770	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4771	extent: (Point 452 43)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4772	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4773	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4774	name: 'MaximumMemoryLimitBox'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4775	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4776	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4777	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4778	(InputFieldSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4779	name: 'EntryField24'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4780	layout: (LayoutFrame -95 1 3 0 -5 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4781	model: maxOldSpace
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4782	type: fileSize
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4783	formatString: ''
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4784	acceptOnReturn: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4785	acceptOnTab: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4786	acceptOnLostFocus: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4787	acceptOnPointerLeave: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4788	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4789	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4790	label: 'Maximum Memory Limit:'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4791	name: 'Label46'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4792	layout: (LayoutFrame 0 0 3 0 -95 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4793	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4794	adjust: right
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4795	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4796	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4797	label: 'Never allocate more than this amount of memory'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4798	name: 'Label47'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4799	layout: (LayoutFrame 0 0.0 23 0 0 1.0 43 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4800	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4801	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4802	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4803	(DividerSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4804	name: 'Separator25'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4805	layout: (LayoutFrame 0 0.0 0 0 0 1.0 3 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4806	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4807	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4808
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4809	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4810	extent: (Point 452 43)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4811	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4812	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4813	name: 'QuickAllocationLimitBox'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4814	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4815	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4816	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4817	(InputFieldSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4818	name: 'EntryField14'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4819	layout: (LayoutFrame -95 1 3 0 -5 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4820	model: fastMoreLimit
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4821	type: fileSize
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4822	acceptOnReturn: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4823	acceptOnTab: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4824	acceptOnLostFocus: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4825	acceptOnPointerLeave: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4826	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4827	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4828	label: 'Quick Allocation Limit:'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4829	name: 'Label26'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4830	layout: (LayoutFrame 0 0 3 0 -95 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4831	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4832	adjust: right
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4833	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4834	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4835	label: 'Quickly allocate more memory (suppress GC) up to this limit'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4836	name: 'Label27'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4837	layout: (LayoutFrame 0 0.0 23 0 0 1.0 43 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4838	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4839	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4840	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4841	(DividerSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4842	name: 'Separator15'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4843	layout: (LayoutFrame 0 0.0 0 0 0 1.0 3 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4844	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4845	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4846
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4847	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4848	extent: (Point 452 43)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4849	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4850	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4851	name: 'IncrementalGCAllocationTriggerBox'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4852	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4853	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4854	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4855	(InputFieldSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4856	name: 'EntryField25'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4857	layout: (LayoutFrame -95 1 3 0 -5 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4858	model: igcLimit
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4859	type: fileSize
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4860	acceptOnReturn: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4861	acceptOnTab: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4862	acceptOnLostFocus: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4863	acceptOnPointerLeave: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4864	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4865	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4866	label: 'Incremental GC Allocation Trigger:'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4867	name: 'Label48'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4868	layout: (LayoutFrame 0 0 3 0 -95 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4869	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4870	adjust: right
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4871	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4872	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4873	label: 'Start IGC whenever this amount has been allocated'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4874	name: 'Label49'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4875	layout: (LayoutFrame 0 0.0 23 0 0 1.0 43 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4876	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4877	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4878	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4879	(DividerSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4880	name: 'Separator26'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4881	layout: (LayoutFrame 0 0.0 0 0 0 1.0 3 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4882	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4883	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4884
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4885	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4886	extent: (Point 452 43)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4887	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4888	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4889	name: 'IncrementalGCFreespaceTriggerBox'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4890	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4891	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4892	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4893	(InputFieldSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4894	name: 'EntryField26'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4895	layout: (LayoutFrame -95 1 3 0 -5 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4896	model: igcFreeLimit
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4897	type: fileSize
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4898	acceptOnReturn: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4899	acceptOnTab: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4900	acceptOnLostFocus: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4901	acceptOnPointerLeave: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4902	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4903	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4904	label: 'Incremental GC Freespace Trigger:'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4905	name: 'Label50'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4906	layout: (LayoutFrame 0 0 3 0 -95 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4907	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4908	adjust: right
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4909	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4910	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4911	label: 'Start IGC whenever freespace drops below this'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4912	name: 'Label51'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4913	layout: (LayoutFrame 0 0.0 23 0 0 1.0 43 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4914	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4915	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4916	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4917	(DividerSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4918	name: 'Separator27'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4919	layout: (LayoutFrame 0 0.0 0 0 0 1.0 3 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4920	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4921	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4922
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4923	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4924	extent: (Point 452 43)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4925	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4926	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4927	name: 'GCAmountBox'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4928	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4929	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4930	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4931	(InputFieldSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4932	name: 'EntryField17'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4933	layout: (LayoutFrame -95 1 3 0 -5 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4934	model: igcFreeAmount
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4935	type: fileSize
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4936	acceptOnReturn: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4937	acceptOnTab: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4938	acceptOnLostFocus: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4939	acceptOnPointerLeave: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4940	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4941	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4942	label: 'Incremental GC Amount:'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4943	name: 'Label32'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4944	layout: (LayoutFrame 0 0 3 0 -95 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4945	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4946	adjust: right
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4947	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4948	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4949	label: 'Try to keep this amount for peak requests'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4950	name: 'Label33'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4951	layout: (LayoutFrame 0 0.0 23 0 0 1.0 43 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4952	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4953	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4954	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4955	(DividerSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4956	name: 'Separator18'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4957	layout: (LayoutFrame 0 0.0 0 0 0 1.0 3 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4958	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4959	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4960
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4961	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4962	extent: (Point 452 43)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4963	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4964	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4965	name: 'OldspaceIncrementBox'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4966	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4967	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4968	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4969	(InputFieldSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4970	name: 'EntryField18'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4971	layout: (LayoutFrame -95 1 3 0 -5 1.0 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4972	model: oldIncr
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4973	type: fileSize
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4974	acceptOnReturn: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4975	acceptOnTab: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4976	acceptOnLostFocus: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4977	acceptOnPointerLeave: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4978	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4979	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4980	label: 'Oldspace Increment:'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4981	name: 'Label34'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4982	layout: (LayoutFrame 0 0 3 0 -95 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4983	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4984	adjust: right
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4985	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4986	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4987	label: 'Increase oldSpace in chunks of this size'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4988	name: 'Label35'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4989	layout: (LayoutFrame 0 0.0 23 0 0 1.0 43 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4990	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4991	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4992	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4993	(DividerSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4994	name: 'Separator19'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4995	layout: (LayoutFrame 0 0.0 0 0 0 1.0 3 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4996	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4997	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4998
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4999	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5000	extent: (Point 452 43)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5001	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5002	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5003	name: 'OldSpaceCompressLimitBox'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5004	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5005	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5006	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5007	(InputFieldSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5008	name: 'EntryField19'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5009	layout: (LayoutFrame -95 1 3 0 -5 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5010	model: compressLimit
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5011	type: fileSize
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5012	acceptOnReturn: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5013	acceptOnTab: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5014	acceptOnLostFocus: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5015	acceptOnPointerLeave: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5016	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5017	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5018	label: 'Oldspace Compress Limit:'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5019	name: 'Label36'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5020	layout: (LayoutFrame 0 0 3 0 -95 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5021	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5022	adjust: right
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5023	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5024	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5025	label: 'Use 2-pass compressing GC if > 0 and more memory is in use'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5026	name: 'Label37'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5027	layout: (LayoutFrame 0 0.0 23 0 0 1.0 43 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5028	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5029	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5030	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5031	(DividerSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5032	name: 'Separator20'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5033	layout: (LayoutFrame 0 0.0 0 0 0 1.0 3 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5034	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5035	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5036
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5037	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5038	extent: (Point 452 43)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5039	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5040	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5041	name: 'StackLimitBox'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5042	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5043	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5044	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5045	(InputFieldSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5046	name: 'EntryField20'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5047	layout: (LayoutFrame -95 1 3 0 -5 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5048	enableChannel: supportsJustInTimeCompilation
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5049	model: stackLimit
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5050	type: fileSize
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5051	acceptOnReturn: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5052	acceptOnTab: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5053	acceptOnLostFocus: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5054	acceptOnPointerLeave: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5055	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5056	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5057	label: 'Stack Limit:'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5058	name: 'Label38'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5059	layout: (LayoutFrame 0 0 3 0 -95 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5060	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5061	adjust: right
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5062	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5063	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5064	label: 'Trigger recursionInterrupt if more stack is used by a process'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5065	name: 'Label39'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5066	layout: (LayoutFrame 0 0.0 23 0 0 1.0 43 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5067	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5068	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5069	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5070	(DividerSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5071	name: 'Separator21'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5072	layout: (LayoutFrame 0 0.0 0 0 0 1.0 3 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5073	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5074	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5075
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5076	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5077	extent: (Point 452 43)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5078	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5079	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5080	name: 'CodeLimitBox'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5081	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5082	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5083	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5084	(InputFieldSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5085	name: 'EntryField21'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5086	layout: (LayoutFrame -95 1 3 0 -5 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5087	enableChannel: supportsJustInTimeCompilation
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5088	model: codeLimit
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5089	type: fileSize
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5090	acceptOnReturn: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5091	acceptOnTab: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5092	acceptOnLostFocus: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5093	acceptOnPointerLeave: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5094	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5095	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5096	label: 'Dynamic code Limit:'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5097	name: 'Label40'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5098	layout: (LayoutFrame 0 0 3 0 -95 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5099	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5100	adjust: right
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5101	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5102	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5103	label: 'Flush dynamic compiled code to stay within this limit'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5104	name: 'Label41'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5105	layout: (LayoutFrame 0 0.0 23 0 0 1.0 43 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5106	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5107	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5108	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5109	(DividerSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5110	name: 'Separator22'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5111	layout: (LayoutFrame 0 0.0 0 0 0 1.0 3 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5112	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5113	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5114
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5115	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5116	extent: (Point 452 43)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5117	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5118	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5119	name: 'CodeTriggerBox'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5120	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5121	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5122	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5123	(InputFieldSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5124	name: 'EntryField22'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5125	layout: (LayoutFrame -95 1 3 0 -5 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5126	model: codeTrigger
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5127	type: fileSize
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5128	acceptOnReturn: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5129	acceptOnTab: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5130	acceptOnLostFocus: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5131	acceptOnPointerLeave: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5132	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5133	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5134	label: 'Dynamic code Limit:'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5135	name: 'Label42'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5136	layout: (LayoutFrame 0 0 3 0 -95 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5137	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5138	adjust: right
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5139	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5140	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5141	label: 'Start incremental GC whenever this amount of code has been allocated'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5142	name: 'Label43'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5143	layout: (LayoutFrame 0 0.0 23 0 0 1.0 43 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5144	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5145	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5146	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5147	(DividerSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5148	name: 'Separator23'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5149	layout: (LayoutFrame 0 0.0 0 0 0 1.0 3 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5150	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5151	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5152
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5153	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5154	extent: (Point 452 43)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5155	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5156	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5157
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5158	)
5433 f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	5159	)
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	5160	)
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	5161
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	5162	)
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	5163	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5164	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5165
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5166	!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5167
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5168	basicReadSettings
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	5169	self
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	5170	readAspects:
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	5171	#(
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	5172	newSpaceSize
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	5173	maxOldSpace
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	5174	)
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	5175	from:ObjectMemory.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5176
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5177	self igcLimit value:ObjectMemory incrementalGCLimit.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5178	self igcFreeLimit value:ObjectMemory freeSpaceGCLimit.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5179	self igcFreeAmount value:ObjectMemory freeSpaceGCAmount.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5180	self oldIncr value:ObjectMemory oldSpaceIncrement.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5181	self compressLimit value:ObjectMemory oldSpaceCompressLimit.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5182	self codeLimit value:ObjectMemory dynamicCodeLimit.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5183	self codeTrigger value:ObjectMemory dynamicCodeGCTrigger.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5184	self fastMoreLimit value:(ObjectMemory fastMoreOldSpaceLimit:-1).
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5185
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5186	self stackLimit value:Process defaultMaximumStackSize.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5187	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5188
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5189	basicSaveSettings
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	5190	self
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	5191	writeAspects:
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	5192	#(
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	5193	newSpaceSize
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	5194	maxOldSpace
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	5195	)
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	5196	to:ObjectMemory.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5197
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5198	ObjectMemory freeSpaceGCAmount:self igcFreeAmount value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5199	ObjectMemory freeSpaceGCLimit:self igcFreeLimit value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5200	ObjectMemory incrementalGCLimit:self igcLimit value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5201	ObjectMemory oldSpaceIncrement:self oldIncr value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5202	ObjectMemory fastMoreOldSpaceLimit:self fastMoreLimit value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5203	ObjectMemory oldSpaceCompressLimit:self compressLimit value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5204	ObjectMemory dynamicCodeLimit:self codeLimit value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5205	ObjectMemory dynamicCodeGCTrigger:self codeTrigger value.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5206
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5207	Process defaultMaximumStackSize:self stackLimit value.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5208	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5209
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	5210	helpFilename
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	5211	^ 'Launcher/memorySettings.html'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5212	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5213
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5214	!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5215
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5216	codeLimit
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5217
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5218	codeLimit isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5219	codeLimit := ObjectMemory dynamicCodeLimit asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5220	codeLimit onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5221	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5222	^ codeLimit.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5223	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5224
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5225	codeTrigger
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5226
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5227	codeTrigger isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5228	codeTrigger := ObjectMemory dynamicCodeGCTrigger asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5229	codeTrigger onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5230	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5231	^ codeTrigger.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5232	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5233
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5234	compressLimit
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5235
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5236	compressLimit isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5237	compressLimit := ObjectMemory oldSpaceCompressLimit asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5238	compressLimit onChangeSend:#updateModifiedChannel to:self
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5239	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5240	^ compressLimit.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5241	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5242
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5243	fastMoreLimit
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5244
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5245	fastMoreLimit isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5246	fastMoreLimit := (ObjectMemory fastMoreOldSpaceLimit:-1) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5247	fastMoreLimit onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5248	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5249	^ fastMoreLimit.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5250	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5251
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5252	igcFreeAmount
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5253
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5254	igcFreeAmount isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5255	igcFreeAmount := ObjectMemory freeSpaceGCAmount asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5256	igcFreeAmount onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5257	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5258	^ igcFreeAmount.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5259	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5260
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5261	igcFreeLimit
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5262
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5263	igcFreeLimit isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5264	igcFreeLimit := ObjectMemory freeSpaceGCLimit asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5265	igcFreeLimit onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5266	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5267	^ igcFreeLimit.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5268	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5269
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5270	igcLimit
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5271
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5272	igcLimit isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5273	igcLimit := ObjectMemory incrementalGCLimit asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5274	igcLimit onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5275	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5276	^ igcLimit.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5277	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5278
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5279	maxOldSpace
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5280
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5281	maxOldSpace isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5282	maxOldSpace := ObjectMemory maxOldSpace asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5283	maxOldSpace onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5284	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5285	^ maxOldSpace.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5286	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5287
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5288	newSpaceSize
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5289
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5290	newSpaceSize isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5291	newSpaceSize := ObjectMemory newSpaceSize asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5292	newSpaceSize onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5293	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5294	^ newSpaceSize.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5295	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5296
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5297	oldIncr
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5298
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5299	oldIncr isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5300	oldIncr := ObjectMemory oldSpaceIncrement asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5301	oldIncr onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5302	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5303	^ oldIncr.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5304	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5305
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5306	stackLimit
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5307
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5308	stackLimit isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5309	stackLimit := Process defaultMaximumStackSize asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5310	stackLimit onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5311	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5312	^ stackLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5313	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5314
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5315	supportsJustInTimeCompilation
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5316
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5317	^ ObjectMemory supportsJustInTimeCompilation.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5318	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5319
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5320	warningLabelHolder
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5321
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5322	warningLabelHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5323	warningLabelHolder := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5324	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5325	^ warningLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5326	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5327
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5328	!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5329
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5330	initialize
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5331	super initialize.
5576 8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	5332	self warningLabelHolder
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	5333	value:(StringCollection
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	5334	with:(resources string:'Warning - invalid settings may result in failures or poor performance.')
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	5335	with:(resources string:'You have been warned.') allBold
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	5336	).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5337	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5338
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5339	!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5340
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5341	hasUnsavedChanges
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	5342	(self
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	5343	hasChangedAspectIn:
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	5344	#(
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	5345	newSpaceSize
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	5346	maxOldSpace
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	5347	)
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	5348	asComparedTo:ObjectMemory) ifTrue:[^ true].
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5349
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	5350	ObjectMemory freeSpaceGCAmount ~= self igcFreeAmount value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	5351	ObjectMemory freeSpaceGCLimit ~= self igcFreeLimit value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	5352	ObjectMemory incrementalGCLimit ~= self igcLimit value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	5353	ObjectMemory oldSpaceIncrement ~= self oldIncr value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	5354	(ObjectMemory fastMoreOldSpaceLimit:-1) ~= self fastMoreLimit value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	5355	ObjectMemory oldSpaceCompressLimit ~= self compressLimit value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	5356	ObjectMemory dynamicCodeLimit ~= self codeLimit value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	5357	ObjectMemory dynamicCodeGCTrigger ~= self codeTrigger value ifTrue:[^ true].
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5358
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5359	Process defaultMaximumStackSize ~= self stackLimit value ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	5360	^ false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5361	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5362
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5363	!AbstractSettingsApplication::MiscCommunicationSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5364
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5365	defaultIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5366	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5367	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5368
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5369	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5370	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5371
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5372	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5373	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5374	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5375	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5376	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5377
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5378	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5379
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5380	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5381	constantNamed:#'AbstractSettingsApplication::MiscCommunicationSettingsAppl class defaultIcon'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	5382	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	5383	@@!!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	5384	]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	5385	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	5386	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5387
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5388	!AbstractSettingsApplication::MiscCommunicationSettingsAppl class methodsFor:'interface specs'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5389
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5390	windowSpec
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5391	"This resource specification was automatically generated
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5392	by the UIPainter of ST/X."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5393
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5394	"Do not manually edit this!! If it is corrupted,
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5395	the UIPainter may not be able to read the specification."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5396
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5397	"
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5398	UIPainter new openOnClass:AbstractSettingsApplication::MiscCommunicationSettingsAppl andSelector:#windowSpec
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5399	AbstractSettingsApplication::MiscCommunicationSettingsAppl new openInterface:#windowSpec
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5400	AbstractSettingsApplication::MiscCommunicationSettingsAppl open
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5401	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5402
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5403	<resource: #canvas>
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5404
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5405	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5406	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5407	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5408	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5409	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5410	label: 'Communication Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5411	name: 'Communication Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5412	min: (Point 10 10)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5413	bounds: (Rectangle 14 46 614 560)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5414	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5415	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5416	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5417	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5418	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5419	name: 'VerticalPanel1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5420	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	5421	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5422	verticalLayout: top
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5423	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5424	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5425	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5426	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5427	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5428	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5429	label: 'Remote browsing'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5430	name: 'Label1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5431	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5432	extent: (Point 600 22)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5433	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5434	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5435	name: 'Box1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5436	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5437	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5438	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5439	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5440	label: 'Remote browsing enabled'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5441	name: 'CheckBox1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5442	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	5443	enableChannel: hasRemoteBrowsingSupport
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5444	model: remoteBrowsingEnabled
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5445	translateLabel: true
5086 b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	5446	)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	5447	)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	5448
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	5449	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5450	extent: (Point 600 23)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5451	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5452	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5453	name: 'Separator1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5454	extent: (Point 600 4)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5455	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5456	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5457	label: 'Window migration'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5458	name: 'Label2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5459	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5460	extent: (Point 600 22)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5461	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5462	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5463	name: 'Box2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5464	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5465	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5466	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5467	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5468	label: 'Window migration enabled'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5469	name: 'CheckBox2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5470	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	5471	enableChannel: hasWindowMigrationServer
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5472	model: windowMigrationEnabled
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5473	translateLabel: true
5086 b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	5474	)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	5475	)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	5476
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	5477	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5478	extent: (Point 600 23)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5479	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5480	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5481	name: 'Box3'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5482	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5483	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5484	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5485	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5486	label: 'Password check'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5487	name: 'CheckBox3'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5488	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	5489	enableChannel: enablePasswordCheck
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5490	model: windowMigrationAuthenticate
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5491	translateLabel: true
5086 b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	5492	)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	5493	)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	5494
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	5495	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5496	extent: (Point 600 22)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5497	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5498	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5499	name: 'Box4'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5500	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5501	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5502	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5503	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5504	label: 'Password:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5505	name: 'Label3'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5506	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	5507	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5508	adjust: right
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5509	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5510	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5511	name: 'EntryField1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5512	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	5513	enableChannel: windowMigrationAuthenticate
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5514	model: windowMigrationPassword
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5515	type: password
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5516	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5517	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5518	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5519	acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5520	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5521	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5522
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5523	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5524	extent: (Point 600 22)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5525	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5526	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5527
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5528	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5529	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5530	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5531
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5532	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5533	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5534	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5535
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5536	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'actions'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5537
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5538	basicReadSettings
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5539	self remoteBrowsingEnabled
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5540	value:(self hasRemoteBrowsingSupport
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5541	and:[SmalltalkShareServer isLoaded and:[SmalltalkShareServer serverRunning]]).
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5542	self windowMigrationEnabled
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5543	value:(self hasWindowMigrationServer
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5544	and:[ WindowMigrationServer isLoaded
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5545	and:[WindowMigrationServer serverRunning]
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5546	]).
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5547	(self hasWindowMigrationServer and:[WindowMigrationServer isLoaded]) ifTrue:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5548	self windowMigrationPassword value:WindowMigrationServer password.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5549	self windowMigrationAuthenticate
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5550	value:self windowMigrationPassword value notNil
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5551	] ifFalse:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5552	self windowMigrationPassword value:nil.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5553	self windowMigrationAuthenticate value:false
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5554	].
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5555	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5556
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5557	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5558
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5559	self hasRemoteBrowsingSupport ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5560	self remoteBrowsingEnabled value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5561	SmalltalkShareServer serverRunning ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5562	SmalltalkShareServer killAll
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5563	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5564	] ifFalse:[
6250 5b0673ccff1c refactored intention revealing code: Claus Gittinger <cg@exept.de> parents: 6202 diff changeset	5565	SmalltalkShareServer serverRunning ifFalse:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5566	SmalltalkShareServer start.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5567	"/ must wait a bit; give it a chance to
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5568	"/ really start (before checking)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5569	Delay waitForSeconds:0.5.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5570	SmalltalkShareServer serverRunning ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5571	self warn:'SmalltalkShareServer startup failed (see stderr).'
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5572	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5573	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5574	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5575	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5576	self hasWindowMigrationServer ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5577	self windowMigrationAuthenticate value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5578	WindowMigrationServer password:self windowMigrationPassword value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5579	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5580	WindowMigrationServer password:nil
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5581	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5582	self windowMigrationEnabled value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5583	WindowMigrationServer serverRunning ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5584	WindowMigrationServer stop
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5585	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5586	] ifFalse:[
6250 5b0673ccff1c refactored intention revealing code: Claus Gittinger <cg@exept.de> parents: 6202 diff changeset	5587	WindowMigrationServer serverRunning ifFalse:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5588	WindowMigrationServer start.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5589	"/ must wait a bit; give it a chance to
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5590	"/ really start (before checking)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5591	Delay waitForSeconds:0.5.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5592	WindowMigrationServer serverRunning ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5593	self warn:'WindowMigrationServer startup failed (see stderr).'
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5594	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5595	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5596	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5597	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5598	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5599
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	5600	helpFilename
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	5601	^ 'Launcher/communicationsSettings.html'
4310 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	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'aspects'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5605
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5606	enablePasswordCheck
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5607
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5608	enablePasswordCheck isNil ifTrue:[
6251 de1297cac10e refadctored intention revealing code: Claus Gittinger <cg@exept.de> parents: 6250 diff changeset	5609	self hasWindowMigrationServer ifFalse:[
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5610	enablePasswordCheck := false asValue.
6251 de1297cac10e refadctored intention revealing code: Claus Gittinger <cg@exept.de> parents: 6250 diff changeset	5611	] ifTrue:[
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5612	enablePasswordCheck := self windowMigrationEnabled.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5613	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5614	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5615	^ enablePasswordCheck.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5616	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5617
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5618	remoteBrowsingEnabled
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5619
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5620	remoteBrowsingEnabled isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5621	remoteBrowsingEnabled := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5622	remoteBrowsingEnabled onChangeSend:#updateModifiedChannel to:self.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5623	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5624	^ remoteBrowsingEnabled.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5625	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5626
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5627	windowMigrationAuthenticate
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5628
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5629	windowMigrationAuthenticate isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5630	windowMigrationAuthenticate := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5631	windowMigrationAuthenticate onChangeSend:#updateModifiedChannel to:self.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5632	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5633	^ windowMigrationAuthenticate.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5634	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5635
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5636	windowMigrationEnabled
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5637
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5638	windowMigrationEnabled isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5639	windowMigrationEnabled := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5640	windowMigrationEnabled onChangeSend:#updateModifiedChannel to:self.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5641	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5642	^ windowMigrationEnabled.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5643	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5644
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5645	windowMigrationPassword
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5646
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5647	windowMigrationPassword isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5648	windowMigrationPassword := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5649	windowMigrationPassword onChangeSend:#updateModifiedChannel to:self.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5650	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5651	^ windowMigrationPassword.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5652	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5653
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5654	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'initialization & release'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5655
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5656	initialize
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5657	super initialize.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5658	self readSettings.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5659	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5660
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5661	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'queries'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5662
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5663	hasRemoteBrowsingSupport
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5664
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5665	^ SmalltalkShareServer notNil
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5666	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5667
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5668	hasUnsavedChanges
5020 85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	5669	(self hasRemoteBrowsingSupport and:[SmalltalkShareServer isLoaded]) ifTrue:[
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	5670	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	5671	].
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	5672	self hasWindowMigrationServer ifTrue:[
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	5673	WindowMigrationServer isLoaded ifFalse:[
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	5674	self windowMigrationEnabled value ifTrue:[
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	5675	WindowMigrationServer autoload.
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	5676	].
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	5677	].
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	5678	(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	5679	(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	5680	(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	5681	].
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	5682	^ false
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5683	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5684
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5685	hasWindowMigrationServer
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5686
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5687	^ WindowMigrationServer notNil
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5688	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5689
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5690	!AbstractSettingsApplication::MiscDisplaySettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5691
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5692	defaultIcon
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5693	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5694	by the ImageEditor of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5695
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5696	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5697	the ImageEditor may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5698
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5699	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5700	self defaultIcon inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5701	ImageEditor openOnClass:self andSelector:#defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5702	Icon flushCachedIcons
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5703	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5704
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5705	<resource: #image>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5706
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5707	^Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5708	constantNamed:#'AbstractSettingsApplication::MiscDisplaySettingsAppl class defaultIcon'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5709	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	5710	@@@@@@@@@@@@@@DA@@@@@@@@@@@@@@@@@@@@@@@@@@DB@0D@@@@@@@@@@@@@@@@@@@@@@@DB@0LD@P@@@@@@@@@@@@@@@@@@@@DB@0LDA@DA@@@@@@@@@@@@
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	5711	@@@@@@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	5712	@ 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	5713	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	5714	@ 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	5715	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	5716	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5717
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5718	!AbstractSettingsApplication::MiscDisplaySettingsAppl class methodsFor:'interface specs'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5719
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5720	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5721	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5722	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5723
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5724	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5725	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5726
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5727	"
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5728	UIPainter new openOnClass:AbstractSettingsApplication::MiscDisplaySettingsAppl andSelector:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5729	AbstractSettingsApplication::MiscDisplaySettingsAppl new openInterface:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5730	AbstractSettingsApplication::MiscDisplaySettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5731	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5732
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5733	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5734
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5735	^
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	5736	#(FullSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	5737	name: windowSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	5738	window:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	5739	(WindowSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	5740	label: 'Display settings'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	5741	name: 'Display settings'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	5742	min: (Point 10 10)
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	5743	bounds: (Rectangle 0 0 445 483)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5744	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	5745	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	5746	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	5747	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	5748	(VerticalPanelViewSpec
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5749	name: 'VerticalPanel1'
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	5750	layout: (LayoutFrame 0 0 0 0 0 1 434 0)
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5751	horizontalLayout: fitSpace
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5752	verticalLayout: topSpace
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5753	horizontalSpace: 5
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	5754	verticalSpace: 3
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	5755	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	5756	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	5757	collection: (
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5758	(CheckBoxSpec
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	5759	label: 'Use Native Widgets (Experimental & Unfinished Feature)'
6014 5ec12867ba18 * empty log message * ca parents: 6013 diff changeset	5760	name: 'NativeWidgets'
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5761	enableChannel: displaySupportsNativeWidgets
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5762	model: nativeWidgets
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5763	translateLabel: true
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	5764	extent: (Point 435 22)
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5765	)
6014 5ec12867ba18 * empty log message * ca parents: 6013 diff changeset	5766	(CheckBoxSpec
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	5767	label: 'Use Native Dialogs (Experimental & Unfinished Feature)'
6014 5ec12867ba18 * empty log message * ca parents: 6013 diff changeset	5768	name: 'NativeDialogs'
5ec12867ba18 * empty log message * ca parents: 6013 diff changeset	5769	enableChannel: displaySupportsNativeDialogs
5ec12867ba18 * empty log message * ca parents: 6013 diff changeset	5770	model: nativeDialogs
5ec12867ba18 * empty log message * ca parents: 6013 diff changeset	5771	translateLabel: true
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	5772	extent: (Point 435 22)
6014 5ec12867ba18 * empty log message * ca parents: 6013 diff changeset	5773	)
6012 6736ffa4ba2f * empty log message * ca parents: 6008 diff changeset	5774	(ViewSpec
6736ffa4ba2f * empty log message * ca parents: 6008 diff changeset	5775	name: 'SeparatingSpace1'
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	5776	extent: (Point 435 5)
6012 6736ffa4ba2f * empty log message * ca parents: 6008 diff changeset	5777	)
6736ffa4ba2f * empty log message * ca parents: 6008 diff changeset	5778	(DividerSpec
6736ffa4ba2f * empty log message * ca parents: 6008 diff changeset	5779	name: 'Separator1'
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	5780	extent: (Point 435 4)
6012 6736ffa4ba2f * empty log message * ca parents: 6008 diff changeset	5781	)
6736ffa4ba2f * empty log message * ca parents: 6008 diff changeset	5782	(ViewSpec
6736ffa4ba2f * empty log message * ca parents: 6008 diff changeset	5783	name: 'SeparatingSpace2'
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	5784	extent: (Point 435 5)
6012 6736ffa4ba2f * empty log message * ca parents: 6008 diff changeset	5785	)
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5786	(CheckBoxSpec
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5787	label: 'Shadows under PopUp Views'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5788	name: 'shadows'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5789	model: shadows
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5790	translateLabel: true
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	5791	extent: (Point 435 22)
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5792	)
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5793	(CheckBoxSpec
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5794	label: 'Beeper enabled'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5795	name: 'beepEnabled'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5796	model: beepEnabled
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5797	translateLabel: true
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	5798	extent: (Point 435 22)
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5799	)
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5800	(CheckBoxSpec
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5801	label: 'Boxes Return Focus to Previously Active View'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5802	name: 'returnFocus'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5803	model: returnFocus
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5804	translateLabel: true
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	5805	extent: (Point 435 22)
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5806	)
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5807	(CheckBoxSpec
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5808	label: 'Views Catch Focus when Mapped'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5809	name: 'takeFocus'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5810	model: takeFocus
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5811	translateLabel: true
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	5812	extent: (Point 435 22)
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5813	)
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5814	(CheckBoxSpec
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5815	label: 'Show Accelerator Keys in Menus'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5816	name: 'showAccelerators'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5817	model: showAccelerators
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5818	translateLabel: true
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	5819	extent: (Point 435 22)
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5820	)
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5821	(CheckBoxSpec
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5822	label: 'Raise & Activate Windows on Click'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5823	name: 'activateOnClick'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5824	model: activateOnClick
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5825	translateLabel: true
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	5826	extent: (Point 435 22)
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5827	)
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5828	(CheckBoxSpec
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5829	label: 'Focus Follows Mouse'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5830	name: 'focusFollowsMouse'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5831	model: focusFollowsMouse
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5832	translateLabel: true
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	5833	extent: (Point 435 22)
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5834	)
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5835	(CheckBoxSpec
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5836	label: 'Opaque Variable Panel Resizing'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5837	name: 'opaqueVariablePanelResize'
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	5838	model: opaqueVariablePanelResizing
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5839	translateLabel: true
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	5840	extent: (Point 435 22)
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5841	)
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5842	(CheckBoxSpec
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5843	label: 'Opaque Table Column Resizing'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5844	name: 'opaqueTableColumnResize'
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	5845	model: opaqueTableColumnResizing
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5846	translateLabel: true
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	5847	extent: (Point 435 22)
6013 7e8dd712b45f * empty log message * ca parents: 6012 diff changeset	5848	)
7e8dd712b45f * empty log message * ca parents: 6012 diff changeset	5849	(ViewSpec
7e8dd712b45f * empty log message * ca parents: 6012 diff changeset	5850	name: 'SeparatingSpace3'
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	5851	extent: (Point 435 4)
6013 7e8dd712b45f * empty log message * ca parents: 6012 diff changeset	5852	)
7e8dd712b45f * empty log message * ca parents: 6012 diff changeset	5853	(DividerSpec
7e8dd712b45f * empty log message * ca parents: 6012 diff changeset	5854	name: 'Separator2'
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	5855	extent: (Point 435 4)
6013 7e8dd712b45f * empty log message * ca parents: 6012 diff changeset	5856	)
7e8dd712b45f * empty log message * ca parents: 6012 diff changeset	5857	(ViewSpec
7e8dd712b45f * empty log message * ca parents: 6012 diff changeset	5858	name: 'SeparatingSpace4'
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	5859	extent: (Point 435 3)
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5860	)
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5861	(LabelSpec
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5862	label: 'Label'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5863	name: 'Label1'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5864	translateLabel: true
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5865	labelChannel: formatHostNameWindowLabel
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5866	adjust: right
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5867	useDefaultExtent: true
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5868	)
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5869	(ViewSpec
6012 6736ffa4ba2f * empty log message * ca parents: 6008 diff changeset	5870	name: 'WindowLabelBox'
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	5871	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	5872	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	5873	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	5874	(CheckBoxSpec
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5875	label: 'Window Label Format'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5876	name: 'hostNameInLabelHolder'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5877	layout: (LayoutFrame 0 0 -22 1 216 0 0 1)
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5878	model: hostNameInLabelHolder
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5879	translateLabel: true
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5880	)
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5881	(InputFieldSpec
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5882	name: 'hostNameInLabelEntryField'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5883	layout: (LayoutFrame 218 0 -22 1 -5 1 0 1)
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5884	enableChannel: hostNameInLabelHolder
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5885	model: newWindowLabelFormat
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5886	immediateAccept: true
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5887	acceptOnReturn: true
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5888	acceptOnTab: true
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5889	acceptOnLostFocus: true
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5890	acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5891	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5892	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5893
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5894	)
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	5895	extent: (Point 435 30)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5896	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5897	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5898
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5899	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5900	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5901	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5902
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5903	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5904	)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5905	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5906
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5907	!AbstractSettingsApplication::MiscDisplaySettingsAppl methodsFor:'actions'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5908
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5909	basicReadSettings
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	5910	self
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	5911	readAspects:
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	5912	#(
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	5913	nativeWidgets
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	5914	nativeDialogs
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	5915	)
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	5916	from:Screen current.
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	5917
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	5918	self
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	5919	readAspects:
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	5920	#(
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	5921	beepEnabled
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	5922	opaqueVariablePanelResizing
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	5923	opaqueTableColumnResizing
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	5924	)
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	5925	from:currentUserPrefs.
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	5926
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5927	self shadows value:PopUpView shadows.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5928	self newWindowLabelFormat value:StandardSystemView windowLabelFormat.
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	5929	self hostNameInLabelHolder value:StandardSystemView includeHostNameInLabel.
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	5930	self returnFocus value:StandardSystemView returnFocusWhenClosingModalBoxes.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5931	self takeFocus value:StandardSystemView takeFocusWhenMapped.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5932	self focusFollowsMouse value:(currentUserPrefs focusFollowsMouse ? true).
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5933	self activateOnClick value:(Display activateOnClick:nil).
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5934	self showAccelerators value:MenuView showAcceleratorKeys.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5935	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5936
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5937	basicSaveSettings
6030 94eba9f547a2 * empty log message * ca parents: 6029 diff changeset	5938	\|currentScreen mustReopenTools\|
94eba9f547a2 * empty log message * ca parents: 6029 diff changeset	5939
94eba9f547a2 * empty log message * ca parents: 6029 diff changeset	5940	currentScreen := Screen current.
94eba9f547a2 * empty log message * ca parents: 6029 diff changeset	5941
6025 70cd59f93dbb * empty log message * Claus Gittinger <cg@exept.de> parents: 6023 diff changeset	5942	self displaySupportsNativeWidgets ifTrue:[
6030 94eba9f547a2 * empty log message * ca parents: 6029 diff changeset	5943	currentScreen nativeWidgets ~= self nativeWidgets value ifTrue:[
94eba9f547a2 * empty log message * ca parents: 6029 diff changeset	5944	mustReopenTools := true.
94eba9f547a2 * empty log message * ca parents: 6029 diff changeset	5945	currentScreen nativeWidgets:self nativeWidgets value.
94eba9f547a2 * empty log message * ca parents: 6029 diff changeset	5946	].
6025 70cd59f93dbb * empty log message * Claus Gittinger <cg@exept.de> parents: 6023 diff changeset	5947	].
70cd59f93dbb * empty log message * Claus Gittinger <cg@exept.de> parents: 6023 diff changeset	5948	self displaySupportsNativeDialogs ifTrue:[
6030 94eba9f547a2 * empty log message * ca parents: 6029 diff changeset	5949	currentScreen nativeDialogs:self nativeDialogs value.
6025 70cd59f93dbb * empty log message * Claus Gittinger <cg@exept.de> parents: 6023 diff changeset	5950	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5951	PopUpView shadows:self shadows value.
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5952
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5953	(self hostNameInLabelHolder value ~= StandardSystemView includeHostNameInLabel
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5954	or:[self newWindowLabelFormat value ~= StandardSystemView windowLabelFormat]) ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5955	StandardSystemView includeHostNameInLabel:self hostNameInLabelHolder value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5956	self newWindowLabelFormat value notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5957	StandardSystemView windowLabelFormat:self newWindowLabelFormat value
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5958	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5959
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5960	Screen allScreens do:[:aDisplay \|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5961	aDisplay allViewsDo:[:aView \|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5962	\|l\|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5963
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5964	aView isTopView ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5965	l := aView label.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5966	l notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5967	aView label:(l , ' '); label:l. "/ force a change
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5968	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5969	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5970	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5971	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5972	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5973
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	5974	self
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	5975	writeAspects:
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	5976	#(
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	5977	beepEnabled
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	5978	focusFollowsMouse
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	5979	opaqueVariablePanelResizing
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	5980	opaqueTableColumnResizing
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	5981	)
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	5982	to:currentUserPrefs.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5983
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5984	StandardSystemView returnFocusWhenClosingModalBoxes:self returnFocus value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5985	StandardSystemView takeFocusWhenMapped:self takeFocus value.
6030 94eba9f547a2 * empty log message * ca parents: 6029 diff changeset	5986	currentScreen activateOnClick:self activateOnClick value.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5987
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5988	MenuView showAcceleratorKeys:self showAccelerators value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5989
6030 94eba9f547a2 * empty log message * ca parents: 6029 diff changeset	5990	mustReopenTools ifTrue:[
94eba9f547a2 * empty log message * ca parents: 6029 diff changeset	5991	self reopenToolsAfterChangedViewStyleSetting.
94eba9f547a2 * empty log message * ca parents: 6029 diff changeset	5992	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5993	"Modified: / 16.12.2002 / 18:06:31 / penk"
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5994	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5995
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5996	formatHostNameinWindowLabels
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5997	\|newFormat\|
c72e35116b13 instable state penk parents: 5040 diff changeset	5998
c72e35116b13 instable state penk parents: 5040 diff changeset	5999	newFormat := Dialog
c72e35116b13 instable state penk parents: 5040 diff changeset	6000	request:'Define the Format of Window Labels:\\ %1 - Label\ %2 - Hostname\ %3 - Username\ %4 - ProcessId\'
c72e35116b13 instable state penk parents: 5040 diff changeset	6001	withCRs
c72e35116b13 instable state penk parents: 5040 diff changeset	6002	initialAnswer:newWindowLabelFormat.
c72e35116b13 instable state penk parents: 5040 diff changeset	6003	newFormat size > 0 ifTrue:[
c72e35116b13 instable state penk parents: 5040 diff changeset	6004	newWindowLabelFormat := newFormat.
c72e35116b13 instable state penk parents: 5040 diff changeset	6005	self updateModifiedChannel
c72e35116b13 instable state penk parents: 5040 diff changeset	6006	]
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6007	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6008
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	6009	helpFilename
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	6010	^ 'Launcher/miscSettings.html'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6011	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6012
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6013	!AbstractSettingsApplication::MiscDisplaySettingsAppl methodsFor:'aspects'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6014
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6015	activateOnClick
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6016	activateOnClick isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6017	activateOnClick := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6018	activateOnClick onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6019	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6020	^ activateOnClick.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6021	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6022
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6023	beepEnabled
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6024	beepEnabled isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6025	beepEnabled := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6026	beepEnabled onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6027	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6028	^ beepEnabled.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6029	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6030
6025 70cd59f93dbb * empty log message * Claus Gittinger <cg@exept.de> parents: 6023 diff changeset	6031	displaySupportsNativeDialogs
70cd59f93dbb * empty log message * Claus Gittinger <cg@exept.de> parents: 6023 diff changeset	6032	^ Screen current supportsNativeDialogs
70cd59f93dbb * empty log message * Claus Gittinger <cg@exept.de> parents: 6023 diff changeset	6033	!
70cd59f93dbb * empty log message * Claus Gittinger <cg@exept.de> parents: 6023 diff changeset	6034
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	6035	displaySupportsNativeWidgets
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	6036	^ Screen current supportsNativeWidgets
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	6037	!
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	6038
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6039	focusFollowsMouse
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6040	focusFollowsMouse isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6041	focusFollowsMouse := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6042	focusFollowsMouse onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6043	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6044	^ focusFollowsMouse.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6045	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6046
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6047	formatHostNameWindowLabel
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6048	formatHostNameWindowLabel isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6049	formatHostNameWindowLabel :=
6939 af3cdc84970f * empty log message * Claus Gittinger <cg@exept.de> parents: 6897 diff changeset	6050	(resources string:
af3cdc84970f * empty log message * Claus Gittinger <cg@exept.de> parents: 6897 diff changeset	6051	'Window Label Format:\ %1 - Label\ %2 - Hostname\ %3 - Username\ %4 - ProcessId\ %5 - TOP-Directory\ %6 - TOP-Path') withCRs.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6052	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6053	^ formatHostNameWindowLabel.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6054
6939 af3cdc84970f * empty log message * Claus Gittinger <cg@exept.de> parents: 6897 diff changeset	6055	"Created: / 16-12-2002 / 17:50:49 / penk"
af3cdc84970f * empty log message * Claus Gittinger <cg@exept.de> parents: 6897 diff changeset	6056	"Modified: / 22-08-2006 / 11:43:41 / cg"
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6057	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6058
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6059	hostNameInLabelHolder
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6060	hostNameInLabelHolder isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6061	hostNameInLabelHolder := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6062	hostNameInLabelHolder onChangeSend:#updateModifiedChannel to:self
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6063	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6064	^ hostNameInLabelHolder.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6065	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6066
6014 5ec12867ba18 * empty log message * ca parents: 6013 diff changeset	6067	nativeDialogs
5ec12867ba18 * empty log message * ca parents: 6013 diff changeset	6068	nativeDialogs isNil ifTrue:[
5ec12867ba18 * empty log message * ca parents: 6013 diff changeset	6069	nativeDialogs := Screen current nativeDialogs asValue.
5ec12867ba18 * empty log message * ca parents: 6013 diff changeset	6070	nativeDialogs onChangeSend:#updateModifiedChannel to:self
5ec12867ba18 * empty log message * ca parents: 6013 diff changeset	6071	].
5ec12867ba18 * empty log message * ca parents: 6013 diff changeset	6072	^ nativeDialogs.
5ec12867ba18 * empty log message * ca parents: 6013 diff changeset	6073	!
5ec12867ba18 * empty log message * ca parents: 6013 diff changeset	6074
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	6075	nativeWidgets
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	6076	nativeWidgets isNil ifTrue:[
6025 70cd59f93dbb * empty log message * Claus Gittinger <cg@exept.de> parents: 6023 diff changeset	6077	nativeWidgets := Screen current nativeWidgets asValue.
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	6078	nativeWidgets onChangeSend:#updateModifiedChannel to:self
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	6079	].
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	6080	^ nativeWidgets.
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	6081	!
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	6082
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6083	newWindowLabelFormat
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6084	newWindowLabelFormat isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6085	newWindowLabelFormat := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6086	newWindowLabelFormat onChangeSend:#updateModifiedChannel to:self
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6087	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6088	^ newWindowLabelFormat.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6089
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6090	"Created: / 16.12.2002 / 17:50:49 / penk"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6091	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6092
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	6093	opaqueTableColumnResizing
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6094	opaqueTableColumnResize isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6095	opaqueTableColumnResize := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6096	opaqueTableColumnResize onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6097	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6098	^ opaqueTableColumnResize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6099	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6100
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	6101	opaqueVariablePanelResizing
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6102	opaqueVariablePanelResize isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6103	opaqueVariablePanelResize := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6104	opaqueVariablePanelResize onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6105	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6106	^ opaqueVariablePanelResize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6107	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6108
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6109	returnFocus
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6110	returnFocus isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6111	returnFocus := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6112	returnFocus onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6113	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6114	^ returnFocus.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6115	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6116
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6117	shadows
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6118	shadows isNil ifTrue:[
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	6119	shadows := PopUpView shadows asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6120	shadows onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6121	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6122	^ shadows.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6123	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6124
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6125	showAccelerators
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6126	showAccelerators isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6127	showAccelerators := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6128	showAccelerators onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6129	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6130	^ showAccelerators.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6131	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6132
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6133	takeFocus
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6134	takeFocus isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6135	takeFocus := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6136	takeFocus onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6137	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6138	^ takeFocus.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6139	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6140
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6141	!AbstractSettingsApplication::MiscDisplaySettingsAppl methodsFor:'queries'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6142
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6143	hasUnsavedChanges
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	6144	(self
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	6145	hasChangedAspectIn:
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	6146	#(
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	6147	nativeWidgets
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	6148	nativeDialogs
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	6149	)
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	6150	asComparedTo:Screen current) ifTrue:[^ true].
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	6151
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	6152	(self
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	6153	hasChangedAspectIn:
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	6154	#(
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	6155	beepEnabled
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	6156	opaqueVariablePanelResizing
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	6157	opaqueTableColumnResizing
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	6158	)
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	6159	asComparedTo:currentUserPrefs) ifTrue:[^ true].
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	6160
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6161	self newWindowLabelFormat value ~= StandardSystemView windowLabelFormat ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6162	self shadows value ~= PopUpView shadows ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6163	self hostNameInLabelHolder value ~= StandardSystemView includeHostNameInLabel ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6164	self returnFocus value ~= StandardSystemView returnFocusWhenClosingModalBoxes ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6165	self takeFocus value ~= StandardSystemView takeFocusWhenMapped ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6166	self focusFollowsMouse value ~= (currentUserPrefs focusFollowsMouse ? true) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6167	self activateOnClick value ~= (Display activateOnClick:nil) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6168	self showAccelerators value ~= MenuView showAcceleratorKeys ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6169	^ false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6170	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6171
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6172	!AbstractSettingsApplication::OsiSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6173
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6174	defaultIcon
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	6175	<resource: #programImage>
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	6176
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	6177	^ AbstractSettingsApplication::MiscCommunicationSettingsAppl defaultIcon.
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6178	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6179
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6180	!AbstractSettingsApplication::OsiSettingsAppl class methodsFor:'interface specs'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6181
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6182	windowSpec
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6183	"This resource specification was automatically generated
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6184	by the UIPainter of ST/X."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6185
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6186	"Do not manually edit this!! If it is corrupted,
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6187	the UIPainter may not be able to read the specification."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6188
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6189	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6190	UIPainter new openOnClass:AbstractSettingsApplication::OsiSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6191	AbstractSettingsApplication::OsiSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6192	AbstractSettingsApplication::OsiSettingsAppl open
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6193	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6194
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6195	<resource: #canvas>
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6196
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6197	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6198	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6199	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6200	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6201	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6202	label: 'OSI Protocols Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6203	name: 'OSI Protocols Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6204	min: (Point 10 10)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6205	bounds: (Rectangle 14 46 614 596)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6206	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6207	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6208	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6209	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6210	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6211	name: 'VerticalPanel2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6212	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	6213	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6214	verticalLayout: top
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6215	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6216	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6217	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6218	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6219	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6220	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6221	label: 'ACSE'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6222	name: 'Label1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6223	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6224	extent: (Point 600 22)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6225	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6226	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6227	name: 'Box1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6228	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6229	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6230	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6231	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6232	label: 'Log Errors'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6233	name: 'CheckBox1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6234	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	6235	enableChannel: osiACSEPresent
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6236	model: osiACSEErrorLogging
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6237	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6238	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6239	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6240	label: 'Log Connections'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6241	name: 'CheckBox2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6242	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	6243	enableChannel: osiACSEPresent
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6244	model: osiACSEConnectionLogging
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6245	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6246	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6247	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6248	label: 'Log Data Xfer'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6249	name: 'CheckBox3'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6250	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	6251	enableChannel: osiACSEPresent
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6252	model: osiACSEDataLogging
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6253	translateLabel: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6254	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6255	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6256
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6257	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6258	extent: (Point 600 27)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6259	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6260	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6261	name: 'Box9'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6262	extent: (Point 600 22)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6263	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6264	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6265	label: 'ROSE'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6266	name: 'Label2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6267	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6268	extent: (Point 600 22)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6269	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6270	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6271	name: 'Box4'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6272	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6273	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6274	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6275	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6276	label: 'Log Errors'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6277	name: 'CheckBox4'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6278	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	6279	enableChannel: osiROSEPresent
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6280	model: osiROSEErrorLogging
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6281	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6282	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6283	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6284	label: 'Log Invoactions'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6285	name: 'CheckBox5'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6286	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	6287	enableChannel: osiROSEPresent
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6288	model: osiROSEInvokationLogging
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6289	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6290	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6291	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6292	label: 'Log Responses'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6293	name: 'CheckBox6'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6294	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	6295	enableChannel: osiROSEPresent
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6296	model: osiROSEResponseLogging
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6297	translateLabel: true
5086 b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	6298	)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	6299	)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	6300
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	6301	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6302	extent: (Point 600 25)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6303	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6304	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6305	name: 'Box6'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6306	extent: (Point 600 23)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6307	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6308	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6309	label: 'CMISE'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6310	name: 'Label3'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6311	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6312	extent: (Point 600 22)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6313	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6314	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6315	name: 'Box7'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6316	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6317	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6318	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6319	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6320	label: 'Log Errors'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6321	name: 'CheckBox7'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6322	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	6323	enableChannel: osiCMISEPresent
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6324	model: osiCMISEErrorLogging
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6325	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6326	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6327	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6328	label: 'Log Messages'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6329	name: 'CheckBox8'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6330	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	6331	enableChannel: osiCMISEPresent
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6332	model: osiCMISEMessageLogging
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6333	translateLabel: true
5086 b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	6334	)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	6335	)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	6336
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	6337	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6338	extent: (Point 600 22)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6339	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6340	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6341
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6342	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6343	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6344	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6345
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6346	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6347	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6348	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6349
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6350	!AbstractSettingsApplication::OsiSettingsAppl methodsFor:'actions'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6351
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6352	basicReadSettings
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6353	self osiACSEPresent value:(OSI::ACSE notNil and:[OSI::ACSE isLoaded]).
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6354	self osiROSEPresent value:(OSI::ROSE notNil and:[OSI::ROSE isLoaded]).
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6355	self osiCMISEPresent value:(OSI::CMISE notNil and:[OSI::CMISE isLoaded]).
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6356	self osiACSEPresent value ifTrue:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6357	self osiACSEErrorLogging value:OSI::ACSE errorLogging.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6358	self osiACSEConnectionLogging value:OSI::ACSE connectionLogging.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6359	self osiACSEDataLogging value:OSI::ACSE dataLogging
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6360	].
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6361	self osiROSEPresent value ifTrue:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6362	self osiROSEErrorLogging value:OSI::ROSE errorLogging.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6363	self osiROSEInvokationLogging value:OSI::ROSE invocationLogging.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6364	self osiROSEResponseLogging value:OSI::ROSE responseLogging
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6365	].
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6366	self osiCMISEPresent value ifTrue:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6367	self osiCMISEErrorLogging value:OSI::CMISE errorLogging.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6368	self osiCMISEMessageLogging value:OSI::CMISE messageLogging
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6369	].
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6370	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6371
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6372	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6373
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6374	self osiACSEPresent value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6375	OSI::ACSE errorLogging:self osiACSEErrorLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6376	OSI::ACSE connectionLogging:self osiACSEConnectionLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6377	OSI::ACSE dataLogging:self osiACSEDataLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6378	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6379	self osiROSEPresent value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6380	OSI::ROSE errorLogging:self osiROSEErrorLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6381	OSI::ROSE invocationLogging:self osiROSEInvokationLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6382	OSI::ROSE responseLogging:self osiROSEResponseLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6383	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6384	self osiCMISEPresent value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6385	OSI::CMISE errorLogging:self osiCMISEErrorLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6386	OSI::CMISE messageLogging:self osiCMISEMessageLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6387	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6388	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6389
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	6390	helpFilename
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	6391	^ 'Launcher/communicationsSettings.html'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6392	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6393
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6394	!AbstractSettingsApplication::OsiSettingsAppl methodsFor:'aspects'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6395
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6396	osiACSEConnectionLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6397	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6398
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6399	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6400	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6401	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6402	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6403
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6404	osiACSEConnectionLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6405	osiACSEConnectionLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6406	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6407	"/ osiACSEConnectionLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6408	"/ osiACSEConnectionLogging onChangeSend:#osiACSEConnectionLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6409	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6410	^ osiACSEConnectionLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6411	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6412
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6413	osiACSEDataLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6414	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6415
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6416	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6417	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6418	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6419	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6420
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6421	osiACSEDataLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6422	osiACSEDataLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6423	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6424	"/ osiACSEDataLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6425	"/ osiACSEDataLogging onChangeSend:#osiACSEDataLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6426	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6427	^ osiACSEDataLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6428	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6429
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6430	osiACSEErrorLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6431	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6432
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6433	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6434	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6435	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6436	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6437
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6438	osiACSEErrorLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6439	osiACSEErrorLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6440	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6441	"/ osiACSEErrorLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6442	"/ osiACSEErrorLogging onChangeSend:#osiACSEErrorLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6443	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6444	^ osiACSEErrorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6445	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6446
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6447	osiACSEPresent
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6448	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6449
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6450	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6451	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6452	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6453	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6454
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6455	osiACSEPresent isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6456	osiACSEPresent := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6457	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6458	"/ osiACSEPresent addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6459	"/ osiACSEPresent onChangeSend:#osiACSEPresentChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6460	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6461	^ osiACSEPresent.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6462	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6463
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6464	osiCMISEErrorLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6465	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6466
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6467	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6468	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6469	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6470	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6471
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6472	osiCMISEErrorLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6473	osiCMISEErrorLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6474	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6475	"/ osiCMISEErrorLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6476	"/ osiCMISEErrorLogging onChangeSend:#osiCMISEErrorLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6477	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6478	^ osiCMISEErrorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6479	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6480
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6481	osiCMISEMessageLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6482	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6483
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6484	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6485	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6486	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6487	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6488
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6489	osiCMISEMessageLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6490	osiCMISEMessageLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6491	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6492	"/ osiCMISEMessageLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6493	"/ osiCMISEMessageLogging onChangeSend:#osiCMISEMessageLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6494	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6495	^ osiCMISEMessageLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6496	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6497
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6498	osiCMISEPresent
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6499	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6500
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6501	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6502	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6503	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6504	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6505
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6506	osiCMISEPresent isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6507	osiCMISEPresent := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6508	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6509	"/ osiCMISEPresent addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6510	"/ osiCMISEPresent onChangeSend:#osiCMISEPresentChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6511	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6512	^ osiCMISEPresent.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6513	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6514
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6515	osiROSEErrorLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6516	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6517
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6518	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6519	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6520	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6521	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6522
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6523	osiROSEErrorLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6524	osiROSEErrorLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6525	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6526	"/ osiROSEErrorLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6527	"/ osiROSEErrorLogging onChangeSend:#osiROSEErrorLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6528	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6529	^ osiROSEErrorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6530	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6531
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6532	osiROSEInvokationLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6533	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6534
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6535	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6536	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6537	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6538	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6539
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6540	osiROSEInvokationLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6541	osiROSEInvokationLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6542	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6543	"/ osiROSEInvokationLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6544	"/ osiROSEInvokationLogging onChangeSend:#osiROSEInvokationLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6545	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6546	^ osiROSEInvokationLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6547	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6548
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6549	osiROSEPresent
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6550	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6551
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6552	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6553	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6554	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6555	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6556
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6557	osiROSEPresent isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6558	osiROSEPresent := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6559	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6560	"/ osiROSEPresent addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6561	"/ osiROSEPresent onChangeSend:#osiROSEPresentChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6562	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6563	^ osiROSEPresent.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6564	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6565
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6566	osiROSEResponseLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6567	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6568
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6569	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6570	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6571	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6572	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6573
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6574	osiROSEResponseLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6575	osiROSEResponseLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6576	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6577	"/ osiROSEResponseLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6578	"/ osiROSEResponseLogging onChangeSend:#osiROSEResponseLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6579	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6580	^ osiROSEResponseLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6581	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6582
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6583	!AbstractSettingsApplication::OsiSettingsAppl methodsFor:'queries'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6584
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6585	hasUnsavedChanges
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6586
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6587	^ ((
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6588	(self osiACSEPresent value and:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6589	self osiACSEErrorLogging value ~= OSI::ACSE errorLogging or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6590	self osiACSEConnectionLogging value ~= OSI::ACSE connectionLogging or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6591	self osiACSEDataLogging value ~= OSI::ACSE dataLogging]]]) or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6592	self osiROSEPresent value and:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6593	self osiROSEErrorLogging value ~= OSI::ROSE errorLogging or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6594	self osiROSEInvokationLogging value ~= OSI::ROSE invocationLogging or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6595	self osiROSEResponseLogging value ~= OSI::ROSE responseLogging]]]]) or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6596	(self osiCMISEPresent value) and:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6597	self osiCMISEErrorLogging value ~= OSI::CMISE errorLogging or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6598	self osiCMISEMessageLogging value ~= OSI::CMISE messageLogging]]])
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6599	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6600
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6601	!AbstractSettingsApplication::PrinterSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6602
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6603	defaultIcon
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	6604	<resource: #programImage>
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	6605
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	6606	^ ToolbarIconLibrary printerIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6607	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6608
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6609	!AbstractSettingsApplication::PrinterSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6610
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6611	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6612	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6613	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6614
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6615	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6616	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6617
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6618	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6619	UIPainter new openOnClass:AbstractSettingsApplication::PrinterSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6620	AbstractSettingsApplication::PrinterSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6621	AbstractSettingsApplication::PrinterSettingsAppl open
4286 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	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6625
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6626	^
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6627	#(FullSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6628	name: windowSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6629	window:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6630	(WindowSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6631	label: 'Printer Settings'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6632	name: 'Printer Settings'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6633	min: (Point 10 10)
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	6634	bounds: (Rectangle 0 0 616 385)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6635	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6636	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6637	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6638	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6639	(VerticalPanelViewSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6640	name: 'VerticalPanel1'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6641	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	6642	horizontalLayout: fit
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6643	verticalLayout: top
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6644	horizontalSpace: 3
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6645	verticalSpace: 3
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6646	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6647	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6648	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6649	(ViewSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6650	name: 'PrinterSelectBox'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6651	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6652	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6653	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6654	(LabelSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6655	label: 'Printer Type:'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6656	name: 'PrinterTypeLabel'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	6657	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	6658	translateLabel: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6659	adjust: right
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6660	)
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6661	(ComboListSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6662	name: 'PrinterTypeComboList'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	6663	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	6664	model: printerTypeSelection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6665	comboList: printerType
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6666	useIndex: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6667	)
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6668	(LabelSpec
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	6669	label: 'Print Command:'
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6670	name: 'PrinterCommandLabel'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	6671	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	6672	translateLabel: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6673	adjust: right
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6674	)
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6675	(ComboBoxSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6676	name: 'CommandComboBox'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	6677	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	6678	enableChannel: printCommandEnabled
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6679	model: printCommand
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6680	acceptOnLostFocus: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6681	acceptOnPointerLeave: false
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6682	comboList: printCommandList
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6683	useIndex: false
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6684	)
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6685	(LabelSpec
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6686	label: 'Print to File:'
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6687	name: 'PrinterFileLabel'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	6688	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	6689	translateLabel: true
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6690	adjust: right
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6691	)
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6692	(FilenameInputFieldSpec
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6693	name: 'PrinterFileEntryField'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	6694	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	6695	model: printFilename
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	6696	formatString: ''
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6697	immediateAccept: true
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6698	acceptOnLeave: true
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6699	acceptOnLostFocus: true
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6700	acceptOnPointerLeave: false
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6701	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6702	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6703
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6704	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6705	extent: (Point 600 84)
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6706	)
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6707	(DividerSpec
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6708	name: 'Separator1'
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6709	extent: (Point 600 3)
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6710	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6711	(ViewSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6712	name: 'FormatBox'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6713	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6714	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6715	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6716	(LabelSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6717	label: 'Page Format:'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6718	name: 'PageFormatLabel'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	6719	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	6720	translateLabel: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6721	adjust: right
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6722	)
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6723	(PopUpListSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6724	label: 'PopUp List'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6725	name: 'PageFormatPopUpList'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	6726	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	6727	tabable: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6728	model: pageFormat
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6729	enableChannel: enableFormat
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6730	menu: pageFormatList
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6731	)
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6732	(CheckBoxSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6733	label: 'Landscape'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6734	name: 'LandscapeCheckBox'
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6735	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	6736	enableChannel: enablelandscape
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6737	model: landscape
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6738	translateLabel: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6739	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6740	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6741
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6742	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6743	extent: (Point 600 30)
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6744	)
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6745	(DividerSpec
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6746	name: 'Separator5'
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6747	extent: (Point 600 3)
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6748	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6749	(ViewSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6750	name: 'MarginBox'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6751	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6752	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6753	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6754	(VerticalPanelViewSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6755	name: 'VerticalPanel2'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6756	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	6757	horizontalLayout: fit
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6758	verticalLayout: center
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6759	horizontalSpace: 3
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6760	verticalSpace: 3
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6761	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6762	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6763	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6764	(ViewSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6765	name: 'Box1'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6766	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6767	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6768	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6769	(LabelSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6770	label: 'Top Margin:'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6771	name: 'TopMarginLabel'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	6772	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	6773	translateLabel: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6774	adjust: right
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6775	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6776	(InputFieldSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6777	name: 'TopMarginEntryField'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	6778	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	6779	enableChannel: enableMargins
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6780	model: topMargin
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6781	type: numberOrNil
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6782	acceptOnReturn: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6783	acceptOnTab: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6784	acceptOnLostFocus: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6785	acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6786	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6787	(PopUpListSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6788	label: 'PopUp List'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6789	name: 'PopUpList2'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6790	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	6791	tabable: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6792	model: selectedUnit
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6793	menu: unitList
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6794	useIndex: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6795	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6796	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6797
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6798	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6799	extent: (Point 600 24)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6800	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6801	(ViewSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6802	name: 'Box2'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6803	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6804	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6805	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6806	(LabelSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6807	label: 'Left Margin:'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6808	name: 'LeftMarginLabel'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	6809	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	6810	translateLabel: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6811	adjust: right
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6812	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6813	(InputFieldSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6814	name: 'LeftMarginEntryField'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	6815	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	6816	enableChannel: enableMargins
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6817	model: leftMargin
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6818	type: numberOrNil
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6819	acceptOnReturn: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6820	acceptOnTab: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6821	acceptOnLostFocus: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6822	acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6823	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6824	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6825
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6826	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6827	extent: (Point 600 24)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6828	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6829	(ViewSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6830	name: 'Box3'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6831	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6832	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6833	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6834	(LabelSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6835	label: 'Right Margin:'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6836	name: 'RightMarginLabel'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	6837	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	6838	translateLabel: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6839	adjust: right
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6840	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6841	(InputFieldSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6842	name: 'RightMarginEntryField'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	6843	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	6844	enableChannel: enableMargins
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6845	model: rightMargin
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6846	type: numberOrNil
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6847	acceptOnReturn: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6848	acceptOnTab: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6849	acceptOnLostFocus: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6850	acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6851	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6852	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6853
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6854	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6855	extent: (Point 600 24)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6856	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6857	(ViewSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6858	name: 'Box4'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6859	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6860	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6861	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6862	(LabelSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6863	label: 'Bottom Margin:'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6864	name: 'BottomMarginLabel'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	6865	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	6866	translateLabel: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6867	adjust: right
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6868	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6869	(InputFieldSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6870	name: 'BottomMarginEntryField'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	6871	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	6872	enableChannel: enableMargins
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6873	model: bottomMargin
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6874	type: numberOrNil
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6875	acceptOnReturn: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6876	acceptOnTab: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6877	acceptOnLostFocus: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6878	acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6879	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6880	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6881
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6882	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6883	extent: (Point 600 24)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6884	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6885	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6886
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6887	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6888	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6889	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6890
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6891	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6892	extent: (Point 600 100)
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6893	)
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6894	(DividerSpec
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6895	name: 'Separator6'
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6896	extent: (Point 600 3)
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6897	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6898	(ViewSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6899	name: 'Box5'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6900	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6901	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6902	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6903	(CheckBoxSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6904	label: 'Color Printer'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6905	name: 'ColorPrinterCheckBox'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	6906	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	6907	enableChannel: enableColorBox
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6908	model: supportsColor
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6909	translateLabel: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6910	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6911	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6912
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6913	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6914	extent: (Point 600 27)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6915	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6916	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6917
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6918	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6919	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6920	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6921
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6922	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6923	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6924	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6925
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6926	!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6927
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6928	basicReadSettings
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	6929	Printer notNil ifTrue:[
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	6930	self
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	6931	readAspects:
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	6932	#(
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	6933	topMargin
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	6934	bottomMargin
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	6935	leftMargin
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	6936	rightMargin
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	6937	landscape
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	6938	printCommand
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	6939	printFilename
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	6940	supportsColor
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	6941	)
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	6942	from:Printer.
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	6943	].
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	6944
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	6945	self printerTypeSelection value:(self possiblePrinters identityIndexOf:Printer).
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	6946	self pageFormatList notEmpty ifTrue:[ self pageFormat value:Printer pageFormat ].
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6947	self printerTypeSelectionOrUnitListChanged.
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	6948
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	6949	"Modified: / 07-08-2006 / 15:22:27 / fm"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6950	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6951
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6952	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6953
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6954	Printer := self possiblePrinters at:(self printerTypeSelection value).
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	6955
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6956	Printer printCommand:self printCommand value.
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6957	Printer printFilename:(printFilename value isEmptyOrNil ifTrue:[nil] ifFalse:[printFilename value]).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6958
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6959	Printer supportsPageSizes ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6960	Printer pageFormat:(self pageFormat value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6961	Printer landscape:(self landscape value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6962	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6963	Printer supportsMargins ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6964	\| unit \|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6965	self selectedUnit value == 2 ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6966	unit := #mm
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6967	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6968	unit := #inch
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6969	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6970	Printer topMargin:(UnitConverter convert:(self topMargin value) from:unit to:#inch).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6971	Printer leftMargin:(UnitConverter convert:(self leftMargin value) from:unit to:#inch).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6972	Printer rightMargin:(UnitConverter convert:(self rightMargin value) from:unit to:#inch).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6973	Printer bottomMargin:(UnitConverter convert:(self bottomMargin value) from:unit to:#inch).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6974	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6975	Printer supportsPostscript ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6976	Printer supportsColor:self supportsColor value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6977	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6978	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6979
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	6980	helpFilename
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	6981	^ 'Launcher/printerSettings.html'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6982	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6983
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6984	!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6985
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6986	bottomMargin
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6987
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6988	bottomMargin isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6989	bottomMargin := Printer bottomMargin asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6990	bottomMargin onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6991	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6992	^ bottomMargin.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6993	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6994
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6995	enableColorBox
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6996
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6997	enableColorBox isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6998	enableColorBox := true asValue.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6999	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7000	^ enableColorBox.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7001	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7002
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7003	enableFormat
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7004
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7005	enableFormat isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7006	enableFormat := true asValue.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7007	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7008	^ enableFormat.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7009	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7010
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7011	enableMargins
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7012
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7013	enableMargins isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7014	enableMargins := true asValue.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7015	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7016	^ enableMargins.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7017	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7018
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7019	enablelandscape
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7020
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7021	enablelandscape isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7022	enablelandscape := true asValue.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7023	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7024	^ enablelandscape.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7025	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7026
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7027	landscape
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7028
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7029	landscape isNil ifTrue:[
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	7030	landscape := (Printer isNil ifTrue:[ false ] ifFalse:[ Printer landscape]) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7031	landscape onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7032	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7033	^ landscape.
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	7034
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	7035	"Modified: / 07-08-2006 / 15:22:44 / fm"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7036	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7037
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7038	leftMargin
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7039
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7040	leftMargin isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7041	leftMargin := Printer leftMargin asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7042	leftMargin onChangeSend:#updateModifiedChannel to:self
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7043	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7044	^ leftMargin.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7045	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7046
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7047	pageFormat
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7048
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7049	pageFormat isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7050	self pageFormatList notEmpty ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7051	\| index \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7052	(index := self pageFormatList indexOf:#a4) ~~ 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7053	pageFormat := index asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7054	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7055	pageFormat := 1 asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7056	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7057	].
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7058	pageFormat onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7059	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7060	^ pageFormat.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7061	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7062
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7063	pageFormatList
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7064
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7065	pageFormatList isNil ifTrue:[
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	7066	pageFormatList := (Printer isNil ifTrue:[ #() ] ifFalse: [Printer defaultPageFormats]) asList.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7067	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7068	^ pageFormatList.
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	7069
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	7070	"Modified: / 07-08-2006 / 15:23:19 / fm"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7071	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7072
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7073	printCommand
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7074
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7075	printCommand isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7076	printCommand := Printer printCommand asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7077	printCommand onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7078	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7079	^ printCommand.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7080	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7081
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	7082	printCommandEnabled
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	7083	^ BlockValue
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	7084	with:[:m \| m value isEmptyOrNil]
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	7085	argument:(self printFilename).
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	7086	!
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	7087
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7088	printCommandList
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7089
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7090	printCommandList isNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7091	printCommandList := self commandList asList.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7092	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7093	^ printCommandList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7094	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7095
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	7096	printFilename
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	7097	printFilename isNil ifTrue:[
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	7098	printFilename := (Printer isNil ifTrue:[''] ifFalse:[Printer printFilename ? '']) asValue.
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	7099	printFilename onChangeSend:#updateModifiedChannel to:self
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	7100	].
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	7101	^ printFilename.
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	7102
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	7103	"Modified: / 07-08-2006 / 15:24:45 / fm"
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	7104	!
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	7105
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7106	printerType
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7107
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7108	printerType isNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7109	printerType := (self possiblePrinters collect:[:cls \| cls printerTypeName]) asList.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7110	printerType onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7111	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7112	^ printerType.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7113	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7114
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7115	printerTypeSelection
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7116
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7117	printerTypeSelection isNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7118	printerTypeSelection := (self possiblePrinters identityIndexOf:Printer) asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7119	"/ printerTypeSelection onChangeSend:#printerTypeSelectionChanged to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7120	printerTypeSelection addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7121	printerTypeSelection changed.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7122	printerTypeSelection onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7123	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7124	^ printerTypeSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7125	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7126
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7127	rightMargin
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7128
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7129	rightMargin isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7130	rightMargin := Printer rightMargin asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7131	rightMargin onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7132	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7133	^ rightMargin.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7134	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7135
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7136	selectedUnit
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7137
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7138	selectedUnit isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7139	selectedUnit := 1 asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7140	selectedUnit addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7141	selectedUnit changed.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7142	selectedUnit onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7143	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7144	^ selectedUnit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7145	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7146
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7147	supportsColor
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7148
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7149	supportsColor isNil ifTrue:[
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	7150	supportsColor := (Printer notNil and:[Printer supportsColor]) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7151	supportsColor onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7152	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7153	^ supportsColor.
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	7154
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	7155	"Modified: / 07-08-2006 / 15:24:22 / fm"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7156	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7157
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7158	topMargin
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7159
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7160	topMargin isNil ifTrue:[
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	7161	topMargin := (Printer isNil ifTrue:[ 0 ] ifFalse:[ Printer topMargin ]) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7162	topMargin onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7163	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7164	^ topMargin.
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	7165
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	7166	"Modified: / 07-08-2006 / 15:21:50 / fm"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7167	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7168
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7169	unitList
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7170
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7171	unitList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7172	unitList := #('inch' 'mm') asList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7173	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7174	^ unitList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7175	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7176
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7177	!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7178
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7179	printerTypeSelectionChanged
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7180	\| p hasPageSize hasMargins\|
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	7181
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	7182	self printerType selectionIndex ~~ 0 ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7183	p := self possiblePrinters at:(self printerType selectionIndex).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7184	hasPageSize := p supportsPageSizes.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7185	hasMargins := p supportsMargins.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7186	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7187	hasPageSize := false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7188	hasMargins := false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7189	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7190	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7191
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7192	printerTypeSelectionOrUnitListChanged
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	7193	\| p hasPageSize hasMargins unit printerSupportsPostscript\|
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7194
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7195	self printerTypeSelection value ~~ 0 ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7196	p := self possiblePrinters at:(self printerTypeSelection value).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7197	hasPageSize := p supportsPageSizes.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7198	hasMargins := p supportsMargins.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7199	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7200	hasPageSize := false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7201	hasMargins := false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7202	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7203	self enablelandscape value:hasPageSize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7204	self enableFormat value:hasPageSize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7205	hasPageSize ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7206	self pageFormat value:(p pageFormat).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7207	self landscape value:(p landscape).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7208	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7209	self landscape value:false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7210	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7211	hasMargins ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7212	self selectedUnit value == 2 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7213	unit := #mm
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7214	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7215	unit := #inch
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7216	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7217
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	7218	self topMargin value:(UnitConverter convert:p topMargin from:#inch to:unit).
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	7219	self leftMargin value:(UnitConverter convert:p leftMargin from:#inch to:unit).
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	7220	self rightMargin value:(UnitConverter convert:p rightMargin from:#inch to:unit).
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	7221	self bottomMargin value:(UnitConverter convert:p bottomMargin from:#inch to:unit).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7222
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7223	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7224	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7225	self enableMargins value:hasMargins.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7226
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7227	p notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7228	\| newCommandList \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7229	newCommandList := p defaultCommands.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7230	newCommandList notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7231	self printCommandList contents:(newCommandList asList).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7232	self printCommandList changed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7233	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7234	self printCommand value:(p printCommand).
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	7235	self printFilename value:(p printFilename ? '').
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7236	].
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	7237	printerSupportsPostscript := p notNil and:[p supportsPostscript].
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	7238	self enableColorBox value:printerSupportsPostscript.
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	7239	printerSupportsPostscript ifFalse:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7240	self supportsColor value:false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7241	] ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7242	self supportsColor value:(Printer supportsColor).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7243	]
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	7244
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	7245	"Modified: / 07-08-2006 / 15:24:06 / fm"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7246	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7247
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7248	unitListChanged
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7249	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7250
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7251	update:something with:aParameter from:changedObject
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7252	(changedObject == self selectedUnit or:[changedObject == self printerTypeSelection]) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7253	self printerTypeSelectionOrUnitListChanged.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7254	^ self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7255	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7256
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7257	super update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7258	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7259
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7260	!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7261
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7262	commandList
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7263	commandList isNil ifTrue:[
6638 74439c5aa6dd * empty log message * Claus Gittinger <cg@exept.de> parents: 6580 diff changeset	7264	commandList := resources string:'PRINT_COMMANDS' default:nil.
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7265	commandList isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7266	commandList := PrinterStream defaultCommands.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7267	commandList isNil ifTrue:[
5151 53c19d72ff59 Avoid warning about slow grow operation Stefan Vogel <sv@exept.de> parents: 5149 diff changeset	7268	commandList := #('lpr' 'lp').
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7269	].
5151 53c19d72ff59 Avoid warning about slow grow operation Stefan Vogel <sv@exept.de> parents: 5149 diff changeset	7270	(commandList includes:self printCommand value) ifFalse:[
53c19d72ff59 Avoid warning about slow grow operation Stefan Vogel <sv@exept.de> parents: 5149 diff changeset	7271	commandList := commandList copyWith:self printCommand value.
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7272	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7273	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7274	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7275	^ commandList
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7276	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7277
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7278	hasUnsavedChanges
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7279	\| printer unit\|
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	7280
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	7281	Printer isNil ifTrue:[^ false].
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	7282
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7283	self selectedUnit value == 2 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7284	unit := #mm
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7285	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7286	unit := #inch
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7287	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7288	printer := self possiblePrinters at:(self printerTypeSelection value).
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	7289
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	7290	printer ~= Printer ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	7291
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	7292	Printer printCommand ~= self printCommand value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	7293	(Printer printFilename ? '') ~= (self printFilename value ? '') ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	7294
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	7295	Printer supportsPageSizes ifTrue:[
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	7296	Printer pageFormat ~= self pageFormat value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	7297	Printer landscape ~= (self landscape value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	7298	].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	7299	Printer supportsMargins ifTrue:[
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	7300	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	7301	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	7302	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	7303	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	7304	].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	7305	Printer supportsPostscript ifTrue:[
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	7306	Printer supportsColor ~= self supportsColor value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	7307	].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	7308	^ false
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	7309
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	7310	"Modified: / 07-08-2006 / 15:25:47 / fm"
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7311	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7312
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7313	possiblePrinters
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7314	possiblePrinters isNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7315	possiblePrinters := PrinterStream withAllSubclasses asArray.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7316	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7317	^ possiblePrinters
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7318	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7319
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7320	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7321
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7322	defaultIcon
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7323	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7324	by the ImageEditor of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7325
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7326	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7327	the ImageEditor may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7328
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7329	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7330	self defaultIcon inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7331	ImageEditor openOnClass:self andSelector:#defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7332	Icon flushCachedIcons
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7333	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7334
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7335	<resource: #image>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7336
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7337	^Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7338	constantNamed:#'AbstractSettingsApplication::ProcessorSchedulerSettingsAppl class defaultIcon'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	7339	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	7340	@@@@@@@@@@@@@@@@@@@@ADQ@@@@@@@@@@DQBL2QD@@@@@@@DH"D3D"I@@@@@@DHQDSLQDRP@@@@DHQDQDQDQD$@@@DHQDQDQDQDQI@@@P!!DQDQDQDQD$@@AB
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	7341	DQDQDQLQDRP@ABDQDQDQLQDQD$@DHQDQDSLQDQDRP@P!!DQDQL1DQDQI@ABDQDQDQLQDQD$@@P!!DQDQDSDQD$@@ABDQDQDQD1DRP@@DHQDQDQDQLQI@@@ABDQ
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	7342	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	7343	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7344
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7345	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl class methodsFor:'interface specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7346
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7347	windowSpec
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7348	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7349	by the UIPainter of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7350
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7351	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7352	the UIPainter may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7353
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7354	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7355	UIPainter new openOnClass:AbstractSettingsApplication::ProcessorSchedulerSettingsAppl andSelector:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7356	AbstractSettingsApplication::ProcessorSchedulerSettingsAppl new openInterface:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7357	AbstractSettingsApplication::ProcessorSchedulerSettingsAppl open
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7358	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7359
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7360	<resource: #canvas>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7361
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7362	^
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7363	#(FullSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7364	name: windowSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7365	window:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7366	(WindowSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7367	label: 'Processor and Scheduler Settings'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7368	name: 'Processor and Scheduler Settings'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7369	min: (Point 10 10)
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7370	bounds: (Rectangle 14 46 614 366)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7371	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7372	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7373	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7374	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7375	(VerticalPanelViewSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7376	name: 'VerticalPanel2'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7377	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	7378	horizontalLayout: fit
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7379	verticalLayout: topSpace
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7380	horizontalSpace: 3
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7381	verticalSpace: 5
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7382	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7383	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7384	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7385	(CheckBoxSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7386	label: 'Preemptive Scheduling'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7387	name: 'CheckBox11'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7388	model: preemptive
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7389	translateLabel: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7390	extent: (Point 600 22)
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7391	)
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7392	(ViewSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7393	name: 'Box2'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7394	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7395	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7396	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7397	(CheckBoxSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7398	label: 'Dynamic Priorities'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7399	name: 'CheckBox12'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7400	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	7401	enableChannel: preemptive
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7402	model: dynamicPrios
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7403	translateLabel: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7404	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7405	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7406
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7407	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7408	extent: (Point 600 23)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7409	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7410	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7411
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7412	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7413	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7414	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7415
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7416	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7417	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7418	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7419
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7420	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl methodsFor:'actions'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7421
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7422	basicReadSettings
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7423	self preemptive value:Processor isTimeSlicing.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7424	self dynamicPrios value:Processor supportDynamicPriorities.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7425	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7426
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7427	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7428
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7429	Processor isTimeSlicing ~~ self preemptive value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7430	self preemptive value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7431	Processor startTimeSlicing
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7432	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7433	Processor stopTimeSlicing
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7434	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7435	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7436	Processor supportDynamicPriorities ~~ self dynamicPrios value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7437	Processor supportDynamicPriorities:self dynamicPrios value
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7438	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7439	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7440
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	7441	helpFilename
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	7442	^ 'Launcher/miscSettings.html'
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7443	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7444
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7445	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl methodsFor:'aspects'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7446
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7447	dynamicPrios
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7448	dynamicPrios isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7449	dynamicPrios := true asValue.
5085 e22e91773cf9 have no save button enabled on timeSlicing changes penk parents: 5083 diff changeset	7450	dynamicPrios onChangeSend:#updateModifiedChannel to:self.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7451	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7452	^ dynamicPrios.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7453	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7454
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7455	preemptive
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7456	preemptive isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7457	preemptive := true asValue.
5085 e22e91773cf9 have no save button enabled on timeSlicing changes penk parents: 5083 diff changeset	7458	preemptive onChangeSend:#updateModifiedChannel to:self.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7459	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7460	^ preemptive.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7461	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7462
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7463	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl methodsFor:'queries'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7464
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7465	hasUnsavedChanges
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	7466	self preemptive value ~= Processor isTimeSlicing ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	7467	self dynamicPrios value ~= Processor supportDynamicPriorities ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	7468	^ false
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7469	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7470
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7471	!AbstractSettingsApplication::RDoItServerSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7472
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7473	defaultIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7474	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7475	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7476
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7477	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7478	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7479
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7480	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7481	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7482	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7483	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7484	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7485
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7486	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7487
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7488	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7489	constantNamed:#'AbstractSettingsApplication::RDoItServerSettingsAppl class defaultIcon'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	7490	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	7491	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@&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	7492	''#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	7493	!!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	7494	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7495
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7496	!AbstractSettingsApplication::RDoItServerSettingsAppl class methodsFor:'interface specs'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7497
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7498	windowSpec
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7499	"This resource specification was automatically generated
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7500	by the UIPainter of ST/X."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7501
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7502	"Do not manually edit this!! If it is corrupted,
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7503	the UIPainter may not be able to read the specification."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7504
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7505	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7506	UIPainter new openOnClass:AbstractSettingsApplication::RDoItServerSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7507	AbstractSettingsApplication::RDoItServerSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7508	AbstractSettingsApplication::RDoItServerSettingsAppl open
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7509	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7510
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7511	<resource: #canvas>
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7512
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7513	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7514	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7515	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7516	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7517	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7518	label: 'RDoIt Server Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7519	name: 'RDoIt Server Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7520	min: (Point 10 10)
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7521	bounds: (Rectangle 0 0 600 550)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7522	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7523	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7524	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7525	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7526	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7527	name: 'VerticalPanel2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7528	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	7529	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7530	verticalLayout: top
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7531	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7532	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7533	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7534	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7535	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7536	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7537	name: 'Box1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7538	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7539	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7540	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7541	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7542	label: 'Remote doits enabled'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7543	name: 'CheckBox1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7544	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	7545	enableChannel: hasRDoitServerClass
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7546	model: rDoitsEnabled
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7547	translateLabel: true
5086 b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	7548	)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	7549	)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	7550
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	7551	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7552	extent: (Point 600 25)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7553	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7554	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7555	name: 'Box2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7556	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7557	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7558	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7559	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7560	label: 'Port/Path:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7561	name: 'Label2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7562	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	7563	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7564	adjust: right
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7565	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7566	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7567	name: 'EntryField1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7568	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	7569	enableChannel: rDoitsEnabled
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7570	model: rDoitServerPortOrPath
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7571	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7572	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7573	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7574	acceptOnPointerLeave: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7575	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7576	(LabelSpec
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7577	label: 'Port# for Tcp Socket; Path for Unix Domain Socket (Unix only).'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7578	name: 'Label3'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7579	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	7580	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7581	adjust: left
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7582	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7583	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7584
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7585	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7586	extent: (Point 600 72)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7587	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7588	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7589	name: 'Box3'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7590	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7591	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7592	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7593	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7594	label: 'Log errors'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7595	name: 'CheckBox2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7596	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	7597	enableChannel: rDoitsEnabled
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7598	model: rDoitErrorLogging
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7599	translateLabel: true
5086 b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	7600	)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	7601	)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	7602
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	7603	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7604	extent: (Point 600 25)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7605	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7606	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7607	name: 'Box4'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7608	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7609	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7610	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7611	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7612	label: 'Log requests'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7613	name: 'CheckBox3'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7614	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	7615	enableChannel: rDoitsEnabled
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7616	model: rDoitLogging
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7617	translateLabel: true
5086 b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	7618	)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	7619	)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	7620
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	7621	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7622	extent: (Point 600 24)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7623	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7624	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7625	name: 'Box5'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7626	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7627	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7628	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7629	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7630	label: 'Debug errors'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7631	name: 'CheckBox4'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7632	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	7633	enableChannel: rDoitsEnabled
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7634	model: rDoitErrorDebugging
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7635	translateLabel: true
5086 b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	7636	)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	7637	)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	7638
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	7639	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7640	extent: (Point 600 23)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7641	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7642	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7643
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7644	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7645	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7646	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7647
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7648	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7649	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7650	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7651
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7652	!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'actions'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7653
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7654	basicReadSettings
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7655	\|rDoitsEnabled rDoitLogging rDoitErrorLogging rDoitErrorDebugging rDoitServerPortOrPath\|
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7656
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7657	rDoitsEnabled := false.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7658	rDoitLogging := false.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7659	rDoitErrorLogging := false.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7660	rDoitErrorDebugging := false.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7661	rDoitServerPortOrPath := false.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7662
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7663	(self hasRDoitServer and:[RDoItServer isLoaded]) ifTrue:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7664	rDoitsEnabled := RDoItServer serverRunning.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7665	rDoitLogging := RDoItServer isLogging.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7666	rDoitErrorLogging := RDoItServer isErrorLogging.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7667	rDoitErrorDebugging := RDoItServer isErrorCatching not.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7668	rDoitServerPortOrPath := RDoItServer defaultPortNumberOrPath
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7669	].
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7670
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7671	self rDoitsEnabled value:rDoitsEnabled.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7672	self rDoitLogging value:rDoitLogging.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7673	self rDoitErrorLogging value:rDoitErrorLogging.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7674	self rDoitErrorDebugging value:rDoitErrorDebugging.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7675	self rDoitServerPortOrPath value:rDoitServerPortOrPath
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7676	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7677
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7678	basicSaveSettings
5991 1f8b715b9c06 Fix rdoit settings: allow to specify a port number Stefan Vogel <sv@exept.de> parents: 5943 diff changeset	7679	\|shouldRun portOrPath\|
1f8b715b9c06 Fix rdoit settings: allow to specify a port number Stefan Vogel <sv@exept.de> parents: 5943 diff changeset	7680
1f8b715b9c06 Fix rdoit settings: allow to specify a port number Stefan Vogel <sv@exept.de> parents: 5943 diff changeset	7681	portOrPath := self rDoitServerPortOrPath value.
6064 94d7e5b3471d * empty log message * penk parents: 6058 diff changeset	7682	portOrPath isNumber ifFalse:[
5991 1f8b715b9c06 Fix rdoit settings: allow to specify a port number Stefan Vogel <sv@exept.de> parents: 5943 diff changeset	7683	"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	7684	portOrPath := portOrPath asInteger.
1f8b715b9c06 Fix rdoit settings: allow to specify a port number Stefan Vogel <sv@exept.de> parents: 5943 diff changeset	7685	].
1f8b715b9c06 Fix rdoit settings: allow to specify a port number Stefan Vogel <sv@exept.de> parents: 5943 diff changeset	7686
1f8b715b9c06 Fix rdoit settings: allow to specify a port number Stefan Vogel <sv@exept.de> parents: 5943 diff changeset	7687	RDoItServer defaultPortNumberOrPath:portOrPath.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7688	RDoItServer logging:self rDoitLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7689	RDoItServer errorLogging:self rDoitErrorLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7690	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	7691	shouldRun := self rDoitsEnabled value.
1f8b715b9c06 Fix rdoit settings: allow to specify a port number Stefan Vogel <sv@exept.de> parents: 5943 diff changeset	7692	shouldRun ~~ RDoItServer serverRunning ifTrue:[
1f8b715b9c06 Fix rdoit settings: allow to specify a port number Stefan Vogel <sv@exept.de> parents: 5943 diff changeset	7693	shouldRun ifFalse:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7694	RDoItServer stop
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7695	] ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7696	RDoItServer start.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7697	"/ must wait a bit; give it a chance to
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7698	"/ really start (before checking)
5991 1f8b715b9c06 Fix rdoit settings: allow to specify a port number Stefan Vogel <sv@exept.de> parents: 5943 diff changeset	7699	Delay waitForSeconds:1.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7700	RDoItServer serverRunning ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7701	self warn:'RDoit startup failed (see stderr).'
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7702	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7703	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7704	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7705	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7706
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	7707	helpFilename
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	7708	^ 'Launcher/communicationsSettings.html'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7709	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7710
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7711	!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'aspects'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7712
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7713	rDoitErrorDebugging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7714	rDoitErrorDebugging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7715	rDoitErrorDebugging := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7716	rDoitErrorDebugging onChangeSend:#updateModifiedChannel to:self
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7717	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7718	^ rDoitErrorDebugging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7719	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7720
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7721	rDoitErrorLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7722	rDoitErrorLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7723	rDoitErrorLogging := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7724	rDoitErrorLogging onChangeSend:#updateModifiedChannel to:self
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7725	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7726	^ rDoitErrorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7727	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7728
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7729	rDoitLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7730	rDoitLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7731	rDoitLogging := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7732	rDoitLogging onChangeSend:#updateModifiedChannel to:self
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7733	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7734	^ rDoitLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7735	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7736
5032 2a26da89dada allow for rdoitPort to be a string (for ud sockets) Claus Gittinger <cg@exept.de> parents: 5031 diff changeset	7737	rDoitServerPortOrPath
2a26da89dada allow for rdoitPort to be a string (for ud sockets) Claus Gittinger <cg@exept.de> parents: 5031 diff changeset	7738	rDoitServerPortOrPath isNil ifTrue:[
2a26da89dada allow for rdoitPort to be a string (for ud sockets) Claus Gittinger <cg@exept.de> parents: 5031 diff changeset	7739	rDoitServerPortOrPath := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7740	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	7741	].
2a26da89dada allow for rdoitPort to be a string (for ud sockets) Claus Gittinger <cg@exept.de> parents: 5031 diff changeset	7742	^ rDoitServerPortOrPath.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7743	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7744
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7745	rDoitsEnabled
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7746	rDoitsEnabled isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7747	rDoitsEnabled := true asValue.
4675 40c7fa2ca3e5 rDoit - enablement fixed. Claus Gittinger <cg@exept.de> parents: 4658 diff changeset	7748	rDoitsEnabled onChangeSend:#rDoitsEnabledChanged to:self
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7749	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7750	^ rDoitsEnabled.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7751	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7752
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7753	!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'change & update'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7754
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7755	rDoitsEnabledChanged
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7756	self updateModifiedChannel.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7757	self rDoitsEnabled value ifTrue:[
5991 1f8b715b9c06 Fix rdoit settings: allow to specify a port number Stefan Vogel <sv@exept.de> parents: 5943 diff changeset	7758	rDoitServerPortOrPath value isEmptyOrNil ifTrue:[
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7759	rDoitServerPortOrPath value:(RDoItServer defaultPortNumberOrPath)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7760	]
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7761	]
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7762	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7763
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7764	!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'queries'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7765
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7766	hasRDoitServer
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7767	^ RDoItServer notNil and:[RDoItServer isLoaded]
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7768	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7769
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7770	hasRDoitServerClass
4675 40c7fa2ca3e5 rDoit - enablement fixed. Claus Gittinger <cg@exept.de> parents: 4658 diff changeset	7771	^ RDoItServer notNil
40c7fa2ca3e5 rDoit - enablement fixed. Claus Gittinger <cg@exept.de> parents: 4658 diff changeset	7772	!
40c7fa2ca3e5 rDoit - enablement fixed. Claus Gittinger <cg@exept.de> parents: 4658 diff changeset	7773
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7774	hasUnsavedChanges
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7775	(self hasRDoitServer and:[RDoItServer isLoaded]) ifTrue:[
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	7776	self rDoitsEnabled value ~= RDoItServer serverRunning ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	7777	RDoItServer serverRunning ifTrue:[
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	7778	self rDoitLogging value ~= RDoItServer isLogging ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	7779	self rDoitErrorLogging value ~= RDoItServer isErrorLogging ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	7780	self rDoitErrorDebugging value ~= RDoItServer isErrorCatching not ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	7781	self rDoitServerPortOrPath value ~= RDoItServer defaultPortNumberOrPath ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	7782	]
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7783	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7784	^ false
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7785	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7786
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7787	!AbstractSettingsApplication::SQLServerSettingsAppl class methodsFor:'image specs'!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7788
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7789	defaultIcon
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7790	"This resource specification was automatically generated
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7791	by the ImageEditor of ST/X."
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7792
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7793	"Do not manually edit this!! If it is corrupted,
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7794	the ImageEditor may not be able to read the specification."
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7795
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7796	"
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7797	self defaultIcon inspect
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7798	ImageEditor openOnClass:self andSelector:#defaultIcon
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7799	Icon flushCachedIcons
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7800	"
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7801
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7802	<resource: #image>
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7803
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7804	^Icon
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7805	constantNamed:#'Expecco::ExpeccoIconLibrary class defaultIcon'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7806	ifAbsentPut:[(Depth8Image new) width: 24; height: 24; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7807	H"H"H @@@@@@@@@@@@@@@@@@@@@"H"H"@@@@@@@@@@@@@@@@@@@@@@@@@@@"H"H"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BH"@@@@@@@@@@@@J"(J"(@@@@
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7808	@@@@@BH"@@@@@@@@J"(@@@@@@@@J"(@@@@H"H"@@@@@B(@@@@@@@@@@@@@@@@J"("H"H"@@@@J @@@@@@@@@@@@@@@@@@@@@H"H"@BH@H"(*@@@@@@@@
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7809	@@@@@@@@J"("H"H"@BH(H" $J"(J @@@@@J"(H"H"H"H"@BH(H" $ABTJIB(J"("H"H"H"H"H"H"@BH(H" $ABT%IBP(JBH"H"H"H"H"H"H"@@@(J" $
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7810	A@PDIBP(JBH"H"H"H"HH"H"@BH@H"(IBP$IBP(JBH"H"H"J"("H"H"@BH(H" $J"(J"P(JBHJ"(H"H"H"H"@BH(H" $ABTJIB(J"("H"H"H"H"H"H"
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7811	@BH(H" $ABT%IBP(JBH"H"H"H"H"H"H"@@@(J" $A@PDIBP(JBH"H"H"H"HH"H"@@@@@B(IBP$IBP(JBH"H"H"J"(@H"H"H"H"H"H"J"(IBP(JBH"J"(
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7812	H"H"H"H"H"H"H"H"@@@@J"(J"(@@@@@@@@@BH"H"H"H"H"@@@@@@@@@@@@@@@@@@@@@BH"H"H"H"H"@@@@@@@@@@@@@@@@@@@@@BH"H"H"H"H"@@@@@@@@
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7813	@@@@@@@@@@@@@BH"H"H"H"H"@@@@@@@@@@@@@@@@@@@@@BH"') ; colorMapFromArray:#[224 189 75 255 253 212 114 169 125 244 219 172 224 180 55 105 195 48 255 253 194 253 210 112 27 163 14 139 188 141 254 253 153 67 140 42 245 230 190 245 250 242 238 222 158 240 212 96 254 253 228 249 239 209 254 233 132 135 224 88 62 138 68 241 209 144 254 198 97 148 180 81 255 227 154 39 125 38 61 166 37 216 172 46 46 153 24 113 206 71 25 131 15 240 198 86 79 187 37 254 243 141 102 77 2 69 123 9 205 154 5 249 235 113 225 193 100 218 179 65 130 98 3 10 113 5 0 0 0]; mask:((Depth1Image new) width: 24; height: 24; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@G8@@??@C??0G??8G??8G??8G??8G??8G??8G??8G??8G??8G??8G??8C??0@??@@G8@@@@@@@@@@@@@@@@@') ; yourself); yourself]
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7814	! !
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7815
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7816	!AbstractSettingsApplication::SQLServerSettingsAppl class methodsFor:'interface specs'!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7817
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7818	windowSpec
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7819	"This resource specification was automatically generated
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7820	by the UIPainter of ST/X."
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7821
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7822	"Do not manually edit this!! If it is corrupted,
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7823	the UIPainter may not be able to read the specification."
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7824
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7825	"
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7826	UIPainter new openOnClass:AbstractSettingsApplication::SQLServerSettingsAppl andSelector:#windowSpec
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7827	AbstractSettingsApplication::SQLServerSettingsAppl new openInterface:#windowSpec
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7828	AbstractSettingsApplication::SQLServerSettingsAppl open
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7829	"
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7830
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7831	<resource: #canvas>
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7832
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7833	^
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7834	#(FullSpec
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7835	name: windowSpec
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7836	window:
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7837	(WindowSpec
6428 76dfcf8cb841 * empty log message * Claus Gittinger <cg@exept.de> parents: 6427 diff changeset	7838	label: 'SQL Server Settings'
76dfcf8cb841 * empty log message * Claus Gittinger <cg@exept.de> parents: 6427 diff changeset	7839	name: 'SQL Server Settings'
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7840	min: (Point 10 10)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7841	bounds: (Rectangle 0 0 600 550)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7842	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7843	component:
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7844	(SpecCollection
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7845	collection: (
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7846	(VerticalPanelViewSpec
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7847	name: 'VerticalPanel2'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7848	layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7849	horizontalLayout: fit
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7850	verticalLayout: top
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7851	horizontalSpace: 3
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7852	verticalSpace: 3
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7853	component:
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7854	(SpecCollection
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7855	collection: (
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7856	(ViewSpec
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7857	name: 'EnableBox'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7858	component:
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7859	(SpecCollection
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7860	collection: (
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7861	(CheckBoxSpec
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7862	label: 'SQL Server Enabled'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7863	name: 'EnableCheckBox'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7864	layout: (LayoutFrame 5 0 0 0 -5 1 22 0)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7865	enableChannel: hasRDoitServerClass
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7866	model: sqlServerEnabled
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7867	translateLabel: true
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7868	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7869	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7870
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7871	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7872	extent: (Point 600 25)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7873	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7874	(ViewSpec
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7875	name: 'PortBox'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7876	component:
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7877	(SpecCollection
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7878	collection: (
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7879	(LabelSpec
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7880	label: 'MySQL Port:'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7881	name: 'Label2'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7882	layout: (LayoutFrame 5 0 0 0 150 0 22 0)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7883	translateLabel: true
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7884	adjust: right
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7885	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7886	(InputFieldSpec
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7887	name: 'EntryField1'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7888	layout: (LayoutFrame 150 0 0 0 -5 1 22 0)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7889	enableChannel: rDoitsEnabled
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7890	model: sqlServerPort
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7891	acceptOnReturn: true
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7892	acceptOnTab: true
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7893	acceptOnLostFocus: true
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7894	acceptOnPointerLeave: true
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7895	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7896	(LabelSpec
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7897	label: 'MySQL Port-Number (ODBC)'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7898	name: 'Label3'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7899	layout: (LayoutFrame 150 0 28 0 596 0 50 0)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7900	translateLabel: true
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7901	adjust: left
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7902	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7903	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7904
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7905	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7906	extent: (Point 600 72)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7907	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7908	(ViewSpec
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7909	name: 'LogErrorsBox'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7910	component:
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7911	(SpecCollection
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7912	collection: (
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7913	(CheckBoxSpec
6431 6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	7914	label: 'Log Errors'
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7915	name: 'ErrorLoggingCheckBox'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7916	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7917	enableChannel: rDoitsEnabled
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7918	model: sqlErrorLogging
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7919	translateLabel: true
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7920	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7921	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7922
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7923	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7924	extent: (Point 600 25)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7925	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7926	(ViewSpec
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7927	name: 'LogRequestsBox'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7928	component:
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7929	(SpecCollection
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7930	collection: (
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7931	(CheckBoxSpec
6431 6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	7932	label: 'Log Requests'
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7933	name: 'LogRequestsCheckBox'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7934	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7935	enableChannel: rDoitsEnabled
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7936	model: sqlLogging
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7937	translateLabel: true
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7938	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7939	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7940
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7941	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7942	extent: (Point 600 24)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7943	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7944	(ViewSpec
6431 6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	7945	name: 'LogDataBox'
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	7946	component:
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	7947	(SpecCollection
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	7948	collection: (
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	7949	(CheckBoxSpec
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	7950	label: 'Log Data'
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	7951	name: 'LogDataCheckBox'
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	7952	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	7953	enableChannel: rDoitsEnabled
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	7954	model: sqlDataLogging
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	7955	translateLabel: true
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	7956	)
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	7957	)
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	7958
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	7959	)
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	7960	extent: (Point 600 23)
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	7961	)
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	7962	(ViewSpec
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7963	name: 'DebugErrorsBox'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7964	component:
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7965	(SpecCollection
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7966	collection: (
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7967	(CheckBoxSpec
6431 6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	7968	label: 'Debug Errors'
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7969	name: 'DebugErrorsCheckBox'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7970	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7971	enableChannel: rDoitsEnabled
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7972	model: sqlErrorDebugging
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7973	translateLabel: true
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7974	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7975	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7976
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7977	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7978	extent: (Point 600 23)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7979	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7980	(ViewSpec
6431 6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	7981	name: 'Box1'
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	7982	extent: (Point 600 10)
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	7983	)
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	7984	(ViewSpec
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7985	name: 'EnableSmalltalkBox'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7986	component:
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7987	(SpecCollection
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7988	collection: (
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7989	(CheckBoxSpec
6431 6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	7990	label: 'Virtual Smalltalk Tables Enabled'
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7991	name: 'EnableSmalltalkCheckBox'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7992	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7993	enableChannel: rDoitsEnabled
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7994	model: sqlSmalltalkServerEnabled
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7995	translateLabel: true
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7996	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7997	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7998
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7999	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8000	extent: (Point 600 24)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8001	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8002	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8003
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8004	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8005	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8006	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8007
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8008	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8009	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8010	! !
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8011
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8012	!AbstractSettingsApplication::SQLServerSettingsAppl methodsFor:'actions'!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8013
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8014	basicReadSettings
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8015	(self hasSQLServer and:[SQLServer::SQLServer isLoaded]) ifTrue:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8016	self sqlServerEnabled value:SQLServer::SQLServer serverRunning.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8017	self sqlSmalltalkServerEnabled value:SQLServer::SQLServer isSmalltalkServerEnabled.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8018	self sqlLogging value:SQLServer::SQLServer isLogging.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8019	self sqlErrorLogging value:SQLServer::SQLServer isErrorLogging.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8020	self sqlDataLogging value:SQLServer::SQLServer isDataLogging.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8021	self sqlErrorDebugging value:SQLServer::SQLServer isErrorCatching not.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8022	self sqlServerPort value:SQLServer::SQLServer defaultPort
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8023	] ifFalse:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8024	self sqlServerEnabled value:false.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8025	self sqlSmalltalkServerEnabled value:false.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8026	self sqlLogging value:false.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8027	self sqlErrorLogging value:false.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8028	self sqlDataLogging value:false.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8029	self sqlErrorDebugging value:false.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8030	self sqlServerPort value:nil
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8031	].
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8032	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8033
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8034	basicSaveSettings
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8035	\|shouldRun port\|
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8036
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8037	port := self sqlServerPort value.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8038	port isNumber ifFalse:[
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8039	port := port asInteger.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8040	].
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8041
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8042	SQLServer::SQLServer defaultPort:port.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8043	SQLServer::SQLServer logging:self sqlLogging value.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8044	SQLServer::SQLServer errorLogging:self sqlErrorLogging value.
6431 6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	8045	SQLServer::SQLServer dataLogging:self sqlDataLogging value.
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8046	SQLServer::SQLServer errorCatching:(self sqlErrorDebugging value not).
6429 5d2d51c0c393 * empty log message * Claus Gittinger <cg@exept.de> parents: 6428 diff changeset	8047	SQLServer::SQLServer smalltalkServerEnabled:(self sqlSmalltalkServerEnabled value).
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8048
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8049	shouldRun := self sqlServerEnabled value.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8050	shouldRun ~~ SQLServer::SQLServer serverRunning ifTrue:[
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8051	shouldRun ifFalse:[
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8052	SQLServer::SQLServer stop
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8053	] ifTrue:[
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8054	SQLServer::SQLServer start.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8055	"/ must wait a bit; give it a chance to
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8056	"/ really start (before checking)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8057	Delay waitForSeconds:1.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8058	SQLServer::SQLServer serverRunning ifFalse:[
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8059	self warn:'SQLServer startup failed (see stderr).'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8060	]
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8061	]
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8062	].
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8063	!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8064
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8065	helpFilename
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8066	^ 'Launcher/communicationsSettings.html'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8067	! !
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8068
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8069	!AbstractSettingsApplication::SQLServerSettingsAppl methodsFor:'aspects'!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8070
6431 6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	8071	sqlDataLogging
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	8072	sqlDataLogging isNil ifTrue:[
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	8073	sqlDataLogging := true asValue.
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	8074	sqlDataLogging onChangeSend:#updateModifiedChannel to:self
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	8075	].
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	8076	^ sqlDataLogging.
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	8077	!
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	8078
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8079	sqlErrorDebugging
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8080	sqlErrorDebugging isNil ifTrue:[
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8081	sqlErrorDebugging := true asValue.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8082	sqlErrorDebugging onChangeSend:#updateModifiedChannel to:self
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8083	].
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8084	^ sqlErrorDebugging.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8085	!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8086
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8087	sqlErrorLogging
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8088	sqlErrorLogging isNil ifTrue:[
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8089	sqlErrorLogging := true asValue.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8090	sqlErrorLogging onChangeSend:#updateModifiedChannel to:self
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8091	].
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8092	^ sqlErrorLogging.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8093	!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8094
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8095	sqlLogging
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8096	sqlLogging isNil ifTrue:[
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8097	sqlLogging := true asValue.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8098	sqlLogging onChangeSend:#updateModifiedChannel to:self
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8099	].
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8100	^ sqlLogging.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8101	!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8102
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8103	sqlServerEnabled
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8104	sqlServerEnabled isNil ifTrue:[
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8105	sqlServerEnabled := true asValue.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8106	sqlServerEnabled onChangeSend:#sqlServerEnabledChanged to:self
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8107	].
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8108	^ sqlServerEnabled.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8109	!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8110
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8111	sqlServerPort
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8112	sqlServerPort isNil ifTrue:[
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8113	sqlServerPort := ValueHolder new.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8114	sqlServerPort onChangeSend:#updateModifiedChannel to:self
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8115	].
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8116	^ sqlServerPort.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8117	!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8118
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8119	sqlSmalltalkServerEnabled
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8120	sqlSmalltalkServerEnabled isNil ifTrue:[
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8121	sqlSmalltalkServerEnabled := true asValue.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8122	sqlSmalltalkServerEnabled onChangeSend:#sqlSmalltalkServerEnabledChanged to:self
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8123	].
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8124	^ sqlSmalltalkServerEnabled.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8125	! !
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8126
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8127	!AbstractSettingsApplication::SQLServerSettingsAppl methodsFor:'change & update'!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8128
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8129	sqlServerEnabledChanged
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8130	self updateModifiedChannel.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8131	self sqlServerEnabled value ifTrue:[
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8132	sqlServerPort value isEmptyOrNil ifTrue:[
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8133	sqlServerPort value:(SQLServer::SQLServer defaultPort)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8134	]
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8135	]
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8136	!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8137
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8138	sqlSmalltalkServerEnabledChanged
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8139	self updateModifiedChannel.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8140	self sqlSmalltalkServerEnabled value ifTrue:[
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8141	sqlServerPort value isEmptyOrNil ifTrue:[
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8142	sqlServerPort value:(SQLServer::SQLServer defaultPort)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8143	]
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8144	]
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8145	! !
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8146
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8147	!AbstractSettingsApplication::SQLServerSettingsAppl methodsFor:'queries'!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8148
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8149	hasSQLServer
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8150	^ SQLServer::SQLServer notNil and:[SQLServer::SQLServer isLoaded]
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8151	!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8152
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8153	hasSQLServerClass
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8154	^ SQLServer::SQLServer notNil
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8155	!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8156
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8157	hasUnsavedChanges
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8158	(self hasSQLServer and:[SQLServer::SQLServer isLoaded]) ifTrue:[
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8159	self sqlServerEnabled value ~= SQLServer::SQLServer serverRunning ifTrue:[^ true].
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8160	SQLServer::SQLServer serverRunning ifTrue:[
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8161	self sqlSmalltalkServerEnabled value ~= SQLServer::SQLServer isSmalltalkServerEnabled ifTrue:[^ true].
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8162	self sqlLogging value ~= SQLServer::SQLServer isLogging ifTrue:[^ true].
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8163	self sqlErrorLogging value ~= SQLServer::SQLServer isErrorLogging ifTrue:[^ true].
6431 6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	8164	self sqlDataLogging value ~= SQLServer::SQLServer isDataLogging ifTrue:[^ true].
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8165	self sqlErrorDebugging value ~= SQLServer::SQLServer isErrorCatching not ifTrue:[^ true].
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8166	self sqlServerPort value ~= SQLServer::SQLServer defaultPort ifTrue:[^ true].
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8167	]
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8168	].
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8169	^ false
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8170	! !
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8171
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8172	!AbstractSettingsApplication::STCCompilerSettingsAppl class methodsFor:'defaults'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8173
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8174	stcCompilationOptions
5278 67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	8175	^ #(default never)
67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	8176	!
67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	8177
67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	8178	stcCompilationStrings
67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	8179
67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	8180	^ #('primitive code only' 'never')
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8181	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8182
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8183	!AbstractSettingsApplication::STCCompilerSettingsAppl class methodsFor:'image specs'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8184
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8185	defaultIcon
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8186	^ self defaultIcon3
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8187	!
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8188
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8189	defaultIcon1
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8190	"This resource specification was automatically generated
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8191	by the ImageEditor of ST/X."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8192
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8193	"Do not manually edit this!! If it is corrupted,
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8194	the ImageEditor may not be able to read the specification."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8195
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8196	"
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8197	self defaultIcon1 inspect
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8198	ImageEditor openOnClass:self andSelector:#defaultIcon1
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8199	Icon flushCachedIcons
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8200	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8201
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8202	<resource: #image>
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8203
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8204	^Icon
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8205	constantNamed:#'AbstractSettingsApplication::STCCompilerSettingsAppl class defaultIcon1'
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	8206	ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#[2]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	8207	@@@@@@@@C??????@CUUUUUW@CZ(J@B''@CZ""(''CCZ"(''@CV(J(WKCV"(W@CU""()WJCU(J()W@CUZ%W@CUZ%WACUV(JUW@CUV""UWDCUU")UWI
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	8208	CUU")UWICUUR%UWJCUUR!!UWACUUTEUW@CUUUUUW@C??????@@@@@@@@B') ; colorMapFromArray:#[0 0 0 255 255 255 255 189 23 127 127 127]; mask:((ImageMask new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8@@@@') ; yourself); yourself]
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8209	!
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8210
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8211	defaultIcon2
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8212	"This resource specification was automatically generated
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8213	by the ImageEditor of ST/X."
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8214
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8215	"Do not manually edit this!! If it is corrupted,
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8216	the ImageEditor may not be able to read the specification."
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8217
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8218	"
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8219	self defaultIcon2 inspect
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8220	ImageEditor openOnClass:self andSelector:#defaultIcon2
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8221	Icon flushCachedIcons
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8222	"
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8223
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8224	<resource: #image>
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8225
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8226	^Icon
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8227	constantNamed:#'AbstractSettingsApplication::STCCompilerSettingsAppl class defaultIcon2'
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8228	ifAbsentPut:[(Depth8Image new) width: 24; height: 24; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8229	A@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PD@0LDA@PDA@PDA@PDA@PDA@PD
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8230	A@PDA@LCA PCA@P@@@@@@@@@@@@@@@@@@@@D@0PFA PCA@PC@0@@@@@@@@@@@@@C@0@D@0PFAPTD@0LDA L@@@@@@@@@@@LFA@LCA@TEAPTEA@PE@PL@@@@@
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8231	@@@@@@LAAPPDAPTEAPTEAPTF@0@@@@@@@@@@@@@CA TEAPTEA DFAPTD@0@@@@@@@@@@@@@CA@TEA DF@0LAA TEA@LC@@@@@@@@@0LDAPTF@PLC@ HC@PTE
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8232	APPD@0@@@@@CA@PEAPTA@0HB@ HCA TEAPDA@0@@@@@C@PDEAPTF@0HB@0LDAPTFA LC@@@@@@@@@0LFA TEA@LCA@PEAPTF@0PD@@@@@@@@@@PCA TEAPPD
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8233	APTEAPTD@0PDA@@@@@@@A@PCA@TEAPTEAPTEA DEA@LDA@@@@@@@A@LDAPDFAPTEAPTD@0LAA LDA@P@@@@DA@LF@PLCA@TE@PPCA@PC@0PDA@P@@@@DA@PC
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8234	@0PD@0PA@PPCA@PDA@PDA@PD@@PDA@PDA@PD@0PA@0LDA@PDA@PDA@PDA@PDA@PDA@PDA@LCA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PD
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8235	A@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PD') ; colorMapFromArray:#[255 189 23 127 127 127 236 233 216 0 0 0 255 255 255 194 194 194 161 161 165]; yourself]
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8236	!
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8237
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8238	defaultIcon3
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8239	"This resource specification was automatically generated
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8240	by the ImageEditor of ST/X."
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8241
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8242	"Do not manually edit this!! If it is corrupted,
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8243	the ImageEditor may not be able to read the specification."
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8244
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8245	"
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8246	self defaultIcon3 inspect
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8247	ImageEditor openOnClass:self andSelector:#defaultIcon3
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8248	Icon flushCachedIcons
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8249	"
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8250
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8251	<resource: #image>
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8252
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8253	^Icon
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8254	constantNamed:#'AbstractSettingsApplication::STCCompilerSettingsAppl class defaultIcon3'
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8255	ifAbsentPut:[(Depth8Image new) width: 24; height: 24; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8256	A@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PC@0PDA@PD
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8257	A@PDA@PDA@PDA@PDA@PDA@LDA LDA@PDA@PDA@PDA@PDA@PD@0LDA@LDA LDA@LCA@PDA@PDA@PDA@PCA PC@0PEAPPC@0PF@0PDA@PDA@PDA@PC@PTDA@TE
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8258	APTDA@TA@0PDA@PDA@PDA@PD@0XEAPTEAPTEAPXCA@PDA@PDA@PDA@PD@0PEAPXAA XEAPPCA@PDA@PDA@PDA@LCA@TEA DC@0DFAPTD@0LDA@PDA@PD@0PD
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8259	APTE@PLB@ LAAPTEA@PCA@P@A@PD@0DAAPTEA LB@ LFAPTE@PDCA@P@A@PDA@LCA XEAPPC@0PEAPXF@0LDA@PDA@PDA@PD@0XEAPTDA@TEAPXCA@PDA@PD
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8260	A@PDA@PD@0PEAPTEAPTEAPPCA@PDA@PDA@PDA@PCA@TAA TEAPTF@PTD@0PDA@PDA@PDA@PCA DC@0PEAPPC@0DF@0PDA@PDA@PDA@PD@0LDA@LD@PLDA@LC
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8261	A@PDA@PDA@PDA@PDA@PDA@LD@PLDA@PDA@PDA@PDA@PDA@PDA@PDA@PC@0PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PD
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8262	A@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PD') ; colorMapFromArray:#[255 189 23 127 127 127 236 233 216 0 0 0 255 255 255 194 194 194 161 161 165]; mask:((Depth1Image new) width: 24; height: 24; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@A @@C0@@33@A?? A?? @??@@??@C??0G??8G??8C??0@??@@??@A?? A?? @33@@C0@@A @@@@@@@@@@@@@') ; yourself); yourself]
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8263	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8264
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8265	!AbstractSettingsApplication::STCCompilerSettingsAppl class methodsFor:'interface specs'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8266
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8267	windowSpec
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8268	"This resource specification was automatically generated
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8269	by the UIPainter of ST/X."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8270
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8271	"Do not manually edit this!! If it is corrupted,
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8272	the UIPainter may not be able to read the specification."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8273
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8274	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8275	UIPainter new openOnClass:AbstractSettingsApplication::STCCompilerSettingsAppl andSelector:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8276	AbstractSettingsApplication::STCCompilerSettingsAppl new openInterface:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8277	AbstractSettingsApplication::STCCompilerSettingsAppl open
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8278	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8279
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8280	<resource: #canvas>
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8281
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8282	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8283	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8284	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8285	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8286	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8287	label: 'STC Compiler Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8288	name: 'STC Compiler Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8289	min: (Point 10 10)
6866 ec908ed4b944 make command fm parents: 6860 diff changeset	8290	bounds: (Rectangle 0 0 600 478)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8291	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8292	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8293	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8294	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8295	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8296	name: 'VerticalPanel2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8297	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	8298	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8299	verticalLayout: top
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8300	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8301	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8302	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8303	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8304	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8305	(ViewSpec
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8306	name: 'SeparatingBox12'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	8307	extent: (Point 600 4)
a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	8308	)
a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	8309	(ViewSpec
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8310	name: 'STCCompilationBox11'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8311	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8312	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8313	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8314	(LabelSpec
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	8315	label: 'STC Compilation to Machine Code:'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8316	name: 'Label11'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8317	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	8318	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8319	adjust: right
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8320	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8321	(PopUpListSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8322	label: 'PopUp List'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8323	name: 'StcCompilation'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8324	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	8325	tabable: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8326	model: stcCompilationSelection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8327	enableChannel: canLoadBinaries
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8328	menu: stcCompilationList
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8329	useIndex: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8330	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8331	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8332
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8333	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8334	extent: (Point 600 29)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8335	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8336	(ViewSpec
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8337	name: 'STCCommandBox1'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8338	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8339	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8340	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8341	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8342	label: 'STC Command:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8343	name: 'Label1'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	8344	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8345	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8346	adjust: right
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8347	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8348	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8349	name: 'EntryField1'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	8350	layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8351	enableChannel: canLoadBinaries
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8352	model: stc
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8353	acceptOnLeave: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8354	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8355	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8356	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8357	acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8358	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8359	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8360
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8361	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8362	extent: (Point 600 35)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8363	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8364	(ViewSpec
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8365	name: 'STCOptionsBox2'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8366	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8367	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8368	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8369	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8370	label: 'STC Options:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8371	name: 'Label2'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	8372	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8373	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8374	adjust: right
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8375	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8376	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8377	name: 'EntryField2'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	8378	layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8379	enableChannel: canLoadBinaries
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8380	model: stcOptions
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8381	acceptOnLeave: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8382	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8383	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8384	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8385	acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8386	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8387	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8388
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8389	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8390	extent: (Point 600 35)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8391	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8392	(ViewSpec
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8393	name: 'CCCommandBox3'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8394	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8395	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8396	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8397	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8398	label: 'CC Command:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8399	name: 'Label3'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	8400	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8401	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8402	adjust: right
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8403	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8404	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8405	name: 'EntryField3'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	8406	layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8407	enableChannel: canLoadBinaries
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8408	model: cc
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8409	acceptOnLeave: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8410	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8411	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8412	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8413	acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8414	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8415	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8416
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8417	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8418	extent: (Point 600 35)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8419	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8420	(ViewSpec
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8421	name: 'CCOptionsBox4'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8422	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8423	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8424	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8425	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8426	label: 'CC Options:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8427	name: 'Label4'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	8428	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8429	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8430	adjust: right
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8431	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8432	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8433	name: 'EntryField4'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	8434	layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8435	enableChannel: canLoadBinaries
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8436	model: ccOptions
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8437	acceptOnLeave: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8438	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8439	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8440	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8441	acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8442	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8443	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8444
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8445	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8446	extent: (Point 600 35)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8447	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8448	(ViewSpec
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8449	name: 'IncludeDirectoriesBox5'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8450	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8451	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8452	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8453	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8454	label: 'Include Directories:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8455	name: 'Label5'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	8456	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8457	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8458	adjust: right
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8459	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8460	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8461	name: 'EntryField5'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	8462	layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8463	enableChannel: canLoadBinaries
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8464	model: stcIncludes
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8465	acceptOnLeave: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8466	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8467	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8468	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8469	acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8470	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8471	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8472
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8473	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8474	extent: (Point 600 35)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8475	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8476	(ViewSpec
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8477	name: 'STCDefinesBox6'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8478	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8479	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8480	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8481	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8482	label: 'Defines:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8483	name: 'Label6'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	8484	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8485	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8486	adjust: right
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8487	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8488	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8489	name: 'EntryField6'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	8490	layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8491	enableChannel: canLoadBinaries
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8492	model: stcDefines
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8493	acceptOnLeave: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8494	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8495	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8496	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8497	acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8498	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8499	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8500
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8501	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8502	extent: (Point 600 34)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8503	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8504	(ViewSpec
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8505	name: 'LinkCommandBox7'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8506	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8507	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8508	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8509	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8510	label: 'Link Command:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8511	name: 'Label7'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	8512	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8513	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8514	adjust: right
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8515	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8516	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8517	name: 'EntryField7'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	8518	layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8519	enableChannel: canLoadBinaries
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8520	model: linkCommand
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8521	acceptOnLeave: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8522	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8523	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8524	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8525	acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8526	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8527	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8528
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8529	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8530	extent: (Point 600 33)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8531	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8532	(ViewSpec
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8533	name: 'LinkArgumentsBox8'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8534	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8535	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8536	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8537	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8538	label: 'Link Arguments:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8539	name: 'Label8'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	8540	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8541	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8542	adjust: right
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8543	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8544	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8545	name: 'EntryField8'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	8546	layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8547	enableChannel: canLoadBinaries
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8548	model: linkArgs
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8549	acceptOnLeave: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8550	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8551	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8552	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8553	acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8554	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8555	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8556
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8557	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8558	extent: (Point 600 32)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8559	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8560	(ViewSpec
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8561	name: 'LinkSharedArgumentsBox1'
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8562	component:
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8563	(SpecCollection
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8564	collection: (
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8565	(LabelSpec
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8566	label: 'Link Shared Arguments:'
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8567	name: 'Label12'
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8568	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8569	translateLabel: true
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8570	adjust: right
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8571	)
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8572	(InputFieldSpec
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8573	name: 'EntryField11'
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8574	layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8575	enableChannel: canLoadBinaries
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8576	model: linkSharedArgs
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8577	acceptOnLeave: true
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8578	acceptOnReturn: true
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8579	acceptOnTab: true
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8580	acceptOnLostFocus: true
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8581	acceptOnPointerLeave: true
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8582	)
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8583	)
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8584
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8585	)
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8586	extent: (Point 600 31)
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8587	)
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8588	(ViewSpec
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8589	name: 'CLibrariesBox9'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8590	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8591	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8592	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8593	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8594	label: 'C-Libraries:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8595	name: 'Label9'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	8596	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8597	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8598	adjust: right
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8599	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8600	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8601	name: 'EntryField9'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	8602	layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8603	enableChannel: canLoadBinaries
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8604	model: stcLibraries
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8605	acceptOnLeave: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8606	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8607	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8608	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8609	acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8610	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8611	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8612
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8613	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8614	extent: (Point 600 31)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8615	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8616	(ViewSpec
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8617	name: 'STCLibraryPathBox10'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8618	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8619	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8620	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8621	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8622	label: 'STC Library Path:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8623	name: 'Label10'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	8624	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8625	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8626	adjust: right
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8627	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8628	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8629	name: 'EntryField10'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	8630	layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8631	enableChannel: enableStcLibraryPath
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8632	model: stcLibraryPath
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8633	acceptOnLeave: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8634	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8635	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8636	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8637	acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8638	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8639	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8640
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8641	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8642	extent: (Point 600 30)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8643	)
6866 ec908ed4b944 make command fm parents: 6860 diff changeset	8644	(ViewSpec
ec908ed4b944 make command fm parents: 6860 diff changeset	8645	name: 'MakeCommandBox'
ec908ed4b944 make command fm parents: 6860 diff changeset	8646	component:
ec908ed4b944 make command fm parents: 6860 diff changeset	8647	(SpecCollection
ec908ed4b944 make command fm parents: 6860 diff changeset	8648	collection: (
ec908ed4b944 make command fm parents: 6860 diff changeset	8649	(LabelSpec
ec908ed4b944 make command fm parents: 6860 diff changeset	8650	label: 'Make Command:'
ec908ed4b944 make command fm parents: 6860 diff changeset	8651	name: 'Label13'
ec908ed4b944 make command fm parents: 6860 diff changeset	8652	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
ec908ed4b944 make command fm parents: 6860 diff changeset	8653	translateLabel: true
ec908ed4b944 make command fm parents: 6860 diff changeset	8654	adjust: right
ec908ed4b944 make command fm parents: 6860 diff changeset	8655	)
ec908ed4b944 make command fm parents: 6860 diff changeset	8656	(InputFieldSpec
ec908ed4b944 make command fm parents: 6860 diff changeset	8657	name: 'EntryField12'
ec908ed4b944 make command fm parents: 6860 diff changeset	8658	layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
6867 35d36dde8831 * empty log message * fm parents: 6866 diff changeset	8659	model: makeCommand
6866 ec908ed4b944 make command fm parents: 6860 diff changeset	8660	acceptOnLeave: true
ec908ed4b944 make command fm parents: 6860 diff changeset	8661	acceptOnReturn: true
ec908ed4b944 make command fm parents: 6860 diff changeset	8662	acceptOnTab: true
ec908ed4b944 make command fm parents: 6860 diff changeset	8663	acceptOnLostFocus: true
ec908ed4b944 make command fm parents: 6860 diff changeset	8664	acceptOnPointerLeave: true
ec908ed4b944 make command fm parents: 6860 diff changeset	8665	)
ec908ed4b944 make command fm parents: 6860 diff changeset	8666	)
ec908ed4b944 make command fm parents: 6860 diff changeset	8667
ec908ed4b944 make command fm parents: 6860 diff changeset	8668	)
ec908ed4b944 make command fm parents: 6860 diff changeset	8669	extent: (Point 600 29)
ec908ed4b944 make command fm parents: 6860 diff changeset	8670	)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8671	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8672
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8673	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8674	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8675	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8676
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8677	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8678	)
6866 ec908ed4b944 make command fm parents: 6860 diff changeset	8679
6867 35d36dde8831 * empty log message * fm parents: 6866 diff changeset	8680	"Modified: / 09-08-2006 / 19:31:38 / fm"
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8681	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8682
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8683	!AbstractSettingsApplication::STCCompilerSettingsAppl methodsFor:'actions'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8684
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8685	basicReadSettings
7071 72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	8686	\|t\|
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	8687
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8688	self canLoadBinaries
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8689	value:(ObjectFileLoader notNil and:[ObjectFileLoader canLoadObjectFiles]).
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8690
6536 aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	8691	self stcIncludes value:ParserFlags stcCompilationIncludes.
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	8692	self stcDefines value:ParserFlags stcCompilationDefines.
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	8693	self stcOptions value:ParserFlags stcCompilationOptions.
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	8694	self ccOptions value:ParserFlags ccCompilationOptions.
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	8695	self cc value:ParserFlags ccPath.
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	8696	self stc value:ParserFlags stcPath.
6866 ec908ed4b944 make command fm parents: 6860 diff changeset	8697	self makeCommand value:ParserFlags makeCommand.
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8698
7071 72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	8699	self linkCommand value:ParserFlags linkCommand.
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	8700	self linkArgs value:ParserFlags linkArgs.
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	8701	self linkSharedArgs value:ParserFlags linkSharedArgs.
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	8702
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	8703	(t := ParserFlags searchedLibraries) notNil ifTrue:[
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	8704	self stcLibraries value:(String fromStringCollection:t separatedBy:' ')
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	8705	].
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	8706	(t := ParserFlags libPath) notNil ifTrue:[
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	8707	self stcLibraryPath value:t
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8708	].
5278 67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	8709
67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	8710	self stcCompilationSelection value:(self class stcCompilationOptions
6536 aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	8711	indexOf:(ParserFlags stcCompilation)
5278 67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	8712	ifAbsent:1).
6866 ec908ed4b944 make command fm parents: 6860 diff changeset	8713
ec908ed4b944 make command fm parents: 6860 diff changeset	8714	"Modified: / 09-08-2006 / 18:49:38 / fm"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8715	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8716
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8717	basicSaveSettings
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8718
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8719	ParserFlags stcCompilation:(self class stcCompilationOptions at:self stcCompilationSelection value).
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8720	ParserFlags stcCompilationIncludes:self stcIncludes value.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8721	ParserFlags stcCompilationDefines:self stcDefines value.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8722	ParserFlags stcCompilationOptions:self stcOptions value.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8723	ParserFlags ccCompilationOptions:self ccOptions value.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8724	ParserFlags ccPath:self cc value.
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	8725	ParserFlags makeCommand:self makeCommand value.
6866 ec908ed4b944 make command fm parents: 6860 diff changeset	8726
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8727	self stc value ~= ParserFlags stcPath ifTrue:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8728	ParserFlags stcPath:self stc value
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8729	].
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8730	ParserFlags linkCommand:self linkCommand value.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8731	ParserFlags linkArgs:self linkArgs value.
7071 72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	8732	ParserFlags linkSharedArgs:self linkSharedArgs value.
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	8733	self stcLibraries value notNil ifTrue:[
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	8734	ParserFlags searchedLibraries:(self stcLibraries value asCollectionOfWords).
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	8735	].
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	8736	stcLibraryPath notNil ifTrue:[
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	8737	ParserFlags libPath:(self stcLibraryPath value).
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8738	].
6866 ec908ed4b944 make command fm parents: 6860 diff changeset	8739
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	8740	"Modified: / 09-08-2006 / 19:33:10 / fm"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8741	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8742
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8743	helpFilename
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8744	^ 'Launcher/compilerSettings.html'
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8745	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8746
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8747	!AbstractSettingsApplication::STCCompilerSettingsAppl methodsFor:'aspects'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8748
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8749	canLoadBinaries
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8750
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8751	canLoadBinaries isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8752	canLoadBinaries := (ObjectFileLoader notNil and:[ObjectFileLoader canLoadObjectFiles]) asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8753	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8754	^ canLoadBinaries.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8755	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8756
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8757	cc
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8758
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8759	cc isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8760	cc := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	8761	cc onChangeSend:#updateModifiedChannel to:self.
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8762	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8763	^ cc.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8764	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8765
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8766	ccOptions
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8767
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8768	ccOptions isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8769	ccOptions := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	8770	ccOptions onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8771	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8772	^ ccOptions.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8773	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8774
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8775	enableStcLibraryPath
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8776
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8777	^ (ObjectFileLoader libPath notNil and:[self canLoadBinaries])
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8778	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8779
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8780	linkArgs
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8781
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8782	linkArgs isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8783	linkArgs := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	8784	linkArgs onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8785	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8786	^ linkArgs.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8787	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8788
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8789	linkCommand
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8790
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8791	linkCommand isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8792	linkCommand := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	8793	linkCommand onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8794	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8795	^ linkCommand.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8796	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8797
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8798	linkSharedArgs
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8799
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8800	linkSharedArgs isNil ifTrue:[
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8801	linkSharedArgs := ValueHolder new.
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8802	linkSharedArgs onChangeSend:#updateModifiedChannel to:self.
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8803	].
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8804	^ linkSharedArgs.
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8805	!
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8806
6866 ec908ed4b944 make command fm parents: 6860 diff changeset	8807	makeCommand
ec908ed4b944 make command fm parents: 6860 diff changeset	8808
ec908ed4b944 make command fm parents: 6860 diff changeset	8809	makeCommand isNil ifTrue:[
ec908ed4b944 make command fm parents: 6860 diff changeset	8810	makeCommand := ValueHolder new.
ec908ed4b944 make command fm parents: 6860 diff changeset	8811	makeCommand onChangeSend:#updateModifiedChannel to:self.
ec908ed4b944 make command fm parents: 6860 diff changeset	8812	].
ec908ed4b944 make command fm parents: 6860 diff changeset	8813	^ makeCommand.
ec908ed4b944 make command fm parents: 6860 diff changeset	8814
ec908ed4b944 make command fm parents: 6860 diff changeset	8815	"Created: / 09-08-2006 / 18:49:52 / fm"
ec908ed4b944 make command fm parents: 6860 diff changeset	8816	!
ec908ed4b944 make command fm parents: 6860 diff changeset	8817
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8818	stc
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8819
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8820	stc isNil ifTrue:[
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8821	stc := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	8822	stc onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8823	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8824	^ stc.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8825	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8826
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8827	stcCompilationList
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8828
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8829	stcCompilationList isNil ifTrue:[
5278 67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	8830	stcCompilationList := (resources array:(self class stcCompilationStrings)) asList.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8831	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8832	^ stcCompilationList.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8833	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8834
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8835	stcCompilationSelection
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8836
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8837	stcCompilationSelection isNil ifTrue:[
6536 aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	8838	stcCompilationSelection := (self class stcCompilationOptions indexOf:(ParserFlags stcCompilation) ifAbsent:1) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	8839	stcCompilationSelection onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8840	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8841	^ stcCompilationSelection.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8842	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8843
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8844	stcDefines
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8845
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8846	stcDefines isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8847	stcDefines := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	8848	stcDefines onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8849	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8850	^ stcDefines.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8851	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8852
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8853	stcIncludes
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8854
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8855	stcIncludes isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8856	stcIncludes := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	8857	stcIncludes onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8858	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8859	^ stcIncludes.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8860	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8861
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8862	stcLibraries
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8863
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8864	stcLibraries isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8865	stcLibraries := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	8866	stcLibraries onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8867	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8868	^ stcLibraries.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8869	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8870
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8871	stcLibraryPath
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8872
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8873	stcLibraryPath isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8874	stcLibraryPath := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	8875	stcLibraryPath onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8876	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8877	^ stcLibraryPath.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8878	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8879
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8880	stcOptions
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8881
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8882	stcOptions isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8883	stcOptions := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	8884	stcOptions onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8885	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8886	^ stcOptions.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8887	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8888
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8889	!AbstractSettingsApplication::STCCompilerSettingsAppl methodsFor:'queries'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8890
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8891	hasUnsavedChanges
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8892	\| searchedLibs \|
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8893
6536 aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	8894	((ParserFlags stcCompilation ? #default) ~= (self class stcCompilationOptions at:self stcCompilationSelection value)) ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8895	((ObjectFileLoader notNil and:[ObjectFileLoader canLoadObjectFiles]) ~= self canLoadBinaries value ) ifTrue:[^ true].
6536 aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	8896	((ParserFlags stcCompilationIncludes) ~= self stcIncludes value) ifTrue:[^ true].
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	8897	((ParserFlags stcCompilationDefines) ~= self stcDefines value) ifTrue:[^ true].
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	8898	((ParserFlags stcCompilationOptions) ~= self stcOptions value) ifTrue:[^ true].
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	8899	((ParserFlags ccCompilationOptions) ~= self ccOptions value) ifTrue:[^ true].
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	8900	((ParserFlags ccPath) ~= self cc value) ifTrue:[^ true].
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	8901	((ParserFlags stcPath) ~= self stc value) ifTrue:[^ true].
6866 ec908ed4b944 make command fm parents: 6860 diff changeset	8902	((ParserFlags makeCommand) ~= self makeCommand value) ifTrue:[^ true].
6536 aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	8903	((ParserFlags linkCommand) ~= self linkCommand value) ifTrue:[^ true].
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	8904	((ParserFlags linkArgs) ~= self linkArgs value) ifTrue:[^ true].
7071 72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	8905	((ParserFlags linkSharedArgs) ~= self linkSharedArgs value) ifTrue:[^ true].
6536 aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	8906	(ParserFlags libPath ~= self stcLibraryPath value) ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8907
7071 72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	8908	searchedLibs := ParserFlags searchedLibraries.
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	8909	searchedLibs notNil ifTrue:[
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	8910	(String fromStringCollection:searchedLibs separatedBy:' ') ~= self stcLibraries value ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8911	].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8912	^ false.
6866 ec908ed4b944 make command fm parents: 6860 diff changeset	8913
ec908ed4b944 make command fm parents: 6860 diff changeset	8914	"Modified: / 09-08-2006 / 18:50:36 / fm"
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8915	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8916
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8917	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl class methodsFor:'defaults'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8918
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8919	exampleText
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8920
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8921	^ 'methodSelector:methodArg
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8922	"method comment:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8923	some stupid code to show the current settings"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8924
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8925	\|index\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8926
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8927	"/ another comment ...
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8928	self at:index+1. "/ a message
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8929	self at:index put:methodArg. "/ a two arg message
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8930	self from:1 to:index put:methodArg. "/ a three arg message
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8931	methodArg ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8932	Transcript showCR:''hello''. "/ condition
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8933	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8934	methodArg ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8935	Transcript showCR:''hello''. "/ condition
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8936	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8937	Transcript showCR:''world''.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8938	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8939	[methodArg] whileTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8940	Transcript showCR:''hello''. "/ looping
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8941	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8942	[self aVeryLongConditionBlock and:[self toMakeBlockLonger]] whileTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8943	Transcript showCR:''hello''. "/ long blocks
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8944	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8945	methodArg do:[:element \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8946	Transcript showCR:''hello''. "/ looping
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8947	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8948	1 to:methodArg size do:[:index \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8949	Transcript showCR:''hello''. "/ looping
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8950	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8951	methodArg keysAndValuesDo:[:index \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8952	Transcript showCR:''hello''. "/ looping
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8953	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8954	Object errorSignal handle:[:ex \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8955	ex return
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8956	] do:[ "/ exception handling
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8957	self someAction "/ blocks
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8958	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8959	^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8960	'.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8961	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8962
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8963	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl class methodsFor:'image specs'!
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8964
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8965	defaultIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8966	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8967	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8968
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8969	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8970	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8971
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8972	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8973	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8974	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8975	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8976	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8977
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8978	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8979
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8980	^Icon
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	8981	constantNamed:#'AbstractSettingsApplication::SourceCodeFormatSettingsAppl class defaultIcon'
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	8982	ifAbsentPut:[(Depth4Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(4)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	8983	*****************************("H"H"H"H"J(@"EUUUUUUUU@@^*HUUUUUUUU@@]:(!!UUUUUUUT@A7"EY&YVYVX@]7^HUUUUUU@@]7\Z*(
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	8984	!!UUUUU@@]7\R"EUUUUT@A7]1JHU&Y%XC]7\Q&(!!UUU(3M7\Y&"EUUU#L3L2QJHUUV#L3L6UD(!!VYL3L6Z$R*"EUUP3M&ZEQJ*HUU
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	8985	RRY(UUUD*(!!UUJ)UUUUTR"E)J***QJHUUUUUUUUUDTQDQDQDQDQDR*************(b') ; colorMapFromArray:#[240 160 80 192 80 0 64 0 0 240 208 160 0 0 0 240 240 240 192 192 192 240 128 0 208 208 208 48 48 48 160 160 160]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@G??LG??<G??<G??<G??<G??<G??<G??<G??8G??0G??0G??0G??0G??0G??0G??0G??0G??0O??0@@@@') ; yourself); yourself]
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8986	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8987
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8988	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl class methodsFor:'interface specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8989
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8990	windowSpec
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8991	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8992	by the UIPainter of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8993
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8994	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8995	the UIPainter may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8996
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8997	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8998	UIPainter new openOnClass:AbstractSettingsApplication::SourceCodeFormatSettingsAppl andSelector:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8999	AbstractSettingsApplication::SourceCodeFormatSettingsAppl new openInterface:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9000	AbstractSettingsApplication::SourceCodeFormatSettingsAppl open
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9001	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9002
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9003	<resource: #canvas>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9004
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9005	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9006	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9007	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9008	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9009	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9010	label: 'Code Format Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9011	name: 'Code Format Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9012	min: (Point 10 10)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9013	bounds: (Rectangle 0 0 604 676)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9014	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9015	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9016	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9017	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9018	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9019	name: 'VerticalPanel3'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9020	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	9021	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9022	verticalLayout: topSpace
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9023	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9024	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9025	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9026	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9027	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9028	(VerticalPanelViewSpec
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9029	name: 'VerticalPanel1'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9030	horizontalLayout: fit
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9031	verticalLayout: bottom
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9032	horizontalSpace: 3
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9033	verticalSpace: 3
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9034	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9035	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9036	collection: (
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9037	(ViewSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9038	name: 'Box1'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9039	component:
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9040	(SpecCollection
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9041	collection: (
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9042	(CheckBoxSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9043	label: 'Space around Temporaries'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9044	name: 'CheckBox3'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9045	layout: (LayoutFrame 0 0 0 0 250 0 22 0)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9046	model: spaceAroundTemporaries
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9047	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9048	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9049	(CheckBoxSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9050	label: 'Blank line after local Var Declaration'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9051	name: 'CheckBox4'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9052	layout: (LayoutFrame 250 0 0 0 0 1 22 0)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9053	model: emptyLineAfterTemporaries
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9054	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9055	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9056	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9057
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9058	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9059	extent: (Point 604 22)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9060	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9061	(ViewSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9062	name: 'Box11'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9063	component:
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9064	(SpecCollection
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9065	collection: (
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9066	(CheckBoxSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9067	label: 'Space after ''^'''
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9068	name: 'CheckBox5'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9069	layout: (LayoutFrame 0 0 0 0 250 0 22 0)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9070	model: spaceAfterReturnToken
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9071	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9072	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9073	(CheckBoxSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9074	label: 'Space after '':'' in Keywords'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9075	name: 'CheckBox6'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9076	layout: (LayoutFrame 250 0 0 0 -5 1 22 0)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9077	model: spaceAfterKeywordSelector
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9078	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9079	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9080	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9081
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9082	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9083	extent: (Point 604 22)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9084	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9085	(ViewSpec
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9086	name: 'Box15'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9087	component:
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9088	(SpecCollection
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9089	collection: (
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9090	(CheckBoxSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9091	label: 'Space after ''['''
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9092	name: 'CheckBox9'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9093	layout: (LayoutFrame 0 0 0 0 250 0 22 0)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9094	model: spaceAfterBlockStart
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9095	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9096	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9097	(CheckBoxSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9098	label: 'Space before '']'''
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9099	name: 'CheckBox10'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9100	layout: (LayoutFrame 250 0 0 0 -5 1 22 0)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9101	model: spaceBeforeBlockEnd
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9102	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9103	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9104	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9105
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9106	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9107	extent: (Point 604 22)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9108	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9109	(ViewSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9110	name: 'Box12'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9111	component:
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9112	(SpecCollection
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9113	collection: (
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9114	(CheckBoxSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9115	label: 'Block Args on new Line'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9116	name: 'CheckBox7'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9117	layout: (LayoutFrame 250 0 0 0 -5 1 22 0)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9118	model: blockArgumentsOnNewLine
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9119	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9120	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9121	(CheckBoxSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9122	label: 'C-Style Blocks'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9123	name: 'CheckBox8'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9124	layout: (LayoutFrame 0 0 0 0 250 0 22 0)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9125	model: cStyleBlocks
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9126	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9127	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9128	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9129
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9130	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9131	extent: (Point 604 22)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9132	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9133	(ViewSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9134	name: 'Box13'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9135	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9136	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9137	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9138	(LabelSpec
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9139	label: 'Indent:'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9140	name: 'Label1'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9141	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	9142	translateLabel: true
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9143	adjust: right
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9144	)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9145	(InputFieldSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9146	name: 'EntryField1'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9147	layout: (LayoutFrame 253 0 0 0 300 0 22 0)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9148	model: tabIndent
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9149	type: number
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9150	acceptOnReturn: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9151	acceptOnTab: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9152	acceptOnLostFocus: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9153	acceptOnPointerLeave: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9154	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9155	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9156
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9157	)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9158	extent: (Point 604 30)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9159	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9160	(ViewSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9161	name: 'Box16'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9162	component:
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9163	(SpecCollection
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9164	collection: (
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9165	(LabelSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9166	label: 'Max Length for Single Line Blocks:'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9167	name: 'Label5'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9168	layout: (LayoutFrame 0 0 0 0 250 0 22 0)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9169	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9170	adjust: right
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9171	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9172	(InputFieldSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9173	name: 'EntryField4'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9174	layout: (LayoutFrame 253 0 0 0 300 0 22 0)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9175	model: maxLengthForSingleLineBlocks
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9176	type: number
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9177	acceptOnReturn: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9178	acceptOnTab: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9179	acceptOnLostFocus: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9180	acceptOnPointerLeave: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9181	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9182	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9183
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9184	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9185	extent: (Point 604 29)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9186	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9187	(HorizontalPanelViewSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9188	name: 'HorizontalPanel1'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9189	horizontalLayout: fitSpace
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9190	verticalLayout: bottom
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9191	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9192	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9193	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9194	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9195	collection: (
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9196	(ActionButtonSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9197	label: 'Reset to ST/X Default'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9198	name: 'Button1'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9199	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9200	model: resetToStxDefault
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9201	extent: (Point 297 22)
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9202	)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9203	(ActionButtonSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9204	label: 'Reset to RefactoryBrowser Default'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9205	name: 'Button2'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9206	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9207	model: resetToRBDefault
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9208	extent: (Point 298 22)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9209	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9210	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9211
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9212	)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9213	extent: (Point 604 30)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9214	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9215	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9216
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9217	)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9218	extent: (Point 604 180)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9219	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9220	(ViewSpec
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	9221	name: 'SpacingBox1'
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	9222	extent: (Point 604 10)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9223	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9224	(ViewSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9225	name: 'Box14'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9226	component:
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9227	(SpecCollection
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9228	collection: (
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9229	(LabelSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9230	label: 'Sample Output:'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9231	name: 'Label3'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9232	layout: (LayoutFrame 0 0 0 0 0 1 22 0)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9233	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9234	adjust: left
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9235	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9236	(TextEditorSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9237	name: 'TextEditor3'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9238	layout: (LayoutFrame 0 0 22 0 0 1 300 0)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9239	model: editorText
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9240	hasHorizontalScrollBar: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9241	hasVerticalScrollBar: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9242	isReadOnly: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9243	postBuildCallback: postBuildTextEditor:
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9244	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9245	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9246
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9247	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9248	extent: (Point 604 300)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9249	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9250	(ViewSpec
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	9251	name: 'SpacingBox2'
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	9252	extent: (Point 604 10)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9253	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9254	(CheckBoxSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9255	label: 'Auto Format'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9256	name: 'CheckBox2'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9257	model: autoFormat
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9258	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9259	extent: (Point 604 22)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9260	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9261	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9262
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9263	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9264	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9265	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9266
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9267	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9268	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9269	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9270
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9271	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'actions'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9272
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	9273	basicReadSettings
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	9274	reformatLocked := true.
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	9275
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	9276	self
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	9277	readAspects:
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	9278	#(
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	9279	tabIndent
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	9280	spaceAroundTemporaries
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	9281	emptyLineAfterTemporaries
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	9282	spaceAfterReturnToken
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	9283	spaceAfterKeywordSelector
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	9284	spaceAfterBlockStart
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	9285	spaceBeforeBlockEnd
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	9286	cStyleBlocks
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	9287	blockArgumentsOnNewLine
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	9288	maxLengthForSingleLineBlocks
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	9289	)
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	9290	from:RBFormatter.
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	9291
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	9292	self autoFormat value:currentUserPrefs autoFormatting.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	9293	self updateModifiedChannel.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	9294	reformatLocked := false.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	9295	self reformat.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	9296	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	9297
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9298	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9299
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9300	currentUserPrefs autoFormatting:self autoFormat value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9301	currentUserPrefs at:#'formatter.tabIndent' put:self tabIndent value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9302	currentUserPrefs at:#'formatter.spaceAroundTemporaries' put:self spaceAroundTemporaries value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9303	currentUserPrefs at:#'formatter.emptyLineAfterTemporaries' put:self emptyLineAfterTemporaries value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9304	currentUserPrefs at:#'formatter.spaceAfterReturnToken' put:self spaceAfterReturnToken value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9305	currentUserPrefs at:#'formatter.spaceAfterKeywordSelector' put:self spaceAfterKeywordSelector value.
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9306	currentUserPrefs at:#'formatter.spaceAfterBlockStart' put:self spaceAfterBlockStart value.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9307	currentUserPrefs at:#'formatter.spaceBeforeBlockEnd' put:self spaceBeforeBlockEnd value.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9308	currentUserPrefs at:#'formatter.cStyleBlocks' put:self cStyleBlocks value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9309	currentUserPrefs at:#'formatter.blockArgumentsOnNewLine' put:self blockArgumentsOnNewLine value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9310	currentUserPrefs at:#'formatter.maxLengthForSingleLineBlocks' put:self maxLengthForSingleLineBlocks value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9311	RBFormatter
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9312	tabIndent:self tabIndent value;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9313	spaceAroundTemporaries:self spaceAroundTemporaries value;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9314	emptyLineAfterTemporaries:self emptyLineAfterTemporaries value;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9315	spaceAfterReturnToken:self spaceAfterReturnToken value;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9316	spaceAfterKeywordSelector:self spaceAfterKeywordSelector value;
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9317	spaceAfterBlockStart:self spaceAfterBlockStart value;
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9318	spaceBeforeBlockEnd:self spaceBeforeBlockEnd value;
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9319	cStyleBlocks:self cStyleBlocks value;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9320	blockArgumentsOnNewLine:self blockArgumentsOnNewLine value;
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	9321	maxLengthForSingleLineBlocks:self maxLengthForSingleLineBlocks value asInteger.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9322	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9323
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	9324	helpFilename
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	9325	^ 'Launcher/sourceFormatSettings.html'
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9326	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9327
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9328	reformat
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9329
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9330	\|tree s_tabIndent s_spaceAroundTemporaries s_emptyLineAfterTemporaries
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9331	s_spaceAfterReturnToken s_spaceAfterKeywordSelector s_cStyleBlocks
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9332	s_maxLengthForSingleLineBlocks s_blockArgumentsOnNewLine
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9333	s_spaceAfterBlockStart s_spaceBeforeBlockEnd\|
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	reformatLocked ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9336	"/
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9337	"/ temporary change the RBFormatters settings ...
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9338	"/
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9339	s_tabIndent := RBFormatter tabIndent.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9340	s_spaceAroundTemporaries := RBFormatter spaceAroundTemporaries.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9341	s_emptyLineAfterTemporaries := RBFormatter emptyLineAfterTemporaries.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9342	s_spaceAfterReturnToken := RBFormatter spaceAfterReturnToken.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9343	s_spaceAfterKeywordSelector := RBFormatter spaceAfterKeywordSelector.
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9344	s_spaceAfterBlockStart := RBFormatter spaceAfterBlockStart.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9345	s_spaceBeforeBlockEnd := RBFormatter spaceBeforeBlockEnd.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9346	s_cStyleBlocks := RBFormatter cStyleBlocks.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9347	s_blockArgumentsOnNewLine := RBFormatter blockArgumentsOnNewLine.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9348	s_maxLengthForSingleLineBlocks := RBFormatter maxLengthForSingleLineBlocks.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9349
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9350	RBFormatter
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9351	tabIndent:self tabIndent value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9352	spaceAroundTemporaries:self spaceAroundTemporaries value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9353	emptyLineAfterTemporaries:self emptyLineAfterTemporaries value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9354	spaceAfterReturnToken:self spaceAfterReturnToken value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9355	spaceAfterKeywordSelector:self spaceAfterKeywordSelector value;
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9356	spaceAfterBlockStart:self spaceAfterBlockStart value;
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9357	spaceBeforeBlockEnd:self spaceBeforeBlockEnd value;
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9358	cStyleBlocks:self cStyleBlocks value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9359	blockArgumentsOnNewLine:self blockArgumentsOnNewLine value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9360	maxLengthForSingleLineBlocks:self maxLengthForSingleLineBlocks value.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9361
5076 c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	9362	"/ tree := RBParser
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	9363	"/ parseMethod:self class exampleText
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	9364	"/ onError: [:aString :position \| nil].
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	9365	"/ tree do:[:node \|
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	9366	"/ (node ~~ tree and:[node parent isNil]) ifTrue:[
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	9367	"/ self error:'No parent for node'.
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	9368	"/ ]
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	9369	"/ ].
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	9370	"/ self editorText value:tree printString.
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	9371	self editorText value:(RBFormatter format:(self class exampleText)).
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9372
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9373	RBFormatter
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9374	tabIndent:s_tabIndent;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9375	spaceAroundTemporaries:s_spaceAroundTemporaries;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9376	emptyLineAfterTemporaries:s_emptyLineAfterTemporaries;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9377	spaceAfterReturnToken:s_spaceAfterReturnToken;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9378	spaceAfterKeywordSelector:s_spaceAfterKeywordSelector;
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9379	spaceAfterBlockStart:s_spaceAfterBlockStart;
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9380	spaceBeforeBlockEnd:s_spaceBeforeBlockEnd;
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9381	cStyleBlocks:s_cStyleBlocks;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9382	blockArgumentsOnNewLine:s_blockArgumentsOnNewLine;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9383	maxLengthForSingleLineBlocks:s_maxLengthForSingleLineBlocks.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9384	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9385	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9386
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9387	resetToRBDefault
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9388
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9389	reformatLocked := true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9390	self tabIndent value: 8.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9391	self spaceAfterReturnToken value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9392	self spaceAfterKeywordSelector value:true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9393	self spaceAroundTemporaries value:true.
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9394	self spaceAfterBlockStart value:true.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9395	self spaceBeforeBlockEnd value:true.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9396	self emptyLineAfterTemporaries value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9397	self cStyleBlocks value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9398	self blockArgumentsOnNewLine value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9399	self maxLengthForSingleLineBlocks value: 20.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9400	reformatLocked := false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9401	self reformat.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9402	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9403
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9404	resetToStxDefault
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9405
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9406	reformatLocked := true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9407	self tabIndent value: 4.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9408	self spaceAfterReturnToken value: true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9409	self spaceAfterKeywordSelector value: false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9410	self spaceAroundTemporaries value: false.
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9411	self spaceAfterBlockStart value:false.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9412	self spaceBeforeBlockEnd value:false.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9413	self emptyLineAfterTemporaries value: true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9414	self cStyleBlocks value: true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9415	self blockArgumentsOnNewLine value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9416	self maxLengthForSingleLineBlocks value: 20.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9417	reformatLocked := false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9418	self reformat.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9419	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9420
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9421	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'aspects'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9422
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9423	autoFormat
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9424
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9425	autoFormat isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9426	autoFormat := currentUserPrefs autoFormatting asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	9427	autoFormat onChangeSend:#updateModifiedChannel to:self
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9428	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9429	^ autoFormat.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9430	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9431
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9432	blockArgumentsOnNewLine
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9433
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9434	blockArgumentsOnNewLine isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9435	blockArgumentsOnNewLine := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9436	blockArgumentsOnNewLine addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9437	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9438	^ blockArgumentsOnNewLine.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9439	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9440
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9441	cStyleBlocks
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9442
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9443	cStyleBlocks isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9444	cStyleBlocks := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9445	cStyleBlocks addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9446	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9447	^ cStyleBlocks.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9448	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9449
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9450	editorText
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9451
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9452	editorText isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9453	editorText := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9454	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9455	^ editorText.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9456	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9457
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9458	emptyLineAfterTemporaries
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9459
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9460	emptyLineAfterTemporaries isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9461	emptyLineAfterTemporaries := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9462	emptyLineAfterTemporaries addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9463	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9464	^ emptyLineAfterTemporaries.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9465	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9466
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9467	maxLengthForSingleLineBlocks
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9468
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9469	maxLengthForSingleLineBlocks isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9470	maxLengthForSingleLineBlocks := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9471	maxLengthForSingleLineBlocks addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9472	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9473	^ maxLengthForSingleLineBlocks.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9474	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9475
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9476	spaceAfterBlockStart
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9477
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9478	spaceAfterBlockStart isNil ifTrue:[
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9479	spaceAfterBlockStart := true asValue.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9480	spaceAfterBlockStart addDependent:self.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9481	].
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9482	^ spaceAfterBlockStart.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9483	!
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9484
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9485	spaceAfterKeywordSelector
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9486
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9487	spaceAfterKeywordSelector isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9488	spaceAfterKeywordSelector := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9489	spaceAfterKeywordSelector addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9490	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9491	^ spaceAfterKeywordSelector.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9492	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9493
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9494	spaceAfterReturnToken
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9495
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9496	spaceAfterReturnToken isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9497	spaceAfterReturnToken := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9498	spaceAfterReturnToken addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9499	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9500	^ spaceAfterReturnToken.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9501	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9502
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9503	spaceAroundTemporaries
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9504
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9505	spaceAroundTemporaries isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9506	spaceAroundTemporaries := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9507	spaceAroundTemporaries addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9508	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9509	^ spaceAroundTemporaries.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9510	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9511
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9512	spaceBeforeBlockEnd
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9513
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9514	spaceBeforeBlockEnd isNil ifTrue:[
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9515	spaceBeforeBlockEnd := true asValue.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9516	spaceBeforeBlockEnd addDependent:self.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9517	].
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9518	^ spaceBeforeBlockEnd.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9519	!
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9520
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9521	tabIndent
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9522
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9523	tabIndent isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9524	tabIndent := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9525	tabIndent addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9526	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9527	^ tabIndent.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9528	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9529
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9530	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'change & update'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9531
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	9532	update:something with:aParameter from:changedObject
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9533	(changedObject == self blockArgumentsOnNewLine or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9534	changedObject == self cStyleBlocks or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9535	changedObject == self emptyLineAfterTemporaries or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9536	changedObject == self maxLengthForSingleLineBlocks or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9537	changedObject == self spaceAfterKeywordSelector or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9538	changedObject == self spaceAfterReturnToken or:[
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9539	changedObject == self spaceAfterBlockStart or:[
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9540	changedObject == self spaceBeforeBlockEnd or:[
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9541	changedObject == self spaceAroundTemporaries or:[
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9542	changedObject == self tabIndent]]]]]]]]]) ifTrue:[
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	9543	self updateModifiedChannel.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9544	self reformat.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	9545	^ self
c72e35116b13 instable state penk parents: 5040 diff changeset	9546	].
c72e35116b13 instable state penk parents: 5040 diff changeset	9547	super
c72e35116b13 instable state penk parents: 5040 diff changeset	9548	update:something
c72e35116b13 instable state penk parents: 5040 diff changeset	9549	with:aParameter
c72e35116b13 instable state penk parents: 5040 diff changeset	9550	from:changedObject
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9551	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9552
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9553	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'initialization & release'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9554
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9555	initialize
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9556	super initialize.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9557	RBFormatter isNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9558	^ self warn:'Sorry, no RBFormatter class'
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9559	].
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9560	RBFormatter isLoaded ifFalse:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9561	WindowGroup activeGroup withWaitCursorDo:[RBFormatter autoload]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9562	].
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9563	reformatLocked := false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9564	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9565
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9566	postBuildTextEditor:aWidget
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9567
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9568	aWidget cursorMovementWhenUpdating:nil;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9569	scrollWhenUpdating:nil.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9570	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9571
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9572	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'queries'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9573
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9574	hasUnsavedChanges
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	9575	self autoFormat value ~= currentUserPrefs autoFormatting ? false ifTrue:[^ true].
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	9576
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	9577	(self
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	9578	hasChangedAspectIn:
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	9579	#(
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	9580	tabIndent
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	9581	spaceAroundTemporaries
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	9582	emptyLineAfterTemporaries
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	9583	spaceAfterReturnToken
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	9584	spaceAfterKeywordSelector
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	9585	spaceAfterBlockStart
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	9586	spaceBeforeBlockEnd
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	9587	cStyleBlocks
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	9588	blockArgumentsOnNewLine
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	9589	maxLengthForSingleLineBlocks
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	9590	)
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	9591	asComparedTo:RBFormatter) ifTrue:[^ true].
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	9592
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	9593	^ false
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9594	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9595
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9596	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9597
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9598	defaultIcon
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9599	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9600	by the ImageEditor of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9601
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9602	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9603	the ImageEditor may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9604
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9605	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9606	self defaultIcon inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9607	ImageEditor openOnClass:self andSelector:#defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9608	Icon flushCachedIcons
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9609	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9610
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9611	<resource: #image>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9612
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9613	^Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9614	constantNamed:#'AbstractSettingsApplication::SourceCodeManagementSettingsAppl class defaultIcon'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9615	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	9616	@@@@@@@@@@@A@PHB@0P@@@@@@@@@@@@@@@@@@@HEA \HA $JB0HD@@@@@@@@@@@@@@HLA04NC0HD@@L@@ P@@@@@@@@@@@@ED@ NDP@@@@@@@@@D@@@@@@@@
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	9617	@@@BA \FAPP@@@@@@@@@@@P@@@@@@@@@AQ@RC0@@@@@@@@@@@@@@@@@@@@@@@@TGA!!DD@@@@@@@@@@@@@@@@@@@D@PDIA08OA@@@@@@@@@@@@@@@@@@@AP S
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	9618	A0XIBPXGC0P@@@@@@@@@@@@@@@@ECAPLBPXOAP@@@@@@EQX@@@@@@@@@@@TIE@XOAP@@@@@@EQ\XE @@@@@@@@@@AP$OAP@@@@@@FQ\ZE!! V@@@@@@@@@@@E
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	9619	F0@@@@@@EQ\ZF!!(VFAX@@@@@@@@@@@@@@@@ZEQ\VE!!(ZF!!XWF @@@@@@@@@@@@@@@@@@@A\ZE!!(@@@@@@@@@@@@@@@@@@@@@@@@XE!!XZ@@@@@@@@@@@@@@@@
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	9620	@@@@@@@@EQ(V@@@@@@@@@@@@@@@@@@@@@@@@EQ\VE @@@@@@@@@@@@@@@@@@@@@@EQ VE @@@@@@@@@@@@@@F @@@@@WEQ VE!!(@@@@@@@@@@@@@@@@@E!!\W
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	9621	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	9622	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9623
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9624	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl class methodsFor:'interface specs'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9625
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9626	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9627	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9628	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9629
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9630	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9631	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9632
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9633	"
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9634	UIPainter new openOnClass:AbstractSettingsApplication::SourceCodeManagementSettingsAppl andSelector:#windowSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9635	AbstractSettingsApplication::SourceCodeManagementSettingsAppl new openInterface:#windowSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9636	AbstractSettingsApplication::SourceCodeManagementSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9637	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9638
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9639	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9640
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9641	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9642	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9643	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9644	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9645	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9646	label: 'Source Code Manager Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9647	name: 'Source Code Manager Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9648	min: (Point 10 10)
6103 d8147b126f9d * empty log message * penk parents: 6086 diff changeset	9649	bounds: (Rectangle 0 0 659 551)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9650	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9651	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9652	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9653	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9654	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9655	name: 'VerticalPanel2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9656	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	9657	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9658	verticalLayout: topSpace
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9659	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9660	verticalSpace: 20
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9661	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9662	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9663	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9664	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9665	name: 'VerticalPanel3'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9666	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9667	verticalLayout: top
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9668	horizontalSpace: 3
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9669	verticalSpace: 4
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9670	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9671	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9672	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9673	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9674	name: 'Box3'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9675	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9676	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9677	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9678	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9679	label: 'Sourcecode Management'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9680	name: 'SourcecodeManagementCheckBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9681	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	9682	model: useManager
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9683	translateLabel: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9684	)
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	9685	(ComboListSpec
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	9686	name: 'ComboList1'
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	9687	layout: (LayoutFrame -200 1 5 0 -5 1 27 0)
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	9688	visibilityChannel: moreThanOneManagerTypesAvailable
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	9689	enableChannel: useManager
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	9690	model: selectedManagerTypeIndexHolder
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	9691	comboList: availableManagerTypeNames
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	9692	useIndex: true
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	9693	)
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9694	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9695
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9696	)
6103 d8147b126f9d * empty log message * penk parents: 6086 diff changeset	9697	extent: (Point 659 30)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9698	)
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	9699	(ViewSpec
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	9700	name: 'ManagerSetupBoxx'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9701	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9702	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9703	collection: (
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	9704	(FramedBoxSpec
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9705	label: 'Store-DB Repository Setup'
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9706	name: 'StoreSetupBox'
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	9707	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9708	visibilityChannel: managerIsStoreSourceCodeManager
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9709	labelPosition: topLeft
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9710	translateLabel: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9711	component:
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9712	(SpecCollection
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9713	collection: (
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9714	(ViewSpec
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9715	name: 'HostBox'
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9716	layout: (LayoutFrame 0 0 0 0 0 1 25 0)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9717	component:
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9718	(SpecCollection
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9719	collection: (
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9720	(LabelSpec
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9721	label: 'DB or DB@Host:'
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9722	name: 'StoreHostLabel'
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9723	layout: (LayoutFrame 0 0.0 0 0 40 0.25 22 0)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9724	level: 0
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9725	translateLabel: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9726	adjust: right
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9727	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9728	(ComboBoxSpec
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9729	name: 'StoreHostComboBox'
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	9730	layout: (LayoutFrame 44 0.25 0 0 0 1 22 0)
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9731	enableChannel: useManager
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9732	tabable: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9733	model: storeHostnameHolder
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9734	immediateAccept: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9735	acceptOnLeave: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9736	acceptOnReturn: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9737	acceptOnTab: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9738	acceptOnLostFocus: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9739	acceptChannel: acceptChannel
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9740	acceptOnPointerLeave: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9741	comboList: storeHostPrototypeList
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9742	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9743	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9744
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9745	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9746	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9747	(ViewSpec
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9748	name: 'UserBox'
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9749	layout: (LayoutFrame 0 0.0 27 0 0 1 52 0)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9750	component:
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9751	(SpecCollection
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9752	collection: (
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9753	(LabelSpec
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9754	label: 'Username:'
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9755	name: 'StoreUserLabel'
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9756	layout: (LayoutFrame 0 0.0 0 0 40 0.25 22 0)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9757	level: 0
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9758	translateLabel: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9759	adjust: right
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9760	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9761	(InputFieldSpec
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9762	name: 'StoreUserEntryField'
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	9763	layout: (LayoutFrame 44 0.25 0 0 0 1 22 0)
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9764	enableChannel: useManager
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9765	tabable: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9766	model: storeUsernameHolder
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9767	acceptChannel: acceptChannel
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9768	acceptOnPointerLeave: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9769	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9770	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9771
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9772	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9773	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9774	(ViewSpec
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9775	name: 'PasswordBox'
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9776	layout: (LayoutFrame 0 0.0 54 0 0 1 79 0)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9777	component:
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9778	(SpecCollection
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9779	collection: (
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9780	(LabelSpec
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9781	label: 'Password:'
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9782	name: 'Label7'
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9783	layout: (LayoutFrame 0 0.0 0 0 40 0.25 22 0)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9784	level: 0
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9785	translateLabel: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9786	adjust: right
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9787	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9788	(InputFieldSpec
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9789	name: 'PasswordEntryField'
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9790	layout: (LayoutFrame 44 0.25 0 0 -130 1 22 0)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9791	enableChannel: useManager
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9792	tabable: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9793	model: storePasswordHolder
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9794	type: password
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9795	acceptChannel: acceptChannel
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9796	acceptOnPointerLeave: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9797	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9798	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9799
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9800	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9801	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9802	(HorizontalPanelViewSpec
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9803	name: 'HorizontalPanel4'
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	9804	layout: (LayoutFrame -130 1 51 0 0 1 82 0)
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9805	horizontalLayout: fitSpace
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9806	verticalLayout: center
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9807	horizontalSpace: 3
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9808	verticalSpace: 3
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9809	component:
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9810	(SpecCollection
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9811	collection: (
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9812	(ActionButtonSpec
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9813	label: 'Try to Connect'
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9814	name: 'Button1'
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9815	translateLabel: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9816	tabable: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9817	model: storeConnect
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9818	enableChannel: storeConnectEnabled
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	9819	extent: (Point 124 22)
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9820	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9821	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9822
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9823	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9824	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9825	(LabelSpec
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9826	label: 'DB per Module:'
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9827	name: 'Label4'
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9828	layout: (LayoutFrame 0 0.0 82 0 40 0.25 104 0)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9829	translateLabel: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9830	adjust: right
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9831	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9832	(SequenceViewSpec
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9833	name: 'List2'
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	9834	layout: (LayoutFrame 44 0.25 82 0 0 1 180 0)
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9835	enableChannel: useManager
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9836	tabable: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9837	model: selectedPerStoreModuleRoot
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9838	hasHorizontalScrollBar: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9839	hasVerticalScrollBar: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9840	miniScrollerHorizontal: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9841	useIndex: false
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9842	sequenceList: listOfModules
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9843	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9844	(LabelSpec
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9845	label: 'Module:'
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9846	name: 'perModuleModuleLabel'
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9847	layout: (LayoutFrame 0 0.0 186 0 40 0.25 203 0)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9848	translateLabel: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9849	adjust: right
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9850	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9851	(InputFieldSpec
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9852	name: 'perModuleModuleEntryField'
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	9853	layout: (LayoutFrame 44 0.25 182 0 0 1 204 0)
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9854	enableChannel: useManager
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9855	tabable: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9856	model: perStoreModuleRoot
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9857	acceptChannel: acceptChannel
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9858	acceptOnPointerLeave: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9859	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9860	(LabelSpec
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9861	label: 'DB:'
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9862	name: 'perModuleDBLabel'
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9863	layout: (LayoutFrame 0 0.0 211 0 40 0.25 228 0)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9864	translateLabel: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9865	adjust: right
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9866	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9867	(ComboBoxSpec
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9868	name: 'perModuleModuleHostComboBox2'
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	9869	layout: (LayoutFrame 44 0.25 207 0 0 1 229 0)
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9870	enableChannel: useManager
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9871	tabable: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9872	model: perStoreModuleHostnameHolder
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9873	immediateAccept: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9874	acceptOnLeave: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9875	acceptOnReturn: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9876	acceptOnTab: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9877	acceptOnLostFocus: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9878	acceptChannel: acceptChannel
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9879	acceptOnPointerLeave: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9880	comboList: storeHostPrototypeList
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9881	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9882	(LabelSpec
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9883	label: 'User / Password:'
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9884	name: 'perModuleUserPasswordLabel'
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9885	layout: (LayoutFrame 0 0.0 236 0 40 0.25 253 0)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9886	translateLabel: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9887	adjust: right
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9888	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9889	(InputFieldSpec
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9890	name: 'perModuleUserEntryField'
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9891	layout: (LayoutFrame 44 0.25 232 0 -2 0.65 254 0)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9892	enableChannel: useManager
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9893	tabable: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9894	model: perStoreModuleUsernameHolder
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9895	acceptChannel: acceptChannel
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9896	acceptOnPointerLeave: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9897	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9898	(InputFieldSpec
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9899	name: 'perModulePasswordEntryField'
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	9900	layout: (LayoutFrame 5 0.65 232 0 0 1 254 0)
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9901	enableChannel: useManager
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9902	tabable: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9903	model: perStoreModulePasswordHolder
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9904	type: password
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9905	acceptChannel: acceptChannel
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9906	acceptOnPointerLeave: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9907	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9908	(HorizontalPanelViewSpec
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9909	name: 'HorizontalPanel5'
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	9910	layout: (LayoutFrame 44 0.25 -25 1 -10 0.65 6 1)
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	9911	horizontalLayout: fit
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9912	verticalLayout: center
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9913	horizontalSpace: 3
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9914	verticalSpace: 3
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9915	component:
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9916	(SpecCollection
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9917	collection: (
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9918	(ActionButtonSpec
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9919	label: 'Add/Apply'
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9920	name: 'Button2'
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9921	translateLabel: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9922	tabable: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9923	model: addPerStoreModuleDB
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9924	enableChannel: useManager
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	9925	extent: (Point 97 22)
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9926	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9927	(ActionButtonSpec
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9928	label: 'Remove'
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9929	name: 'Button3'
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9930	translateLabel: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9931	tabable: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9932	model: removePerStoreModuleDB
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9933	enableChannel: removeEnabled
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	9934	extent: (Point 98 22)
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9935	)
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	9936	)
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	9937
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	9938	)
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	9939	)
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	9940	(HorizontalPanelViewSpec
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	9941	name: 'HorizontalPanel6'
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	9942	layout: (LayoutFrame 10 0.65 -25 1 0 1 6 1)
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	9943	horizontalLayout: fit
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	9944	verticalLayout: center
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	9945	horizontalSpace: 3
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	9946	verticalSpace: 3
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	9947	component:
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	9948	(SpecCollection
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	9949	collection: (
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9950	(ActionButtonSpec
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9951	label: 'Try to Connect'
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	9952	name: 'ConnectPerStoreModuleButton'
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9953	translateLabel: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9954	tabable: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9955	model: connectPerStoreModuleDB
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9956	enableChannel: storeConnectInModuleEnabled
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9957	extent: (Point 103 22)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9958	)
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	9959	(ActionButtonSpec
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	9960	label: 'Browse'
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	9961	name: 'BrowsePerStoreModuleButton'
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	9962	translateLabel: true
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	9963	tabable: true
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	9964	model: browsePerStoreModuleDB
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	9965	enableChannel: storeConnectInModuleEnabled
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	9966	extent: (Point 104 22)
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	9967	)
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9968	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9969
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9970	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9971	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9972	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9973
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9974	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9975	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9976	(FramedBoxSpec
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	9977	label: 'CVS Sourcecode Manager Setup'
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	9978	name: 'CVSSetupBox'
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	9979	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	9980	visibilityChannel: managerIsCVSSourceCodeManager
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	9981	labelPosition: topLeft
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	9982	translateLabel: true
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9983	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9984	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9985	collection: (
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	9986	(ViewSpec
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	9987	name: 'Box1'
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	9988	layout: (LayoutFrame 0 0 0 0 0 1 25 0)
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	9989	component:
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	9990	(SpecCollection
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	9991	collection: (
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	9992	(LabelSpec
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	9993	label: 'CVS BinDirectory:'
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	9994	name: 'Label1'
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9995	layout: (LayoutFrame 0 0.0 0 0 60 0.25 22 0)
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	9996	level: 0
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	9997	translateLabel: true
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	9998	adjust: right
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	9999	)
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10000	(InputFieldSpec
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10001	name: 'BinDirectoryField'
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10002	layout: (LayoutFrame 64 0.25 0 0 0 1 22 0)
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10003	enableChannel: useManager
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10004	tabable: true
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10005	model: cvsBinDirectoryHolder
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10006	acceptChannel: acceptChannel
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10007	acceptOnPointerLeave: true
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10008	)
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10009	)
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10010
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10011	)
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10012	)
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10013	(ViewSpec
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10014	name: 'Box7'
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10015	layout: (LayoutFrame 0 0.0 27 0 0 1 52 0)
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10016	component:
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10017	(SpecCollection
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10018	collection: (
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10019	(LabelSpec
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10020	label: 'CVSRoot default:'
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10021	name: 'defaultCvsRootLabel'
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10022	layout: (LayoutFrame 0 0.0 0 0 60 0.25 22 0)
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10023	level: 0
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10024	translateLabel: true
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10025	adjust: right
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10026	)
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10027	(ComboBoxSpec
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10028	name: 'cvsRootComboBox'
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10029	layout: (LayoutFrame 64 0.25 0 0 0 1 22 0)
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10030	enableChannel: useManager
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10031	tabable: true
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10032	model: cvsRootHolder
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10033	immediateAccept: true
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10034	acceptOnLeave: true
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10035	acceptOnReturn: true
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10036	acceptOnTab: true
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10037	acceptOnLostFocus: true
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10038	acceptChannel: acceptChannel
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10039	acceptOnPointerLeave: true
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10040	comboList: cvsRootPrototypeList
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10041	)
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10042	)
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10043
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10044	)
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10045	)
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10046	(HorizontalPanelViewSpec
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10047	name: 'HorizontalPanel3'
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10048	layout: (LayoutFrame 44 0.25 51 0 -1 1 82 0)
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10049	horizontalLayout: fitSpace
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10050	verticalLayout: center
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10051	horizontalSpace: 3
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10052	verticalSpace: 3
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10053	component:
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10054	(SpecCollection
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10055	collection: (
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10056	(ViewSpec
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10057	name: 'Box8'
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10058	extent: (Point 103 10)
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10059	)
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10060	(ViewSpec
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10061	name: 'Box9'
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10062	extent: (Point 103 10)
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10063	)
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10064	(ViewSpec
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10065	name: 'Box10'
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10066	extent: (Point 103 10)
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10067	)
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10068	(ActionButtonSpec
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10069	label: 'CVS-Login'
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10070	name: 'loginButton1'
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10071	translateLabel: true
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10072	tabable: true
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10073	model: loginCVSRoot
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10074	enableChannel: cvsLoginEnabled
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10075	extent: (Point 103 22)
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10076	)
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10077	)
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10078
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10079	)
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10080	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10081	(LabelSpec
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10082	label: 'CVSRoot per Module:'
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10083	name: 'knownModulesLabel'
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10084	layout: (LayoutFrame 0 0.0 82 0 60 0.25 104 0)
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10085	translateLabel: true
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10086	adjust: right
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10087	)
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10088	(SequenceViewSpec
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10089	name: 'List1'
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10090	layout: (LayoutFrame 64 0.25 82 0 0 1 201 0)
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10091	enableChannel: useManager
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10092	tabable: true
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10093	model: selectedPerModuleRoot
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10094	hasHorizontalScrollBar: true
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10095	hasVerticalScrollBar: true
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10096	miniScrollerHorizontal: true
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10097	useIndex: false
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10098	sequenceList: listOfModules
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10099	)
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10100	(LabelSpec
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10101	label: 'Module:'
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10102	name: 'moduleLabel'
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10103	layout: (LayoutFrame 0 0.0 211 0 60 0.25 228 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10104	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10105	adjust: right
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10106	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10107	(InputFieldSpec
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10108	name: 'perModuleRootModuleEntryField'
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10109	layout: (LayoutFrame 64 0.25 207 0 0 1 229 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10110	enableChannel: useManager
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10111	tabable: true
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10112	model: perModuleRootModule
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10113	acceptChannel: acceptChannel
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10114	acceptOnPointerLeave: true
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10115	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10116	(LabelSpec
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10117	label: 'CVSRoot:'
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10118	name: 'cvsRootLabel'
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10119	layout: (LayoutFrame 0 0.0 236 0 60 0.25 253 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10120	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10121	adjust: right
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10122	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10123	(ComboBoxSpec
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10124	name: 'perModuleRootComboBox'
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10125	layout: (LayoutFrame 64 0.25 232 0 0 1.0 254 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10126	enableChannel: useManager
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10127	tabable: true
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10128	model: perModuleRoot
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10129	immediateAccept: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10130	acceptOnLeave: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10131	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10132	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10133	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10134	acceptChannel: acceptChannel
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10135	acceptOnPointerLeave: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10136	comboList: cvsRootPrototypeList
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10137	)
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10138	(HorizontalPanelViewSpec
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10139	name: 'HorizontalPanel2'
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10140	layout: (LayoutFrame 64 0.25 -25 1 -1 1 0 1)
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10141	horizontalLayout: fitSpace
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10142	verticalLayout: center
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10143	horizontalSpace: 3
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10144	verticalSpace: 3
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10145	component:
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10146	(SpecCollection
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10147	collection: (
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10148	(ActionButtonSpec
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10149	label: 'Add/Apply'
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10150	name: 'addButton'
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10151	translateLabel: true
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10152	tabable: true
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10153	model: addPerModuleRoot
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10154	enableChannel: useManager
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10155	extent: (Point 98 22)
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10156	)
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10157	(ActionButtonSpec
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10158	label: 'Remove'
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10159	name: 'removeButton'
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10160	translateLabel: true
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10161	tabable: true
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10162	model: removePerModuleRoot
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10163	enableChannel: removeEnabled
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10164	extent: (Point 98 22)
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10165	)
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10166	(ViewSpec
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10167	name: 'Box11'
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10168	extent: (Point 98 10)
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10169	)
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10170	(ActionButtonSpec
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10171	label: 'CVS-Login'
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10172	name: 'loginButton2'
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10173	translateLabel: true
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10174	tabable: true
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10175	model: loginPerModuleRoot
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10176	enableChannel: cvsLoginInModuleEnabled
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10177	extent: (Point 98 22)
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10178	)
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10179	)
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10180
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10181	)
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10182	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10183	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10184
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10185	)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10186	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10187	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10188
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10189	)
6103 d8147b126f9d * empty log message * penk parents: 6086 diff changeset	10190	extent: (Point 659 327)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10191	)
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10192	(FramedBoxSpec
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10193	label: 'Source Cache'
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10194	name: 'FramedBox1'
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10195	labelPosition: topLeft
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10196	translateLabel: true
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10197	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10198	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10199	collection: (
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10200	(ViewSpec
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10201	name: 'SourceCacheDirBox'
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10202	layout: (LayoutFrame 0 0 0 0 0 1 30 0)
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10203	component:
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10204	(SpecCollection
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10205	collection: (
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10206	(LabelSpec
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10207	label: 'Source Cache Dir:'
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10208	name: 'SourceCacheDirLabel'
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10209	layout: (LayoutFrame 0 0.0 0 0 60 0.25 22 0)
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10210	translateLabel: true
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10211	adjust: right
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10212	)
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10213	(InputFieldSpec
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10214	name: 'SourceCacheDirEntryField'
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10215	layout: (LayoutFrame 64 0.25 0 0 0 1 22 0)
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10216	enableChannel: useManager
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10217	model: sourceCacheDir
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10218	immediateAccept: false
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10219	acceptOnReturn: true
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10220	acceptOnTab: true
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10221	acceptOnLostFocus: true
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10222	acceptOnPointerLeave: true
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10223	)
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10224	)
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10225
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10226	)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10227	)
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10228	(HorizontalPanelViewSpec
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10229	name: 'CacheActionsHorizontalPanel'
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10230	layout: (LayoutFrame 44 0.25 34 0 0 1 72 0)
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10231	horizontalLayout: fitSpace
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10232	verticalLayout: center
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10233	horizontalSpace: 3
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10234	verticalSpace: 3
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10235	component:
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10236	(SpecCollection
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10237	collection: (
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10238	(ActionButtonSpec
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10239	label: 'Flush Cache now'
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10240	name: 'FlushCacheNowButton'
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10241	translateLabel: true
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10242	model: flushSourceCache
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10243	enableChannel: useManager
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10244	extent: (Point 209 22)
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10245	)
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10246	(ActionButtonSpec
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10247	label: 'Condense Cache now'
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10248	name: 'CondenseCacheNowButton'
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10249	translateLabel: true
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10250	model: condenseSourceCache
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10251	enableChannel: useManager
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10252	extent: (Point 210 22)
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10253	)
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10254	)
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10255
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10256	)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10257	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10258	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10259
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10260	)
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10261	extent: (Point 659 95)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10262	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10263	(ViewSpec
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10264	name: 'UseLocalSourceBox'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10265	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10266	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10267	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10268	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10269	label: 'If Present, Use Local Source (Suppress Checkout)'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10270	name: 'CheckBox4'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10271	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	10272	enableChannel: useManager
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10273	model: localSourceFirst
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10274	translateLabel: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10275	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10276	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10277
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10278	)
6103 d8147b126f9d * empty log message * penk parents: 6086 diff changeset	10279	extent: (Point 659 25)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10280	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10281	(ViewSpec
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10282	name: 'CheckForHaltSendsBox'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10283	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10284	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10285	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10286	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10287	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	10288	name: 'CheckBox5'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10289	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	10290	enableChannel: useManager
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10291	model: checkClassesWhenCheckingIn
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10292	translateLabel: true
4398 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	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10295
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10296	)
6103 d8147b126f9d * empty log message * penk parents: 6086 diff changeset	10297	extent: (Point 659 25)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10298	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10299	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10300
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10301	)
6103 d8147b126f9d * empty log message * penk parents: 6086 diff changeset	10302	extent: (Point 659 768)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10303	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10304	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10305
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10306	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10307	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10308	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10309
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10310	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10311	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10312	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10313
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10314	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'accessing'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10315
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10316	manager
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10317
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10318	^ Smalltalk at:#SourceCodeManager
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10319	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10320
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10321	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'actions'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10322
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10323	basicReadSettings
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10324	self initialize.
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10325
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10326	self hasManager ifTrue:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10327	self useManager value:(manager := Smalltalk at:#SourceCodeManager) notNil.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10328	self localSourceFirst value:Class tryLocalSourceFirst.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10329	self sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName).
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10330
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10331	manager notNil ifTrue:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10332	manager forgetDisabledModules.
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10333	manager isCVS ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10334	repository := manager repositoryName.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10335	repositoryHolder := (repository ? '') asValue
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10336	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10337	manager isStore ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10338	self storeHostnameHolder value: (manager hostAndDBName).
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10339	self storeUsernameHolder value: (manager userName).
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10340	self storePasswordHolder value: (manager password).
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10341	].
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10342	].
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10343	] ifFalse:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10344	self useManager value:false.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10345	self localSourceFirst value:false.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10346	].
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10347
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10348	self availableManagers do:[:eachManager \|
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10349	\|infoPerModule\|
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10350
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10351	infoPerModule := eachManager repositoryInfoPerModule.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10352	infoPerModule keysAndValuesDo:[:module :info \|
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10353	rootsPerModule at:module put:(Array with:eachManager with:info).
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10354	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10355	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10356
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10357	self checkClassesWhenCheckingIn value:(currentUserPrefs at:#checkClassesWhenCheckingIn ifAbsent:true).
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10358	self cvsRootHolder value:CVSSourceCodeManager repositoryName ? '/cvs/stx'.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10359	self cvsBinDirectoryHolder value:CVSSourceCodeManager cvsBinDirectory.
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10360
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10361	rootsPerModule notNil ifTrue:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10362	self listOfModules removeAll.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10363	listOfModules addAll:rootsPerModule keys asList.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10364	].
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10365	"/ self selectedPerModuleRootChanged.
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10366
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10367	"Modified: / 16-08-2006 / 11:08:01 / cg"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10368	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10369
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10370	basicSaveSettings
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10371	\|modules\|
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10372
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10373	currentUserPrefs at:#checkClassesWhenCheckingIn put:self checkClassesWhenCheckingIn value.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10374	Class tryLocalSourceFirst:self localSourceFirst value.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10375
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10376	(self hasManager and:[self useManager value]) ifTrue:[
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10377	manager ~~ self selectedManager ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10378	manager := nil.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10379	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10380
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10381	manager isNil ifTrue:[
6997 3b32b9cdef10 care for single avail. manager Claus Gittinger <cg@exept.de> parents: 6994 diff changeset	10382	manager := self selectedManager.
3b32b9cdef10 care for single avail. manager Claus Gittinger <cg@exept.de> parents: 6994 diff changeset	10383	manager isNil ifTrue:[
3b32b9cdef10 care for single avail. manager Claus Gittinger <cg@exept.de> parents: 6994 diff changeset	10384	manager := self availableManagers first.
3b32b9cdef10 care for single avail. manager Claus Gittinger <cg@exept.de> parents: 6994 diff changeset	10385	].
3b32b9cdef10 care for single avail. manager Claus Gittinger <cg@exept.de> parents: 6994 diff changeset	10386	Smalltalk at:#SourceCodeManager put:manager.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10387	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10388	manager notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10389	\| nm fn\|
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10390
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10391	nm := self sourceCacheDir value.
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10392	nm notEmptyOrNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10393	(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	10394	(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	10395	fn makeDirectory;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10396	makeReadableForAll;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10397	makeWritableForAll;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10398	makeExecutableForAll.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10399	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10400	].
5318 02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	10401	(fn isDirectory
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10402	and:[fn isReadable
5318 02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	10403	and:[fn isWritable]]) ifTrue:[
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10404	AbstractSourceCodeManager cacheDirectoryName:nm.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10405	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10406	self warn:'Invalid sourceCache directory.'
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10407	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10408	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10409	].
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10410
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10411	self availableManagers do:[:eachManager \|
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10412	\|infoPerModule\|
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10413	modules := rootsPerModule select:[:entry \| entry first == eachManager].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10414	infoPerModule := Dictionary new.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10415	modules keysAndValuesDo:[:module :entry \|
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10416	entry first == eachManager ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10417	infoPerModule at:module put:(entry second).
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10418	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10419	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10420	eachManager repositoryInfoPerModule:infoPerModule.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10421	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10422
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10423	manager isCVS ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10424	self basicSaveCVSSettings.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10425	] ifFalse:[ manager isStore ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10426	self basicSaveStoreSettings.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10427	] ifFalse:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10428	self error.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10429	]].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10430
4650 c358bcfef403 source code management have no unsaved changes after enable anymore penk parents: 4635 diff changeset	10431	self sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName).
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10432
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10433	DebugView newDebugger. "/ ???
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10434	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10435	Smalltalk at:#SourceCodeManager put:nil
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10436	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10437
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10438	self acceptChannel value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10439	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10440
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10441	condenseSourceCache
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10442
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10443	self withWaitCursorDo:[ AbstractSourceCodeManager condenseSourceCache ]
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10444	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10445
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10446	flushSourceCache
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10447
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10448	self withWaitCursorDo:[ AbstractSourceCodeManager flushSourceCache ]
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10449	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10450
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	10451	helpFilename
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	10452	^ 'Launcher/cvsSetup.html'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10453	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10454
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10455	removePerModuleRoot
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10456
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10457	\|module\|
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10458
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10459	acceptChannel value:true.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10460	module := self perModuleRootModule value.
5174 bfd29db1a419 source code management per module get apply for changes Michael Beyl <mb@exept.de> parents: 5172 diff changeset	10461	self listOfModules remove:module ifAbsent:nil.
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10462	rootsPerModule removeKey:module ifAbsent:nil.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10463	self perModuleRootModule value:nil.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10464	self perModuleRoot value:nil.
5174 bfd29db1a419 source code management per module get apply for changes Michael Beyl <mb@exept.de> parents: 5172 diff changeset	10465	self updateModifiedChannel.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10466	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10467
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10468	setupSourceCodeManager
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10469
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10470	AbstractLauncherApplication::LauncherDialogs cvsConfigurationDialog.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10471	manager := (Smalltalk at:#SourceCodeManager).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10472	manager notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10473	repositoryHolder value: manager repositoryName.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10474	sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10475	].
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10476
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10477	"Modified: / 16-08-2006 / 11:07:51 / cg"
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10478	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10479
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10480	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'actions - cvs'!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10481
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10482	addPerModuleRoot
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10483	\|module cvsRoot\|
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10484
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10485	acceptChannel value:true.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10486	module := self perModuleRootModule value.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10487	cvsRoot := self perModuleRoot value.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10488	(self listOfModules includes:module) ifFalse:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10489	self listOfModules add:module; sort.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10490	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10491	cvsRoot size > 0 ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10492	rootsPerModule at:module put:(Array with:CVSSourceCodeManager with:cvsRoot).
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10493	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10494	self updateModifiedChannel.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10495	!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10496
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10497	basicSaveCVSSettings
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10498	\|cvsRoot\|
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10499
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10500	repositoryHolder notNil ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10501	repositoryHolder value size > 0 ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10502	manager notNil ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10503	manager initializeForRepository:repositoryHolder value.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10504	]
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10505	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10506	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10507	CVSSourceCodeManager cvsBinDirectory:(self cvsBinDirectoryHolder value withoutSeparators).
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10508	CVSSourceCodeManager initializeForRepository:(cvsRoot := self cvsRootHolder value).
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10509
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10510	CVSSourceCodeManager cvsBinDirectory ~= self cvsBinDirectoryHolder value withoutSeparators ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10511	self warn:'CVS does not seem to like your Bin-Directory setting...'.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10512	"/ self cvsBinDirectoryHolder value:CVSSourceCodeManager cvsBinDirectory.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10513	AbortSignal raise "/ avoid clearing modfified
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10514	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10515
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10516	RecentlyUsedCVSRoots isNil ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10517	RecentlyUsedCVSRoots := OrderedCollection new.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10518	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10519	(RecentlyUsedCVSRoots includes:cvsRoot) ifFalse:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10520	RecentlyUsedCVSRoots addFirst:cvsRoot.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10521	RecentlyUsedCVSRoots size > 20 ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10522	RecentlyUsedCVSRoots removeLast.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10523	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10524	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10525	!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10526
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10527	cvsLogin:cvsRoot
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10528	\|cmd term\|
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10529
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10530	cmd := 'cvs -d ' , cvsRoot , ' login ; exit'.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10531	term := VT100TerminalView open.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10532	term topView label:'CVS Login for ' , cvsRoot.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10533	term topView waitUntilVisible.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10534	term shellTerminateAction:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10535	"/ term topView destroy
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10536	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10537
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10538	term showCR:(('Please enter the CVS-password then close this terminal window.') asText allBold colorizeAllWith:Color red).
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10539	term showCR:''.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10540	term endEntry.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10541	Delay waitForSeconds:1.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10542	term sendLine:cmd.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10543
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10544	"
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10545	self basicNew cvsLogin:':pserver:stx@exept.eu.org:/stx'
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10546	"
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10547	!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10548
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10549	loginCVSRoot
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10550	self cvsLogin:cvsRootHolder value.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10551	!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10552
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10553	loginPerModuleRoot
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10554	self cvsLogin:perModuleRoot value.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10555	! !
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10556
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10557	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'actions - store'!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10558
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10559	addPerStoreModuleDB
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10560
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10561	\|module info\|
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10562
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10563	acceptChannel value:true.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10564
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10565	module := self perStoreModuleRoot value.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10566	info := StoreSourceCodeManager newDBInfo.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10567	info hostAndDBName:perStoreModuleHostnameHolder value.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10568	info userName:perStoreModuleUsernameHolder value.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10569	info password:perStoreModulePasswordHolder value.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10570
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10571	(self listOfModules includes:module) ifFalse:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10572	self listOfModules add:module; sort.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10573	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10574	rootsPerModule at:module put:(Array with:StoreSourceCodeManager with:info).
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10575
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10576	self updateModifiedChannel.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10577	!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10578
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10579	basicSaveStoreSettings
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10580	\|storeHost\|
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10581
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10582	StoreSourceCodeManager hostAndDBName:(storeHost := self storeHostnameHolder value withoutSeparators).
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10583	StoreSourceCodeManager userName:(self storeUsernameHolder value withoutSeparators).
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10584	StoreSourceCodeManager password:(self storePasswordHolder value withoutSeparators).
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10585
6999 d298f055491a * empty log message * Claus Gittinger <cg@exept.de> parents: 6997 diff changeset	10586	storeHost notEmptyOrNil ifTrue:[
d298f055491a * empty log message * Claus Gittinger <cg@exept.de> parents: 6997 diff changeset	10587	StoreSourceCodeManager connectToDatabase.
d298f055491a * empty log message * Claus Gittinger <cg@exept.de> parents: 6997 diff changeset	10588	].
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10589
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10590	RecentlyUsedStoreHosts isNil ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10591	RecentlyUsedStoreHosts := OrderedCollection new.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10592	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10593	(RecentlyUsedStoreHosts includes:storeHost) ifFalse:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10594	RecentlyUsedStoreHosts addFirst:storeHost.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10595	RecentlyUsedStoreHosts size > 20 ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10596	RecentlyUsedStoreHosts removeLast.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10597	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10598	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10599	!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10600
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10601	browsePerStoreModuleDB
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10602	\|testInfo\|
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10603
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10604	testInfo := StoreSourceCodeManager newDBInfo.
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10605	testInfo hostAndDBName:(perStoreModuleHostnameHolder value).
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10606	testInfo userName:(perStoreModuleUsernameHolder value).
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10607	testInfo password:(perStoreModulePasswordHolder value).
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10608	self browseStoreDB:testInfo
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10609	!
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10610
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10611	browseStoreDB:dbInfo
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10612	Tools::StoreProjectBrowser openOn:dbInfo
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10613	!
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10614
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10615	connectPerStoreModuleDB
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10616	\|testInfo\|
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10617
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10618	testInfo := StoreSourceCodeManager newDBInfo.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10619	testInfo hostAndDBName:(perStoreModuleHostnameHolder value).
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10620	testInfo userName:(perStoreModuleUsernameHolder value).
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10621	testInfo password:(perStoreModulePasswordHolder value).
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10622
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10623	(self tryToConnectTo:testInfo)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10624	!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10625
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10626	storeConnect
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10627	\|testInfo\|
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10628
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10629	testInfo := StoreSourceCodeManager newDBInfo.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10630	testInfo hostAndDBName:(storeHostnameHolder value).
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10631	testInfo userName:(storeUsernameHolder value).
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10632	testInfo password:(storePasswordHolder value).
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10633
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10634	(self tryToConnectTo:testInfo) ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10635	LastStoreHost := storeHostnameHolder value.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10636	LastStoreUser := storeUsernameHolder value.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10637	LastStorePassword := storePasswordHolder value.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10638	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10639	!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10640
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10641	tryToConnectTo:dbInfo
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10642	\|session\|
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10643
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10644	SQL::SQLError handle:[:ex \|
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10645	self warn:('Failed to connect to Database:\\' withCRs,ex description).
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10646	^ false.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10647	] do:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10648	self withWaitCursorDo:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10649	session := StoreSourceCodeManager tryToConnectToDatabase:dbInfo.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10650	]
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10651	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10652	session isNil ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10653	self warn:'OOPS - Failed to connect'.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10654	^ false.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10655	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10656
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10657	self information:('Successfully connected to ',dbInfo dbName,'.').
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10658	session disconnect.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10659	^ true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10660	! !
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10661
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10662	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'aspects'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10663
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10664	acceptChannel
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10665
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10666	acceptChannel isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10667	acceptChannel := TriggerValue new.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10668	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10669	^ acceptChannel.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10670	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10671
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10672	availableManagerTypeNames
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10673	^ self availableManagers collect:[:cls \| cls managerTypeName].
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10674
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10675	"Created: / 16-08-2006 / 11:16:25 / cg"
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10676	!
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10677
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10678	availableManagers
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10679	availableManagers isNil ifTrue:[
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10680	availableManagers := AbstractSourceCodeManager availableManagers.
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10681	].
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10682	^ availableManagers.
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10683
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10684	"
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10685	self basicNew availableManagers
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10686	"
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10687
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10688	"Created: / 16-08-2006 / 11:01:10 / cg"
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10689	!
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10690
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10691	checkClassesWhenCheckingIn
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10692
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10693	checkClassesWhenCheckingIn isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10694	checkClassesWhenCheckingIn := (currentUserPrefs at:#checkClassesWhenCheckingIn ifAbsent:true) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10695	checkClassesWhenCheckingIn onChangeSend:#updateModifiedChannel to:self
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10696	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10697	^ checkClassesWhenCheckingIn.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10698	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10699
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10700	cvsBinDirectoryHolder
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10701	cvsBinDirectoryHolder isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10702	cvsBinDirectoryHolder := ValueHolder new.
5286 ab068226973e has unsaved changes penk parents: 5283 diff changeset	10703	cvsBinDirectoryHolder onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10704	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10705	^ cvsBinDirectoryHolder.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10706	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10707
5343 eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	10708	cvsLoginEnabled
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	10709	cvsLoginEnabled isNil ifTrue:[
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	10710	cvsLoginEnabled := false asValue.
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	10711	].
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	10712	^ cvsLoginEnabled.
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	10713	!
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	10714
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	10715	cvsLoginInModuleEnabled
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	10716	cvsLoginInModuleEnabled isNil ifTrue:[
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	10717	cvsLoginInModuleEnabled := false asValue.
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	10718	].
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	10719	^ cvsLoginInModuleEnabled.
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	10720	!
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	10721
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10722	cvsRootHolder
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10723
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10724	cvsRootHolder isNil ifTrue:[
5318 02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	10725	cvsRootHolder := self cvsRootFromCVSRootFileOrNil asValue.
5343 eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	10726	cvsRootHolder addDependent:self.
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10727	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10728	^ cvsRootHolder.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10729	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10730
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10731	cvsRootPrototypeList
6743 fed3ac14df0f New loaction of public cvs pserver Stefan Vogel <sv@exept.de> parents: 6742 diff changeset	10732	\|cvsRoot prototypeList\|
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10733
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10734	cvsRootPrototypeList isNil ifTrue:[
6743 fed3ac14df0f New loaction of public cvs pserver Stefan Vogel <sv@exept.de> parents: 6742 diff changeset	10735	prototypeList := OrderedSet new.
5343 eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	10736
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	10737	cvsRoot := self cvsRootFromCVSRootFileOrNil.
6743 fed3ac14df0f New loaction of public cvs pserver Stefan Vogel <sv@exept.de> parents: 6742 diff changeset	10738	cvsRoot notNil ifTrue:[
fed3ac14df0f New loaction of public cvs pserver Stefan Vogel <sv@exept.de> parents: 6742 diff changeset	10739	prototypeList add:cvsRoot
5343 eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	10740	].
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	10741
6743 fed3ac14df0f New loaction of public cvs pserver Stefan Vogel <sv@exept.de> parents: 6742 diff changeset	10742	prototypeList add:(':pserver:cvs@cvs.smalltalk-x.de:/cvs/stx').
fed3ac14df0f New loaction of public cvs pserver Stefan Vogel <sv@exept.de> parents: 6742 diff changeset	10743
fed3ac14df0f New loaction of public cvs pserver Stefan Vogel <sv@exept.de> parents: 6742 diff changeset	10744	OperatingSystem getDomainName = 'exept.de' ifTrue:[
fed3ac14df0f New loaction of public cvs pserver Stefan Vogel <sv@exept.de> parents: 6742 diff changeset	10745	prototypeList add:(':pserver:' , OperatingSystem getLoginName , '@cvs.exept.de:/cvs/stx')
5318 02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	10746	] ifFalse:[
6743 fed3ac14df0f New loaction of public cvs pserver Stefan Vogel <sv@exept.de> parents: 6742 diff changeset	10747	prototypeList add:(':pserver:' , OperatingSystem getLoginName , '@CVSHOST:/cvs/stx').
4767 389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	10748	].
389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	10749
389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	10750	OperatingSystem isUNIXlike ifTrue:[
6743 fed3ac14df0f New loaction of public cvs pserver Stefan Vogel <sv@exept.de> parents: 6742 diff changeset	10751	prototypeList add:'/cvs/stx'.
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10752	] ifFalse:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10753	OperatingSystem isMSDOSlike ifTrue:[
6743 fed3ac14df0f New loaction of public cvs pserver Stefan Vogel <sv@exept.de> parents: 6742 diff changeset	10754	prototypeList addFirst:':local:c:\cvs\stx'.
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10755	] ifFalse:[
4767 389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	10756	"there might be more here in the future"
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10757	]
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10758	].
5318 02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	10759
6743 fed3ac14df0f New loaction of public cvs pserver Stefan Vogel <sv@exept.de> parents: 6742 diff changeset	10760	cvsRootPrototypeList := prototypeList asOrderedCollection.
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10761	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10762	^ cvsRootPrototypeList.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10763	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10764
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10765	listOfModules
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10766
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10767	listOfModules isNil ifTrue:[
5174 bfd29db1a419 source code management per module get apply for changes Michael Beyl <mb@exept.de> parents: 5172 diff changeset	10768	rootsPerModule notNil ifTrue:[
bfd29db1a419 source code management per module get apply for changes Michael Beyl <mb@exept.de> parents: 5172 diff changeset	10769	listOfModules := rootsPerModule keys asList.
bfd29db1a419 source code management per module get apply for changes Michael Beyl <mb@exept.de> parents: 5172 diff changeset	10770	].
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10771	listOfModules sort.
5174 bfd29db1a419 source code management per module get apply for changes Michael Beyl <mb@exept.de> parents: 5172 diff changeset	10772	listOfModules onChangeSend:#updateModifiedChannel to:self
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10773	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10774	^ listOfModules.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10775	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10776
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10777	localSourceFirst
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10778
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10779	localSourceFirst isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10780	localSourceFirst := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10781	localSourceFirst onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10782	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10783	^ localSourceFirst.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10784	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10785
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10786	managerIsCVSSourceCodeManager
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10787	managerIsCVSSourceCodeManager isNil ifTrue:[
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10788	managerIsCVSSourceCodeManager := (SourceCodeManager notNil and:
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10789	[SourceCodeManager isCVS]) asValue.
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10790	].
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10791	^ managerIsCVSSourceCodeManager.
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10792
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10793	"Created: / 16-08-2006 / 10:56:38 / cg"
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10794	!
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10795
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10796	managerIsStoreSourceCodeManager
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10797	managerIsStoreSourceCodeManager isNil ifTrue:[
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10798	managerIsStoreSourceCodeManager := (SourceCodeManager notNil and:
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10799	[SourceCodeManager isStore]) asValue.
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10800	].
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10801	^ managerIsStoreSourceCodeManager.
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10802
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10803	"Created: / 16-08-2006 / 10:57:13 / cg"
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10804	!
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10805
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10806	moreThanOneManagerTypesAvailable
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10807	^ self availableManagers size > 1
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10808
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10809	"Created: / 16-08-2006 / 11:22:03 / cg"
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10810	!
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10811
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10812	perModuleFieldsEnableHolder
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10813
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10814	perModuleFieldsEnableHolder isNil ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10815	perModuleFieldsEnableHolder := true asValue.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10816	perModuleFieldsEnableHolder addDependent:self.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10817	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10818	^ perModuleFieldsEnableHolder.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10819	!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10820
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10821	perModuleRoot
5332 d02586ccaa63 value holder for roots per module penk parents: 5318 diff changeset	10822	perModuleRoot isNil ifTrue:[
d02586ccaa63 value holder for roots per module penk parents: 5318 diff changeset	10823	perModuleRoot := ValueHolder new.
5343 eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	10824	perModuleRoot addDependent:self.
5332 d02586ccaa63 value holder for roots per module penk parents: 5318 diff changeset	10825	].
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10826	^ perModuleRoot.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10827	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10828
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10829	perModuleRootModule
5332 d02586ccaa63 value holder for roots per module penk parents: 5318 diff changeset	10830	perModuleRootModule isNil ifTrue:[
d02586ccaa63 value holder for roots per module penk parents: 5318 diff changeset	10831	perModuleRootModule := ValueHolder new.
d02586ccaa63 value holder for roots per module penk parents: 5318 diff changeset	10832	].
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10833	^ perModuleRootModule.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10834	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10835
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10836	perStoreModuleFieldsEnableHolder
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10837
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10838	perStoreModuleFieldsEnableHolder isNil ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10839	perStoreModuleFieldsEnableHolder := true asValue.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10840	perStoreModuleFieldsEnableHolder addDependent:self.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10841	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10842	^ perStoreModuleFieldsEnableHolder.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10843	!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10844
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10845	perStoreModuleHostnameHolder
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10846
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10847	perStoreModuleHostnameHolder isNil ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10848	perStoreModuleHostnameHolder := '' asValue.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10849	perStoreModuleHostnameHolder addDependent:self.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10850	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10851	^ perStoreModuleHostnameHolder.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10852	!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10853
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10854	perStoreModulePasswordHolder
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10855
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10856	perStoreModulePasswordHolder isNil ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10857	perStoreModulePasswordHolder := '' asValue.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10858	perStoreModulePasswordHolder addDependent:self.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10859	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10860	^ perStoreModulePasswordHolder.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10861	!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10862
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10863	perStoreModuleRoot
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10864	perStoreModuleRoot isNil ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10865	perStoreModuleRoot := ValueHolder new.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10866	perStoreModuleRoot addDependent:self.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10867	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10868	^ perStoreModuleRoot.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10869	!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10870
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10871	perStoreModuleRootModule
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10872	perStoreModuleRootModule isNil ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10873	perStoreModuleRootModule := ValueHolder new.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10874	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10875	^ perStoreModuleRootModule.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10876	!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10877
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10878	perStoreModuleUsernameHolder
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10879
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10880	perStoreModuleUsernameHolder isNil ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10881	perStoreModuleUsernameHolder := '' asValue.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10882	perStoreModuleUsernameHolder addDependent:self.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10883	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10884	^ perStoreModuleUsernameHolder.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10885	!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10886
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10887	removeEnabled
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10888
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10889	removeEnabled isNil ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10890	removeEnabled := false asValue.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10891	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10892	^ removeEnabled.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10893	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10894
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10895	selectedManager
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10896	\|idx\|
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10897
6997 3b32b9cdef10 care for single avail. manager Claus Gittinger <cg@exept.de> parents: 6994 diff changeset	10898	self availableManagers size == 1 ifTrue:[
3b32b9cdef10 care for single avail. manager Claus Gittinger <cg@exept.de> parents: 6994 diff changeset	10899	^ self availableManagers first
3b32b9cdef10 care for single avail. manager Claus Gittinger <cg@exept.de> parents: 6994 diff changeset	10900	].
3b32b9cdef10 care for single avail. manager Claus Gittinger <cg@exept.de> parents: 6994 diff changeset	10901
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10902	idx := self selectedManagerTypeIndexHolder value.
6997 3b32b9cdef10 care for single avail. manager Claus Gittinger <cg@exept.de> parents: 6994 diff changeset	10903	(idx == 0 or:[idx isNil]) ifTrue:[ ^ nil].
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10904	^ self availableManagers at:idx
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10905
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10906	"Modified: / 16-08-2006 / 11:18:50 / cg"
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10907	!
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10908
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10909	selectedManagerTypeIndexHolder
7080 26d4f0a51124 * empty log message * Claus Gittinger <cg@exept.de> parents: 7071 diff changeset	10910	\|selectedManagerTypeIndex selectedManager\|
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10911
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10912	selectedManagerTypeIndexHolder isNil ifTrue:[
6997 3b32b9cdef10 care for single avail. manager Claus Gittinger <cg@exept.de> parents: 6994 diff changeset	10913	selectedManagerTypeIndexHolder := nil asValue.
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10914	selectedManagerTypeIndexHolder onChangeEvaluate:[
7080 26d4f0a51124 * empty log message * Claus Gittinger <cg@exept.de> parents: 7071 diff changeset	10915	selectedManager := self selectedManager.
26d4f0a51124 * empty log message * Claus Gittinger <cg@exept.de> parents: 7071 diff changeset	10916	self managerIsCVSSourceCodeManager value:( selectedManager notNil and:[ selectedManager isCVS] ).
26d4f0a51124 * empty log message * Claus Gittinger <cg@exept.de> parents: 7071 diff changeset	10917	self managerIsStoreSourceCodeManager value:( selectedManager notNil and:[ selectedManager isStore] ).
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10918	self updateModifiedChannel
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10919	].
6997 3b32b9cdef10 care for single avail. manager Claus Gittinger <cg@exept.de> parents: 6994 diff changeset	10920
3b32b9cdef10 care for single avail. manager Claus Gittinger <cg@exept.de> parents: 6994 diff changeset	10921	selectedManagerTypeIndex := self availableManagers indexOf:SourceCodeManager.
3b32b9cdef10 care for single avail. manager Claus Gittinger <cg@exept.de> parents: 6994 diff changeset	10922	selectedManagerTypeIndex == 0 ifTrue:[
3b32b9cdef10 care for single avail. manager Claus Gittinger <cg@exept.de> parents: 6994 diff changeset	10923	self availableManagers size == 1 ifTrue:[
3b32b9cdef10 care for single avail. manager Claus Gittinger <cg@exept.de> parents: 6994 diff changeset	10924	selectedManagerTypeIndex := 1.
3b32b9cdef10 care for single avail. manager Claus Gittinger <cg@exept.de> parents: 6994 diff changeset	10925	].
3b32b9cdef10 care for single avail. manager Claus Gittinger <cg@exept.de> parents: 6994 diff changeset	10926	].
3b32b9cdef10 care for single avail. manager Claus Gittinger <cg@exept.de> parents: 6994 diff changeset	10927	selectedManagerTypeIndexHolder value:selectedManagerTypeIndex.
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10928	].
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10929	^ selectedManagerTypeIndexHolder.
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10930
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10931	"Created: / 16-08-2006 / 11:17:20 / cg"
7080 26d4f0a51124 * empty log message * Claus Gittinger <cg@exept.de> parents: 7071 diff changeset	10932	"Modified: / 04-09-2006 / 09:42:58 / cg"
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10933	!
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10934
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10935	selectedPerModuleRoot
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10936	selectedPerModuleRoot isNil ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10937	selectedPerModuleRoot := ValueHolder new.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10938	selectedPerModuleRoot addDependent:self.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10939	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10940	^ selectedPerModuleRoot.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10941	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10942
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10943	selectedPerStoreModuleRoot
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10944	selectedPerStoreModuleRoot isNil ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10945	selectedPerStoreModuleRoot := ValueHolder new.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10946	selectedPerStoreModuleRoot addDependent:self.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10947	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10948	^ selectedPerStoreModuleRoot.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10949	!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10950
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10951	sourceCacheDir
5286 ab068226973e has unsaved changes penk parents: 5283 diff changeset	10952	sourceCacheDir isNil ifTrue:[
ab068226973e has unsaved changes penk parents: 5283 diff changeset	10953	sourceCacheDir := ValueHolder new.
ab068226973e has unsaved changes penk parents: 5283 diff changeset	10954	sourceCacheDir onChangeSend:#updateModifiedChannel to:self
ab068226973e has unsaved changes penk parents: 5283 diff changeset	10955	].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10956	^ sourceCacheDir.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10957	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10958
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10959	storeConnectEnabled
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10960	storeConnectEnabled isNil ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10961	storeConnectEnabled := false asValue.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10962	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10963	^ storeConnectEnabled.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10964	!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10965
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10966	storeConnectInModuleEnabled
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10967	storeConnectInModuleEnabled isNil ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10968	storeConnectInModuleEnabled := false asValue.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10969	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10970	^ storeConnectInModuleEnabled.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10971	!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10972
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10973	storeHostPrototypeList
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10974	\|prototypeList\|
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10975
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10976	storeHostPrototypeList isNil ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10977	prototypeList := OrderedSet new.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10978
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10979	prototypeList add:('public@store.smalltalk-x.de:5432').
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10980	prototypeList add:('public').
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10981	prototypeList add:('stx').
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10982
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10983	OperatingSystem getLoginName = 'cg' ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10984	prototypeList add:('oyster@store.smalltalk-x.de:5432').
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10985	prototypeList add:('oyster').
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10986	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10987
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10988	OperatingSystem getDomainName = 'exept.de' ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10989	prototypeList add:('stx@exept.exept.de:5432').
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10990	] ifFalse:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10991	prototypeList add:('db@host').
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10992	prototypeList add:('db@host:port').
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10993	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10994	storeHostPrototypeList := prototypeList asOrderedCollection.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10995	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10996	^ storeHostPrototypeList.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10997	!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10998
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10999	storeHostnameHolder
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11000
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11001	storeHostnameHolder isNil ifTrue:[
6999 d298f055491a * empty log message * Claus Gittinger <cg@exept.de> parents: 6997 diff changeset	11002	storeHostnameHolder := ("LastStoreHost ?" '') asValue.
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11003	storeHostnameHolder addDependent:self.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11004	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11005	^ storeHostnameHolder.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11006	!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11007
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	11008	storeLoginEnabled
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	11009	storeLoginEnabled isNil ifTrue:[
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	11010	storeLoginEnabled := false asValue.
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	11011	].
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	11012	^ storeLoginEnabled.
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	11013
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	11014	"Created: / 16-08-2006 / 11:11:15 / cg"
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	11015	!
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	11016
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11017	storePasswordHolder
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11018
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11019	storePasswordHolder isNil ifTrue:[
6999 d298f055491a * empty log message * Claus Gittinger <cg@exept.de> parents: 6997 diff changeset	11020	storePasswordHolder := ("LastStorePassword ?" '') asValue.
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11021	storePasswordHolder addDependent:self.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11022	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11023	^ storePasswordHolder.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11024	!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11025
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11026	storeUsernameHolder
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11027
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11028	storeUsernameHolder isNil ifTrue:[
6999 d298f055491a * empty log message * Claus Gittinger <cg@exept.de> parents: 6997 diff changeset	11029	storeUsernameHolder := ("LastStoreUser ?" '') asValue.
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11030	storeUsernameHolder addDependent:self.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11031	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11032	^ storeUsernameHolder.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11033	!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11034
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11035	useManager
5286 ab068226973e has unsaved changes penk parents: 5283 diff changeset	11036	useManager isNil ifTrue:[
ab068226973e has unsaved changes penk parents: 5283 diff changeset	11037	useManager := ValueHolder new.
ab068226973e has unsaved changes penk parents: 5283 diff changeset	11038	useManager onChangeSend:#updateModifiedChannel to:self
ab068226973e has unsaved changes penk parents: 5283 diff changeset	11039	].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11040	^ useManager.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11041	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11042
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11043	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'change & update'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11044
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11045	selectedPerModuleRootChanged
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11046	\|module entry\|
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	11047
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	11048	self acceptChannel value:true.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	11049	module := self selectedPerModuleRoot value.
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11050	module isNil ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11051	self removeEnabled value:false.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11052	self perModuleRootModule value:' '.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11053	self perModuleRoot value:''.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11054	^ self
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11055	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11056
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11057	entry := rootsPerModule at:module ifAbsent:#().
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11058	(entry first = CVSSourceCodeManager) ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11059	self removeEnabled value:true.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11060	self perModuleRootModule value:module.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11061	self perModuleRoot value:(entry at:2).
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11062	] ifFalse:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11063	self removeEnabled value:false.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11064	self perModuleRootModule value:module , ' ',('<<use ',entry first managerTypeName,'>>') allBold.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11065	self perModuleRoot value:''.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11066	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11067	!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11068
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11069	selectedPerStoreModuleRootChanged
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11070	\|module entry\|
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11071
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11072	self acceptChannel value:true.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11073
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11074	module := self selectedPerStoreModuleRoot value.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11075	module isNil ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11076	self removeEnabled value:false.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11077	self perStoreModuleRoot value:''.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11078	self perStoreModuleHostnameHolder value:''.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11079	self perStoreModuleUsernameHolder value:''.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11080	self perStoreModulePasswordHolder value:''.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11081	^ self
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11082	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11083
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11084	entry := rootsPerModule at:module ifAbsent:#().
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11085	(entry first = StoreSourceCodeManager) ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11086	self removeEnabled value:true.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11087	self perStoreModuleRoot value:module.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11088	self perStoreModuleHostnameHolder value:(entry at:2) hostAndDBName.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11089	self perStoreModuleUsernameHolder value:(entry at:2) userName.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11090	self perStoreModulePasswordHolder value:(entry at:2) password.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11091	] ifFalse:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11092	self removeEnabled value:false.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11093	self perStoreModuleRoot value:module , ' ',('<<use ',entry first managerTypeName,'>>') allBold.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11094	self perStoreModuleHostnameHolder value:''.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11095	self perStoreModuleUsernameHolder value:''.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11096	self perStoreModulePasswordHolder value:''.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11097	].
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	11098	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	11099
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11100	sourceDirChanged
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	11101	\| nm fn\|
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	11102
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	11103	manager isNil ifTrue:[^ self].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	11104
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	11105	nm := self sourceCacheDir value.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	11106	nm isEmptyOrNil ifTrue:[^ self].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	11107
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	11108	(fn := nm asFilename) exists ifFalse:[
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	11109	(self confirm:('SourceCache directory ''' , nm , ''' does not exist.\Create ?' withCRs)) ifTrue:[
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	11110	fn makeDirectory;
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	11111	makeReadableForAll;
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	11112	makeWritableForAll;
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	11113	makeExecutableForAll.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	11114	] ifFalse:[
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	11115	self sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName).
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	11116	^ self.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	11117	].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	11118	].
5318 02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	11119	(fn isDirectory
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	11120	and:[fn isReadable
5318 02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	11121	and:[fn isWritable]]) ifTrue:[
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	11122	AbstractSourceCodeManager cacheDirectoryName:nm.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	11123	] ifFalse:[
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	11124	self warn:'Invalid sourceCache directory.'.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	11125	self sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11126	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11127	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11128
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	11129	update:something with:aParameter from:changedObject
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11130	"/ common
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11131	changedObject == sourceCacheDir ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11132	self sourceDirChanged.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11133	self updateModifiedChannel.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11134	^ self
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11135	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11136
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11137	"/ cvs
5343 eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	11138	changedObject == cvsRootHolder ifTrue:[
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	11139	self updateModifiedChannel.
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	11140	self updateLoginEnableHolders.
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	11141	^ self
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	11142	].
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	11143	changedObject == perModuleRoot ifTrue:[
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	11144	self updateLoginEnableHolders.
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	11145	^ self
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	11146	].
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	11147	changedObject == selectedPerModuleRoot ifTrue:[
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	11148	self selectedPerModuleRootChanged.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	11149	^ self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11150	].
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11151
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11152	"/ store
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11153	changedObject == storeHostnameHolder ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11154	self updateConnectEnableHolders.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11155	^ self
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11156	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11157	changedObject == storeUsernameHolder ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11158	self updateConnectEnableHolders.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11159	^ self
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11160	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11161	changedObject == storePasswordHolder ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11162	self updateConnectEnableHolders.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11163	^ self
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11164	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11165	changedObject == perStoreModuleRoot ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11166	self updateConnectEnableHolders.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11167	^ self
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11168	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11169	changedObject == perStoreModuleHostnameHolder ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11170	self updateConnectEnableHolders.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11171	^ self
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11172	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11173	changedObject == perStoreModuleUsernameHolder ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11174	self updateConnectEnableHolders.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11175	^ self
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11176	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11177	changedObject == perStoreModulePasswordHolder ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11178	self updateConnectEnableHolders.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11179	^ self
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11180	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11181
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11182	changedObject == selectedPerStoreModuleRoot ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11183	self selectedPerStoreModuleRootChanged.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11184	^ self
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11185	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11186
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11187	super update:something with:aParameter from:changedObject
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11188	!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11189
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11190	updateConnectEnableHolders
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11191	self storeConnectEnabled
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11192	value:(storeHostnameHolder value notEmptyOrNil
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11193	and:[ storeUsernameHolder value notEmptyOrNil
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11194	and:[ storePasswordHolder value notEmptyOrNil ]]).
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11195
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11196	self storeConnectInModuleEnabled
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11197	value:(perStoreModuleHostnameHolder value notEmptyOrNil
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11198	and:[ perStoreModuleUsernameHolder value notEmptyOrNil
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11199	and:[ perStoreModulePasswordHolder value notEmptyOrNil ]]).
5343 eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	11200	!
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	11201
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	11202	updateLoginEnableHolders
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	11203	self cvsLoginEnabled value:((cvsRootHolder value ? '') startsWith:':pserver:').
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	11204	self cvsLoginInModuleEnabled value:((perModuleRoot value ? '') startsWith:':pserver:').
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11205	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11206
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11207	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'initialization & release'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11208
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11209	initialize
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11210	(AbstractSourceCodeManager notNil) ifTrue:[ AbstractSourceCodeManager autoload ].
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	11211
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	11212	useManager := false asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	11213	useManager onChangeSend:#updateModifiedChannel to:self.
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	11214
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	11215	sourceCacheDir := nil asValue.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	11216	sourceCacheDir addDependent:self.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	11217
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	11218	repositoryHolder := '' asValue.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	11219	rootsPerModule := Dictionary new.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	11220
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11221	self availableManagers do:[:eachManager \|
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11222	eachManager repositoryInfoPerModule
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11223	keysAndValuesDo:[:module :info \|
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11224	rootsPerModule at:module put:(Array with:eachManager with:info)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11225	].
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	11226	].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	11227
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11228	super initialize.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11229	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11230
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11231	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'queries'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11232
5318 02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	11233	cvsRootFromCVSRootFileOrNil
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	11234	\|cvsDir cvsRootFile cvsRoot\|
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	11235
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	11236	cvsDir := 'CVS' asFilename.
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	11237	cvsDir isDirectory ifTrue:[
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	11238	cvsRootFile := cvsDir construct:'Root'.
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	11239	cvsRootFile isReadable ifTrue:[
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	11240	cvsRoot := cvsRootFile contents firstIfEmpty:nil.
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	11241	].
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	11242	].
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	11243	^ cvsRoot
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	11244	!
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	11245
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11246	hasManager
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11247	"true if ANY source code management class is available"
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11248
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11249	^ AbstractSourceCodeManager notNil and:[AbstractSourceCodeManager isLoaded]
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11250	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11251
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11252	hasUnsavedChanges
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11253	\|cvsModules storeModules\|
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11254
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	11255	(self useManager value ~= ((Smalltalk at:#SourceCodeManager) notNil)) ifTrue:[^ true].
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11256	(Smalltalk at:#SourceCodeManager) ~~ self selectedManager ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	11257	(self hasManager and:[self useManager value]) ifFalse:[^ false].
5286 ab068226973e has unsaved changes penk parents: 5283 diff changeset	11258
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11259	(Class tryLocalSourceFirst ~= self localSourceFirst value) ifTrue:[^ true].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11260	((AbstractSourceCodeManager cacheDirectoryName ? '') ~= (self sourceCacheDir value ? '')) ifTrue:[^ true].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11261
6781 facbb533a366 * empty log message * Claus Gittinger <cg@exept.de> parents: 6780 diff changeset	11262	((currentUserPrefs at:#checkClassesWhenCheckingIn ifAbsent:true) ~= self checkClassesWhenCheckingIn value)
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	11263	ifTrue:[^ true].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	11264
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11265	cvsModules := rootsPerModule select:[:entry \| entry first == CVSSourceCodeManager].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11266	((Dictionary new addAll:(CVSSourceCodeManager repositoryInfoPerModule); yourself) ~= cvsModules)
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	11267	ifTrue:[^ true].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	11268
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11269	storeModules := rootsPerModule select:[:entry \| entry first == StoreSourceCodeManager].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11270	((Dictionary new addAll:(StoreSourceCodeManager repositoryInfoPerModule); yourself) ~= storeModules)
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	11271	ifTrue:[^ true].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	11272
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11273	self selectedManager isCVS ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11274	((CVSSourceCodeManager cvsBinDirectory ? '') ~= (self cvsBinDirectoryHolder value ? '') withoutSeparators)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11275	ifTrue:[^ true].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11276
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11277	(CVSSourceCodeManager repositoryName ? '/files/CVS' ~= self cvsRootHolder value)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11278	ifTrue:[^ true].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11279	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11280
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11281	self selectedManager isStore ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11282	((StoreSourceCodeManager hostAndDBName ? '') ~= (self storeHostnameHolder value ? '') withoutSeparators)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11283	ifTrue:[^ true].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11284	((StoreSourceCodeManager userName ? '') ~= (self storeUsernameHolder value ? '') withoutSeparators)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11285	ifTrue:[^ true].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11286	((StoreSourceCodeManager password ? '') ~= (self storePasswordHolder value ? '') withoutSeparators)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11287	ifTrue:[^ true].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11288	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11289
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	11290	^ false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11291	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11292
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11293	!AbstractSettingsApplication::StyleSettingsAppl class methodsFor:'defaults'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11294
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11295	standardStyles
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11296
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11297	^ #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11298	'decWindows'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11299	'iris'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11300	'motif'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11301	'mswindows95'
6073 09b4a678793a more xp style Claus Gittinger <cg@exept.de> parents: 6072 diff changeset	11302	'mswindowsxp'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11303	'next'
6108 7e6d327225fa * empty log message * Claus Gittinger <cg@exept.de> parents: 6103 diff changeset	11304	"/ 'normal'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11305	'os2'
6003 668703f77d2c * empty log message * Claus Gittinger <cg@exept.de> parents: 5991 diff changeset	11306	'sgmotif'
6073 09b4a678793a more xp style Claus Gittinger <cg@exept.de> parents: 6072 diff changeset	11307	"/ 'st80'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11308	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11309	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11310
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11311	!AbstractSettingsApplication::StyleSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11312
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11313	defaultIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11314	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11315	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11316
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11317	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11318	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11319
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11320	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11321	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11322	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11323	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11324	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11325
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11326	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11327
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11328	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11329	constantNamed:#'AbstractSettingsApplication::StyleSettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11330	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	11331	@@@@@@@@@@@@@@DA@@@@@@@@@@@@@@@@@@@@@@@@@@DB@0D@@@@@@@@@@@@@@@@@@@@@@@DB@0LD@P@@@@@@@@@@@@@@@@@@@@DB@0LDA@DA@@@@@@@@@@@@
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	11332	@@@@@@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	11333	@ 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	11334	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	11335	@ 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	11336	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	11337	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11338
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11339	!AbstractSettingsApplication::StyleSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11340
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11341	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11342	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11343	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11344
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11345	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11346	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11347
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11348	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11349	UIPainter new openOnClass:AbstractSettingsApplication::StyleSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11350	AbstractSettingsApplication::StyleSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11351	AbstractSettingsApplication::StyleSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11352	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11353
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11354	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11355
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11356	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11357	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11358	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11359	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11360	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11361	label: 'ViewStyle Selection'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11362	name: 'ViewStyle Selection'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11363	min: (Point 10 10)
5576 8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	11364	bounds: (Rectangle 0 0 562 661)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11365	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11366	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11367	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11368	collection: (
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11369	(VariableVerticalPanelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11370	name: 'VariableVerticalPanel1'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11371	layout: (LayoutFrame 0 0.0 0 0 0 1.0 -35 1)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11372	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11373	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11374	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11375	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11376	name: 'Box1'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11377	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11378	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11379	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11380	(TextEditorSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11381	name: 'TextEditor1'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11382	layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	11383	style: (FontDescription arial medium roman 9)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11384	model: noticeLabelHolder
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11385	hasHorizontalScrollBar: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11386	hasVerticalScrollBar: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11387	isReadOnly: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11388	postBuildCallback: postBuildHelpLabel:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11389	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11390	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11391
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11392	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11393	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11394	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11395	name: 'Box2'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11396	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11397	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11398	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11399	(VerticalPanelViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11400	name: 'VerticalPanel1'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11401	layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11402	horizontalLayout: fit
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11403	verticalLayout: topFit
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11404	horizontalSpace: 3
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11405	verticalSpace: 3
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11406	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11407	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11408	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11409	(CheckBoxSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11410	label: 'standard styles only'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11411	name: 'CheckBox1'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11412	model: showStandardStylesOnly
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11413	translateLabel: true
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	11414	extent: (Point 562 35)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11415	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11416	(SequenceViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11417	name: 'StyleList'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11418	model: selectedStyle
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11419	hasHorizontalScrollBar: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11420	hasVerticalScrollBar: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11421	doubleClickSelector: doubleClickAt:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11422	useIndex: false
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11423	sequenceList: styleList
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	11424	extent: (Point 562 353)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11425	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11426	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11427
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11428	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11429	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11430	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11431
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11432	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11433	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11434	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11435
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11436	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11437	handles: (Any 0.37 1.0)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11438	)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11439	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11440	name: 'Box3'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11441	layout: (LayoutFrame 0 0 -35 1 0 1 0 1)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11442	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11443	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11444	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11445	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11446	label: 'Label'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11447	name: 'Label1'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11448	layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11449	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11450	labelChannel: infoLabelHolder
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11451	resizeForLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11452	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11453	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11454	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11455
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11456	)
5378 4054d8298e68 windowspec for view style penk parents: 5362 diff changeset	11457	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11458	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11459
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11460	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11461	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11462	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11463
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11464	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11465
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	11466	basicReadSettings
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	11467	"nothing done here"
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	11468	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	11469
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11470	basicSaveSettings
6029 40b96dc2621d * empty log message * ca parents: 6025 diff changeset	11471	\|newStyle\|
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11472
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11473	newStyle := self selectedStyle value.
4705 16cfb945d591 * empty log message * penk parents: 4675 diff changeset	11474
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11475	self withWaitCursorDo:[
6081 74df33ee24b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 6073 diff changeset	11476	Transcript showCR:'Change style to ' , newStyle , ' ...'.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11477	View defaultStyle:newStyle asSymbol.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11478	].
6029 40b96dc2621d * empty log message * ca parents: 6025 diff changeset	11479	self reopenToolsAfterChangedViewStyleSetting.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11480	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11481
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11482	doubleClickAt:aLine
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11483
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11484	self saveSettings.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11485	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11486
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	11487	helpFilename
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	11488	^ 'Launcher/styleSettings.html'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11489	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11490
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11491	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11492
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11493	infoLabelHolder
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11494
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11495	infoLabelHolder isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11496	infoLabelHolder := '' asValue.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11497	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11498	^ infoLabelHolder.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11499	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11500
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11501	noticeLabelHolder
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11502
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11503	noticeLabelHolder isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11504	noticeLabelHolder := '' asValue.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11505	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11506	^ noticeLabelHolder.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11507	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11508
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11509	selectedStyle
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11510
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11511	selectedStyle isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11512	selectedStyle := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11513	selectedStyle addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11514	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11515	^ selectedStyle.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11516	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11517
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11518	showStandardStylesOnly
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11519
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11520	showStandardStylesOnly isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11521	showStandardStylesOnly := true asValue.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11522	showStandardStylesOnly addDependent:self.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11523	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11524	^ showStandardStylesOnly.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11525	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11526
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11527	styleList
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11528
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11529	styleList isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11530	styleList := List new.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11531	styleList addDependent:self.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11532	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11533	^ styleList.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11534	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11535
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11536	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11537
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11538	changeInfoLabel
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11539
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11540	\|nm sheet comment\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11541
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11542	comment := ''.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11543	nm := self selectedStyle value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11544	nm notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11545	sheet := ViewStyle fromFile:(nm , '.style').
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11546	comment := (sheet at:#comment ifAbsent:'') withoutSeparators.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11547	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11548	comment := comment withCRs asStringCollection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11549	comment size == 1 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11550	comment := comment first
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11551	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11552	self infoLabelHolder value:comment
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11553	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11554
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	11555	update:something with:aParameter from:changedObject
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11556	changedObject == self showStandardStylesOnly ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11557	self updateList.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	11558	^ self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11559	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11560	changedObject == self selectedStyle ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11561	self changeInfoLabel.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	11562	self updateModifiedChannel.
c72e35116b13 instable state penk parents: 5040 diff changeset	11563	^ self
c72e35116b13 instable state penk parents: 5040 diff changeset	11564	].
c72e35116b13 instable state penk parents: 5040 diff changeset	11565	super
c72e35116b13 instable state penk parents: 5040 diff changeset	11566	update:something
c72e35116b13 instable state penk parents: 5040 diff changeset	11567	with:aParameter
c72e35116b13 instable state penk parents: 5040 diff changeset	11568	from:changedObject
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11569	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11570
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11571	updateList
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11572
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11573	\|listOfStyles lastSelection\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11574
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11575	lastSelection := self selectedStyle value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11576	listOfStyles := styleDirectoryContents select:[:aFileName \| aFileName asFilename hasSuffix:'style'].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11577	listOfStyles := listOfStyles collect:[:aFileName \| aFileName asFilename withoutSuffix name].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11578	Filename isCaseSensitive ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11579	listOfStyles := listOfStyles collect:[:aStyleName \| aStyleName asLowercase].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11580	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11581	listOfStyles remove:'generic' ifAbsent:nil; remove:'mswindows3' ifAbsent:nil.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11582	self showStandardStylesOnly value ifTrue:[
6086 1d3d8652e87d * empty log message * Claus Gittinger <cg@exept.de> parents: 6081 diff changeset	11583	listOfStyles := listOfStyles select:[:aStyleName \| self class standardStyles includes:aStyleName asLowercase].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11584	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11585
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11586	listOfStyles sort.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11587	self styleList contents:listOfStyles.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11588	self selectedStyle value:lastSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11589	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11590
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11591	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11592
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11593	initialize
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11594
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11595	\|someRsrcFile resourceDir\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11596
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11597	super initialize.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11598
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11599	someRsrcFile := Smalltalk getSystemFileName:('resources' asFilename constructString:'normal.style').
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11600	someRsrcFile isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11601	someRsrcFile := Smalltalk getResourceFileName:'normal.style' forPackage:'stx:libview'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11602	someRsrcFile isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11603	someRsrcFile := Smalltalk getResourceFileName:'styles/normal.style' forPackage:'stx:libview'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11604	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11605	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11606	someRsrcFile notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11607	resourceDir := someRsrcFile asFilename directoryName
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11608	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11609	resourceDir := Smalltalk getSystemFileName:'resources'.
4635 6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	11610	resourceDir isNil ifTrue:[
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	11611	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	11612	^ self
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	11613	].
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	11614	].
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	11615
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	11616	[
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	11617	styleDirectoryContents := resourceDir asFilename directoryContents.
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	11618	] on:FileStream openErrorSignal do:[:ex\|
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	11619	self warn:'no styles found (unaccessable ''resources'' directory)'.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11620	^ self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11621	].
4635 6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	11622
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11623	self updateList.
6086 1d3d8652e87d * empty log message * Claus Gittinger <cg@exept.de> parents: 6081 diff changeset	11624	(self class standardStyles includes:View defaultStyle asLowercase) ifFalse:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11625	self showStandardStylesOnly value:false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11626	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11627	self selectedStyle value:(View defaultStyle).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11628	self noticeLabelHolder value:(resources at:'STYLE_MSG' default:'Select a Style') withCRs.
5378 4054d8298e68 windowspec for view style penk parents: 5362 diff changeset	11629	!
4054d8298e68 windowspec for view style penk parents: 5362 diff changeset	11630
4054d8298e68 windowspec for view style penk parents: 5362 diff changeset	11631	postBuildHelpLabel:aWidget
4054d8298e68 windowspec for view style penk parents: 5362 diff changeset	11632	aWidget level:0.
4054d8298e68 windowspec for view style penk parents: 5362 diff changeset	11633	aWidget scrolledView backgroundColor:self window viewBackground.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11634	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11635
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11636	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11637
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11638	hasUnsavedChanges
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11639
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11640	^ (self selectedStyle value ~= View defaultStyle)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11641	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11642
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11643	!AbstractSettingsApplication::SyntaxColorSettingsAppl class methodsFor:'defaults'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11644
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11645	emphasisList
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11646
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11647	^ #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11648	#normal
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11649	#underline
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11650	#'red underline'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11651	#underwave
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11652	#'red underwave'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11653	#bold
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11654	#boldUnderline
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11655	#'bold+red underline'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11656	#boldUnderwave
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11657	#'bold+red underwave'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11658	#italic
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11659	#italicUnderline
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11660	#'italic+red underline'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11661	#italicUnderwave
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11662	#'italic+red underwave'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11663	#reverse
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11664	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11665	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11666
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11667	exampleText
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11668
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11669	^ 'methodSelector:methodArg
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11670	"method comment:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11671	some stupid code to show the current settings"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11672
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11673	\|methodVar\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11674
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11675	"/ another comment ...
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11676	self at:methodArg. "/ a message
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11677	self fooBarBaz:methodVar. "/ a bad message
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11678	methodVar := Array new:1.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11679	unknonVar := 1. "/ a bad variable
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11680	UnknonVar := 1. "/ another bad variable
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11681	"self bar:methodVar. detect commented code easily"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11682	1 to:5 do:[:i \| self at:i + 1].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11683	Transcript showCR:''some string'' , #someSymbol.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11684	^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11685	'.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11686	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11687
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11688	fontList
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11689
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11690	^ #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11691	normal
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11692	underline
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11693	#'red underline'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11694	underwave
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11695	#'red underwave'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11696	bold
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11697	boldUnderline
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11698	#'bold+red underline'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11699	boldUnderwave
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11700	#'bold+red underwave'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11701	italic
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11702	italicUnderline
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11703	#'italic+red underline'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11704	italicUnderwave
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11705	#'italic+red underwave'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11706	reverse
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11707	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11708	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11709
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11710	!AbstractSettingsApplication::SyntaxColorSettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11711
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11712	defaultIcon
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11713	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11714	by the ImageEditor of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11715
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11716	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11717	the ImageEditor may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11718
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11719	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11720	self defaultIcon inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11721	ImageEditor openOnClass:self andSelector:#defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11722	Icon flushCachedIcons
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11723	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11724
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11725	<resource: #image>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11726
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11727	^Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11728	constantNamed:#'AbstractSettingsApplication::SyntaxColorSettingsAppl class defaultIcon'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	11729	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	11730	DQDQDQDQDQDQDQDTQDQDQDQDQDQDPQQ@QDADQBP$QDP!!E@QDQ@QDIBQDP$DTADQDADQDQDQBPQPDQDPDQDQDQBQAE@QDQ@QDQDQDIDDTADQDADQDQDIDPQPD
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	11731	QDPDQDQDP$QAEDADPDQDQDP$QDDTQDQDQDQDQDQDPQQDADQDQDQDQDQAEDADQDQDQDQDQDDTPDQ@QDADQDQDPQP@A@PDA@Q@QDQAEDADA@PDADQDQDDTPDPD
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	11732	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	11733	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11734
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11735	!AbstractSettingsApplication::SyntaxColorSettingsAppl class methodsFor:'interface specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11736
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11737	windowSpec
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11738	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11739	by the UIPainter of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11740
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11741	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11742	the UIPainter may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11743
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11744	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11745	UIPainter new openOnClass:AbstractSettingsApplication::SyntaxColorSettingsAppl andSelector:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11746	AbstractSettingsApplication::SyntaxColorSettingsAppl new openInterface:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11747	AbstractSettingsApplication::SyntaxColorSettingsAppl open
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11748	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11749
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11750	<resource: #canvas>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11751
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11752	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11753	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11754	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11755	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11756	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11757	label: 'Syntax Color Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11758	name: 'Syntax Color Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11759	min: (Point 10 10)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11760	bounds: (Rectangle 0 0 695 609)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11761	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11762	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11763	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11764	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11765	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11766	name: 'VerticalPanel2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11767	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	11768	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11769	verticalLayout: topSpace
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11770	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11771	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11772	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11773	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11774	collection: (
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11775	(ViewSpec
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	11776	name: 'ElementSelectionBox'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11777	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11778	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11779	collection: (
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11780	(LabelSpec
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	11781	label: 'Element:'
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11782	name: 'Label4'
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	11783	layout: (LayoutFrame 0 0 0 0 100 0 22 0)
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	11784	translateLabel: true
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	11785	adjust: right
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11786	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11787	(ComboListSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11788	name: 'ComboList3'
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	11789	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	11790	enableChannel: syntaxColoring
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11791	model: syntaxElementSelection
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11792	comboList: syntaxElementList
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11793	useIndex: false
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11794	hidePullDownMenuButton: false
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11795	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11796	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11797
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11798	)
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	11799	extent: (Point 695 25)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11800	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11801	(ViewSpec
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	11802	name: 'ColorBox'
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	11803	component:
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	11804	(SpecCollection
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	11805	collection: (
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	11806	(LabelSpec
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	11807	label: 'Color:'
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	11808	name: 'Label2'
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	11809	layout: (LayoutFrame 40 0 0 0 140 0 22 0)
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	11810	translateLabel: true
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	11811	adjust: right
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	11812	)
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	11813	(ColorMenuSpec
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	11814	name: 'ColorMenu2'
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	11815	layout: (LayoutFrame 140 0 0 0 0 1 22 0)
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	11816	enableChannel: syntaxColoring
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	11817	model: syntaxColor
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	11818	labelsAreColored: true
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	11819	)
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	11820	)
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	11821
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	11822	)
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	11823	extent: (Point 695 25)
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	11824	)
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	11825	(ViewSpec
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	11826	name: 'EmphasisBox'
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11827	component:
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11828	(SpecCollection
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11829	collection: (
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11830	(LabelSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11831	label: 'Emphasis:'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11832	name: 'Label1'
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	11833	layout: (LayoutFrame 40 0 0 0 140 0 22 0)
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	11834	translateLabel: true
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	11835	adjust: right
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11836	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11837	(ComboListSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11838	name: 'ComboList5'
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	11839	layout: (LayoutFrame 140 0 0 0 0 1 22 0)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11840	enableChannel: syntaxColoring
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11841	model: syntaxEmphasisSelection
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11842	comboList: syntaxEmphasisList
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11843	useIndex: false
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11844	hidePullDownMenuButton: false
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11845	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11846	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11847
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11848	)
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	11849	extent: (Point 695 25)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11850	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11851	(ViewSpec
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	11852	name: 'ResetBox'
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11853	component:
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11854	(SpecCollection
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11855	collection: (
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11856	(ActionButtonSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11857	label: 'Reset To:'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11858	name: 'Button2'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11859	layout: (LayoutFrame 0 0 -22 1 150 0 0 1)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11860	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11861	model: resetToColorScheme
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11862	enableChannel: syntaxColoring
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11863	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11864	(ComboListSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11865	name: 'ComboList4'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11866	layout: (LayoutFrame 150 0 -22 1 0 1 0 1)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11867	enableChannel: syntaxColoring
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11868	model: resetListSelection
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11869	comboList: resetList
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11870	useIndex: false
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11871	hidePullDownMenuButton: false
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11872	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11873	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11874
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11875	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11876	extent: (Point 695 35)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11877	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11878	(ViewSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11879	name: 'SpacingBox1'
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	11880	extent: (Point 695 10)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11881	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11882	(LabelSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11883	label: 'Sample Output:'
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	11884	name: 'SampleLabel3'
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11885	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11886	adjust: left
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11887	extent: (Point 695 22)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11888	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11889	(TextEditorSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11890	name: 'TextEditor2'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11891	enableChannel: syntaxColoring
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11892	model: coloredText
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11893	hasHorizontalScrollBar: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11894	hasVerticalScrollBar: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11895	isReadOnly: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11896	extent: (Point 695 280)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11897	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11898	(ViewSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11899	name: 'SpacingBox2'
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	11900	extent: (Point 695 10)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11901	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11902	(CheckBoxSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11903	label: 'Syntax Coloring'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11904	name: 'CheckBox1'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11905	model: syntaxColoring
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11906	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11907	extent: (Point 695 22)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11908	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11909	(CheckBoxSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11910	label: 'Immediate Selector Check'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11911	name: 'ImmediateSelectorCheckBox'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11912	enableChannel: syntaxColoring
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11913	model: fullSelectorCheck
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11914	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11915	extent: (Point 695 22)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11916	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11917	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11918
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11919	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11920	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11921	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11922
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11923	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11924	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11925	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11926
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11927	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'actions'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11928
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	11929	basicReadSettings
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	11930	\|colorList resetListLoc\|
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	11931
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	11932	oldUserPreferences notNil ifTrue:[
6781 facbb533a366 * empty log message * Claus Gittinger <cg@exept.de> parents: 6780 diff changeset	11933	(UserPreferences reset; current) addAll:oldUserPreferences
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	11934	].
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	11935
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	11936	self
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	11937	readAspects:
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	11938	#(
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	11939	syntaxColoring
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	11940	fullSelectorCheck
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	11941	)
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	11942	from:currentUserPrefs.
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	11943
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	11944	oldUserPreferences := currentUserPrefs copy.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	11945	colorList := UserPreferences syntaxColorNames.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	11946	resetListLoc := currentUserPrefs listOfPredefinedSyntaxColoringSchemes
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	11947	collect:[:entry \| entry second].
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	11948	self resetList value:resetListLoc.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	11949	self resetListSelection value:resetListLoc first.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	11950	self syntaxEmphasisList value:self class emphasisList.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	11951	self syntaxElementList value:colorList.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	11952	self syntaxElementSelection value:(colorList at:1).
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	11953	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	11954
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11955	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11956
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11957	oldUserPreferences := currentUserPrefs copy.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11958	currentUserPrefs syntaxColoring:self syntaxColoring value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11959	currentUserPrefs at:#fullSelectorCheck put:self fullSelectorCheck value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11960	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11961
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11962	formattingConfiguration
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11963	"automatically generated by UIPainter ..."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11964
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11965	"*** the code below performs no action"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11966	"*** (except for some feedback on the Transcript)"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11967	"*** Please change as required and accept in the browser."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11968
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11969	"action to be added ..."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11970
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11971	Transcript showCR:self class name, ': action for formattingConfiguration ...'.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11972	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11973
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	11974	helpFilename
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	11975	^ 'Launcher/sourceSettings.html'
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11976	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11977
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11978	recolor
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11979	\|text\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11980
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11981	self syntaxColoring value ifTrue:[
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11982	text := SyntaxHighlighter
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11983	formatMethod:self class exampleText
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11984	in:nil
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11985	using:currentUserPrefs.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11986	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11987	text := self class exampleText.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11988	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11989	self coloredText value:text
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11990	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11991
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11992	resetToColorScheme
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11993	\|resetSelector\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11994
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	11995	resetSelector := resetListDictionary
c72e35116b13 instable state penk parents: 5040 diff changeset	11996	keyAtValue:(self resetListSelection value).
c72e35116b13 instable state penk parents: 5040 diff changeset	11997	currentUserPrefs perform:resetSelector.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11998	self recolor.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	11999	self updateModifiedChannel
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12000	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12001
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12002	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'aspects'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12003
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12004	coloredText
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12005
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12006	coloredText isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12007	coloredText := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12008	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12009	^ coloredText.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12010	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12011
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12012	fullSelectorCheck
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12013
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12014	fullSelectorCheck isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12015	fullSelectorCheck := currentUserPrefs fullSelectorCheck asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	12016	fullSelectorCheck onChangeSend:#updateModifiedChannel to:self
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12017	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12018	^ fullSelectorCheck.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12019	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12020
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12021	resetList
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12022
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12023	resetList isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12024	resetList := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12025	"/ 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	12026	"/ resetList addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12027	"/ resetList onChangeSend:#resetListChanged to:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12028	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12029	^ resetList.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12030	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12031
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12032	resetListSelection
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12033
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12034	resetListSelection isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12035	resetListSelection := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12036	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12037	^ resetListSelection.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12038	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12039
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12040	syntaxColor
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12041
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12042	syntaxColor isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12043	syntaxColor := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12044	syntaxColor addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12045	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12046	^ syntaxColor.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12047	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12048
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12049	syntaxColoring
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12050
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12051	syntaxColoring isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12052	syntaxColoring := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12053	syntaxColoring addDependent:self.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	12054	syntaxColoring onChangeSend:#updateModifiedChannel to:self.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12055	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12056	^ syntaxColoring.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12057	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12058
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12059	syntaxElementList
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12060	"automatically generated by UIPainter ..."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12061
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12062	"*** the code below creates a default model when invoked."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12063	"*** (which may not be the one you wanted)"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12064	"*** Please change as required and accept it in the browser."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12065	"*** (and replace this comment by something more useful ;-)"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12066
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12067	syntaxElementList isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12068	syntaxElementList := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12069	"/ 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	12070	"/ syntaxElementList addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12071	"/ syntaxElementList onChangeSend:#syntaxElementListChanged to:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12072	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12073	^ syntaxElementList.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12074	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12075
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12076	syntaxElementSelection
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12077
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12078	syntaxElementSelection isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12079	syntaxElementSelection := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12080	syntaxElementSelection addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12081	"/ syntaxElementSelection onChangeSend:#syntaxElementSelectionChanged to:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12082	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12083	^ syntaxElementSelection.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12084	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12085
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12086	syntaxEmphasisList
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	12087	"automatically generated by UIPainter ..."
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	12088
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	12089	"*** the code below creates a default model when invoked."
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	12090	"*** (which may not be the one you wanted)"
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	12091	"*** Please change as required and accept it in the browser."
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	12092	"*** (and replace this comment by something more useful ;-)"
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	12093
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	12094	syntaxEmphasisList isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	12095	syntaxEmphasisList := ValueHolder new.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	12096	"/ 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	12097	"/ syntaxEmphasisList addDependent:self.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	12098	"/ syntaxEmphasisList onChangeSend:#syntaxEmphasisListChanged to:self.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	12099	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	12100	^ syntaxEmphasisList.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	12101	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	12102
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12103	syntaxEmphasisSelection
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12104
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12105	syntaxEmphasisSelection isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12106	syntaxEmphasisSelection := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12107	syntaxEmphasisSelection addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12108	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12109	^ syntaxEmphasisSelection.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12110	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12111
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12112	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'change & update'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12113
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12114	getEmphasis:anEmphasisOrSymbol
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12115	" return emphasis Symbol for emphasis or emphasis for emphasis symbol "
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12116
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12117	^ emphasisDictionary at:anEmphasisOrSymbol ifAbsent:[nil]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12118	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12119
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12120	syntaxColorChanged
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12121	currentUserPrefs at:(self syntaxColorSelector) put:(self syntaxColor value).
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12122	self recolor.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	12123	self updateModifiedChannel
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12124	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12125
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12126	syntaxElementSelectionChanged
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12127
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12128	\| syntaxEmphasisValue \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12129
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12130	self syntaxColor value:(currentUserPrefs perform:(self syntaxColorSelector)).
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12131	syntaxEmphasisValue := (currentUserPrefs perform:(self syntaxEmphasisSelector)).
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12132	self syntaxEmphasisSelection value:(self getEmphasis:syntaxEmphasisValue).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12133	self recolor.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12134	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12135
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12136	syntaxEmphasisSelectionChanged
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12137	\|em\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12138
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12139	em := self getEmphasis:self syntaxEmphasisSelection value.
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12140	currentUserPrefs at:(self syntaxEmphasisSelector) put:em.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12141	self recolor.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	12142	self updateModifiedChannel
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12143	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12144
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12145	update:something with:aParameter from:changedObject
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12146	changedObject == self syntaxElementSelection ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12147	self syntaxElementSelectionChanged.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12148	^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12149	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12150	changedObject == self syntaxColor ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12151	self syntaxColorChanged.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12152	^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12153	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12154	changedObject == self syntaxEmphasisSelection ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12155	self syntaxEmphasisSelectionChanged.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12156	^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12157	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12158	changedObject == self syntaxColoring ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12159	self recolor.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12160	^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12161	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12162
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12163	super update:something with:aParameter from:changedObject
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12164	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12165
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12166	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'initialization & release'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12167
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12168	initialize
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12169	self initializeEmphasisDictionary.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12170	super initialize.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12171
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12172	resetListDictionary := Dictionary new.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12173	currentUserPrefs listOfPredefinedSyntaxColoringSchemes do:[:entry \|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12174	resetListDictionary at:(entry at:1) put:(entry at:2)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12175	].
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12176	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12177
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12178	initializeEmphasisDictionary
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12179
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12180	emphasisDictionary := Dictionary new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12181	self class emphasisList do:[ : entry \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12182	entry == #'red underline' ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12183	emphasisDictionary at:entry put:(Array with:#underline with:(#underlineColor->Color red)).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12184	emphasisDictionary at:(Array with:#underline with:(#underlineColor->Color red)) put:entry.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12185	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12186	entry == #'red underwave' ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12187	emphasisDictionary at:entry put:(Array with:#underwave with:(#underlineColor->Color red)).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12188	emphasisDictionary at:(Array with:#underwave with:(#underlineColor->Color red)) put:entry.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12189	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12190	entry == #'bold+red underline' ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12191	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	12192	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	12193	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12194	entry == #'bold+red underwave' ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12195	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	12196	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	12197	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12198	entry == #'italic+red underline' ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12199	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	12200	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	12201	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12202	entry == #'italic+red underwave' ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12203	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	12204	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	12205	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12206	emphasisDictionary at:entry put:entry
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12207	]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12208	]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12209	]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12210	]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12211	]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12212	]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12213	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12214	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12215
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12216	release
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12217
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12218	oldUserPreferences notNil ifTrue:[
5943 df089099d96d Use #addAll: instead of #declareAllFrom:, since #declareAllFrom: Stefan Vogel <sv@exept.de> parents: 5920 diff changeset	12219	(UserPreferences reset; current) addAll:oldUserPreferences
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12220	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12221	super release
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12222	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12223
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12224	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'queries'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12225
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12226	hasUnsavedChanges
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12227	\|colorList colorPerformer emphasisPerformer\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12228
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12229	colorList := UserPreferences syntaxColorNames.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12230	colorList do:[:syntaxElement \|
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12231	colorPerformer := (self syntaxColorSelectorForElement:syntaxElement).
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12232	emphasisPerformer := (self syntaxEmphasisSelectorForElement:syntaxElement).
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12233	((oldUserPreferences perform:colorPerformer) ~= (currentUserPrefs perform:colorPerformer)) ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12234	^ true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12235	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12236	((oldUserPreferences perform:emphasisPerformer) ~= (currentUserPrefs perform:emphasisPerformer)) ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12237	^ true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12238	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12239	syntaxElement
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12240	].
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	12241
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	12242	(self
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	12243	hasChangedAspectIn:
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	12244	#(
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	12245	syntaxColoring
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	12246	fullSelectorCheck
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	12247	)
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	12248	asComparedTo:currentUserPrefs) ifTrue:[^ true].
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	12249
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12250	^ false
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12251	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12252
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12253	syntaxColorSelector
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12254	^ (self syntaxColorSelectorForElement:self syntaxElementSelection value)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12255	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12256
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12257	syntaxColorSelectorForElement:aSyntaxElement
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12258	^ (aSyntaxElement replChar:$ withString: '') asLowercaseFirst asSymbol
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12259	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12260
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12261	syntaxEmphasisSelector
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12262
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12263	^ self syntaxEmphasisSelectorForElement:(self syntaxElementSelection value)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12264	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12265
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12266	syntaxEmphasisSelectorForElement:anEmElement
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12267	^ (((self syntaxColorSelectorForElement:anEmElement) readStream upToAll: 'Color'), 'Emphasis')
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12268	asLowercaseFirst asSymbol
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12269	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12270
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	12271	!AbstractSettingsApplication::SystemMessageSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	12272
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12273	defaultIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	12274	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	12275	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	12276
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	12277	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	12278	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	12279
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	12280	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	12281	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	12282	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	12283	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	12284	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	12285
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	12286	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	12287
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	12288	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	12289	constantNamed:#'AbstractSettingsApplication::SystemMessageSettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	12290	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	12291	@@@@@@@@@@@@@PDA@P@@@@@@@@@@@@@@@@@@@@@@@PHB@0D@@@@@@@@@@@@@@@@@@@@@@PHDAPLC@P@@@@@@@@@@@@@@@@@@@@DBA PGA0 @@@@@@@@@@@@@
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	12292	@@@@@@@A@ XDA0\H@@@@@@@@@@@@@@@@@@@@@PHIA@(J@@@@@@@@@@@@@@@@@@@@@@DAB00MCP@@@@@@@@@@@@@@@@@@@@@@@@DN@@@@@@@@@@@@@@@@@@@@
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	12293	@@@@@@@AC @@@@@@@@@@@@@@@@@@@@@@@@@@@P8@@@@@@@@@@@@@@@@@@@@@@@<OC0PNDA@@DQD@@@@@@@@@@@@@@@<RD1LTEQXVE1 XDP@@@@@@@@@@@@@O
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	12294	D!!LSEATVE!!\XFAD@@@@@@@@@@@@@C1HSD1$UEAPZF1,\@@@@@@@@@@@@@@<RGQ4YF!!PTEAXVG@@@@@@@@@@@@@@OD!!4]FQ(TEAPVE!!0@@@@@@@@@@@@@C1H]
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	12295	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	12296	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	12297	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	12298
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12299	!AbstractSettingsApplication::SystemMessageSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12300
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12301	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12302	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12303	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12304
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12305	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12306	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12307
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12308	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	12309	UIPainter new openOnClass:AbstractSettingsApplication::SystemMessageSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	12310	AbstractSettingsApplication::SystemMessageSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	12311	AbstractSettingsApplication::SystemMessageSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12312	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12313
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12314	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12315
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12316	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12317	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12318	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12319	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12320	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12321	label: 'Messages Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12322	name: 'Messages Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12323	min: (Point 10 10)
6166 92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12324	bounds: (Rectangle 0 0 561 435)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12325	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12326	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12327	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12328	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12329	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12330	name: 'VerticalPanel2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12331	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	12332	horizontalLayout: fitSpace
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12333	verticalLayout: topSpace
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12334	horizontalSpace: 5
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12335	verticalSpace: 5
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12336	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12337	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12338	collection: (
6166 92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12339	(FramedBoxSpec
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12340	label: 'Info & Error Messages'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12341	name: 'FramedBox1'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12342	labelPosition: topLeft
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12343	translateLabel: true
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12344	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12345	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12346	collection: (
6166 92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12347	(CheckBoxSpec
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12348	label: 'VM Info Messages'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12349	name: 'VMInfoMessages'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12350	layout: (LayoutFrame 5 0 5 0 -5 1 27 0)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12351	model: vmInfo
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12352	translateLabel: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12353	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12354	(CheckBoxSpec
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12355	label: 'VM Error Messages'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12356	name: 'VMErrorMessages'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12357	layout: (LayoutFrame 5 0 30 0 -5 1 52 0)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12358	model: vmErrors
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12359	translateLabel: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12360	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12361	(CheckBoxSpec
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12362	label: 'Display Error Messages (Xlib, Xtlib, WinAPI ...)'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12363	name: 'DisplayErrorMessages'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12364	layout: (LayoutFrame 5 0 55 0 -5 1 77 0)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12365	model: displayErrors
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12366	translateLabel: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12367	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12368	(CheckBoxSpec
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12369	label: 'Other Info Messages'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12370	name: 'OtherInfoMessages'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12371	layout: (LayoutFrame 5 0 80 0 -5 1 102 0)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12372	model: classInfos
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12373	translateLabel: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	12374	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	12375	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	12376
933cd54deefe checkin from browser penk parents: 4292 diff changeset	12377	)
6166 92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12378	extent: (Point 551 133)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12379	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12380	(FramedBoxSpec
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12381	label: 'Change File'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12382	name: 'FramedBox2'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12383	labelPosition: topLeft
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12384	translateLabel: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12385	component:
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12386	(SpecCollection
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12387	collection: (
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12388	(CheckBoxSpec
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12389	label: 'Log compiles in Changefile'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12390	name: 'CheckBox1'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12391	layout: (LayoutFrame 5 0 5 0 -5 1 27 0)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12392	model: updChanges
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12393	translateLabel: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12394	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12395	(CheckBoxSpec
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12396	label: 'Log doIts in Changefile'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12397	name: 'CheckBox2'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12398	layout: (LayoutFrame 5 0 30 0 -5 1 52 0)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12399	model: logDoits
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12400	translateLabel: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12401	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12402	(LabelSpec
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12403	label: 'Changefile Name:'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12404	name: 'ChangefileNameLabel'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12405	layout: (LayoutFrame 5 0 55 0 200 0 77 0)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12406	translateLabel: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12407	adjust: right
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12408	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12409	(InputFieldSpec
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12410	name: 'ChangeFileNameEntryField'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12411	layout: (LayoutFrame 200 0 55 0 -5 1 77 0)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12412	model: changeFileName
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12413	immediateAccept: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12414	acceptOnReturn: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12415	acceptOnTab: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12416	acceptOnLostFocus: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12417	acceptOnPointerLeave: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12418	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12419	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12420
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12421	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12422	extent: (Point 551 110)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12423	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12424	(FramedBoxSpec
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12425	label: 'Audible Bell'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12426	name: 'FramedBox3'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12427	labelPosition: topLeft
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12428	translateLabel: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12429	component:
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12430	(SpecCollection
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12431	collection: (
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12432	(CheckBoxSpec
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12433	label: 'Beep for Info Dialogs'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12434	name: 'CheckBox3'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12435	layout: (LayoutFrame 5 0 5 0 -5 1 27 0)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12436	model: beepForInfoDialog
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12437	translateLabel: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12438	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12439	(CheckBoxSpec
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12440	label: 'Beep for Warning Dialogs'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12441	name: 'CheckBox4'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12442	layout: (LayoutFrame 5 0 30 0 -5 1 52 0)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12443	model: beepForWarningDialog
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12444	translateLabel: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12445	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12446	(CheckBoxSpec
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12447	label: 'Beep for Error Dialogs'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12448	name: 'CheckBox5'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12449	layout: (LayoutFrame 5 0 55 0 -5 1 77 0)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12450	model: beepForErrorDialog
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12451	translateLabel: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12452	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12453	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12454
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12455	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12456	extent: (Point 551 107)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12457	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12458	(FramedBoxSpec
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12459	label: 'Help'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12460	name: 'FramedBox4'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12461	labelPosition: topLeft
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12462	translateLabel: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12463	component:
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12464	(SpecCollection
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12465	collection: (
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12466	(CheckBoxSpec
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12467	label: 'Fly By Help'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12468	name: 'CheckBox6'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12469	layout: (LayoutFrame 5 0 5 0 -5 1 27 0)
6781 facbb533a366 * empty log message * Claus Gittinger <cg@exept.de> parents: 6780 diff changeset	12470	model: flyByHelpActive
6166 92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12471	translateLabel: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12472	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12473	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12474
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12475	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12476	extent: (Point 551 58)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12477	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12478	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12479
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12480	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12481	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12482	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12483
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12484	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12485	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12486	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12487
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12488	!AbstractSettingsApplication::SystemMessageSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12489
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12490	basicReadSettings
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12491	self
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12492	readAspects:
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12493	#(
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12494	beepForInfoDialog
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12495	beepForWarningDialog
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12496	beepForErrorDialog
6781 facbb533a366 * empty log message * Claus Gittinger <cg@exept.de> parents: 6780 diff changeset	12497	flyByHelpActive
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12498	)
6781 facbb533a366 * empty log message * Claus Gittinger <cg@exept.de> parents: 6780 diff changeset	12499	from:currentUserPrefs.
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12500
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12501	self vmInfo value:ObjectMemory infoPrinting.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12502	self vmErrors value:ObjectMemory debugPrinting.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12503	self classInfos value:Object infoPrinting.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12504	self displayErrors value:DeviceWorkstation errorPrinting.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12505	self changeFileName value:ObjectMemory nameForChanges.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12506	self logDoits value:Smalltalk logDoits.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12507	self updChanges value:Class updatingChanges.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12508	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12509
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12510	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12511
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12512	ObjectMemory infoPrinting:self vmInfo value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12513	ObjectMemory debugPrinting:self vmErrors value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12514	Object infoPrinting:self classInfos value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12515	DeviceWorkstation errorPrinting:self displayErrors value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12516	ObjectMemory nameForChanges:self changeFileName value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12517	Smalltalk logDoits:self logDoits value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12518	Class updateChanges:self updChanges value.
6163 00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	12519
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12520	self
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12521	writeAspects:
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12522	#(
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12523	beepForInfoDialog
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12524	beepForWarningDialog
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12525	beepForErrorDialog
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12526	flyByHelpActive
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12527	)
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12528	to:currentUserPrefs.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12529	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12530
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	12531	helpFilename
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	12532	^ 'Launcher/messageSettings.html'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12533	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12534
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12535	!AbstractSettingsApplication::SystemMessageSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12536
6163 00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	12537	beepForErrorDialog
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	12538	beepForErrorDialog isNil ifTrue:[
6781 facbb533a366 * empty log message * Claus Gittinger <cg@exept.de> parents: 6780 diff changeset	12539	beepForErrorDialog := currentUserPrefs beepForErrorDialog asValue.
6163 00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	12540	beepForErrorDialog onChangeSend:#updateModifiedChannel to:self
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	12541	].
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	12542	^ beepForErrorDialog.
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	12543	!
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	12544
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	12545	beepForInfoDialog
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	12546	beepForInfoDialog isNil ifTrue:[
6781 facbb533a366 * empty log message * Claus Gittinger <cg@exept.de> parents: 6780 diff changeset	12547	beepForInfoDialog := currentUserPrefs beepForInfoDialog asValue.
6163 00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	12548	beepForInfoDialog onChangeSend:#updateModifiedChannel to:self
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	12549	].
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	12550	^ beepForInfoDialog.
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	12551	!
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	12552
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	12553	beepForWarningDialog
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	12554	beepForWarningDialog isNil ifTrue:[
6781 facbb533a366 * empty log message * Claus Gittinger <cg@exept.de> parents: 6780 diff changeset	12555	beepForWarningDialog := currentUserPrefs beepForWarningDialog asValue.
6163 00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	12556	beepForWarningDialog onChangeSend:#updateModifiedChannel to:self
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	12557	].
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	12558	^ beepForWarningDialog.
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	12559	!
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	12560
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12561	changeFileName
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12562
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12563	changeFileName isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12564	changeFileName := ObjectMemory nameForChanges asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	12565	changeFileName onChangeSend:#updateModifiedChannel to:self
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12566	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12567	^ changeFileName.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12568	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12569
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12570	classInfos
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12571
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12572	classInfos isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12573	classInfos := Object infoPrinting asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	12574	classInfos onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12575	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12576	^ classInfos.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12577	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12578
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12579	displayErrors
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12580
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12581	displayErrors isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12582	displayErrors := DeviceWorkstation errorPrinting asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	12583	displayErrors onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12584	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12585	^ displayErrors.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12586	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12587
6781 facbb533a366 * empty log message * Claus Gittinger <cg@exept.de> parents: 6780 diff changeset	12588	flyByHelpActive
6166 92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12589	flyByHelp isNil ifTrue:[
6781 facbb533a366 * empty log message * Claus Gittinger <cg@exept.de> parents: 6780 diff changeset	12590	flyByHelp := currentUserPrefs flyByHelpActive asValue.
6166 92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12591	flyByHelp onChangeSend:#updateModifiedChannel to:self
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12592	].
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12593	^ flyByHelp.
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12594	!
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12595
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12596	logDoits
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12597
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12598	logDoits isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12599	logDoits := Smalltalk logDoits asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	12600	logDoits onChangeSend:#updateModifiedChannel to:self
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12601	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12602	^ logDoits.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12603	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12604
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12605	updChanges
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12606
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12607	updChanges isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12608	updChanges := Class updatingChanges asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	12609	updChanges onChangeSend:#updateModifiedChannel to:self
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12610	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12611	^ updChanges.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12612	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12613
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12614	vmErrors
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	12615
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	12616	vmErrors isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	12617	vmErrors := ObjectMemory debugPrinting asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	12618	vmErrors onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	12619	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	12620	^ vmErrors.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	12621	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	12622
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12623	vmInfo
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12624
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12625	vmInfo isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12626	vmInfo := ObjectMemory infoPrinting asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	12627	vmInfo onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12628	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12629	^ vmInfo.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12630	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12631
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12632	!AbstractSettingsApplication::SystemMessageSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12633
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12634	hasUnsavedChanges
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	12635	(self
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	12636	hasChangedAspectIn:
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	12637	#(
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	12638	beepForInfoDialog
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	12639	beepForWarningDialog
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	12640	beepForErrorDialog
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	12641	flyByHelpActive
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	12642	)
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	12643	asComparedTo:currentUserPrefs) ifTrue:[^ true].
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	12644
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	12645	self vmInfo value ~= ObjectMemory infoPrinting ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	12646	self vmErrors value ~= ObjectMemory debugPrinting ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	12647	self classInfos value ~= Object infoPrinting ifTrue:[^ true].
6163 00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	12648	self logDoits value ~= Smalltalk logDoits ifTrue:[^ true].
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	12649	self updChanges value ~= Class updatingChanges ifTrue:[^ true].
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	12650	self changeFileName value ~= ObjectMemory nameForChanges ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	12651	self displayErrors value ~= DeviceWorkstation errorPrinting ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	12652	^ false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12653	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12654
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	12655	!AbstractSettingsApplication::ToolsSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	12656
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12657	defaultIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	12658	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	12659	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	12660
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	12661	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	12662	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	12663
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	12664	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	12665	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	12666	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	12667	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	12668	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	12669
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	12670	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	12671
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	12672	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	12673	constantNamed:#'AbstractSettingsApplication::ToolsSettingsAppl class defaultIcon'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	12674	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	12675	*****************************@@@@@@@@@@@@@J(@@@@@@@@@@@@@ @@@F(QD@@@@@B@@@@B((QD@@@@J(@@@@@@JLQ@@@@ @B$@@@)CD@@@B*@@
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	12676	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	12677	@@@@@@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	12678	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	12679
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12680	!AbstractSettingsApplication::ToolsSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12681
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12682	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12683	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12684	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12685
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12686	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12687	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12688
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12689	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	12690	UIPainter new openOnClass:AbstractSettingsApplication::ToolsSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	12691	AbstractSettingsApplication::ToolsSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	12692	AbstractSettingsApplication::ToolsSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12693	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12694
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12695	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12696
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12697	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12698	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12699	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12700	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12701	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12702	label: 'Tool Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12703	name: 'Tool Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12704	min: (Point 10 10)
5576 8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	12705	bounds: (Rectangle 0 0 607 786)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12706	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12707	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12708	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12709	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12710	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12711	name: 'VerticalPanel2'
5576 8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	12712	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	12713	horizontalLayout: fit
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12714	verticalLayout: top
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12715	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12716	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12717	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12718	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12719	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12720	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12721	label: 'Use the New System Browser'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12722	name: 'NewSystemBrowser'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12723	model: useNewSystemBrowser
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12724	translateLabel: true
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	12725	extent: (Point 607 25)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12726	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12727	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12728	label: 'Use the New File Browser'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12729	name: 'NewFileBrowser'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12730	model: useNewFileBrowser
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12731	translateLabel: true
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	12732	extent: (Point 607 25)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12733	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12734	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12735	label: 'Use the New VersionDiff Browser'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12736	name: 'VersionDiffBrowser'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12737	model: useNewVersionDiffBrowser
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12738	translateLabel: true
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	12739	extent: (Point 607 25)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12740	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12741	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12742	label: 'Use the New FileTree File Dialog'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12743	name: 'UseNewFileDialogCheckBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12744	model: useNewFileDialog
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12745	translateLabel: true
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	12746	extent: (Point 607 25)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12747	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12748	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12749	label: 'Use the New Settings Dialog'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12750	name: 'UseNewSettinsApplicationCheckBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12751	model: useNewSettingsApplication
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12752	translateLabel: true
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	12753	extent: (Point 607 25)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12754	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12755	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12756	label: 'Use the New Process Monitor'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12757	name: 'UseNewProcessMonitor'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12758	model: useProcessMonitorV2
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12759	translateLabel: true
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	12760	extent: (Point 607 25)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12761	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12762	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12763	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	12764	name: 'ChangesBrowser'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12765	model: useNewChangesBrowser
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12766	translateLabel: true
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	12767	extent: (Point 607 25)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12768	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12769	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12770	label: 'Use Hierarchical Inspector (not yet recommended)'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12771	name: 'HierarchicalInspector'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12772	model: useNewInspector
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12773	translateLabel: true
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	12774	extent: (Point 607 25)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12775	)
6742 62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	12776	(CheckBoxSpec
62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	12777	label: 'Use the Smalltalk Document Viewer'
62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	12778	name: 'UseSmalltalkDocumentViewer'
62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	12779	model: useSmalltalkDocumentViewer
62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	12780	translateLabel: true
62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	12781	extent: (Point 607 25)
62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	12782	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12783	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12784	name: 'Box2'
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	12785	extent: (Point 607 20)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12786	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12787	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12788	label: 'Show Clock in Launcher'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12789	name: 'Clock'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12790	model: showClockInLauncher
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12791	translateLabel: true
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	12792	extent: (Point 607 25)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12793	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12794	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12795	name: 'Box3'
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	12796	extent: (Point 607 19)
5576 8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	12797	)
8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	12798	(HorizontalPanelViewSpec
8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	12799	name: 'HorizontalPanel1'
8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	12800	horizontalLayout: leftSpaceFit
8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	12801	verticalLayout: center
8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	12802	horizontalSpace: 3
8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	12803	verticalSpace: 3
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12804	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12805	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12806	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12807	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12808	label: 'Transcripts Buffer Size:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12809	name: 'Label1'
5576 8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	12810	translateLabel: true
8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	12811	resizeForLabel: true
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12812	adjust: right
6072 470d0fb1c937 * empty log message * Claus Gittinger <cg@exept.de> parents: 6064 diff changeset	12813	extent: (Point 190 19)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12814	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12815	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12816	name: 'Transcripts Buffer Size'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12817	model: transcriptBufferSize
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12818	type: number
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12819	immediateAccept: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12820	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12821	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12822	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12823	acceptOnPointerLeave: true
6072 470d0fb1c937 * empty log message * Claus Gittinger <cg@exept.de> parents: 6064 diff changeset	12824	extent: (Point 408 24)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	12825	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	12826	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	12827
933cd54deefe checkin from browser penk parents: 4292 diff changeset	12828	)
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	12829	extent: (Point 607 35)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12830	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12831	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12832
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12833	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12834	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12835	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12836
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12837	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12838	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12839	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12840
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12841	!AbstractSettingsApplication::ToolsSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12842
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12843	basicReadSettings
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12844	self
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12845	readAspects:
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12846	#(
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12847	useNewInspector
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12848	useNewChangesBrowser
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12849	useNewSystemBrowser
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12850	useNewVersionDiffBrowser
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12851	useNewFileBrowser
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12852	useNewFileDialog
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12853	useNewSettingsApplication
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12854	useProcessMonitorV2
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12855	useSmalltalkDocumentViewer
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12856	showClockInLauncher
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12857	)
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12858	from:currentUserPrefs.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12859
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12860	Transcript current isExternalStream ifFalse:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12861	self transcriptBufferSize value:Transcript current lineLimit.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12862	].
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12863	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12864
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12865	basicSaveSettings
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12866	\|showClock launcher reopenLauncher newSystemBrowserClass transcript\|
5594 06aba5d1bb6e NewSystemBrowser -> Tools::NewSystemBrowser Claus Gittinger <cg@exept.de> parents: 5583 diff changeset	12867
06aba5d1bb6e NewSystemBrowser -> Tools::NewSystemBrowser Claus Gittinger <cg@exept.de> parents: 5583 diff changeset	12868	newSystemBrowserClass := Tools::NewSystemBrowser ? NewSystemBrowser.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12869
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12870	self
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12871	writeAspects:
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12872	#(
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12873	useNewInspector
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12874	useNewChangesBrowser
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12875	useNewVersionDiffBrowser
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12876	useNewFileDialog
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12877	useProcessMonitorV2
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12878	useSmalltalkDocumentViewer
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12879	)
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12880	to:currentUserPrefs.
6742 62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	12881
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	12882	currentUserPrefs useNewSettingsApplication ~= self useNewSettingsApplication value ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	12883	currentUserPrefs useNewSettingsApplication:self useNewSettingsApplication value.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	12884	].
5083 7fdf1e8c8f03 reopen launcher when systemBrowser setting changes Claus Gittinger <cg@exept.de> parents: 5080 diff changeset	12885
7fdf1e8c8f03 reopen launcher when systemBrowser setting changes Claus Gittinger <cg@exept.de> parents: 5080 diff changeset	12886	currentUserPrefs useNewSystemBrowser ~= self useNewSystemBrowser value ifTrue:[
7fdf1e8c8f03 reopen launcher when systemBrowser setting changes Claus Gittinger <cg@exept.de> parents: 5080 diff changeset	12887	currentUserPrefs useNewSystemBrowser:self useNewSystemBrowser value.
5594 06aba5d1bb6e NewSystemBrowser -> Tools::NewSystemBrowser Claus Gittinger <cg@exept.de> parents: 5583 diff changeset	12888	(self useNewSystemBrowser value and:[newSystemBrowserClass isLoaded]) ifTrue:[
06aba5d1bb6e NewSystemBrowser -> Tools::NewSystemBrowser Claus Gittinger <cg@exept.de> parents: 5583 diff changeset	12889	newSystemBrowserClass installInLauncher.
5083 7fdf1e8c8f03 reopen launcher when systemBrowser setting changes Claus Gittinger <cg@exept.de> parents: 5080 diff changeset	12890	] ifFalse:[
5594 06aba5d1bb6e NewSystemBrowser -> Tools::NewSystemBrowser Claus Gittinger <cg@exept.de> parents: 5583 diff changeset	12891	newSystemBrowserClass removeFromLauncher.
5083 7fdf1e8c8f03 reopen launcher when systemBrowser setting changes Claus Gittinger <cg@exept.de> parents: 5080 diff changeset	12892	].
7fdf1e8c8f03 reopen launcher when systemBrowser setting changes Claus Gittinger <cg@exept.de> parents: 5080 diff changeset	12893	reopenLauncher := true.
7fdf1e8c8f03 reopen launcher when systemBrowser setting changes Claus Gittinger <cg@exept.de> parents: 5080 diff changeset	12894	].
7fdf1e8c8f03 reopen launcher when systemBrowser setting changes Claus Gittinger <cg@exept.de> parents: 5080 diff changeset	12895
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12896	(Smalltalk at:#FileBrowserV2) isBehavior ifTrue:[
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	12897	currentUserPrefs useNewFileBrowser ~= self useNewFileBrowser value ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	12898	currentUserPrefs useNewFileBrowser:self useNewFileBrowser value.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	12899	(self useNewFileBrowser value and:[FileBrowserV2 isLoaded]) ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	12900	FileBrowserV2 installInLauncher.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	12901	] ifFalse:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12902	FileBrowserV2 removeFromLauncher.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	12903	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	12904	reopenLauncher := true.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	12905	]
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12906	].
5627 d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	12907
d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	12908	transcript := Transcript current.
d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	12909	(transcript notNil and:[transcript isExternalStream not]) ifTrue:[
d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	12910	launcher := transcript application.
d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	12911	].
d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	12912
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12913	showClock := self showClockInLauncher value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12914	currentUserPrefs showClockInLauncher ~= showClock ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12915	currentUserPrefs showClockInLauncher:showClock.
5627 d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	12916	launcher notNil ifTrue:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12917	showClock ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12918	launcher startClock
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12919	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12920	launcher stopClock
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12921	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12922	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12923	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12924	Inspector := currentUserPrefs inspectorClassSetting.
5627 d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	12925
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	12926	reopenLauncher ifTrue:[
5627 d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	12927	launcher notNil ifTrue:[
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	12928	launcher reopenLauncher.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	12929	]
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	12930	].
6757 fbce24177fdb transcript buffersize fix Claus Gittinger <cg@exept.de> parents: 6743 diff changeset	12931
fbce24177fdb transcript buffersize fix Claus Gittinger <cg@exept.de> parents: 6743 diff changeset	12932	transcript := Transcript current.
fbce24177fdb transcript buffersize fix Claus Gittinger <cg@exept.de> parents: 6743 diff changeset	12933	(transcript notNil and:[transcript isExternalStream not]) ifTrue:[
fbce24177fdb transcript buffersize fix Claus Gittinger <cg@exept.de> parents: 6743 diff changeset	12934	transcript lineLimit:self transcriptBufferSize value.
fbce24177fdb transcript buffersize fix Claus Gittinger <cg@exept.de> parents: 6743 diff changeset	12935	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12936	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12937
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	12938	helpFilename
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	12939	^ 'Launcher/toolSettings.html'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12940	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12941
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12942	!AbstractSettingsApplication::ToolsSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12943
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12944	showClockInLauncher
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	12945	showClockInLauncher isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	12946	showClockInLauncher := currentUserPrefs showClockInLauncher asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	12947	showClockInLauncher onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	12948	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	12949	^ showClockInLauncher.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	12950	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	12951
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12952	transcriptBufferSize
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	12953	transcriptBufferSize isNil ifTrue:[
5627 d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	12954	transcriptBufferSize := 600 asValue. "/ Transcript current lineLimit asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	12955	transcriptBufferSize onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	12956	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	12957	^ transcriptBufferSize.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	12958	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	12959
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12960	useNewChangesBrowser
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	12961	useNewChangesBrowser isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	12962	useNewChangesBrowser := currentUserPrefs useNewChangesBrowser asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	12963	useNewChangesBrowser onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	12964	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	12965	^ useNewChangesBrowser.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	12966	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	12967
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12968	useNewFileBrowser
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	12969	useNewFileBrowser isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	12970	useNewFileBrowser := currentUserPrefs useNewFileBrowser asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	12971	useNewFileBrowser onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	12972	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	12973	^ useNewFileBrowser.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	12974	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	12975
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12976	useNewFileDialog
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	12977	useNewFileDialog isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	12978	useNewFileDialog := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	12979	useNewFileDialog onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	12980	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	12981	^ useNewFileDialog.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	12982	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	12983
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12984	useNewInspector
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	12985	useNewInspector isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	12986	useNewInspector := currentUserPrefs useNewInspector asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	12987	useNewInspector onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	12988	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	12989	^ useNewInspector.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	12990	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	12991
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12992	useNewSettingsApplication
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	12993	useNewSettingsApplication isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	12994	useNewSettingsApplication := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	12995	useNewSettingsApplication onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	12996	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	12997	^ useNewSettingsApplication.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	12998	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	12999
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13000	useNewSystemBrowser
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	13001	useNewSystemBrowser isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	13002	useNewSystemBrowser := currentUserPrefs useNewSystemBrowser asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	13003	useNewSystemBrowser onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	13004	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	13005	^ useNewSystemBrowser.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	13006	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	13007
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13008	useNewVersionDiffBrowser
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	13009	useNewVersionDiffBrowser isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	13010	useNewVersionDiffBrowser := currentUserPrefs useNewVersionDiffBrowser asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	13011	useNewVersionDiffBrowser onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	13012	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	13013	^ useNewVersionDiffBrowser.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	13014	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	13015
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13016	useProcessMonitorV2
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	13017	useProcessMonitorV2 isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	13018	useProcessMonitorV2 := currentUserPrefs useProcessMonitorV2 asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	13019	useProcessMonitorV2 onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	13020	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	13021	^ useProcessMonitorV2.
6742 62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	13022	!
62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	13023
62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	13024	useSmalltalkDocumentViewer
62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	13025	useSmalltalkDocumentViewer isNil ifTrue:[
62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	13026	useSmalltalkDocumentViewer := currentUserPrefs useSmalltalkDocumentViewer asValue.
62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	13027	useSmalltalkDocumentViewer onChangeSend:#updateModifiedChannel to:self
62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	13028	].
62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	13029	^ useSmalltalkDocumentViewer.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13030	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13031
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13032	!AbstractSettingsApplication::ToolsSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13033
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13034	hasUnsavedChanges
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	13035	(self
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	13036	hasChangedAspectIn:
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	13037	#(
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	13038	useNewInspector
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	13039	useNewChangesBrowser
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	13040	useNewSystemBrowser
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	13041	useNewVersionDiffBrowser
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	13042	useNewFileBrowser
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	13043	useNewFileDialog
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	13044	useNewSettingsApplication
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	13045	useProcessMonitorV2
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	13046	useSmalltalkDocumentViewer
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	13047	showClockInLauncher
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	13048	)
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	13049	asComparedTo:currentUserPrefs) ifTrue:[^ true].
6742 62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	13050
5627 d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	13051	Transcript current isExternalStream ifFalse:[
d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	13052	(self transcriptBufferSize value ~= Transcript current lineLimit) ifTrue:[^ true].
d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	13053	].
d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	13054	^ false.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13055	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13056
4226 44e2f83cc526 initial checkin penk parents: diff changeset	13057	!AbstractSettingsApplication class methodsFor:'documentation'!
44e2f83cc526 initial checkin penk parents: diff changeset	13058
44e2f83cc526 initial checkin penk parents: diff changeset	13059	version
7080 26d4f0a51124 * empty log message * Claus Gittinger <cg@exept.de> parents: 7071 diff changeset	13060	^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.246 2006-09-04 08:34:57 cg Exp $'
26d4f0a51124 * empty log message * Claus Gittinger <cg@exept.de> parents: 7071 diff changeset	13061	! !

author	Claus Gittinger <cg@exept.de>
	Mon, 04 Sep 2006 10:34:57 +0200
changeset 7080	26d4f0a51124
parent 7071	72b45ddec569
child 7099	786bfd931b07
permissions	-rw-r--r--