hg/stx-libtool: AbstractSettingsApplication.st@ae51cb7d24de (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
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	23	AbstractSettingsApplication subclass:#BuildSettingsAppl
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	24	instanceVariableNames:'buildDirectory localBuild'
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	25	classVariableNames:''
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	26	poolDictionaries:''
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	27	privateIn:AbstractSettingsApplication
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	28	!
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	29
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	30	AbstractSettingsApplication subclass:#ByteCodeCompilerSettingsAppl
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	31	instanceVariableNames:'warnings warnSTX warnDollar warnOldStyle warnCommonMistakes
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	32	warnUnderscore warnCompatibility warnUnusedVars
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	33	warnAboutWrongVariableNames warnAboutBadComments
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	34	warnInconsistentReturnValues warnAboutLowercaseLocalVariableNames
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	35	allowQualifiedNames allowDollar allowReservedWordsAsSelectors
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	36	allowOldStyleAssignment allowUnderscore allowDolphinExtensions
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	37	allowSqueakExtensions allowVisualAgeESSymbolLiterals
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	38	allowFixedPointLiterals justInTimeCompilation canLoadBinaries
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	39	constantFoldingSelection keepSource constantFolding
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	40	constantFoldingOptions fullDebugSupport immutableArrays
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	41	enableUnderscore enableDollar'
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
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	45	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	46
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	47	AbstractSettingsApplication subclass:#DebuggerSettingsAppl
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	48	instanceVariableNames:'showErrorNotifier showVerboseStack allowSendMailFromDebugger'
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	49	classVariableNames:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	50	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	51	privateIn:AbstractSettingsApplication
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	52	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	53
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	54	AbstractSettingsApplication subclass:#DisplaySettingsAppl
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	55	instanceVariableNames:'isColorMonitor useFixGrayPaletteLabel useFixPalette sizeY
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	56	clipEncodingListSelection sizeX monitorList ditherList
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	57	clipEncodingList ditherListSelection deepIcons monitorSelection
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	58	useFixPaletteLabel visualIsPseudoColor ditherSymsNotNil
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	59	useFixGrayPalette sizeInfos screen ditherStyles ditherSyms
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	60	screenDepthVisualLabelHolder maxCopyBufferSize'
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	61	classVariableNames:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	62	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	63	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	64	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	65
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	66	AbstractSettingsApplication subclass:#EditSettingsAppl
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	67	instanceVariableNames:'st80EditingMode tabsIs4 st80DoubleClickSelectMode
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	68	searchDialogIsModal startTextDragWithControl'
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	69	classVariableNames:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	70	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	71	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	72	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	73
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	74	AbstractSettingsApplication subclass:#FontSettingsAppl
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	75	instanceVariableNames:'filter allOfThem labelDef buttonDef listDef menuDef textDef
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	76	allFontLabelHolder buttonsFontLabelHolder textFontLabelHolder
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	77	labelsFontLabelHolder listsFontLabelHolder menusFontLabelHolder
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	78	allLabel buttonsLabel textLabel labelLabel listsLabel menuLabel'
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	79	classVariableNames:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	80	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	81	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	82	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	83
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	84	AbstractSettingsApplication subclass:#GeneralCompilerSettingsAppl
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	85	instanceVariableNames:'st80EditingMode tabsIs4 st80DoubleClickSelectMode
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	86	searchDialogIsModal startTextDragWithControl catchClassRedefs
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	87	fullHistoryUpdate historyLines keepSourceSelection keepSource
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	88	hasHistoryManager canLoadBinaries loadBinaries catchMethodRedefs'
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	89	classVariableNames:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	90	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	91	privateIn:AbstractSettingsApplication
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	92	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	93
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	94	AbstractSettingsApplication subclass:#HTTPStartServerSettingsApplication
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	95	instanceVariableNames:'portNumberChannel informationLabel hasNoCreatedServerChannel
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	96	hasCreatedServerChannel useFcgiHolder'
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	97	classVariableNames:'CreatedServers'
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	98	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	99	privateIn:AbstractSettingsApplication
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	100	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	101
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	102	AbstractSettingsApplication subclass:#KbdMappingSettingsAppl
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	103	instanceVariableNames:'selectedRawKey macroTextHolder selectedFunctionKey
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	104	labelTextHolder functionKeyList rawKeyList mappings'
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	105	classVariableNames:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	106	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	107	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	108	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	109
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	110	AbstractSettingsApplication subclass:#LanguageSettingsAppl
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	111	instanceVariableNames:'languageHolder languageIndexHolder languageList
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	112	languageListHolder listOfLanguages translatedLanguages
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	113	noticeLabelHolder currentFlagAndLanguageChannel
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	114	currentLanguageLabel perLanguageResources'
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	115	classVariableNames:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	116	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	117	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	118	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	119
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	120	AbstractSettingsApplication subclass:#MemorySettingsAppl
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	121	instanceVariableNames:'newSpaceSize maxOldSpace fastMoreLimit warningLabelHolder
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	122	codeTrigger codeLimit oldIncr compressLimit igcFreeLimit igcLimit
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	123	igcFreeAmount stackLimit supportsJustInTimeCompilation'
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	124	classVariableNames:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	125	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	126	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	127	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	128
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	129	AbstractSettingsApplication subclass:#MiscCommunicationSettingsAppl
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	130	instanceVariableNames:'remoteBrowsingEnabled windowMigrationEnabled
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	131	windowMigrationPassword windowMigrationAuthenticate
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	132	enablePasswordCheck'
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	133	classVariableNames:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	134	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	135	privateIn:AbstractSettingsApplication
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	136	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	137
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	138	AbstractSettingsApplication subclass:#MiscDisplaySettingsAppl
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	139	instanceVariableNames:'returnFocus focusFollowsMouse beepEnabled takeFocus
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	140	activateOnClick nativeWidgets nativeDialogs shadows
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	141	opaqueVariablePanelResize formatHostNameinWindowLabels
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	142	opaqueTableColumnResize hostNameInLabelHolder showAccelerators
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	143	newWindowLabelFormat formatHostNameWindowLabel'
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	144	classVariableNames:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	145	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	146	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	147	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	148
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	149	AbstractSettingsApplication subclass:#OsiSettingsAppl
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	150	instanceVariableNames:'osiACSEConnectionLogging osiROSEErrorLogging osiCMISEErrorLogging
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	151	osiACSEErrorLogging osiROSEPresent osiCMISEPresent
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	152	osiCMISEMessageLogging osiACSEDataLogging
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	153	osiROSEInvokationLogging osiACSEPresent osiROSEResponseLogging'
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	154	classVariableNames:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	155	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	156	privateIn:AbstractSettingsApplication
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	157	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	158
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	159	AbstractSettingsApplication subclass:#PrinterSettingsAppl
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	160	instanceVariableNames:'selectedUnit supportsColor topMargin rightMargin bottomMargin
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	161	landscape pageFormatList pageFormat unitList leftMargin
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	162	possiblePrinters printerType printerTypeSelection
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	163	printCommandList commandList printCommand printFilename
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	164	enableFormat enablelandscape enableMargins enableColorBox'
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
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	168	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	169
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	170	AbstractSettingsApplication subclass:#ProcessorSchedulerSettingsAppl
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	171	instanceVariableNames:'dynamicPrios preemptive'
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	172	classVariableNames:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	173	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	174	privateIn:AbstractSettingsApplication
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	175	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	176
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	177	AbstractSettingsApplication subclass:#RDoItServerSettingsAppl
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	178	instanceVariableNames:'rDoitLogging rDoitsEnabled rDoitErrorLogging hasRDoitServer
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	179	rDoitErrorDebugging rDoitServerPortOrPath'
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	180	classVariableNames:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	181	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	182	privateIn:AbstractSettingsApplication
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	183	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	184
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	185	AbstractSettingsApplication subclass:#SQLServerSettingsAppl
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	186	instanceVariableNames:'sqlServerEnabled sqlSmalltalkServerEnabled sqlLogging
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	187	sqlDataLogging sqlErrorLogging hasSQLServer sqlErrorDebugging
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	188	sqlServerPort'
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	189	classVariableNames:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	190	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	191	privateIn:AbstractSettingsApplication
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	192	!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	193
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	194	AbstractSettingsApplication subclass:#STCCompilerSettingsAppl
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	195	instanceVariableNames:'cc ccOptions stcIncludes linkCommand stc linkArgs linkSharedArgs
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	196	canLoadBinaries stcDefines stcLibraries stcOptions stcLibraryPath
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	197	stcCompilationSelection stcCompilationList makeCommand'
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	198	classVariableNames:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	199	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	200	privateIn:AbstractSettingsApplication
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	201	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	202
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	203	AbstractSettingsApplication subclass:#SourceCodeFormatSettingsAppl
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	204	instanceVariableNames:'spaceAfterKeywordSelector emptyLineAfterTemporaries tabIndent
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	205	autoFormat cStyleBlocks editorText maxLengthForSingleLineBlocks
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	206	blockArgumentsOnNewLine spaceAfterReturnToken
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	207	spaceAroundTemporaries spaceAfterBlockStart spaceBeforeBlockEnd
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	208	oldUserPreferences reformatLocked'
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	209	classVariableNames:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	210	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	211	privateIn:AbstractSettingsApplication
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	212	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	213
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	214	AbstractSettingsApplication subclass:#SourceCodeManagementSettingsAppl
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	215	instanceVariableNames:'sourceCacheDir useManager availableManagers condenseSourceCache
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	216	setupSourceCodeManager checkClassesWhenCheckingIn
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	217	formattingConfiguration flushSourceCache localSourceFirst
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	218	repositoryHolder manager repository listOfModules
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	219	cvsRootPrototypeList addPerModuleRoot removeEnabled
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	220	perModuleRootModule acceptChannel removePerModuleRoot
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	221	perModuleRoot cvsRootHolder selectedPerModuleRoot
7331 b8986149fdfd use CVSExecutable instead of CVSBindir Claus Gittinger <cg@exept.de> parents: 7326 diff changeset	222	cvsBinDirectoryHolder cvsExecutableHolder rootsPerModule
b8986149fdfd use CVSExecutable instead of CVSBindir Claus Gittinger <cg@exept.de> parents: 7326 diff changeset	223	cvsLoginInModuleEnabled cvsLoginEnabled
b8986149fdfd use CVSExecutable instead of CVSBindir Claus Gittinger <cg@exept.de> parents: 7326 diff changeset	224	selectedManagerTypeIndexHolder managerIsCVSSourceCodeManager
b8986149fdfd use CVSExecutable instead of CVSBindir Claus Gittinger <cg@exept.de> parents: 7326 diff changeset	225	managerIsStoreSourceCodeManager storeLoginEnabled
b8986149fdfd use CVSExecutable instead of CVSBindir Claus Gittinger <cg@exept.de> parents: 7326 diff changeset	226	storeHostPrototypeList storeHostnameHolder storeUsernameHolder
b8986149fdfd use CVSExecutable instead of CVSBindir Claus Gittinger <cg@exept.de> parents: 7326 diff changeset	227	storePasswordHolder perStoreModuleHostnameHolder
b8986149fdfd use CVSExecutable instead of CVSBindir Claus Gittinger <cg@exept.de> parents: 7326 diff changeset	228	perStoreModuleUsernameHolder perStoreModulePasswordHolder
b8986149fdfd use CVSExecutable instead of CVSBindir Claus Gittinger <cg@exept.de> parents: 7326 diff changeset	229	perStoreModuleRoot perStoreModuleRootModule
b8986149fdfd use CVSExecutable instead of CVSBindir Claus Gittinger <cg@exept.de> parents: 7326 diff changeset	230	selectedPerStoreModuleRoot storeConnectEnabled
b8986149fdfd use CVSExecutable instead of CVSBindir Claus Gittinger <cg@exept.de> parents: 7326 diff changeset	231	storeConnectInModuleEnabled perModuleFieldsEnableHolder
b8986149fdfd use CVSExecutable instead of CVSBindir Claus Gittinger <cg@exept.de> parents: 7326 diff changeset	232	perStoreModuleFieldsEnableHolder'
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	233	classVariableNames:'RecentlyUsedCVSRoots RecentlyUsedStoreHosts LastStoreHost
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	234	LastStoreUser LastStorePassword'
6868 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
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	239	AbstractSettingsApplication subclass:#StyleSettingsAppl
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	240	instanceVariableNames:'showStandardStylesOnly styleList selectedStyle
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	241	styleDirectoryContents infoLabelHolder noticeLabelHolder'
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	242	classVariableNames:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	243	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	244	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	245	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	246
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	247	AbstractSettingsApplication subclass:#SyntaxColorSettingsAppl
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	248	instanceVariableNames:'coloredText syntaxColor syntaxColors resetList resetListSelection
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	249	fullSelectorCheck syntaxColoring oldUserPreferences
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	250	syntaxFontSelector syntaxFonts syntaxElementList
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	251	syntaxElementSelection syntaxEmphasisList syntaxEmphasisSelection
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	252	emphasisDictionary resetListDictionary'
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	253	classVariableNames:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	254	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	255	privateIn:AbstractSettingsApplication
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	256	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	257
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	258	AbstractSettingsApplication subclass:#SystemMessageSettingsAppl
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	259	instanceVariableNames:'classInfos vmInfo vmErrors displayErrors logDoits updChanges
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	260	changeFileName beepForInfoDialog beepForWarningDialog
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	261	beepForErrorDialog flyByHelp'
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	262	classVariableNames:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	263	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	264	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	265	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	266
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	267	AbstractSettingsApplication subclass:#ToolsSettingsAppl
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	268	instanceVariableNames:'useNewVersionDiffBrowser transcriptBufferSize useNewInspector
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	269	showClockInLauncher useNewChangesBrowser useNewFileBrowser
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	270	useNewSystemBrowser useNewFileDialog useNewSettingsApplication
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	271	useProcessMonitorV2 useSmalltalkDocumentViewer'
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	272	classVariableNames:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	273	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	274	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	275	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	276
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	277	!AbstractSettingsApplication class methodsFor:'documentation'!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	278
5140 36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	279	copyright
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	280	"
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	281	COPYRIGHT (c) 2002 by eXept Software AG
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	282	All Rights Reserved
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	283
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	284	This software is furnished under a license and may be used
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	285	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	286	inclusion of the above copyright notice. This software may not
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	287	be provided or otherwise made available to, or used by, any
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	288	other person. No title to or ownership of the software is
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	289	hereby transferred.
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	290	"
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	291	! !
4226 44e2f83cc526 initial checkin penk parents: diff changeset	292
4292 68504047f229 * empty log message * penk parents: 4286 diff changeset	293	!AbstractSettingsApplication class methodsFor:'defaults'!
68504047f229 * empty log message * penk parents: 4286 diff changeset	294
68504047f229 * empty log message * penk parents: 4286 diff changeset	295	classResources
68504047f229 * empty log message * penk parents: 4286 diff changeset	296
68504047f229 * empty log message * penk parents: 4286 diff changeset	297	^ AbstractLauncherApplication classResources
5563 5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	298	!
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	299
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	300	resourcePackName
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	301	^ AbstractLauncherApplication resourcePackName
4292 68504047f229 * empty log message * penk parents: 4286 diff changeset	302	! !
68504047f229 * empty log message * penk parents: 4286 diff changeset	303
5283 9264c15059e7 category change penk parents: 5280 diff changeset	304	!AbstractSettingsApplication class methodsFor:'interface specs'!
9264c15059e7 category change penk parents: 5280 diff changeset	305
9264c15059e7 category change penk parents: 5280 diff changeset	306	windowSpec
9264c15059e7 category change penk parents: 5280 diff changeset	307	self subclassResponsibility
9264c15059e7 category change penk parents: 5280 diff changeset	308	! !
9264c15059e7 category change penk parents: 5280 diff changeset	309
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	310	!AbstractSettingsApplication class methodsFor:'queries'!
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	311
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	312	isVisualStartable
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	313	"return true, if this application can be started via #open.
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	314	(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	315
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	316	(self == AbstractSettingsApplication) ifTrue:[^ false "I am abstract"].
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	317	^ super isVisualStartable
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	318	! !
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	319
4705 16cfb945d591 * empty log message * penk parents: 4675 diff changeset	320	!AbstractSettingsApplication methodsFor:'accessing'!
16cfb945d591 * empty log message * penk parents: 4675 diff changeset	321
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	322	requestor:something
4705 16cfb945d591 * empty log message * penk parents: 4675 diff changeset	323	"set the value of the instance variable 'requestor' (automatically generated)"
16cfb945d591 * empty log message * penk parents: 4675 diff changeset	324
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	325	requestor := something.
5031 86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	326	!
86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	327
86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	328	settingsDialog
86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	329	^ settingsDialog
86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	330	!
86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	331
86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	332	settingsDialog:something
86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	333	settingsDialog := something.
4705 16cfb945d591 * empty log message * penk parents: 4675 diff changeset	334	! !
16cfb945d591 * empty log message * penk parents: 4675 diff changeset	335
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	336	!AbstractSettingsApplication methodsFor:'actions'!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	337
4598 330907eab7e0 * empty log message * penk parents: 4581 diff changeset	338	evaluateModified
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	339	self obsoleteMethodWarning.
c72e35116b13 instable state penk parents: 5040 diff changeset	340	^ self updateModifiedChannel.
4598 330907eab7e0 * empty log message * penk parents: 4581 diff changeset	341	!
330907eab7e0 * empty log message * penk parents: 4581 diff changeset	342
6782 8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	343	readSettings
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	344	self basicReadSettings.
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	345
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	346	self modifiedChannel value:false.
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	347	!
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	348
6029 40b96dc2621d * empty log message * ca parents: 6025 diff changeset	349	reopenToolsAfterChangedViewStyleSetting
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	350	\|app transcript\|
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	351
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	352	DebugView newDebugger.
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	353	transcript := Transcript current.
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	354	(transcript notNil and:[transcript isExternalStream not]) ifTrue:[
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	355	app := transcript topView application.
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	356	(app respondsTo:#reopenLauncher) ifTrue:[
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	357	app reopenLauncher.
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	358	].
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	359	].
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	360	!
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	361
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	362	saveRequest
4944 fce7d52d36da * empty log message * Claus Gittinger <cg@exept.de> parents: 4941 diff changeset	363	^ self saveRequestAsking:self askForChangeOnRelease
4941 42d9b274824d askForSaving fixed Claus Gittinger <cg@exept.de> parents: 4899 diff changeset	364	!
42d9b274824d askForSaving fixed Claus Gittinger <cg@exept.de> parents: 4899 diff changeset	365
42d9b274824d askForSaving fixed Claus Gittinger <cg@exept.de> parents: 4899 diff changeset	366	saveRequestAsking:askForChangeOnRelease
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	367	\|result\|
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	368
6383 62aec07a7f42 * empty log message * Claus Gittinger <cg@exept.de> parents: 6358 diff changeset	369	self hasUnsavedChanges ifTrue:[
4941 42d9b274824d askForSaving fixed Claus Gittinger <cg@exept.de> parents: 4899 diff changeset	370	askForChangeOnRelease ifTrue:[
4825 97ccd5a946f4 next step penk parents: 4813 diff changeset	371	result := self confirmWithCancel:(resources
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	372	string:'Apply changes made in %1 ?' with:settingsString allBold).
4825 97ccd5a946f4 next step penk parents: 4813 diff changeset	373	] ifFalse:[
97ccd5a946f4 next step penk parents: 4813 diff changeset	374	result := true.
97ccd5a946f4 next step penk parents: 4813 diff changeset	375	].
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	376
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	377	result isNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	378	^ false
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	379	].
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	380	result ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	381	self saveSettings
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	382	] ifFalse:[
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	383	"/ reload current settings to show the right thing when re-entering.
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	384	self readSettings
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	385	]
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	386	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	387	^ true
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	388
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	389	"Modified: / 20-09-2006 / 23:56:25 / cg"
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	390	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	391
6782 8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	392	saveSettings
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	393	self basicSaveSettings.
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	394
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	395	self modifiedChannel value:false.
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	396	!
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	397
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	398	saveSettingsIfUnsavedChangesArePresent
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	399	self hasUnsavedChanges ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	400	self saveSettings.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	401	self modifiedChannel value:false
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	402	].
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	403	!
c72e35116b13 instable state penk parents: 5040 diff changeset	404
c72e35116b13 instable state penk parents: 5040 diff changeset	405	updateModifiedChannel
c72e35116b13 instable state penk parents: 5040 diff changeset	406	self modifiedChannel value:self hasUnsavedChanges
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	407	! !
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	408
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	409	!AbstractSettingsApplication methodsFor:'aspects'!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	410
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	411	modifiedChannel
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	412
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	413	modifiedChannel isNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	414	modifiedChannel := false asValue.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	415	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	416	^ modifiedChannel
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	417	! !
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	418
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	419	!AbstractSettingsApplication methodsFor:'helpers'!
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	420
6782 8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	421	hasChangedAspectIn:aListOfAspects asComparedTo:anAspectProvider
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	422	"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	423	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	424	as ParserFlags.
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	425	Using this, and a list of aspect selectors replaces code like:
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	426	someone aspect1 ~= (self aspect1 value) ifTrue:[^ true].
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	427	someone aspect2 ~= (self aspect2 value) ifTrue:[^ true].
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	428	...
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	429	someone aspectN ~= (self aspectN value) ifTrue:[^ true].
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	430	^ false
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	431	Prerequisite:
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	432	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	433	"
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	434
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	435	aListOfAspects do:[:eachAspectSymbol \|
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	436	(self perform:eachAspectSymbol) value ~= (anAspectProvider perform:eachAspectSymbol) ifTrue:[^ true].
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	437	].
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	438	^ false
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	439	!
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	440
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	441	readAspects:aListOfAspects from:anAspectProvider
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	442	"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	443	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	444	as ParserFlags.
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	445	Using this, and a list of aspect selectors replaces code like:
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	446	self aspect1 value:(someone aspect1).
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	447	self aspect2 value:(someone aspect2).
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	448	...
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	449	self aspectN value:(someone aspectN).
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	450	Prerequisite:
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	451	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	452	"
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	453
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	454	aListOfAspects do:[:eachAspectSymbol \|
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	455	(self perform:eachAspectSymbol) value:(anAspectProvider perform:eachAspectSymbol)
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	456	].
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	457	!
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	writeAspects:aListOfAspects to:anAspectProvider
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	460	"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	461	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	462	as ParserFlags.
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	463	Using this, and a list of aspect selectors replaces code like:
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	464	someone aspect1:(self aspect1 value).
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	465	someone aspect2:(self aspect2 value).
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	466	...
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	467	someone aspectN:(self aspectN value).
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	468	Prerequisite:
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	469	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	470	"
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	471
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	472	aListOfAspects do:[:eachAspectSymbol \|
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	473	anAspectProvider perform:(eachAspectSymbol,':')asSymbol with:(self perform:eachAspectSymbol) value
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	474	].
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	475	! !
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	476
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	477	!AbstractSettingsApplication methodsFor:'initialization'!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	478
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	479	initialize
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	480	super initialize.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	481	resources := self class classResources.
6125 09320e47ccb2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6108 diff changeset	482	self initializeCurrentUserPreferences.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	483	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	484	"/ self readSettings.
6125 09320e47ccb2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6108 diff changeset	485	!
09320e47ccb2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6108 diff changeset	486
09320e47ccb2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6108 diff changeset	487	initializeCurrentUserPreferences
09320e47ccb2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6108 diff changeset	488	currentUserPrefs := UserPreferences current.
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	489	! !
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	490
5078 9fafc6b058bc new middleButtonMenu for remove service in SettingsDialog penk parents: 5076 diff changeset	491	!AbstractSettingsApplication methodsFor:'menu'!
9fafc6b058bc new middleButtonMenu for remove service in SettingsDialog penk parents: 5076 diff changeset	492
5080 9c9736712295 middleButtonMenu fix penk parents: 5078 diff changeset	493	settingsDialogPopUpMenu
5078 9fafc6b058bc new middleButtonMenu for remove service in SettingsDialog penk parents: 5076 diff changeset	494	^ nil
9fafc6b058bc new middleButtonMenu for remove service in SettingsDialog penk parents: 5076 diff changeset	495	! !
9fafc6b058bc new middleButtonMenu for remove service in SettingsDialog penk parents: 5076 diff changeset	496
4324 289972d3e455 * empty log message * penk parents: 4319 diff changeset	497	!AbstractSettingsApplication methodsFor:'protocol'!
289972d3e455 * empty log message * penk parents: 4319 diff changeset	498
4873 3ffb8a8812ec * empty log message * penk parents: 4851 diff changeset	499	askForChangeOnRelease
5011 42d7fed9da6a ask for changes Claus Gittinger <cg@exept.de> parents: 4986 diff changeset	500	^ true "/ false
4825 97ccd5a946f4 next step penk parents: 4813 diff changeset	501	!
97ccd5a946f4 next step penk parents: 4813 diff changeset	502
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	503	basicReadSettings
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	504	self subclassResponsibility
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	505	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	506
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	507	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	508
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	509	self subclassResponsibility.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	510	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	511
4324 289972d3e455 * empty log message * penk parents: 4319 diff changeset	512	help
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	513	\|filename\|
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	514
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	515	filename := self helpFilename.
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	516	filename isNil ifTrue:[
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	517	self warn:'Sorry - no help available here.'.
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	518	^ self.
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	519	].
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	520	self withWaitCursorDo:[
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	521	HTMLDocumentView openFullOnHelpFile:filename
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	522	].
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	523	!
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	524
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	525	helpFilename
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	526	"subclasses must return the relative name of a helpFile
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	527	in the doc/online/<language>/help directory.
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	528	Or nil, if no help is available."
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	529
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	530	self subclassResponsibility
4226 44e2f83cc526 initial checkin penk parents: diff changeset	531	! !
44e2f83cc526 initial checkin penk parents: diff changeset	532
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	533	!AbstractSettingsApplication methodsFor:'queries'!
1bde09704293 * empty log message * penk parents: 4893 diff changeset	534
6358 582d839d5b93 * empty log message * Claus Gittinger <cg@exept.de> parents: 6346 diff changeset	535	hasUnsavedChanges
582d839d5b93 * empty log message * Claus Gittinger <cg@exept.de> parents: 6346 diff changeset	536
582d839d5b93 * empty log message * Claus Gittinger <cg@exept.de> parents: 6346 diff changeset	537	^ self subclassResponsibility
582d839d5b93 * empty log message * Claus Gittinger <cg@exept.de> parents: 6346 diff changeset	538	!
582d839d5b93 * empty log message * Claus Gittinger <cg@exept.de> parents: 6346 diff changeset	539
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	540	itemPathName
6389 9f4010737320 code cleanup Claus Gittinger <cg@exept.de> parents: 6383 diff changeset	541	^ settingsDialog getNameOfApplication:self.
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	542	! !
1bde09704293 * empty log message * penk parents: 4893 diff changeset	543
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	544	!AbstractSettingsApplication::BuildSettingsAppl class methodsFor:'image specs'!
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	545
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	546	defaultIcon
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	547	^ AbstractSettingsApplication::ByteCodeCompilerSettingsAppl defaultIcon4
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	548
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	549	"Modified: / 21-09-2006 / 00:00:53 / cg"
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	550	! !
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	551
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	552	!AbstractSettingsApplication::BuildSettingsAppl class methodsFor:'interface specs'!
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	553
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	554	windowSpec
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	555	"This resource specification was automatically generated
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	556	by the UIPainter of ST/X."
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	557
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	558	"Do not manually edit this!! If it is corrupted,
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	559	the UIPainter may not be able to read the specification."
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	560
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	561	"
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	562	UIPainter new openOnClass:AbstractSettingsApplication::BuildSettingsAppl andSelector:#windowSpec
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	563	AbstractSettingsApplication::BuildSettingsAppl new openInterface:#windowSpec
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	564	AbstractSettingsApplication::BuildSettingsAppl open
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	565	"
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	566
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	567	<resource: #canvas>
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	568
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	569	^
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	570	#(FullSpec
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	571	name: windowSpec
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	572	window:
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	573	(WindowSpec
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	574	label: 'Build Settings'
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	575	name: 'Build Settings'
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	576	min: (Point 10 10)
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	577	bounds: (Rectangle 0 0 659 551)
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	578	)
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	579	component:
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	580	(SpecCollection
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	581	collection: (
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	582	(VerticalPanelViewSpec
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	583	name: 'VerticalPanel2'
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	584	layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	585	horizontalLayout: fit
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	586	verticalLayout: topSpace
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	587	horizontalSpace: 3
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	588	verticalSpace: 20
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	589	component:
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	590	(SpecCollection
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	591	collection: (
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	592	(VerticalPanelViewSpec
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	593	name: 'VerticalPanel3'
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	594	horizontalLayout: fit
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	595	verticalLayout: top
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	596	horizontalSpace: 3
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	597	verticalSpace: 4
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	598	component:
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	599	(SpecCollection
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	600	collection: (
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	601	(FramedBoxSpec
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	602	label: 'Build Directory'
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	603	name: 'FramedBox1'
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	604	labelPosition: topLeft
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	605	translateLabel: true
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	606	component:
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	607	(SpecCollection
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	608	collection: (
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	609	(ViewSpec
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	610	name: 'Build Directory'
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	611	layout: (LayoutFrame 0 0 0 0 0 1 30 0)
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	612	component:
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	613	(SpecCollection
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	614	collection: (
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	615	(LabelSpec
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	616	label: 'Build Directory:'
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	617	name: 'BuildDirDirLabel'
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	618	layout: (LayoutFrame 0 0.0 0 0 60 0.25 22 0)
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	619	translateLabel: true
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	620	adjust: right
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	621	)
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	622	(InputFieldSpec
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	623	name: 'BuildDirEntryField'
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	624	layout: (LayoutFrame 64 0.25 0 0 0 1 22 0)
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	625	enableChannel: hasRepository
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	626	model: buildDirectory
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	627	immediateAccept: false
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	628	acceptOnReturn: true
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	629	acceptOnTab: true
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	630	acceptOnLostFocus: true
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	631	acceptOnPointerLeave: true
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	632	)
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	633	)
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	634
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	635	)
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	636	)
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	637	(HorizontalPanelViewSpec
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	638	name: 'CacheActionsHorizontalPanel'
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	639	layout: (LayoutFrame 44 0.25 34 0 0 1 72 0)
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	640	horizontalLayout: fitSpace
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	641	verticalLayout: center
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	642	horizontalSpace: 3
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	643	verticalSpace: 3
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	644	component:
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	645	(SpecCollection
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	646	collection: (
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	647	(ActionButtonSpec
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	648	label: 'Cleanup'
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	649	name: 'CleanupBuildDirectoryButton'
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	650	translateLabel: true
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	651	model: cleanupBuildDirectory
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	652	enableChannel: useManager
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	653	extent: (Point 210 22)
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	654	)
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	655	)
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	656
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	657	)
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	658	)
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	659	)
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	660
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	661	)
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	662	extent: (Point 659 95)
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	663	)
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	664	(ViewSpec
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	665	name: 'LocalBuild'
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	666	component:
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	667	(SpecCollection
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	668	collection: (
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	669	(CheckBoxSpec
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	670	label: 'Local Build (Do not use Repository)'
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	671	name: 'CheckBox4'
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	672	layout: (LayoutFrame 30 0 5 0 -5 1 27 0)
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	673	model: localBuild
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	674	enableChannel: hasSourceCodeManager
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	675	translateLabel: true
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	676	)
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	677	)
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	678
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	679	)
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	680	extent: (Point 659 25)
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	681	)
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	682	)
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	683
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	684	)
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	685	extent: (Point 659 768)
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	686	)
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	687	)
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	688
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	689	)
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	690	)
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	691	)
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	692
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	693	)
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	694	)
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	695	! !
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	696
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	697	!AbstractSettingsApplication::BuildSettingsAppl methodsFor:'actions'!
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	698
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	699	basicReadSettings
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	700	self
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	701	readAspects:
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	702	#(
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	703	buildDirectory
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	704	localBuild
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	705	)
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	706	from:currentUserPrefs.
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	707	!
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	708
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	709	basicSaveSettings
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	710	self
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	711	writeAspects:
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	712	#(
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	713	buildDirectory
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	714	localBuild
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	715	)
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	716	to:currentUserPrefs.
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	717	!
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	718
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	719	helpFilename
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	720	^ 'Launcher/buildSetup.html'
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	721	! !
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	722
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	723	!AbstractSettingsApplication::BuildSettingsAppl methodsFor:'aspects'!
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	724
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	725	buildDirectory
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	726	buildDirectory isNil ifTrue:[
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	727	buildDirectory := ValueHolder new.
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	728	buildDirectory onChangeSend:#updateModifiedChannel to:self
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	729	].
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	730	^ buildDirectory.
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	731	!
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	732
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	733	hasSourceCodeManager
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	734	^ SourceCodeManager notNil
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	735	!
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	736
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	737	localBuild
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	738	localBuild isNil ifTrue:[
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	739	localBuild := UserPreferences current localBuild asValue.
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	740	localBuild onChangeSend:#updateModifiedChannel to:self
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	741	].
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	742	^ localBuild.
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	743	! !
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	744
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	745	!AbstractSettingsApplication::BuildSettingsAppl methodsFor:'queries'!
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	746
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	747	hasUnsavedChanges
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	748	(self
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	749	hasChangedAspectIn:
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	750	#(
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	751	buildDirectory
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	752	localBuild
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	753	)
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	754	asComparedTo:currentUserPrefs) ifTrue:[^ true].
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	755
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	756	^ false
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	757	! !
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	758
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	759	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class methodsFor:'defaults'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	760
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	761	constantFoldingOptions
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	762
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	763	^ #( nil #level1 #level2 #full )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	764	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	765
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	766	constantFoldingStrings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	767
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	768	^ #('disabled' 'level1 (always safe)' 'level2 (usually safe)' 'full')
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	769	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	770
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	771	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class methodsFor:'image specs'!
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	772
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	773	defaultIcon
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	774	^ self defaultIcon3
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	775	!
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	776
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	777	defaultIcon1
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	778	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	779	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	780
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	781	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	782	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	783
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	784	"
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	785	self defaultIcon1 inspect
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	786	ImageEditor openOnClass:self andSelector:#defaultIcon1
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	787	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	788	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	789
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	790	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	791
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	792	^Icon
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	793	constantNamed:#'AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class defaultIcon1'
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	794	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	795	@@@@@@@@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	796	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	797	!
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	798
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	799	defaultIcon2
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	800	"This resource specification was automatically generated
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	801	by the ImageEditor of ST/X."
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	802
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	803	"Do not manually edit this!! If it is corrupted,
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	804	the ImageEditor may not be able to read the specification."
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	805
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	806	"
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	807	self defaultIcon2 inspect
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	808	ImageEditor openOnClass:self andSelector:#defaultIcon2
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	809	Icon flushCachedIcons
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	810	"
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	811
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	812	<resource: #image>
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	813
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	814	^Icon
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	815	constantNamed:#'AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class defaultIcon2'
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	816	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	817	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	818	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	819	@@@@@@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	820	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	821	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	822	@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	823	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	824	!
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	825
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	826	defaultIcon3
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	827	"This resource specification was automatically generated
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	828	by the ImageEditor of ST/X."
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	829
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	830	"Do not manually edit this!! If it is corrupted,
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	831	the ImageEditor may not be able to read the specification."
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	832
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	833	"
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	834	self defaultIcon3 inspect
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	835	ImageEditor openOnClass:self andSelector:#defaultIcon3
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	836	Icon flushCachedIcons
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	837	"
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	838
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	839	<resource: #image>
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	840
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	841	^Icon
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	842	constantNamed:#'AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class defaultIcon3'
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	843	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	844	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	845	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	846	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	847	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	848	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	849	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	850	A@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PD') ; colorMapFromArray:#[255 189 23 127 127 127 236 233 216 0 0 0 255 255 255 194 194 194 161 161 165]; mask:((Depth1Image new) width: 24; height: 24; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@A @@C0@@33@A?? A?? @??@@??@C??0G??8G??8C??0@??@@??@A?? A?? @33@@C0@@A @@@@@@@@@@@@@') ; yourself); yourself]
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	851	!
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	852
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	853	defaultIcon4
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	854	"This resource specification was automatically generated
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	855	by the ImageEditor of ST/X."
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	856
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	857	"Do not manually edit this!! If it is corrupted,
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	858	the ImageEditor may not be able to read the specification."
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	859
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	860	"
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	861	self defaultIcon4 inspect
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	862	ImageEditor openOnClass:self andSelector:#defaultIcon4
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	863	Icon flushCachedIcons
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	864	"
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	865
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	866	<resource: #image>
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	867
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	868	^Icon
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	869	constantNamed:#'AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class defaultIcon4'
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	870	ifAbsentPut:[(Depth8Image new) width: 24; height: 24; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	871	A@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PC@0PDA@PD
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	872	A@PDA@PDA@PDA@PDA@PDA@LDA LDA@PDA@PDA@PDA@PDA@PD@0LDA@LDA LDA@LCA@PDA@PDA@PDA@PCA PC@0PEAPPC@0PF@0PDA@PDA@PDA@PC@PTDA@TE
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	873	APTDA@TA@0PDA@PDA@PDA@PD@0XEAPTEAPTEAPXCA@PDA@PDA@PDA@PD@0PEAPXAA XEAPPCA@PDA@PDA@PDA@LCA@TEA DC@0DFAPTD@0LDA@PDA@PD@0PD
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	874	APTE@PLB@ LAAPTEA@PCA@P@A@PD@0DAAPTEA LB@ LFAPTE@PDCA@P@A@PDA@LCA XEAPPC@0PEAPXF@0LDA@PDA@PDA@PD@0XEAPTDA@TEAPXCA@PDA@PD
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	875	A@PDA@PD@0PEAPTEAPTEAPPCA@PDA@PDA@PDA@PCA@TAA TEAPTF@PTD@0PDA@PDA@PDA@PCA DC@0PEAPPC@0DF@0PDA@PDA@PDA@PD@0LDA@LD@PLDA@LC
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	876	A@PDA@PDA@PDA@PDA@PDA@LD@PLDA@PDA@PDA@PDA@PD@0PD@0PD@0PC@0PD@0PD@0PCA@PDA@PCA@LD@0PD@0PD@PPCA@LD@0PCA@PDA@PCA@LD@0PD@0PD
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	877	@0PCA@LD@0PCA@PDA@PD@0PD@0PD@0PD@0PD@0PD@0PCA@PD') ; colorMapFromArray:#[255 189 23 127 127 127 236 233 216 0 0 0 255 255 255 194 194 194 161 161 165]; mask:((Depth1Image new) width: 24; height: 24; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@A @@C0@@33@A?? A?? @??@@??@C??0G??8G??8C??0@??@@??@A?? A?? @33@@C0@D%$(J$(J$(D$$(') ; yourself); yourself]
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	878	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	879
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	880	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class methodsFor:'interface specs'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	881
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	882	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	883	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	884	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	885
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	886	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	887	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	888
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	889	"
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	890	UIPainter new openOnClass:AbstractSettingsApplication::ByteCodeCompilerSettingsAppl andSelector:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	891	AbstractSettingsApplication::ByteCodeCompilerSettingsAppl new openInterface:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	892	AbstractSettingsApplication::ByteCodeCompilerSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	893	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	894
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	895	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	896
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	897	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	898	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	899	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	900	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	901	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	902	label: 'Byte Code Compiler Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	903	name: 'Byte Code Compiler Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	904	min: (Point 10 10)
6473 d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	905	bounds: (Rectangle 0 0 665 689)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	906	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	907	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	908	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	909	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	910	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	911	name: 'VerticalPanel1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	912	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	913	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	914	verticalLayout: top
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	915	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	916	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	917	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	918	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	919	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	920	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	921	label: 'Just in Time Compilation to Machine Code'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	922	name: 'JustInTimeCompilation'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	923	model: justInTimeCompilation
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	924	translateLabel: true
6473 d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	925	extent: (Point 665 25)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	926	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	927	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	928	name: 'Separator3'
6473 d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	929	extent: (Point 665 3)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	930	)
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	931	(ViewSpec
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	932	name: 'Box1'
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	933	component:
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	934	(SpecCollection
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	935	collection: (
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	936	(VerticalPanelViewSpec
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	937	name: 'VerticalPanel1_1'
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	938	layout: (LayoutFrame 0 0 0 0 -20 0.5 0 1)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	939	horizontalLayout: fit
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	940	verticalLayout: top
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	941	horizontalSpace: 3
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	942	verticalSpace: 3
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	943	component:
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	944	(SpecCollection
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	945	collection: (
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	946	(CheckBoxSpec
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	947	label: 'Allow Underscore in Identifiers'
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	948	name: 'AllowUnderscoreInIdentifiers'
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	949	model: allowUnderscoreInIdentifier
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	950	translateLabel: true
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	951	extent: (Point 313 22)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	952	)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	953	(CheckBoxSpec
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	954	label: 'Allow Dollar in Identifiers'
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	955	name: 'AllowDollarInIdentifiers'
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	956	model: allowDollarInIdentifier
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	957	translateLabel: true
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	958	extent: (Point 313 22)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	959	)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	960	(CheckBoxSpec
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	961	label: 'Allow VW3 QualifiedNames'
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	962	name: 'AllowVW3QualifiedNames'
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	963	model: allowQualifiedNames
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	964	translateLabel: true
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	965	extent: (Point 313 22)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	966	)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	967	(CheckBoxSpec
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	968	label: 'Allow OldStyle Assignment (_)'
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	969	name: 'AllowOldStyleAssignment'
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	970	model: allowOldStyleAssignment
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	971	translateLabel: true
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	972	extent: (Point 313 22)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	973	)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	974	(CheckBoxSpec
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	975	label: 'Allow Reserved Words as Selector (self)'
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	976	name: 'AllowReservedWordsAsSelector'
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	977	model: allowReservedWordsAsSelectors
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	978	translateLabel: true
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	979	extent: (Point 313 22)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	980	)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	981	)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	982
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	983	)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	984	)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	985	(VerticalPanelViewSpec
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	986	name: 'VerticalPanel1_2'
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	987	layout: (LayoutFrame 0 0.5 0 0 0 1 0 1)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	988	horizontalLayout: left
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	989	verticalLayout: top
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	990	horizontalSpace: 3
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	991	verticalSpace: 3
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	992	component:
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	993	(SpecCollection
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	994	collection: (
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	995	(CheckBoxSpec
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	996	label: 'Allow Squeak Extensions'
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	997	name: 'AllowSqueakExtensions'
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	998	model: allowSqueakExtensions
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	999	translateLabel: true
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1000	extent: (Point 665 22)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1001	)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1002	(CheckBoxSpec
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1003	label: 'Allow Dolphin Extensions'
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1004	name: 'AllowDolphinExtensions'
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1005	model: allowDolphinExtensions
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1006	translateLabel: true
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1007	extent: (Point 665 22)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1008	)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1009	(CheckBoxSpec
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1010	label: 'Allow VisualAge ES-Symbols'
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1011	name: 'AllowVisualAgeESSymbolLiterals'
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1012	model: allowVisualAgeESSymbolLiterals
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1013	translateLabel: true
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1014	extent: (Point 665 22)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1015	)
6578 560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	1016	(CheckBoxSpec
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	1017	label: 'Allow FixedPoint-Number Literals'
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	1018	name: 'AllowFixedPointLiterals'
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	1019	model: allowFixedPointLiterals
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	1020	translateLabel: true
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	1021	extent: (Point 665 22)
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	1022	)
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1023	)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1024
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1025	)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1026	)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1027	)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1028
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1029	)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1030	extent: (Point 665 118)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1031	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1032	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1033	name: 'Separator4'
6473 d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	1034	extent: (Point 665 3)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1035	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1036	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1037	label: 'Warnings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1038	name: 'Warnings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1039	model: warnings
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1040	translateLabel: true
6473 d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	1041	extent: (Point 665 22)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1042	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1043	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1044	name: 'Box2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1045	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1046	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1047	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1048	(VerticalPanelViewSpec
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1049	name: 'VerticalPanel2_1'
6497 a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1050	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	1051	horizontalLayout: fit
6497 a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1052	verticalLayout: top
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1053	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1054	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1055	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1056	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1057	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1058	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1059	label: 'ST/X Extensions'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1060	name: 'STXExtensions'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1061	enableChannel: warnings
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1062	model: warnSTXSpecials
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1063	translateLabel: true
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1064	extent: (Point 313 22)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1065	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1066	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1067	label: 'Underscores in Identifiers'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1068	name: 'UnderscoresInIdentifiers'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1069	enableChannel: enableUnderscore
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1070	model: warnUnderscoreInIdentifier
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1071	translateLabel: true
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1072	extent: (Point 313 22)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1073	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1074	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1075	label: 'Dollars in Identifiers'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1076	name: 'DollarsInIdentifiers'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1077	enableChannel: enableDollar
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1078	model: warnDollarInIdentifier
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1079	translateLabel: true
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1080	extent: (Point 313 22)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1081	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1082	(CheckBoxSpec
6497 a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1083	label: 'OldStyle Assignment'
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1084	name: 'OldStyleAssignment'
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1085	enableChannel: warnings
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1086	model: warnOldStyleAssignment
6497 a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1087	translateLabel: true
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1088	extent: (Point 313 22)
6497 a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1089	)
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1090	(CheckBoxSpec
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1091	label: 'Possible Incompatibilities'
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1092	name: 'PossibleIncompatibilities'
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1093	enableChannel: warnings
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1094	model: warnPossibleIncompatibilities
6497 a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1095	translateLabel: true
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1096	extent: (Point 313 22)
6497 a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1097	)
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1098	)
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1099
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1100	)
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1101	)
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1102	(VerticalPanelViewSpec
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1103	name: 'VerticalPanel2_2'
6497 a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1104	layout: (LayoutFrame 0 0.5 0 0 0 1 0 1)
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1105	horizontalLayout: left
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1106	verticalLayout: top
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1107	horizontalSpace: 3
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1108	verticalSpace: 3
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1109	component:
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1110	(SpecCollection
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1111	collection: (
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1112	(CheckBoxSpec
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1113	label: 'Unused Method Variables'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1114	name: 'UnusedMethodVariables'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1115	enableChannel: warnings
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1116	model: warnUnusedVars
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1117	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1118	extent: (Point 600 22)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1119	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1120	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1121	label: 'Common Mistakes'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1122	name: 'CommonMistakes'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1123	enableChannel: warnings
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1124	model: warnCommonMistakes
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1125	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1126	extent: (Point 600 22)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1127	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1128	(CheckBoxSpec
6497 a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1129	label: 'Bad (non-English) Variable Names'
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1130	name: 'BadVariableNames'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1131	enableChannel: warnings
6497 a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1132	model: warnAboutWrongVariableNames
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1133	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1134	extent: (Point 600 22)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1135	)
6473 d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	1136	(CheckBoxSpec
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	1137	label: 'Bad (Lowercase) Local Variable Names'
6769 4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	1138	name: 'BadLocalVariableNames'
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	1139	enableChannel: warnings
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	1140	model: warnAboutLowercaseLocalVariableNames
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	1141	translateLabel: true
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	1142	extent: (Point 600 22)
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	1143	)
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	1144	(CheckBoxSpec
6497 a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1145	label: 'Bad (empty) Comments'
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1146	name: 'BadComments'
6473 d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	1147	enableChannel: warnings
6497 a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1148	model: warnAboutBadComments
6473 d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	1149	translateLabel: true
d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	1150	extent: (Point 600 22)
d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	1151	)
6580 db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	1152	(CheckBoxSpec
db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	1153	label: 'Inconsistent Return Values'
db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	1154	name: 'InconsistentReturnValues'
db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	1155	enableChannel: warnings
db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	1156	model: warnInconsistentReturnValues
db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	1157	translateLabel: true
db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	1158	extent: (Point 600 22)
db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	1159	)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1160	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1161
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1162	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1163	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1164	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1165
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1166	)
6769 4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	1167	extent: (Point 665 150)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1168	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1169	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1170	name: 'Separator5'
6473 d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	1171	extent: (Point 665 2)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1172	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1173	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1174	label: 'Literal Arrays are Immutable'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1175	name: 'LiteralArraysAreImmutable'
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1176	model: arraysAreImmutable
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1177	translateLabel: true
6473 d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	1178	extent: (Point 665 22)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1179	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1180	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1181	label: 'Full Debug Info'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1182	name: 'FullDebugInfo'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1183	model: fullDebugSupport
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1184	translateLabel: true
6473 d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	1185	extent: (Point 665 22)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1186	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1187	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1188	name: 'Separator6'
6473 d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	1189	extent: (Point 665 2)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1190	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1191	(ViewSpec
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1192	name: 'Box3'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1193	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1194	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1195	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1196	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1197	label: 'Constant Folding:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1198	name: 'ConstantFoldingLabel'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	1199	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	1200	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1201	adjust: right
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1202	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1203	(PopUpListSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1204	label: 'PopUp List'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1205	name: 'ConstantFolding'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	1206	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	1207	tabable: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1208	model: constantFoldingSelection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1209	menu: constantFolding
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1210	useIndex: true
4428 00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	1211	)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	1212	)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	1213
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	1214	)
6473 d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	1215	extent: (Point 665 22)
4428 00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	1216	)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1217	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1218
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1219	)
4286 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
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1223	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1224	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1225	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1226
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1227	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'actions'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1228
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1229	basicReadSettings
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	1230	self
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	1231	readAspects:
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	1232	#(
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	1233	allowDollarInIdentifier
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	1234	allowDolphinExtensions
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	1235	allowOldStyleAssignment
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	1236	allowQualifiedNames
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	1237	allowReservedWordsAsSelectors
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	1238	allowSqueakExtensions
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	1239	allowUnderscoreInIdentifier
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	1240	allowVisualAgeESSymbolLiterals
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	1241	allowFixedPointLiterals
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	1242	arraysAreImmutable
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	1243	warnings
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	1244	warnCommonMistakes
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	1245	warnPossibleIncompatibilities
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	1246	warnDollarInIdentifier
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	1247	warnOldStyleAssignment
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	1248	warnSTXSpecials
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	1249	warnUnderscoreInIdentifier
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	1250	warnUnusedVars
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	1251	warnAboutWrongVariableNames
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	1252	warnAboutBadComments
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	1253	warnInconsistentReturnValues
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	1254	warnAboutLowercaseLocalVariableNames
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	1255	)
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	1256	from:ParserFlags.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1257
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1258	self constantFoldingSelection
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1259	value:(self class constantFoldingOptions indexOf:Compiler foldConstants ifAbsent:3).
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1260	self supportsJustInTimeCompilation ifTrue:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1261	self fullDebugSupport value:(ObjectMemory fullSingleStepSupport ? false)
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1262	] ifFalse:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1263	self fullDebugSupport value:(Compiler lineNumberInfo == #full)
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1264	].
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1265	self supportsJustInTimeCompilation ifTrue:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1266	self justInTimeCompilation value:(ObjectMemory justInTimeCompilation ? false)
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1267	] ifFalse:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1268	self justInTimeCompilation value:false
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1269	].
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1270	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1271
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1272	basicSaveSettings
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	1273	self
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	1274	writeAspects:
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	1275	#(
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	1276	warnings
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	1277	warnSTXSpecials
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	1278	warnOldStyleAssignment
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	1279	warnUnderscoreInIdentifier
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	1280	warnDollarInIdentifier
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	1281	warnCommonMistakes
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	1282	warnPossibleIncompatibilities
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	1283	warnUnusedVars
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	1284	warnAboutWrongVariableNames
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	1285	warnAboutBadComments
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	1286	warnInconsistentReturnValues
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	1287	warnAboutLowercaseLocalVariableNames
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	1288	allowUnderscoreInIdentifier
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	1289	allowDollarInIdentifier
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	1290	allowSqueakExtensions
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	1291	allowDolphinExtensions
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	1292	allowQualifiedNames
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	1293	allowOldStyleAssignment
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	1294	allowReservedWordsAsSelectors
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	1295	allowVisualAgeESSymbolLiterals
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	1296	allowFixedPointLiterals
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	1297	arraysAreImmutable
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	1298	)
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	1299	to:ParserFlags.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1300
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1301	self fullDebugSupport value ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1302	Compiler lineNumberInfo:#full.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1303	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1304	Compiler lineNumberInfo:true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1305	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1306
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1307	Compiler foldConstants:(self class constantFoldingOptions at:self constantFoldingSelection value).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1308
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1309	self supportsJustInTimeCompilation ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1310	\| justInTime \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1311	justInTime := self justInTimeCompilation value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1312	justInTime ifTrue:[
6662 3deee4183f1d code cleanup: use new Smalltalk>>allMethodsDo: Claus Gittinger <cg@exept.de> parents: 6638 diff changeset	1313	Smalltalk allMethodsDo:[:m \| m checked:false].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1314	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1315	ObjectMemory justInTimeCompilation:justInTime.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1316	ObjectMemory fullSingleStepSupport:self fullDebugSupport value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1317	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1318	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1319
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	1320	helpFilename
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	1321	^ 'Launcher/compilerSettings.html'
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1322	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1323
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1324	stcCompilerSettings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1325
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1326	AbstractLauncherApplication::LauncherDialogs stcCompilerSettings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1327	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1328
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1329	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'aspects'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1330
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1331	allowDollarInIdentifier
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1332
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1333	allowDollar isNil ifTrue:[
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1334	allowDollar := Compiler allowDollarInIdentifier asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1335	allowDollar onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1336	allowDollar addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1337	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1338	^ allowDollar.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1339	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1340
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1341	allowDolphinExtensions
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1342
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1343	allowDolphinExtensions isNil ifTrue:[
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1344	allowDolphinExtensions := Compiler allowDolphinExtensions asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1345	allowDolphinExtensions onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1346	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1347	^ allowDolphinExtensions.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1348	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1349
6578 560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	1350	allowFixedPointLiterals
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	1351
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	1352	allowFixedPointLiterals isNil ifTrue:[
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	1353	allowFixedPointLiterals := (ParserFlags allowFixedPointLiterals ? false) asValue.
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	1354	allowFixedPointLiterals onChangeSend:#updateModifiedChannel to:self.
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	1355	].
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	1356	^ allowFixedPointLiterals.
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	1357	!
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	1358
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1359	allowOldStyleAssignment
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1360
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1361	allowOldStyleAssignment isNil ifTrue:[
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1362	allowOldStyleAssignment := Compiler allowOldStyleAssignment asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1363	allowOldStyleAssignment onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1364	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1365	^ allowOldStyleAssignment.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1366	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1367
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1368	allowQualifiedNames
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1369
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1370	allowQualifiedNames isNil ifTrue:[
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1371	allowQualifiedNames := Compiler allowQualifiedNames asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1372	allowQualifiedNames onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1373	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1374	^ allowQualifiedNames.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1375	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1376
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1377	allowReservedWordsAsSelectors
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1378
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1379	allowReservedWordsAsSelectors isNil ifTrue:[
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1380	allowReservedWordsAsSelectors := Compiler allowReservedWordsAsSelectors asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1381	allowReservedWordsAsSelectors onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1382	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1383	^ allowReservedWordsAsSelectors.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1384	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1385
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1386	allowSqueakExtensions
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1387
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1388	allowSqueakExtensions isNil ifTrue:[
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1389	allowSqueakExtensions := Compiler allowSqueakExtensions asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1390	allowSqueakExtensions onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1391	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1392	^ allowSqueakExtensions.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1393	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1394
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1395	allowUnderscoreInIdentifier
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1396
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1397	allowUnderscore isNil ifTrue:[
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1398	allowUnderscore := Compiler allowUnderscoreInIdentifier asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1399	allowUnderscore onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1400	allowUnderscore addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1401	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1402	^ allowUnderscore.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1403	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1404
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1405	allowVisualAgeESSymbolLiterals
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1406
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1407	allowVisualAgeESSymbolLiterals isNil ifTrue:[
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1408	allowVisualAgeESSymbolLiterals := ParserFlags allowVisualAgeESSymbolLiterals asValue.
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1409	allowVisualAgeESSymbolLiterals onChangeSend:#updateModifiedChannel to:self.
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1410	].
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1411	^ allowVisualAgeESSymbolLiterals.
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1412	!
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1413
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1414	arraysAreImmutable
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1415
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1416	immutableArrays isNil ifTrue:[
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1417	immutableArrays := Compiler arraysAreImmutable asValue.
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1418	immutableArrays onChangeSend:#updateModifiedChannel to:self.
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1419	].
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1420	^ immutableArrays.
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1421	!
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1422
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1423	constantFolding
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1424
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1425	constantFolding isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1426	constantFolding := (resources array:(self class constantFoldingStrings)) asList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1427	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1428	^ constantFolding.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1429	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1430
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1431	constantFoldingOptions
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1432
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1433	constantFoldingOptions isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1434	constantFoldingOptions := self class constantFoldingOptions.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1435	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1436	^ constantFoldingOptions.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1437	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1438
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1439	constantFoldingSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1440
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1441	constantFoldingSelection isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1442	\| index \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1443	index := self class constantFoldingOptions indexOf:Compiler foldConstants ifAbsent:3.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1444	constantFoldingSelection := index asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1445	constantFoldingSelection onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1446	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1447	^ constantFoldingSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1448	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1449
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1450	enableDollar
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1451
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1452	enableDollar isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1453	enableDollar := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1454	enableDollar addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1455	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1456	^ enableDollar.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1457	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1458
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1459	enableUnderscore
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1460	"automatically generated by UIPainter ..."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1461
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1462	"*** the code below creates a default model when invoked."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1463	"*** (which may not be the one you wanted)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1464	"*** Please change as required and accept it in the browser."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1465	"*** (and replace this comment by something more useful ;-)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1466
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1467	enableUnderscore isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1468	enableUnderscore := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1469	"/ if your app needs to be notified of changes, uncomment one of the lines below:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1470	"/ enableUnderscore addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1471	"/ enableUnderscore onChangeSend:#enableUnderscoreChanged to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1472	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1473	^ enableUnderscore.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1474	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1475
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1476	fullDebugSupport
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1477
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1478	fullDebugSupport isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1479	self supportsJustInTimeCompilation ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1480	fullDebugSupport := (ObjectMemory fullSingleStepSupport ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1481	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1482	fullDebugSupport := (Compiler lineNumberInfo == #full) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1483	].
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1484	fullDebugSupport onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1485	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1486	^ fullDebugSupport.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1487	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1488
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1489	justInTimeCompilation
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1490
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1491	justInTimeCompilation isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1492	self supportsJustInTimeCompilation ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1493	justInTimeCompilation := (ObjectMemory justInTimeCompilation ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1494	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1495	justInTimeCompilation := false asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1496	].
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1497	justInTimeCompilation onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1498	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1499	^ justInTimeCompilation.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1500	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1501
6497 a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1502	warnAboutBadComments
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1503	warnAboutBadComments isNil ifTrue:[
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1504	warnAboutBadComments := ParserFlags warnAboutBadComments asValue.
6497 a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1505	warnAboutBadComments onChangeSend:#updateModifiedChannel to:self.
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1506	].
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1507	^ warnAboutBadComments.
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1508	!
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1509
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	1510	warnAboutLowercaseLocalVariableNames
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	1511	warnAboutLowercaseLocalVariableNames isNil ifTrue:[
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	1512	warnAboutLowercaseLocalVariableNames := ParserFlags warnAboutLowercaseLocalVariableNames asValue.
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	1513	warnAboutLowercaseLocalVariableNames onChangeSend:#updateModifiedChannel to:self.
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	1514	].
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	1515	^ warnAboutLowercaseLocalVariableNames.
6769 4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	1516	!
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	1517
6473 d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	1518	warnAboutWrongVariableNames
d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	1519	warnAboutWrongVariableNames isNil ifTrue:[
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1520	warnAboutWrongVariableNames := ParserFlags warnAboutWrongVariableNames asValue.
6473 d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	1521	warnAboutWrongVariableNames onChangeSend:#updateModifiedChannel to:self.
d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	1522	].
d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	1523	^ warnAboutWrongVariableNames.
d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	1524	!
d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	1525
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1526	warnCommonMistakes
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1527
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1528	warnCommonMistakes isNil ifTrue:[
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1529	warnCommonMistakes := ParserFlags warnCommonMistakes asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1530	warnCommonMistakes onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1531	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1532	^ warnCommonMistakes.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1533	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1534
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1535	warnDollarInIdentifier
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1536
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1537	warnDollar isNil ifTrue:[
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1538	warnDollar := ParserFlags warnDollarInIdentifier asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1539	warnDollar onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1540	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1541	^ warnDollar.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1542	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1543
6580 db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	1544	warnInconsistentReturnValues
db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	1545	warnInconsistentReturnValues isNil ifTrue:[
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1546	warnInconsistentReturnValues := ParserFlags warnInconsistentReturnValues asValue.
6580 db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	1547	warnInconsistentReturnValues onChangeSend:#updateModifiedChannel to:self.
db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	1548	].
db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	1549	^ warnInconsistentReturnValues.
db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	1550	!
db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	1551
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1552	warnOldStyleAssignment
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1553
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1554	warnOldStyle isNil ifTrue:[
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1555	warnOldStyle := ParserFlags warnOldStyleAssignment asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1556	warnOldStyle onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1557	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1558	^ warnOldStyle.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1559	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1560
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1561	warnPossibleIncompatibilities
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1562
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1563	warnCompatibility isNil ifTrue:[
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1564	warnCompatibility := ParserFlags warnPossibleIncompatibilities asValue.
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1565	warnCompatibility onChangeSend:#updateModifiedChannel to:self.
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1566	].
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1567	^ warnCompatibility.
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1568	!
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1569
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1570	warnSTXSpecials
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1571
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1572	warnSTX isNil ifTrue:[
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1573	warnSTX := ParserFlags warnSTXSpecials asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1574	warnSTX onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1575	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1576	^ warnSTX.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1577	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1578
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1579	warnUnderscoreInIdentifier
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1580
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1581	warnUnderscore isNil ifTrue:[
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1582	warnUnderscore := ParserFlags warnUnderscoreInIdentifier asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1583	warnUnderscore onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1584	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1585	^ warnUnderscore.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1586	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1587
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1588	warnUnusedVars
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1589
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1590	warnUnusedVars isNil ifTrue:[
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1591	warnUnusedVars := Compiler warnUnusedVars asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1592	warnUnusedVars onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1593	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1594	^ warnUnusedVars.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1595	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1596
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1597	warnings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1598
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1599	warnings isNil ifTrue:[
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1600	warnings := ParserFlags warnings asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1601	warnings addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1602	warnings changed.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1603	warnings onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1604	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1605	^ warnings.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1606	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1607
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1608	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'change & update'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1609
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1610	update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1611	changedObject == self warnings ifTrue:[
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	1612	changedObject value ifTrue:[
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1613	self enableUnderscore value:self allowUnderscoreInIdentifier value.
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1614	self enableDollar value:self allowDollarInIdentifier value.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1615	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1616	self enableUnderscore value:false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1617	self enableDollar value:false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1618	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1619	^ self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1620	].
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1621	(changedObject == self allowDollarInIdentifier or:[changedObject == self allowUnderscoreInIdentifier]) ifTrue:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1622	self warnings changed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1623	^ self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1624	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1625
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1626	super update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1627	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1628
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1629	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'queries'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1630
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1631	hasUnsavedChanges
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	1632	(self
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	1633	hasChangedAspectIn:
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	1634	#(
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	1635	warnings
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	1636	warnCommonMistakes
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	1637	warnUnusedVars
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	1638	warnAboutWrongVariableNames
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	1639	warnAboutBadComments
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	1640	warnInconsistentReturnValues
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	1641	warnAboutLowercaseLocalVariableNames
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	1642	warnSTXSpecials
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	1643	warnOldStyleAssignment
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	1644	warnUnderscoreInIdentifier
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	1645	warnDollarInIdentifier
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	1646	warnPossibleIncompatibilities
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	1647
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	1648	allowVisualAgeESSymbolLiterals
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	1649	allowSqueakExtensions
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	1650	allowDolphinExtensions
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	1651	allowQualifiedNames
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	1652	allowOldStyleAssignment
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	1653	allowReservedWordsAsSelectors
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	1654	allowUnderscoreInIdentifier
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	1655	allowDollarInIdentifier
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	1656	allowFixedPointLiterals
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	1657	arraysAreImmutable
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	1658	)
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	1659	asComparedTo:ParserFlags) ifTrue:[^ true].
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1660
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	1661	((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	1662	((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	1663	((ObjectMemory justInTimeCompilation ? false) ~= self justInTimeCompilation value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	1664	^ false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1665	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1666
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1667	supportsJustInTimeCompilation
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1668
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1669	^ ObjectMemory supportsJustInTimeCompilation
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1670	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1671
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1672	!AbstractSettingsApplication::DebuggerSettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1673
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1674	defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1675	<resource: #programImage>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1676
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1677	^ ToolbarIconLibrary bugReporter24x24Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1678	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1679
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1680	!AbstractSettingsApplication::DebuggerSettingsAppl class methodsFor:'interface specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1681
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1682	windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1683	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1684	by the UIPainter of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1685
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1686	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1687	the UIPainter may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1688
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1689	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1690	UIPainter new openOnClass:AbstractSettingsApplication::DebuggerSettingsAppl andSelector:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1691	AbstractSettingsApplication::DebuggerSettingsAppl new openInterface:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1692	AbstractSettingsApplication::DebuggerSettingsAppl open
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1693	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1694
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1695	<resource: #canvas>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1696
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1697	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1698	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1699	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1700	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1701	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1702	label: 'Debugger Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1703	name: 'Debugger Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1704	min: (Point 10 10)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1705	bounds: (Rectangle 14 46 614 366)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1706	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1707	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1708	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1709	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1710	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1711	name: 'VerticalPanel2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1712	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	1713	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1714	verticalLayout: top
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1715	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1716	verticalSpace: 5
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1717	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1718	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1719	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1720	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1721	name: 'VerticalPanel5'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1722	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1723	verticalLayout: topSpace
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1724	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1725	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1726	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1727	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1728	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1729	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1730	name: 'Box10'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1731	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1732	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1733	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1734	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1735	label: 'Show Error Notifier before Opening Debugger'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1736	name: 'ShowErrorNotifierCheckBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1737	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	1738	model: showErrorNotifier
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1739	translateLabel: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1740	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1741	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1742
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1743	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1744	extent: (Point 600 30)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1745	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1746	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1747	name: 'Box11'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1748	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1749	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1750	collection: (
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: 'Verbose Backtrace by Default in Debugger'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1753	name: 'ShowVerboseStackCheckBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1754	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	1755	model: showVerboseStack
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1756	translateLabel: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1757	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1758	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1759
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1760	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1761	extent: (Point 600 30)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1762	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1763	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1764	name: 'Box12'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1765	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1766	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1767	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1768	(CheckBoxSpec
6018 4f403b3bd8ea * empty log message * Claus Gittinger <cg@exept.de> parents: 6017 diff changeset	1769	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	1770	name: 'CheckBox6'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1771	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	1772	model: allowSendMailFromDebugger
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1773	translateLabel: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1774	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1775	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1776
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1777	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1778	extent: (Point 600 30)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1779	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1780	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1781
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1782	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1783	extent: (Point 600 320)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1784	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1785	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1786
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1787	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1788	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1789	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1790
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1791	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1792	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1793	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1794
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1795	!AbstractSettingsApplication::DebuggerSettingsAppl methodsFor:'actions'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1796
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1797	basicReadSettings
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1798	self allowSendMailFromDebugger value:currentUserPrefs allowSendMailFromDebugger.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1799	self showErrorNotifier value:(NoHandlerError emergencyHandler == AbstractLauncherApplication notifyingEmergencyHandler).
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1800	self showVerboseStack value:(DebugView defaultVerboseBacktrace ? false).
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1801	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1802
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1803	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1804	currentUserPrefs allowSendMailFromDebugger:self allowSendMailFromDebugger value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1805	self showErrorNotifier value ifFalse:[
6165 2bd97fffdf95 EmergencyHandlers have been relocated to NoHandlerError long ago Stefan Vogel <sv@exept.de> parents: 6163 diff changeset	1806	NoHandlerError emergencyHandler:nil
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1807	] ifTrue:[
6165 2bd97fffdf95 EmergencyHandlers have been relocated to NoHandlerError long ago Stefan Vogel <sv@exept.de> parents: 6163 diff changeset	1808	NoHandlerError emergencyHandler:(AbstractLauncherApplication notifyingEmergencyHandler)
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1809	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1810	DebugView defaultVerboseBacktrace:self showVerboseStack value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1811	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1812
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	1813	helpFilename
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	1814	^ 'Launcher/debuggerSettings.html'
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1815	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1816
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1817	!AbstractSettingsApplication::DebuggerSettingsAppl methodsFor:'aspects'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1818
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1819	allowSendMailFromDebugger
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1820
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1821	allowSendMailFromDebugger isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1822	allowSendMailFromDebugger := currentUserPrefs allowSendMailFromDebugger asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1823	allowSendMailFromDebugger onChangeSend:#updateModifiedChannel to:self
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1824	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1825	^ allowSendMailFromDebugger.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1826	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1827
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1828	showErrorNotifier
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1829
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1830	showErrorNotifier isNil ifTrue:[
4566 af369740e2bc Replace referneces to Exception. Stefan Vogel <sv@exept.de> parents: 4563 diff changeset	1831	showErrorNotifier := (NoHandlerError emergencyHandler == AbstractLauncherApplication notifyingEmergencyHandler) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1832	showErrorNotifier onChangeSend:#updateModifiedChannel to:self
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1833	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1834	^ showErrorNotifier.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1835	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1836
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1837	showVerboseStack
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1838
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1839	showVerboseStack isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1840	showVerboseStack := (DebugView defaultVerboseBacktrace ? false) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1841	showVerboseStack onChangeSend:#updateModifiedChannel to:self
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1842	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1843	^ showVerboseStack.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1844	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1845
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1846	!AbstractSettingsApplication::DebuggerSettingsAppl methodsFor:'queries'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1847
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1848	hasUnsavedChanges
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	1849	self showErrorNotifier value ~= (NoHandlerError emergencyHandler == AbstractLauncherApplication notifyingEmergencyHandler) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	1850	DebugView defaultVerboseBacktrace ? false ~= self showVerboseStack value ifTrue:[^ true].
6781 facbb533a366 * empty log message * Claus Gittinger <cg@exept.de> parents: 6780 diff changeset	1851	(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	1852	^ false
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1853	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1854
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1855	!AbstractSettingsApplication::DisplaySettingsAppl class methodsFor:'defaults'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1856
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1857	clipEncodingStrings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1858
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1859	^ #('untranslated' 'iso8859' 'jis' 'jis7' 'shift-JIS' 'EUC' 'big5')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1860	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1861
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1862	clipEncodingSyms
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1863
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1864	^ #(nil #iso8859 #jis #jis7 #sjis #euc #big5)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1865	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1866
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1867	staticGrayOrGrayScaleDitherStrings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1868
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1869	^ #('threshold' 'ordered dither' 'error diffusion')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1870	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1871
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1872	staticGrayOrGrayScaleDitherSyms
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1873
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1874	^ #(threshold ordered floydSteinberg)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1875	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1876
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1877	trueColorDitherStrings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1878
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1879	^ #('nearest color' 'error diffusion')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1880	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1881
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1882	trueColorDitherSyms
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1883
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1884	^ #(ordered floydSteinberg)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1885	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1886
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1887	!AbstractSettingsApplication::DisplaySettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1888
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1889	defaultIcon
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	1890	<resource: #programImage>
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	1891
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	1892	^ ToolbarIconLibrary displayScreenIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1893	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1894
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1895	!AbstractSettingsApplication::DisplaySettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1896
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1897	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1898	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1899	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1900
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1901	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1902	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1903
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1904	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	1905	UIPainter new openOnClass:AbstractSettingsApplication::DisplaySettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	1906	AbstractSettingsApplication::DisplaySettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	1907	AbstractSettingsApplication::DisplaySettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1908	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1909
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1910	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1911
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1912	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1913	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1914	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1915	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1916	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1917	label: 'Display Screen Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1918	name: 'Display Screen Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1919	min: (Point 10 10)
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	1920	bounds: (Rectangle 0 0 600 378)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1921	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1922	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1923	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1924	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1925	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1926	label: 'Actual Visible Screen Area:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1927	name: 'ActualVisibleScreenAreaLabel'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1928	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	1929	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1930	adjust: left
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1931	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1932	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1933	label: 'Common Sizes:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1934	name: 'CommonSizesLabel'
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	1935	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	1936	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1937	adjust: right
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1938	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1939	(PopUpListSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1940	label: 'monitor size'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1941	name: 'MonitorSelectionPopUpList'
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	1942	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	1943	tabable: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1944	model: monitorSelection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1945	menu: monitorList
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1946	useIndex: true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1947	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1948	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1949	label: 'Screen Size:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1950	name: 'ScreenSizeLabel'
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	1951	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	1952	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1953	adjust: right
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1954	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1955	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1956	name: 'SizeXEntryField'
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	1957	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	1958	model: sizeX
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1959	type: number
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1960	immediateAccept: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1961	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1962	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1963	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1964	acceptOnPointerLeave: true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1965	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1966	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1967	label: ' x '
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1968	name: 'xLabel'
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	1969	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	1970	translateLabel: true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1971	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1972	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1973	name: 'SizeYEntryField'
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	1974	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	1975	model: sizeY
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1976	type: number
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1977	immediateAccept: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1978	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1979	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1980	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1981	acceptOnPointerLeave: true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1982	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1983	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1984	label: '(mm)'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1985	name: 'mmLabel'
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	1986	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	1987	translateLabel: true
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	1988	adjust: left
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1989	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1990	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1991	name: 'Separator1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1992	layout: (LayoutFrame 0 0.0 105 0 0 1.0 109 0)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1993	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1994	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1995	name: 'ScreenDepthVisualLabel'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1996	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	1997	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1998	labelChannel: screenDepthVisualLabelHolder
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1999	adjust: left
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2000	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2001	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2002	name: 'Separator2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2003	layout: (LayoutFrame 0 0.0 139 0 0 1.0 143 0)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2004	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2005	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2006	label: 'Color Monitor'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2007	name: 'ColorMonitorCheckBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2008	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	2009	model: isColorMonitor
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2010	translateLabel: true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2011	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2012	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2013	label: 'Use Fix Color Palette'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2014	name: 'FixColorPaletteCheckBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2015	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	2016	enableChannel: visualIsPseudoColor
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2017	model: useFixPalette
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2018	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2019	labelChannel: useFixPaletteLabel
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2020	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2021	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2022	label: 'Use Fix Gray Color Palette'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2023	name: 'UseFixGrayPaletteCheckBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2024	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	2025	enableChannel: visualIsPseudoColor
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2026	model: useFixGrayPalette
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2027	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2028	labelChannel: useFixGrayPaletteLabel
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2029	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2030	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2031	label: 'Image Display:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2032	name: 'ImageDisplayLabel'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2033	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	2034	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2035	adjust: right
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2036	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2037	(PopUpListSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2038	label: 'image display'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2039	name: 'DitherListPopUpList'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2040	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	2041	tabable: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2042	model: ditherListSelection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2043	enableChannel: ditherSymsNotNil
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2044	menu: ditherList
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2045	useIndex: true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2046	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2047	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2048	label: 'Allow Colored/Grayscale Icons'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2049	name: 'AllowColoredGrayscaleIconsCheckBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2050	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	2051	model: deepIcons
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2052	translateLabel: true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2053	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2054	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2055	name: 'Separator3'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2056	layout: (LayoutFrame 0 0.0 288 0 0 1.0 292 0)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2057	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2058	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2059	label: 'ClipBoard Encoding:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2060	name: 'ClipBoardEncodingLabel'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2061	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	2062	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2063	adjust: right
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2064	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2065	(PopUpListSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2066	label: 'image display'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2067	name: 'ClipEncodingListPopUpList'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2068	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	2069	tabable: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2070	model: clipEncodingListSelection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2071	menu: clipEncodingList
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2072	useIndex: true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2073	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2074	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2075	name: 'Separator4'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2076	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	2077	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2078	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2079	label: 'Max. CopyBuffer Size:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2080	name: 'MaxCopyBufferSizeLabel'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2081	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	2082	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2083	adjust: right
5086 b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	2084	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2085	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2086	name: 'MaxCopyBufferEntryField'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2087	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	2088	model: maxCopyBufferSize
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2089	type: fileSize
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2090	immediateAccept: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2091	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2092	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2093	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2094	acceptOnPointerLeave: true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2095	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2096	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2097
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
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2102	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2103
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2104	basicReadSettings
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2105	self useFixPalette value:screen fixColors notNil.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2106	self useFixGrayPalette value:screen fixGrayColors notNil.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2107	self isColorMonitor value:screen hasColors.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2108	self sizeX value:screen widthInMillimeter.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2109	self sizeY value:screen heightInMillimeter.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2110	self deepIcons value:screen supportsDeepIcons.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2111	ditherSyms notNil ifTrue:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2112	self ditherListSelection
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2113	value:(ditherSyms indexOf:(Image ditherAlgorithm) ifAbsent:#threshold)
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2114	].
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2115	self clipEncodingListSelection
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2116	value:(self class clipEncodingSyms indexOf:screen clipboardEncoding
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2117	ifAbsent:1).
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2118	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2119
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2120	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2121
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2122	Image flushDeviceImages.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2123
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2124	screen visualType == #PseudoColor ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2125	self useFixPalette value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2126	Color colorAllocationFailSignal handle:[:ex \|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2127	self warn:'Could not allocate colors.'.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2128	] do:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2129	Color getColorsRed:4 green:8 blue:4 on:screen
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2130	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2131	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2132	screen releaseFixColors
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2133	].
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	self useFixGrayPalette value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2136	Color colorAllocationFailSignal handle:[:ex \|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2137	self warn:'Could not allocate colors.'.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2138	] do:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2139	Color getGrayColors:32 on:screen
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2140	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2141	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2142	screen releaseFixGrayColors
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2143	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2144	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2145	screen hasColors:self isColorMonitor value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2146	screen widthInMillimeter:self sizeX value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2147	screen heightInMillimeter:self sizeY value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2148
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2149	screen supportsDeepIcons:self deepIcons value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2150	ditherSyms notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2151	Image ditherAlgorithm:(ditherSyms at:self ditherListSelection value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2152	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2153
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2154	WindowGroup activeGroup withWaitCursorDo:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2155	View defaultStyle:(View defaultStyle).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2156	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2157
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2158	screen clipBoardEncoding:(self class clipEncodingSyms at:self clipEncodingListSelection value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2159	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2160
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	2161	helpFilename
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	2162	^ 'Launcher/screenSettings.html'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2163	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2164
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2165	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2166
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2167	clipEncodingList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2168
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2169	clipEncodingList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2170	clipEncodingList := (resources array:self class clipEncodingStrings) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2171	"/ if your app needs to be notified of changes, uncomment one of the lines below:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2172	"/ clipEncodingList addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2173	"/ clipEncodingList onChangeSend:#clipEncodingListChanged to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2174	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2175	^ clipEncodingList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2176	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2177
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2178	clipEncodingListSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2179
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2180	clipEncodingListSelection isNil ifTrue:[
6037 4ee47a9ce56a Unify naming: clipBoard->clipboard Stefan Vogel <sv@exept.de> parents: 6030 diff changeset	2181	clipEncodingListSelection := (self class clipEncodingSyms indexOf:screen clipboardEncoding ifAbsent:1) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	2182	clipEncodingListSelection onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2183	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2184	^ clipEncodingListSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2185	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2186
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2187	deepIcons
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2188
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2189	deepIcons isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2190	deepIcons := screen supportsDeepIcons asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	2191	deepIcons onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2192	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2193	^ deepIcons.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2194	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2195
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2196	ditherList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2197
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2198	ditherList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2199	ditherList := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2200	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2201	^ ditherList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2202	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2203
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2204	ditherListSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2205
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2206	ditherListSelection isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2207	ditherSyms notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2208	ditherListSelection := (ditherSyms indexOf:(Image ditherAlgorithm) ifAbsent:#threshold) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2209	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2210	ditherListSelection := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2211	].
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	2212	ditherListSelection onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2213	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2214	^ ditherListSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2215	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2216
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2217	ditherSymsNotNil
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2218
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2219	ditherSymsNotNil isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2220	ditherSymsNotNil := ditherSyms notNil asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2221	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2222	^ ditherSymsNotNil.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2223	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2224
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2225	isColorMonitor
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2226
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2227	isColorMonitor isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2228	isColorMonitor := screen hasColors asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	2229	isColorMonitor onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2230	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2231	^ isColorMonitor.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2232	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2233
5086 b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	2234	maxCopyBufferSize
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	2235
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	2236	maxCopyBufferSize isNil ifTrue:[
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	2237	maxCopyBufferSize := (810241024) asValue.
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	2238	maxCopyBufferSize addDependent:self.
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	2239	maxCopyBufferSize changed.
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	2240	maxCopyBufferSize onChangeSend:#updateModifiedChannel to:self.
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	2241	].
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	2242	^ maxCopyBufferSize.
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	2243	!
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	2244
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2245	monitorList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2246
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2247	monitorList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2248	monitorList := (resources array:(sizeInfos collect:[:entry \| entry at:1])) asList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2249	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2250	^ monitorList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2251	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2252
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2253	monitorSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2254
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2255	monitorSelection isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2256	monitorSelection := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2257	monitorSelection addDependent:self.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	2258	monitorSelection onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2259	monitorSelection changed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2260	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2261	^ monitorSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2262	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2263
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2264	screenDepthVisualLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2265
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2266	screenDepthVisualLabelHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2267	screenDepthVisualLabelHolder := (resources string:'Screen: Depth: %1 Visual: %2 (%3)'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2268	with:screen depth printString
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2269	with:screen visualType
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2270	with:screen serverVendor) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2271	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2272	^ screenDepthVisualLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2273	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2274
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2275	sizeX
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2276
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2277	sizeX isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2278	sizeX := screen widthInMillimeter asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2279	sizeX addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2280	sizeX changed.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	2281	sizeX onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2282	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2283	^ sizeX.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2284	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2285
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	2286	sizeY
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2287
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2288	sizeY isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2289	sizeY := screen heightInMillimeter asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2290	sizeY addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2291	sizeY changed.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	2292	sizeY onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2293	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2294	^ sizeY.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2295	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2296
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2297	useFixGrayPalette
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2298
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2299	useFixGrayPalette isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2300	useFixGrayPalette := screen fixGrayColors notNil asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	2301	useFixGrayPalette onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2302	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2303	^ useFixGrayPalette.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2304	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2305
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2306	useFixGrayPaletteLabel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2307
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2308	useFixGrayPaletteLabel isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2309	useFixGrayPaletteLabel := (resources string:'Use Fix Gray Color Palette %1' with:'(32)') asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2310	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2311	^ useFixGrayPaletteLabel.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2312	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2313
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2314	useFixPalette
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2315
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2316	useFixPalette isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2317	useFixPalette := screen fixColors notNil asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	2318	useFixPalette onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2319	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2320	^ useFixPalette.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2321	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2322
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2323	useFixPaletteLabel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2324
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2325	useFixPaletteLabel isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2326	useFixPaletteLabel := (resources string:'Use Fix Color Palette %1' with:'(4x8x4)') asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2327	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2328	^ useFixPaletteLabel.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2329	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2330
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2331	visualIsPseudoColor
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2332
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2333	visualIsPseudoColor isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2334	visualIsPseudoColor := (screen visualType == #PseudoColor) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	2335	visualIsPseudoColor onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2336	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2337	^ visualIsPseudoColor.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2338	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2339
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2340	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2341
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2342	monitorSelectionChanged
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2343
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2344	\| sel sizeInfoEntry sizes\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2345
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2346	sel := self monitorSelection value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2347	(sel notNil and:[sel ~~ 0]) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2348	sizeInfoEntry := sizeInfos at:sel.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2349	sizes := sizeInfoEntry at:2.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2350	self sizeX value:(sizes at:1).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2351	self sizeY value:(sizes at:2).
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
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2355	sizeXorYChanged
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2356	\| sizes idx\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2357
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2358	sizes := sizeInfos collect:[:entry \| entry at:2].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2359	idx := sizes findFirst:[:entry \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2360	((entry at:1) = sizeX value)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2361	and:[((entry at:2) = sizeY value)]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2362	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2363	idx ~~ 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2364	self monitorSelection value:idx
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2365	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2366	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2367
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2368	update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2369	changedObject == self monitorSelection ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2370	self monitorSelectionChanged.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2371	^ self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2372	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2373	(changedObject == self sizeX or:[self sizeY]) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2374	self sizeXorYChanged.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2375	^ self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2376	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2377
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2378	super update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2379	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2380
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2381	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2382
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2383	initialize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2384
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2385	\| listOfSizes visual\|
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2386
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2387	screen := Screen current.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2388
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2389	listOfSizes := self class classResources at:'LIST_OF_OFFERED_SCREEN_SIZES' default:#default.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2390	listOfSizes == #default ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2391	"/ nothing in resource file; offer at least some.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2392	sizeInfos := #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2393	( '11.3'' (235mm x 175mm) LCD' (235 175) )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2394	( '17'' (325mm x 245mm)' (325 245) )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2395	( '19'' (340mm x 270mm)' (340 270) )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2396	( '20'' (350mm x 280mm)' (350 280) )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2397	( '21'' (365mm x 285mm)' (365 285) )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2398	).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2399	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2400	sizeInfos := resources array:listOfSizes.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2401	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2402	visual := screen visualType.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2403	(visual == #StaticGray or:[visual == #GrayScale]) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2404	ditherStyles := self class staticGrayOrGrayScaleDitherStrings.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2405	ditherSyms := self class staticGrayOrGrayScaleDitherSyms.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2406	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2407	visual ~~ #TrueColor ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2408	ditherStyles := self class trueColorDitherStrings.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2409	ditherSyms := self class trueColorDitherSyms.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2410	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2411	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2412	super initialize.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2413
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2414	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2415
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2416	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2417
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2418	hasUnsavedChanges
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	2419	self useFixPalette value ~= screen fixColors notNil ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	2420	self useFixGrayPalette value ~= screen fixGrayColors notNil ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	2421	self isColorMonitor value ~= screen hasColors ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	2422	self sizeX value ~= screen widthInMillimeter ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	2423	self sizeY value ~= screen heightInMillimeter ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	2424
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	2425	self deepIcons value ~= screen supportsDeepIcons ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	2426	ditherSyms notNil ifTrue:[
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	2427	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	2428	].
6037 4ee47a9ce56a Unify naming: clipBoard->clipboard Stefan Vogel <sv@exept.de> parents: 6030 diff changeset	2429	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	2430	^ false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2431	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2432
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2433	!AbstractSettingsApplication::EditSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2434
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2435	defaultIcon
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	2436	<resource: #programImage>
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	2437
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	2438	^ ToolbarIconLibrary editorIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2439	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2440
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2441	!AbstractSettingsApplication::EditSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2442
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2443	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2444	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2445	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2446
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2447	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2448	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2449
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2450	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2451	UIPainter new openOnClass:AbstractSettingsApplication::EditSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2452	AbstractSettingsApplication::EditSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2453	AbstractSettingsApplication::EditSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2454	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2455
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2456	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2457
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2458	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2459	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2460	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2461	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2462	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2463	label: 'Editor Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2464	name: 'Editor Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2465	min: (Point 10 10)
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2466	bounds: (Rectangle 14 46 614 366)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2467	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2468	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2469	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2470	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2471	(VerticalPanelViewSpec
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2472	name: 'VerticalPanel2'
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2473	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	2474	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2475	verticalLayout: top
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2476	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2477	verticalSpace: 3
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: (
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2481	(VerticalPanelViewSpec
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2482	name: 'VerticalPanel1'
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2483	horizontalLayout: fit
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2484	verticalLayout: top
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2485	horizontalSpace: 3
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2486	verticalSpace: 3
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2487	component:
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2488	(SpecCollection
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2489	collection: (
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2490	(CheckBoxSpec
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2491	label: 'CTRL-Key to Start TextDrag'
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2492	name: 'CTRLKeyStTextDragCheckBox'
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2493	model: startTextDragWithControl
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2494	translateLabel: true
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2495	extent: (Point 600 23)
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2496	)
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2497	(CheckBoxSpec
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2498	label: 'SearchBox is Modal'
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2499	name: 'SearchBoxModalCheckBox'
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2500	model: searchDialogIsModal
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2501	translateLabel: true
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2502	extent: (Point 600 23)
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2503	)
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2504	(CheckBoxSpec
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2505	label: 'Tab Stops in Multiples of 4'
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2506	name: 'TabStopsMultiples4CheckBox'
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2507	model: tabsIs4
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2508	translateLabel: true
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2509	extent: (Point 600 23)
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2510	)
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2511	(CheckBoxSpec
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2512	label: 'Double Click Select Behavior as in ST80'
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2513	name: 'DoubleClickSelectBehaviorST80CheckBox'
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2514	model: st80DoubleClickSelectMode
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2515	translateLabel: true
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2516	extent: (Point 600 23)
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2517	)
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2518	(CheckBoxSpec
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2519	label: 'Cursor has ST80 Line-end Behavior'
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2520	name: 'CursorST80LineEndBehaviorCheckBox'
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2521	model: st80EditMode
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2522	translateLabel: true
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2523	extent: (Point 600 23)
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2524	)
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2525	)
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2526
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2527	)
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2528	extent: (Point 600 127)
6860 9992480933a9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6853 diff changeset	2529	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2530	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2531
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2532	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2533	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2534	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2535
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2536	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2537	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2538	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2539
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2540	!AbstractSettingsApplication::EditSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2541
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2542	basicReadSettings
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	2543	self
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	2544	readAspects:
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	2545	#(
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	2546	searchDialogIsModal
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	2547	startTextDragWithControl
6783 6bda02cccffd * empty log message * Claus Gittinger <cg@exept.de> parents: 6782 diff changeset	2548	st80EditMode
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	2549	)
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	2550	from:currentUserPrefs.
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	2551
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2552	self st80DoubleClickSelectMode value:TextView st80SelectMode.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2553	self tabsIs4 value:(ListView userDefaultTabPositions = ListView tab4Positions).
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2554	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2555
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2556	basicSaveSettings
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	2557	self
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	2558	writeAspects:
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	2559	#(
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	2560	searchDialogIsModal
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	2561	startTextDragWithControl
6783 6bda02cccffd * empty log message * Claus Gittinger <cg@exept.de> parents: 6782 diff changeset	2562	st80EditMode
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	2563	)
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	2564	to:currentUserPrefs.
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	2565
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2566	TextView st80SelectMode:(self st80DoubleClickSelectMode value).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2567	tabsIs4 value ~~ (ListView userDefaultTabPositions = ListView tab4Positions) ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2568	ListView userDefaultTabPositions:(self tabsIs4 value ifTrue:[ListView tab4Positions] ifFalse:[ListView tab8Positions]).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2569	ListView allSubInstancesDo:[:eachKindOfListView \|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2570	self tabsIs4 value ifTrue:[eachKindOfListView setTab4] ifFalse:[eachKindOfListView setTab8]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2571	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2572	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2573	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2574
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	2575	helpFilename
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	2576	^ 'Launcher/editSettings.html'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2577	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2578
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2579	!AbstractSettingsApplication::EditSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2580
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2581	searchDialogIsModal
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2582
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2583	searchDialogIsModal isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2584	searchDialogIsModal := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	2585	searchDialogIsModal onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2586	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2587	^ searchDialogIsModal.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2588	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2589
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2590	st80DoubleClickSelectMode
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2591
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2592	st80DoubleClickSelectMode isNil ifTrue:[
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2593	st80DoubleClickSelectMode := true asValue.
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2594	st80DoubleClickSelectMode onChangeSend:#updateModifiedChannel to:self.
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2595	].
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2596	^ st80DoubleClickSelectMode.
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2597	!
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2598
6783 6bda02cccffd * empty log message * Claus Gittinger <cg@exept.de> parents: 6782 diff changeset	2599	st80EditMode
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2600
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2601	st80EditingMode isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2602	st80EditingMode := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	2603	st80EditingMode onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2604	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2605	^ st80EditingMode.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2606	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2607
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2608	startTextDragWithControl
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2609
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2610	startTextDragWithControl isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2611	startTextDragWithControl := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	2612	startTextDragWithControl onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2613	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2614	^ startTextDragWithControl.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2615	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2616
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2617	tabsIs4
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2618
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2619	tabsIs4 isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2620	tabsIs4 := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	2621	tabsIs4 onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2622	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2623	^ tabsIs4.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2624	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2625
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2626	!AbstractSettingsApplication::EditSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2627
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2628	hasUnsavedChanges
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2629	TextView st80SelectMode ~= (self st80DoubleClickSelectMode value) ifTrue:[^ true].
5915 d7d685d60d82 * empty log message * Claus Gittinger <cg@exept.de> parents: 5912 diff changeset	2630	tabsIs4 value ~~ (ListView userDefaultTabPositions = ListView tab4Positions) ifTrue:[
d7d685d60d82 * empty log message * Claus Gittinger <cg@exept.de> parents: 5912 diff changeset	2631	ListView userDefaultTabPositions ~= (self tabsIs4 value
d7d685d60d82 * empty log message * Claus Gittinger <cg@exept.de> parents: 5912 diff changeset	2632	ifTrue:[ListView tab4Positions]
d7d685d60d82 * empty log message * Claus Gittinger <cg@exept.de> parents: 5912 diff changeset	2633	ifFalse:[ListView tab8Positions]) ifTrue:[^ true].
d7d685d60d82 * empty log message * Claus Gittinger <cg@exept.de> parents: 5912 diff changeset	2634	].
6783 6bda02cccffd * empty log message * Claus Gittinger <cg@exept.de> parents: 6782 diff changeset	2635
6bda02cccffd * empty log message * Claus Gittinger <cg@exept.de> parents: 6782 diff changeset	2636	(self
6bda02cccffd * empty log message * Claus Gittinger <cg@exept.de> parents: 6782 diff changeset	2637	hasChangedAspectIn:
6bda02cccffd * empty log message * Claus Gittinger <cg@exept.de> parents: 6782 diff changeset	2638	#(
6bda02cccffd * empty log message * Claus Gittinger <cg@exept.de> parents: 6782 diff changeset	2639	searchDialogIsModal
6bda02cccffd * empty log message * Claus Gittinger <cg@exept.de> parents: 6782 diff changeset	2640	startTextDragWithControl
6bda02cccffd * empty log message * Claus Gittinger <cg@exept.de> parents: 6782 diff changeset	2641	st80EditMode
6bda02cccffd * empty log message * Claus Gittinger <cg@exept.de> parents: 6782 diff changeset	2642	)
6bda02cccffd * empty log message * Claus Gittinger <cg@exept.de> parents: 6782 diff changeset	2643	asComparedTo:currentUserPrefs) ifTrue:[^ true].
6bda02cccffd * empty log message * Claus Gittinger <cg@exept.de> parents: 6782 diff changeset	2644
5915 d7d685d60d82 * empty log message * Claus Gittinger <cg@exept.de> parents: 5912 diff changeset	2645	^ false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2646	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2647
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2648	!AbstractSettingsApplication::FontSettingsAppl class methodsFor:'defaults'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2649
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2650	widgetList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2651
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2652	^ #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2653	'All'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2654	'Labels'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2655	'Buttons'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2656	'Lists'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2657	'Menus'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2658	'Edited Text'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2659	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2660	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2661
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2662	!AbstractSettingsApplication::FontSettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2663
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2664	defaultIcon
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	2665	<resource: #programImage>
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	2666
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	2667	^ ToolbarIconLibrary fontIcon
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2668	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2669
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2670	defaultIcon2
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2671	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2672	by the ImageEditor of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2673
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2674	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2675	the ImageEditor may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2676
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2677	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2678	self defaultIcon2 inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2679	ImageEditor openOnClass:self andSelector:#defaultIcon2
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2680	Icon flushCachedIcons
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2681	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2682
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2683	<resource: #image>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2684
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2685	^Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2686	constantNamed:#'AbstractSettingsApplication::FontSettingsAppl class defaultIcon2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2687	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	2688	@@@@@@@@@@@@@@@@@@@@@!!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	2689	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	2690	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	2691	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2692
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2693	!AbstractSettingsApplication::FontSettingsAppl class methodsFor:'instance creation'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2694
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2695	fontForEncoding:encodingMatch
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2696
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2697	\| inst \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2698
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2699	inst := self new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2700	inst encodingMatch:encodingMatch.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2701	self initialize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2702	self open.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2703	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2704
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2705	!AbstractSettingsApplication::FontSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2706
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2707	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2708	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2709	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2710
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2711	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2712	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2713
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2714	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2715	UIPainter new openOnClass:AbstractSettingsApplication::FontSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2716	AbstractSettingsApplication::FontSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2717	AbstractSettingsApplication::FontSettingsAppl open
4286 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	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2721
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2722	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2723	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2724	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2725	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2726	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2727	label: 'Font Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2728	name: 'Font Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2729	min: (Point 10 10)
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	2730	bounds: (Rectangle 0 0 512 657)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2731	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2732	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2733	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2734	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2735	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2736	name: 'VerticalPanel1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2737	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	2738	horizontalLayout: fitSpace
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2739	verticalLayout: center
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2740	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2741	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2742	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2743	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2744	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2745	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2746	name: 'AllBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2747	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2748	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2749	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2750	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2751	label: 'All (Others)'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2752	name: 'All'
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	2753	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	2754	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2755	adjust: left
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2756	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2757	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2758	label: 'Label'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2759	name: 'AllFont'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2760	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	2761	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2762	labelChannel: allFontLabelHolder
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2763	adjust: left
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2764	postBuildCallback: postBuildAllFontLabel:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2765	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2766	(ActionButtonSpec
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	2767	label: 'Change...'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2768	name: 'ChangeAll'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2769	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	2770	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2771	model: changeAllFont
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2772	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2773	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2774	name: 'Separator1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2775	layout: (LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2776	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2777	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2778
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2779	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2780	extent: (Point 490 50)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2781	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2782	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2783	name: 'LabelsBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2784	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2785	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2786	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2787	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2788	label: 'Labels'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2789	name: 'Labels'
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	2790	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	2791	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2792	adjust: left
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2793	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2794	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2795	label: 'Labels'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2796	name: 'LabelsFont'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2797	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	2798	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2799	labelChannel: labelsFontLabelHolder
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2800	adjust: left
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2801	postBuildCallback: postBuildLabelsFontLabel:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2802	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2803	(ActionButtonSpec
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	2804	label: 'Change...'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2805	name: 'ChangeLabels'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2806	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	2807	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2808	model: changeLabelsFont
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2809	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2810	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2811	name: 'Separator6'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2812	layout: (LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2813	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2814	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2815
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2816	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2817	extent: (Point 490 50)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2818	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2819	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2820	name: 'ButtonsBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2821	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2822	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2823	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2824	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2825	label: 'Buttons'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2826	name: 'Buttons'
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	2827	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	2828	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2829	adjust: left
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2830	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2831	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2832	label: 'Buttons Font'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2833	name: 'ButtonsFont'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2834	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	2835	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2836	labelChannel: buttonsFontLabelHolder
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2837	adjust: left
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2838	postBuildCallback: postBuildButtonsFontLabel:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2839	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2840	(ActionButtonSpec
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	2841	label: 'Change...'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2842	name: 'Change Buttons'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2843	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	2844	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2845	model: changeButtonsFont
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2846	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2847	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2848	name: 'Separator7'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2849	layout: (LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2850	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2851	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2852
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2853	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2854	extent: (Point 490 50)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2855	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2856	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2857	name: 'ListsBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2858	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2859	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2860	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2861	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2862	label: 'Lists'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2863	name: 'Lists'
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	2864	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	2865	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2866	adjust: left
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2867	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2868	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2869	label: 'Lists Font'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2870	name: 'ListsFont'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2871	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	2872	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2873	labelChannel: listsFontLabelHolder
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2874	adjust: left
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2875	postBuildCallback: postBuildListsFontLabel:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2876	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2877	(ActionButtonSpec
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	2878	label: 'Change...'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2879	name: 'ChangeLists'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2880	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	2881	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2882	model: changeListsFont
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2883	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2884	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2885	name: 'Separator8'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2886	layout: (LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2887	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2888	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2889
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2890	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2891	extent: (Point 490 50)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2892	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2893	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2894	name: 'MenusBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2895	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2896	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2897	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2898	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2899	label: 'Menus'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2900	name: 'Menus'
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	2901	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	2902	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2903	adjust: left
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2904	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2905	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2906	label: 'Menus Font'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2907	name: 'MenusFont'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2908	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	2909	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2910	labelChannel: menusFontLabelHolder
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2911	adjust: left
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2912	postBuildCallback: postBuildMenuesFontLabel:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2913	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2914	(ActionButtonSpec
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	2915	label: 'Change...'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2916	name: 'ChangeMenus'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2917	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	2918	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2919	model: changeMenusFont
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2920	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2921	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2922	name: 'Separator9'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2923	layout: (LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2924	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2925	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2926
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2927	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2928	extent: (Point 490 50)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2929	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2930	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2931	name: 'TextBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2932	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2933	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2934	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2935	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2936	label: 'Text'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2937	name: 'Text'
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	2938	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	2939	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2940	adjust: left
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2941	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2942	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2943	label: 'Text Font'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2944	name: 'TextFont'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2945	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	2946	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2947	labelChannel: textFontLabelHolder
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2948	adjust: left
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2949	postBuildCallback: postBuildTextFontLabel:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2950	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2951	(ActionButtonSpec
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	2952	label: 'Change...'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2953	name: 'ChangeText'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2954	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	2955	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2956	model: changeTextFont
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2957	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2958	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2959	name: 'Separator10'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2960	layout: (LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2961	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2962	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2963
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2964	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2965	extent: (Point 490 50)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2966	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2967	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2968
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2969	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2970	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2971	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2972
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2973	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2974	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2975	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2976
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2977	!AbstractSettingsApplication::FontSettingsAppl methodsFor:'accessing'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2978
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2979	encodingMatch:aEncodingMatch
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2980
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2981	aEncodingMatch notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2982	filter := [:f \| f encoding notNil
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2983	and:[aEncodingMatch match:f encoding]].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2984	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2985	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2986
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2987	!AbstractSettingsApplication::FontSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2988
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2989	basicReadSettings
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2990	"/ View readStyleSheetAndUpdateAllStyleCaches.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2991	self labelDef value:Label defaultFont.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2992	self buttonDef value:Button defaultFont.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2993	self listDef value:SelectionInListView defaultFont.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2994	self menuDef value:MenuView defaultFont.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2995	self textDef value:TextView defaultFont.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2996	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2997
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2998	basicSaveSettings
5464 4f59a3bc9fb2 * empty log message * ca parents: 5448 diff changeset	2999	\|fn\|
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3000
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3001	Label defaultFont:self labelDef value.
5551 24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	3002
24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	3003	fn := self buttonDef value.
24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	3004	Button defaultFont:fn.
24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	3005	Toggle defaultFont:fn.
24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	3006
24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	3007	fn := self textDef value.
24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	3008	TextView withAllSubclasses do:[:cls \| cls defaultFont:fn].
24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	3009
24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	3010	fn := self listDef value.
24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	3011	SelectionInListView withAllSubclasses do:[:cls \| cls defaultFont:fn].
24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	3012
5464 4f59a3bc9fb2 * empty log message * ca parents: 5448 diff changeset	3013	fn := self menuDef value.
5551 24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	3014	ListView defaultFont:fn.
5464 4f59a3bc9fb2 * empty log message * ca parents: 5448 diff changeset	3015	MenuView defaultFont:fn.
4f59a3bc9fb2 * empty log message * ca parents: 5448 diff changeset	3016	MenuPanel defaultFont:fn.
4f59a3bc9fb2 * empty log message * ca parents: 5448 diff changeset	3017	NoteBookView defaultFont:fn.
5551 24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	3018	PullDownMenu defaultFont:fn.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3019	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3020
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3021	changeAllFont
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3022	\|f\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3023
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3024	f := FontPanel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3025	fontFromUserInitial:(self allOfThem value)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3026	title:(resources string:'Font for %1' with:'All')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3027	filter:filter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3028	f notNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	3029	self allOfThem value:(f onDevice:allLabel device).
6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	3030	self labelDef value:(f onDevice:labelLabel device).
6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	3031	self buttonDef value:(f onDevice:buttonsLabel device).
6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	3032	self listDef value:(f onDevice:listsLabel device).
6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	3033	self menuDef value:(f onDevice:menuLabel device).
6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	3034	self textDef value:(f onDevice:textLabel device).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3035	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3036	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3037
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3038	changeButtonsFont
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3039
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3040	\|f\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3041
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3042	f := FontPanel
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	3043	fontFromUserInitial:(self buttonDef value)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3044	title:(resources string:'Font for %1' with:'All')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3045	filter:filter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3046	f notNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	3047	self buttonDef value:(f onDevice:buttonsLabel device).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3048	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3049	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3050
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3051	changeLabelsFont
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	3052	\|f \|
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3053
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3054	f := FontPanel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3055	fontFromUserInitial:(self labelDef value)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3056	title:(resources string:'Font for %1' with:'Labels')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3057	filter:filter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3058	f notNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	3059	self labelDef value:(f onDevice:labelLabel device).
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	3060	].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3061	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3062
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3063	changeListsFont
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3064	\|f\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3065
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3066	f := FontPanel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3067	fontFromUserInitial:(self listDef value)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3068	title:(resources string:'Font for %1' with:'Lists')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3069	filter:filter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3070	f notNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	3071	self listDef value:(f onDevice:listsLabel device).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3072	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3073	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3074
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3075	changeMenusFont
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3076	\|f\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3077
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3078	f := FontPanel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3079	fontFromUserInitial:(self menuDef value)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3080	title:(resources string:'Font for %1' with:'Menus')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3081	filter:filter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3082	f notNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	3083	self menuDef value:(f onDevice:menuLabel device).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3084	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3085	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3086
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3087	changeTextFont
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3088	\|f\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3089
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3090	f := FontPanel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3091	fontFromUserInitial:(self textDef value)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3092	title:(resources string:'Font for %1' with:'Edited Text')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3093	filter:filter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3094	f notNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	3095	self textDef value:(f onDevice:textLabel device).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3096	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3097	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3098
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	3099	helpFilename
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	3100	^ 'Launcher/fontSettings.html'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3101	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3102
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3103	!AbstractSettingsApplication::FontSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3104
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3105	allFontLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3106
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3107	allFontLabelHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3108	allFontLabelHolder := '' asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3109	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3110	^ allFontLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3111	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3112
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3113	allOfThem
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3114	"return/create the 'allOfThem' value holder (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3115
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3116	allOfThem isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3117	allOfThem := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3118	allOfThem addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3119	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3120	^ allOfThem
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3121	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3122
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3123	buttonDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3124	"return/create the 'buttonDef' value holder (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3125
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3126	buttonDef isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3127	buttonDef := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3128	buttonDef addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3129	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3130	^ buttonDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3131	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3132
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3133	buttonsFontLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3134
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3135	buttonsFontLabelHolder isNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	3136	buttonsFontLabelHolder := '' asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3137	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3138	^ buttonsFontLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3139	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3140
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3141	labelDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3142	"return/create the 'labelDef' value holder (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3143
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3144	labelDef isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3145	labelDef := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3146	labelDef addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3147	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3148	^ labelDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3149	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3150
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3151	labelsFontLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3152
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3153	labelsFontLabelHolder isNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	3154	labelsFontLabelHolder := '' asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3155	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3156	^ labelsFontLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3157	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3158
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3159	listDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3160	"return/create the 'listDef' value holder (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3161
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3162	listDef isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3163	listDef := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3164	listDef addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3165	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3166	^ listDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3167	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3168
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3169	listsFontLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3170
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3171	listsFontLabelHolder isNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	3172	listsFontLabelHolder := '' asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3173	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3174	^ listsFontLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3175	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3176
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3177	menuDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3178	"return/create the 'menuDef' value holder (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3179
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3180	menuDef isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3181	menuDef := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3182	menuDef addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3183	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3184	^ menuDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3185	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3186
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3187	menusFontLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3188
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3189	menusFontLabelHolder isNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	3190	menusFontLabelHolder := '' asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3191	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3192	^ menusFontLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3193	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3194
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3195	textDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3196	"return/create the 'textDef' value holder (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3197
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3198	textDef isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3199	textDef := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3200	textDef addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3201	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3202	^ textDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3203	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3204
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3205	textFontLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3206
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3207	textFontLabelHolder isNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	3208	textFontLabelHolder := '' asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3209	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3210	^ textFontLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3211	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3212
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3213	!AbstractSettingsApplication::FontSettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3214
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3215	update:something with:aParameter from:changedObject
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3216	builder notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3217	changedObject == self allOfThem ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3218	self updateFontOfLabel:allLabel andFontNameHolder:(self allFontLabelHolder) from:changedObject.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3219	^ self.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3220	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3221	changedObject == self labelDef ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3222	self updateFontOfLabel:labelLabel andFontNameHolder:(self labelsFontLabelHolder) from:changedObject.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3223	^ self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3224	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3225	changedObject == self buttonDef ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3226	self updateFontOfLabel:buttonsLabel andFontNameHolder:(self buttonsFontLabelHolder) from:changedObject.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3227	^ self.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3228	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3229	changedObject == self listDef ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3230	self updateFontOfLabel:listsLabel andFontNameHolder:(self listsFontLabelHolder) from:changedObject.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3231	^ self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3232	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3233	changedObject == self menuDef ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3234	self updateFontOfLabel:menuLabel andFontNameHolder:(self menusFontLabelHolder) from:changedObject.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3235	^ self.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3236	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3237	changedObject == self textDef ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3238	self updateFontOfLabel:textLabel andFontNameHolder:(self textFontLabelHolder) from:changedObject.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3239	^ self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3240	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3241	].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3242	super update:something with:aParameter from:changedObject
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3243	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3244
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3245	updateAllFontLabels
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3246	self update:#value with:nil from:self allOfThem.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3247	self update:#value with:nil from:self labelDef.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3248	self update:#value with:nil from:self buttonDef.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3249	self update:#value with:nil from:self listDef.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3250	self update:#value with:nil from:self menuDef.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3251	self update:#value with:nil from:self textDef.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3252	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3253
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3254	updateFontOfLabel:labelWidget andFontNameHolder:fontNameHolder from:changedObject
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	3255	\|f label\|
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3256
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3257	f := changedObject value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3258	labelWidget font:f.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3259	label := f isNil ifTrue:[
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	3260	''
c72e35116b13 instable state penk parents: 5040 diff changeset	3261	] ifFalse:[
c72e35116b13 instable state penk parents: 5040 diff changeset	3262	f userFriendlyName
c72e35116b13 instable state penk parents: 5040 diff changeset	3263	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3264	fontNameHolder value:label.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	3265	self updateModifiedChannel
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3266	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3267
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3268	!AbstractSettingsApplication::FontSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3269
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3270	postBuildAllFontLabel:aWidget
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3271
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3272	allLabel := aWidget.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3273	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3274
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3275	postBuildButtonsFontLabel:aWidget
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3276
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3277	buttonsLabel := aWidget.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3278	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3279
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3280	postBuildLabelsFontLabel:aWidget
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3281
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3282	labelLabel := aWidget.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3283	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3284
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3285	postBuildListsFontLabel:aWidget
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3286
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3287	listsLabel := aWidget.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3288	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3289
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3290	postBuildMenuesFontLabel:aWidget
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3291
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3292	menuLabel := aWidget.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3293	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3294
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3295	postBuildTextFontLabel:aWidget
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3296
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3297	textLabel := aWidget.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3298	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3299
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3300	postBuildWith:aBuilder
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3301	"/ self readSettings.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3302	self updateAllFontLabels.
4438 74e64acf5dd0 font settings loadrequest on postBuild now penk parents: 4434 diff changeset	3303	super postBuildWith:aBuilder
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3304	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3305
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3306	!AbstractSettingsApplication::FontSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3307
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3308	hasUnsavedChanges
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	3309	self labelDef value ~= Label defaultFont ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	3310	self buttonDef value ~= Button defaultFont ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	3311	self listDef value ~= SelectionInListView defaultFont ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	3312	self menuDef value ~= MenuView defaultFont ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	3313	self textDef value ~= TextView defaultFont ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	3314	^ false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3315	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3316
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3317	!AbstractSettingsApplication::GeneralCompilerSettingsAppl class methodsFor:'defaults'!
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	keepSourceOptions
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3320
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3321	^ #( keep reference absReference sourceReference discard )
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3322	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3323
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3324	keepSourceStrings
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3325
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3326	^ #('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	3327	! !
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	!AbstractSettingsApplication::GeneralCompilerSettingsAppl class methodsFor:'image specs'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3330
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3331	defaultIcon
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	3332	^ self defaultIcon3
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	3333	!
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	3334
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	3335	defaultIcon1
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3336	"This resource specification was automatically generated
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3337	by the ImageEditor of ST/X."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3338
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3339	"Do not manually edit this!! If it is corrupted,
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3340	the ImageEditor may not be able to read the specification."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3341
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3342	"
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	3343	self defaultIcon1 inspect
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	3344	ImageEditor openOnClass:self andSelector:#defaultIcon1
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3345	Icon flushCachedIcons
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3346	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3347
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3348	<resource: #image>
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3349
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3350	^Icon
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	3351	constantNamed:#'AbstractSettingsApplication::GeneralCompilerSettingsAppl class defaultIcon1'
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	3352	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	3353	@@@@@@@@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	3354	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	3355	!
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	3356
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	3357	defaultIcon3
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	3358	"This resource specification was automatically generated
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	3359	by the ImageEditor of ST/X."
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	3360
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	3361	"Do not manually edit this!! If it is corrupted,
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	3362	the ImageEditor may not be able to read the specification."
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	3363
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	3364	"
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	3365	self defaultIcon3 inspect
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	3366	ImageEditor openOnClass:self andSelector:#defaultIcon3
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	3367	Icon flushCachedIcons
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	3368	"
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	3369
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	3370	<resource: #image>
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	3371
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	3372	^Icon
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	3373	constantNamed:#'AbstractSettingsApplication::GeneralCompilerSettingsAppl class defaultIcon3'
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	3374	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	3375	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	3376	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	3377	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	3378	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	3379	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	3380	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	3381	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	3382	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3383
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3384	!AbstractSettingsApplication::GeneralCompilerSettingsAppl class methodsFor:'interface specs'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3385
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3386	windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3387	"This resource specification was automatically generated
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3388	by the UIPainter of ST/X."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3389
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3390	"Do not manually edit this!! If it is corrupted,
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3391	the UIPainter may not be able to read the specification."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3392
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3393	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3394	UIPainter new openOnClass:AbstractSettingsApplication::GeneralCompilerSettingsAppl andSelector:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3395	AbstractSettingsApplication::GeneralCompilerSettingsAppl new openInterface:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3396	AbstractSettingsApplication::GeneralCompilerSettingsAppl open
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3397	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3398
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3399	<resource: #canvas>
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3400
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3401	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3402	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3403	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3404	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3405	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3406	label: 'General Compiler Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3407	name: 'General Compiler Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3408	min: (Point 10 10)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3409	max: (Point 1024 768)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3410	bounds: (Rectangle 14 46 614 366)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3411	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3412	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3413	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3414	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3415	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3416	name: 'VerticalPanel2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3417	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	3418	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3419	verticalLayout: top
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3420	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3421	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3422	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3423	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3424	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3425	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3426	label: 'Catch Method Redefinitions'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3427	name: 'CatchMethodRedefinitions'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3428	model: catchMethodRedefs
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3429	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3430	extent: (Point 600 25)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3431	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3432	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3433	label: 'Catch Class Redefinitions'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3434	name: 'CatchClassRedefinitions'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3435	model: catchClassRedefs
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3436	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3437	extent: (Point 600 25)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3438	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3439	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3440	label: 'Keep History Line in Methods'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3441	name: 'KeepHistoryLineinMethods'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3442	model: historyLines
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3443	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3444	extent: (Point 600 25)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3445	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3446	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3447	label: 'Keep Full Class History'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3448	name: 'KeepFullClassHistory'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3449	enableChannel: hasHistoryManager
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3450	model: fullHistoryUpdate
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3451	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3452	extent: (Point 600 25)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3453	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3454	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3455	name: 'Box1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3456	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3457	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3458	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3459	(PopUpListSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3460	label: 'PopUp List'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3461	name: 'KeepSourceSelection'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3462	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	3463	tabable: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3464	model: keepSourceSelection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3465	menu: keepSource
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3466	useIndex: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3467	)
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: 'FileIn Source Mode:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3470	name: 'FileInSourceModeLabel'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3471	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	3472	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3473	adjust: right
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3474	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3475	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3476
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3477	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3478	extent: (Point 600 30)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3479	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3480	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3481	name: 'Separator1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3482	extent: (Point 600 3)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3483	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3484	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3485	label: 'If Present, Load Binary Objects when Autoloading'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3486	name: 'LoadBinaryObjectsWhenAutoloading'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3487	enableChannel: canLoadBinaries
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3488	model: loadBinaries
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3489	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3490	extent: (Point 600 25)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3491	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3492	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3493
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3494	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3495	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3496	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3497
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3498	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3499	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3500	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3501
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3502	!AbstractSettingsApplication::GeneralCompilerSettingsAppl methodsFor:'actions'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3503
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	3504	basicReadSettings
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	3505	self keepSourceSelection value:(self class keepSourceOptions
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	3506	indexOf:ClassCategoryReader sourceMode
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	3507	ifAbsent:1).
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	3508	self catchClassRedefs value:(Class catchClassRedefinitions ? false).
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	3509	self catchMethodRedefs value:(Class catchMethodRedefinitions ? false).
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	3510	self canLoadBinaries ifTrue:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	3511	self loadBinaries value:Smalltalk loadBinaries
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	3512	] ifFalse:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	3513	self loadBinaries value:false
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	3514	].
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	3515	self hasHistoryManager ifTrue:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	3516	self fullHistoryUpdate value:(HistoryManager fullHistoryUpdate ? false)
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	3517	] ifFalse:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	3518	self fullHistoryUpdate value:false
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	3519	].
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	3520	self historyLines value:self hasHistoryManager.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	3521	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	3522
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3523	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3524
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3525	ClassCategoryReader sourceMode:(self class keepSourceOptions at:self keepSourceSelection value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3526	Class catchClassRedefinitions:self catchClassRedefs value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3527	Class catchMethodRedefinitions:self catchMethodRedefs value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3528	HistoryManager notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3529	HistoryManager fullHistoryUpdate:self fullHistoryUpdate value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3530	self historyLines value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3531	HistoryManager activate
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3532	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3533	HistoryManager deactivate
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3534	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3535	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3536	Smalltalk loadBinaries:self loadBinaries value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3537	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3538
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	3539	helpFilename
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	3540	^ 'Launcher/compilerSettings.html'
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3541	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3542
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3543	!AbstractSettingsApplication::GeneralCompilerSettingsAppl methodsFor:'aspects'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3544
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3545	canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3546
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3547	canLoadBinaries isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3548	canLoadBinaries := (ObjectFileLoader notNil and:[ObjectFileLoader canLoadObjectFiles]) asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3549	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3550	^ canLoadBinaries.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3551	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3552
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3553	catchClassRedefs
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3554
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3555	catchClassRedefs isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3556	catchClassRedefs := (Class catchClassRedefinitions ? false) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	3557	catchClassRedefs onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3558	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3559	^ catchClassRedefs.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3560	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3561
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3562	catchMethodRedefs
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3563
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3564	catchMethodRedefs isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3565	catchMethodRedefs := (Class catchMethodRedefinitions ? false) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	3566	catchMethodRedefs onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3567	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3568	^ catchMethodRedefs.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3569	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3570
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3571	fullHistoryUpdate
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3572
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3573	fullHistoryUpdate isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3574	self hasHistoryManager ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3575	fullHistoryUpdate := (HistoryManager fullHistoryUpdate ? false) asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3576	] ifFalse:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3577	fullHistoryUpdate := false asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3578	].
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	3579	fullHistoryUpdate onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3580	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3581	^ fullHistoryUpdate.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3582	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3583
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3584	hasHistoryManager
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3585
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3586	^ HistoryManager notNil and:[HistoryManager isLoaded and:[HistoryManager isActive]]
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3587	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3588
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	3589	historyLines
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3590
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3591	historyLines isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3592	historyLines := self hasHistoryManager asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	3593	historyLines onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3594	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3595	^ historyLines.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3596	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3597
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3598	keepSource
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3599
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3600	keepSource isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3601	keepSource := (resources array:(self class keepSourceStrings)) asList.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3602	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3603	^ keepSource.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3604	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3605
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3606	keepSourceSelection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3607
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3608	keepSourceSelection isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3609	keepSourceSelection := (self class keepSourceOptions indexOf:ClassCategoryReader sourceMode ifAbsent:1) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	3610	keepSourceSelection onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3611	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3612	^ keepSourceSelection.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3613	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3614
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3615	loadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3616
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3617	loadBinaries isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3618	self canLoadBinaries ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3619	loadBinaries:= Smalltalk loadBinaries asValue
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3620	] ifFalse:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3621	loadBinaries:= false asValue
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3622	].
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	3623	loadBinaries onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3624	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3625	^ loadBinaries.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3626	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3627
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3628	!AbstractSettingsApplication::GeneralCompilerSettingsAppl methodsFor:'queries'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3629
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3630	hasUnsavedChanges
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	3631	((HistoryManager fullHistoryUpdate ? false) ~= self fullHistoryUpdate value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	3632	((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	3633	((Class catchMethodRedefinitions ? false) ~= self catchMethodRedefs value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	3634	((Class catchClassRedefinitions ? false) ~= self catchClassRedefs value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	3635	((Smalltalk loadBinaries ? false) ~= self loadBinaries value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	3636	((self hasHistoryManager) ~= self historyLines value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	3637	^ false.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3638	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3639
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3640	!AbstractSettingsApplication::HTTPStartServerSettingsApplication class methodsFor:'image specs'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3641
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3642	defaultIcon
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3643	"This resource specification was automatically generated
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3644	by the ImageEditor of ST/X."
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3645
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3646	"Do not manually edit this!! If it is corrupted,
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3647	the ImageEditor may not be able to read the specification."
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3648
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3649	"
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3650	self defaultIcon inspect
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3651	ImageEditor openOnClass:self andSelector:#defaultIcon
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3652	Icon flushCachedIcons
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3653	"
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3654
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3655	<resource: #image>
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3656
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3657	^Icon
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	3658	constantNamed:#'AbstractSettingsApplication::HTTPStartServerSettingsApplication class defaultIcon'
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3659	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	3660	@@@@@@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	3661	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	3662	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	3663	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	3664	K2</K2</KSXEL@@@@@@@@@@@@@@+K"<AJB (JB46AS@@@@@@@@@@@@@@J28/@@@@@@@/M T0@@@@@@@@@@@@@B,.R41LSD1LSSXEL@@@@@@@@@@@@@@+K#8(
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	3665	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	3666	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3667
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3668	!AbstractSettingsApplication::HTTPStartServerSettingsApplication class methodsFor:'interface specs'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3669
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3670	windowSpec
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3671	"This resource specification was automatically generated
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3672	by the UIPainter of ST/X."
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3673
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3674	"Do not manually edit this!! If it is corrupted,
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3675	the UIPainter may not be able to read the specification."
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3676
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3677	"
4726 8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3678	UIPainter new openOnClass:AbstractSettingsApplication::HTTPStartServerSettingsApplication andSelector:#windowSpec
8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3679	AbstractSettingsApplication::HTTPStartServerSettingsApplication new openInterface:#windowSpec
8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3680	AbstractSettingsApplication::HTTPStartServerSettingsApplication open
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3681	"
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3682
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3683	<resource: #canvas>
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3684
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3685	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3686	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3687	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3688	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3689	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3690	label: 'HTTP Server Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3691	name: 'HTTP Server Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3692	min: (Point 10 10)
6426 d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	3693	bounds: (Rectangle 0 0 539 630)
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3694	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3695	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3696	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3697	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3698	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3699	name: 'VerticalPanel1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3700	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	3701	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3702	verticalLayout: top
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3703	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3704	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3705	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3706	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3707	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3708	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3709	name: 'VerticalPanel4'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3710	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3711	verticalLayout: topSpace
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3712	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3713	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3714	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3715	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3716	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3717	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3718	name: 'Box19'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3719	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3720	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3721	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3722	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3723	label: 'Label'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3724	name: 'Label2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3725	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	3726	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3727	labelChannel: informationLabel
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3728	resizeForLabel: false
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3729	adjust: left
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3730	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3731	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3732
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3733	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3734	extent: (Point 539 200)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3735	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3736	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3737	name: 'Box18'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3738	extent: (Point 539 20)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3739	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3740	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3741	name: 'Box17'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3742	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3743	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3744	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3745	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3746	label: 'Port:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3747	name: 'Label1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3748	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	3749	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3750	adjust: right
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3751	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3752	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3753	name: 'EntryField1'
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3754	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	3755	model: portNumberChannel
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3756	type: number
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3757	immediateAccept: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3758	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3759	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3760	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3761	acceptOnPointerLeave: false
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3762	)
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3763	(VerticalPanelViewSpec
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3764	name: 'VerticalPanel5'
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3765	layout: (LayoutFrame 136 0 14 0 -12 1 132 0)
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3766	horizontalLayout: fit
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3767	verticalLayout: spreadSpace
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3768	horizontalSpace: 3
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3769	verticalSpace: 3
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3770	component:
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3771	(SpecCollection
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3772	collection: (
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3773	(ActionButtonSpec
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3774	label: 'Create new HTTP Server'
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3775	name: 'Button4'
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3776	translateLabel: true
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3777	model: createServer
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3778	useDefaultExtent: true
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3779	)
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3780	(ActionButtonSpec
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3781	label: 'Create new FastCGI Server'
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3782	name: 'Button7'
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3783	translateLabel: true
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3784	model: createFcgiServer
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3785	useDefaultExtent: true
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3786	)
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3787	(ActionButtonSpec
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3788	label: 'Create Server from Settings File...'
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3789	name: 'Button6'
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3790	translateLabel: true
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3791	model: createServerFromFile
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3792	useDefaultExtent: true
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3793	)
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3794	(ActionButtonSpec
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3795	label: 'Remove all Servers'
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3796	name: 'Button5'
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3797	translateLabel: true
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3798	model: removeAllServers
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3799	enableChannel: hasCreatedServerChannel
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3800	useDefaultExtent: true
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3801	)
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3802	)
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3803
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3804	)
6426 d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	3805	)
4724 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
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3808	)
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3809	extent: (Point 539 142)
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	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3812
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3813	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3814	extent: (Point 539 620)
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3815	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3816	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3817
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	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3820	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3821
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3822	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3823	)
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
5346 7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3826	!AbstractSettingsApplication::HTTPStartServerSettingsApplication class methodsFor:'servers access'!
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3827
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3828	addCreatedServer:aServer
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3829	self createdServers add:aServer.
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3830	!
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3831
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3832	createdServers
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3833	CreatedServers isNil ifTrue:[
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3834	CreatedServers := Set new.
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3835	].
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3836	^ CreatedServers
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3837	!
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3838
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3839	removeAllCreatedServer
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3840	self createdServers removeAll.
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3841	!
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3842
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3843	removeCreatedServer:aServer
5355 aa7b1d44d7a8 remove server from createdServers penk parents: 5346 diff changeset	3844	self createdServers remove:aServer ifAbsent:nil.
5346 7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3845	! !
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3846
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3847	!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'actions'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3848
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	3849	basicReadSettings
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	3850	(self serverClass notNil and:[HTTPServer isLoaded]) ifTrue:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	3851	self serverClass runningServers
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	3852	removeDependent:self;
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	3853	addDependent:self.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	3854	].
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	3855	self createServerSubApplicationsForRunningServers.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	3856	self createdServerChanged.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	3857	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	3858
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3859	basicSaveSettings
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	3860	"nothing done here"
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3861
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3862	^ self
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3863	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3864
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3865	createFcgiServer
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3866	"create a FastCGI server"
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3867
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3868	^ self createServerForClass:FCGIServer.
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3869	!
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3870
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3871	createServer
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3872	"create a default server - i.e. a HTTP server"
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3873
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3874	^ self createServerForClass:self serverClass.
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3875	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3876
4893 39dec723f6ad * empty log message * penk parents: 4886 diff changeset	3877	createServerApplicationFor:aServerInstance
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	3878	\|settingsApp itemPathName newItem openApps\|
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3879
6389 9f4010737320 code cleanup Claus Gittinger <cg@exept.de> parents: 6383 diff changeset	3880	openApps := settingsDialog getAllChildrenAppsForApplication:self childrenClass:HTTPServerSettingsAppl.
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	3881	(openApps contains:[:app \| app httpServerInstance == aServerInstance]) ifTrue:[
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3882	" already have an Item for this application "
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3883	^ self
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3884	].
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	3885
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3886	settingsApp := HTTPServerSettingsAppl basicNew.
5031 86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	3887	settingsApp settingsDialog:self settingsDialog.
4893 39dec723f6ad * empty log message * penk parents: 4886 diff changeset	3888	settingsApp httpServerInstance:aServerInstance.
5038 c605d7909165 * empty log message * penk parents: 5035 diff changeset	3889	settingsApp defaultSettingsApplication:false.
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3890	settingsApp basicInitialize.
5044 fea72184bd8e instable state penk parents: 5041 diff changeset	3891	itemPathName := self itemPathName , '/', settingsApp nameInSettingsDialog.
5038 c605d7909165 * empty log message * penk parents: 5035 diff changeset	3892	newItem := self settingsDialog addApplClass:#'HTTPServerSettingsAppl' withName:itemPathName.
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3893	newItem application:settingsApp.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3894	self createdServerChanged.
5038 c605d7909165 * empty log message * penk parents: 5035 diff changeset	3895	self settingsDialog expandItemForApplication:self.
5280 a68af81b7b2c readSettings after create penk parents: 5278 diff changeset	3896	settingsApp readSettings.
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3897	settingsApp initialize.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3898	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3899
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3900	createServerForClass:serverClass
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3901
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3902	\|newServer port runningServers\|
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3903
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3904	serverClass isNil ifTrue:[
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3905	self warn:'The server class is missing - cannot create server.'.
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3906	^ self.
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3907	].
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3908
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3909	self withWaitCursorDo:[
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3910	port := self portNumberChannel value.
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3911	runningServers := serverClass runningServers.
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3912	runningServers notEmpty ifTrue:[
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3913	runningServers do:[:aServer \|
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3914	aServer port = port asInteger ifTrue:[
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3915	Dialog warn:'There is already a server for port ', port asString.
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3916	^ self
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3917	]
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3918	]
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3919	].
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3920	runningServers addDependent:self.
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3921
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3922	(port = serverClass defaultPort) ifTrue:[
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3923	newServer := serverClass newServerWithDefaultServiceListOn:port.
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3924	] ifFalse:[
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3925	newServer := serverClass newServerOnPort:port.
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3926	].
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3927	self class addCreatedServer:newServer.
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3928	self createServerApplicationFor:newServer.
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3929	]
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3930	!
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3931
5049 3df132763949 instable state penk parents: 5044 diff changeset	3932	createServerFromFile
3df132763949 instable state penk parents: 5044 diff changeset	3933
5055 b3cba6441579 ready to use penk parents: 5049 diff changeset	3934	\| newServer fileName runningServers newServerPort answer\|
5049 3df132763949 instable state penk parents: 5044 diff changeset	3935
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3936	fileName := Dialog requestFileName:'Select a Server Settings File'
6426 d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	3937	default:(self serverClass settingsFilename)
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3938	pattern:'*.xml'.
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3939
5049 3df132763949 instable state penk parents: 5044 diff changeset	3940	fileName isEmptyOrNil ifTrue:[ ^ self].
5055 b3cba6441579 ready to use penk parents: 5049 diff changeset	3941	self withWaitCursorDo:[
6426 d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	3942	newServer := self serverClass serverFromSettingsFile:(fileName asFilename).
5055 b3cba6441579 ready to use penk parents: 5049 diff changeset	3943	newServer notNil ifTrue:[
b3cba6441579 ready to use penk parents: 5049 diff changeset	3944	newServerPort := newServer port.
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3945	runningServers := self serverClass runningServers.
5055 b3cba6441579 ready to use penk parents: 5049 diff changeset	3946	runningServers notEmpty ifTrue:[
b3cba6441579 ready to use penk parents: 5049 diff changeset	3947	[self hasServerForPort:newServerPort] whileTrue:[
b3cba6441579 ready to use penk parents: 5049 diff changeset	3948	answer := Dialog
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3949	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	3950	initialAnswer:self portNumberChannel value printString.
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3951	answer isEmptyOrNil ifTrue:[
5055 b3cba6441579 ready to use penk parents: 5049 diff changeset	3952	^ self
b3cba6441579 ready to use penk parents: 5049 diff changeset	3953	].
b3cba6441579 ready to use penk parents: 5049 diff changeset	3954	newServerPort := answer asNumber.
5049 3df132763949 instable state penk parents: 5044 diff changeset	3955	]
5055 b3cba6441579 ready to use penk parents: 5049 diff changeset	3956	].
b3cba6441579 ready to use penk parents: 5049 diff changeset	3957	newServer port:newServerPort.
b3cba6441579 ready to use penk parents: 5049 diff changeset	3958	runningServers addDependent:self.
5346 7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3959	self class addCreatedServer:newServer.
5055 b3cba6441579 ready to use penk parents: 5049 diff changeset	3960	self createServerApplicationFor:newServer.
5049 3df132763949 instable state penk parents: 5044 diff changeset	3961	].
3df132763949 instable state penk parents: 5044 diff changeset	3962	].
3df132763949 instable state penk parents: 5044 diff changeset	3963	!
3df132763949 instable state penk parents: 5044 diff changeset	3964
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	3965	createServerSubApplicationsForRunningServers
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3966
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3967	\|serverToStart\|
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3968
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3969	(self serverClass isNil or:[self serverClass isLoaded not]) ifTrue:[
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3970	^ self
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3971	].
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3972
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3973	serverToStart := self serverClass runningServers asSet.
5346 7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3974	serverToStart addAll:self class createdServers.
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3975	serverToStart isEmpty ifTrue:[
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3976	^ self
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3977	].
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3978	serverToStart := serverToStart asSortedCollection:[:a :b \| a port < b port].
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3979	serverToStart do:[:eachServerInstance \|
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3980	self createServerApplicationFor:eachServerInstance.
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3981	]
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3982	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3983
5055 b3cba6441579 ready to use penk parents: 5049 diff changeset	3984	hasServerForPort:newServerPort
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3985	^ self serverClass runningServers contains:[:eachServer\| eachServer port = newServerPort].
5055 b3cba6441579 ready to use penk parents: 5049 diff changeset	3986	!
b3cba6441579 ready to use penk parents: 5049 diff changeset	3987
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	3988	helpFilename
5362 12d488573309 helpFilename in httpStartServerSettings Claus Gittinger <cg@exept.de> parents: 5355 diff changeset	3989	^ 'HTTPServer/index.html'
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	3990	!
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	3991
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3992	removeAllServerSubApplications
6389 9f4010737320 code cleanup Claus Gittinger <cg@exept.de> parents: 6383 diff changeset	3993	settingsDialog removeAllSubApplicationsFor:self
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3994	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3995
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3996	removeAllServers
6426 d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	3997	self serverClass isLoaded ifTrue:[
d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	3998	self serverClass terminateAllServers.
4883 45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3999	].
5346 7d92545574ea access all created server in class var penk parents: 5343 diff changeset	4000	self class removeAllCreatedServer.
4883 45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	4001	self removeAllServerSubApplications.
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	4002	self createdServerChanged.
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	4003	!
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	4004
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4005	setPortOnFreePort
6389 9f4010737320 code cleanup Claus Gittinger <cg@exept.de> parents: 6383 diff changeset	4006	\|highestUsedPortNr portToUse instances\|
4893 39dec723f6ad * empty log message * penk parents: 4886 diff changeset	4007
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4008	(self serverClass notNil and:[self serverClass isLoaded]) ifTrue:[
6426 d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	4009	instances := self serverClass runningServers asSet.
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4010	instances addAll:((settingsDialog getAllChildrenAppsForApplication:self)
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4011	collect:[:aApp\| aApp httpServerInstance]).
5040 1500f0fdf4dd instable state penk parents: 5038 diff changeset	4012	highestUsedPortNr := instances
6426 d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	4013	inject:(self serverClass defaultPort - 1)
4893 39dec723f6ad * empty log message * penk parents: 4886 diff changeset	4014	into:[:maxSoFar :thisServer \| thisServer port max:maxSoFar].
39dec723f6ad * empty log message * penk parents: 4886 diff changeset	4015
39dec723f6ad * empty log message * penk parents: 4886 diff changeset	4016	portToUse := highestUsedPortNr + 1
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4017	] ifFalse:[
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4018	portToUse := 8080
4893 39dec723f6ad * empty log message * penk parents: 4886 diff changeset	4019	].
39dec723f6ad * empty log message * penk parents: 4886 diff changeset	4020	self portNumberChannel value:portToUse.
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4021	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4022
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4023	!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'aspects'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4024
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4025	hasCreatedServerChannel
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4026	"automatically generated by UIPainter ..."
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4027
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4028	"*** the code below creates a default model when invoked."
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4029	"*** (which may not be the one you wanted)"
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4030	"*** Please change as required and accept it in the browser."
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4031	"*** (and replace this comment by something more useful ;-)"
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4032
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4033	hasCreatedServerChannel isNil ifTrue:[
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4034	hasCreatedServerChannel := true asValue.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4035	"/ 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	4036	"/ hasCreatedServerChannel addDependent:self.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4037	"/ hasCreatedServerChannel onChangeSend:#hasCreatedServerChannelChanged to:self.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4038	].
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4039	^ hasCreatedServerChannel.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4040	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4041
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4042	informationLabel
4726 8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	4043	^ resources
8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	4044	string:'HTTPSTARTINFO'
8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	4045	default:
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	4046	'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	4047	(i.e. it is possible to serve multiple ports)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	4048
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	4049	Once created, select the individual server in the left tree,
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	4050	configure its services, and finally start it up.'
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4051	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4052
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4053	portNumberChannel
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4054
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4055	portNumberChannel isNil ifTrue:[
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4056	portNumberChannel := ValueHolder new.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4057	].
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4058	^ portNumberChannel.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4059	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4060
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4061	!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'change & update'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4062
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4063	createdServerChanged
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4064
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4065	self hasCreatedServerChannel value:self hasCreatedServer.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4066	self setPortOnFreePort.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4067	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4068
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4069	runningServersChanged
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	4070	self createServerSubApplicationsForRunningServers.
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4071	self setPortOnFreePort.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4072	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4073
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4074	update:something with:aParameter from:changedObject
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4075	(self serverClass isLoaded and:[changedObject == self serverClass runningServers]) ifTrue:[
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4076	self runningServersChanged.
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4077	^ self.
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4078	].
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4079	super update:something with:aParameter from:changedObject
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4080	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4081
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4082	!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'initialization & release'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4083
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4084	release
6426 d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	4085	(self serverClass notNil and:[HTTPServer isLoaded]) ifTrue:[
d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	4086	self serverClass runningServers removeDependent:self.
4883 45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	4087	]
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4088	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4089
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4090	!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'queries'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4091
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4092	hasCreatedServer
6389 9f4010737320 code cleanup Claus Gittinger <cg@exept.de> parents: 6383 diff changeset	4093	^ (settingsDialog getAllChildrenAppsForApplication:self childrenClass:HTTPServerSettingsAppl)
9f4010737320 code cleanup Claus Gittinger <cg@exept.de> parents: 6383 diff changeset	4094	notEmpty
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4095	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4096
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4097	hasUnsavedChanges
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4098
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4099	^ false
6426 d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	4100	!
d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	4101
d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	4102	serverClass
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4103	"answer the default class for instanciating servers.
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4104	Note that we may instanciate FCGIServer as well"
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4105
6426 d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	4106	^ HTTPServer
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4107	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4108
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4109	!AbstractSettingsApplication::KbdMappingSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4110
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4111	defaultIcon
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	4112	<resource: #programImage>
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	4113
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	4114	^ ToolbarIconLibrary keyboardMappingIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4115	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4116
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4117	!AbstractSettingsApplication::KbdMappingSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4118
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4119	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4120	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4121	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4122
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4123	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4124	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4125
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4126	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4127	UIPainter new openOnClass:AbstractSettingsApplication::KbdMappingSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4128	AbstractSettingsApplication::KbdMappingSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4129	AbstractSettingsApplication::KbdMappingSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4130	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4131
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4132	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4133
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4134	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4135	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4136	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4137	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4138	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4139	label: 'Keyboard Mapping Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4140	name: 'Keyboard Mapping Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4141	min: (Point 10 10)
5576 8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	4142	bounds: (Rectangle 0 0 491 653)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4143	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4144	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4145	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4146	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4147	(VariableVerticalPanelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4148	name: 'VariableVerticalPanel1'
5576 8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	4149	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	4150	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4151	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4152	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4153	(VariableHorizontalPanelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4154	name: 'VariableHorizontalPanel1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4155	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4156	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4157	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4158	(SequenceViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4159	name: 'RawKeyList'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4160	model: selectedRawKey
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4161	hasHorizontalScrollBar: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4162	hasVerticalScrollBar: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4163	useIndex: false
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4164	sequenceList: rawKeyList
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4165	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4166	(SequenceViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4167	name: 'FunctionKeyList'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4168	model: selectedFunctionKey
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4169	hasHorizontalScrollBar: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4170	hasVerticalScrollBar: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4171	useIndex: false
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4172	sequenceList: functionKeyList
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4173	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4174	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4175
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4176	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4177	handles: (Any 0.5 1.0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4178	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4179	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4180	name: 'Box1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4181	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4182	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4183	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4184	(TextEditorSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4185	name: 'MacroText'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4186	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	4187	model: macroTextHolder
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4188	hasHorizontalScrollBar: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4189	hasVerticalScrollBar: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4190	isReadOnly: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4191	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4192	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4193	label: 'Macro text (if any):'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4194	name: 'MacroTextLabel'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4195	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	4196	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4197	adjust: left
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4198	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4199	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4200
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4201	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4202	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4203	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4204
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4205	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4206	handles: (Any 0.5 1.0)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4207	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4208	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4209	label: 'NoticeText'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4210	name: 'Text'
5576 8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	4211	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	4212	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4213	labelChannel: labelTextHolder
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4214	resizeForLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4215	adjust: left
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4216	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4217	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4218
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4219	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4220	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4221	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4222
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4223	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4224
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4225	basicReadSettings
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4226	"nothing done here"
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4227	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4228
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4229	basicSaveSettings
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	4230	"nothing done here"
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4231	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4232
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4233	helpFilename
5741 28a546bab7e8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5734 diff changeset	4234	^ 'Launcher/keyboardSetting.html'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4235	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4236
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4237	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4238
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4239	functionKeyList
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4240	"automatically generated by UIPainter ..."
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4241
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4242	"*** the code below creates a default model when invoked."
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4243	"*** (which may not be the one you wanted)"
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4244	"*** Please change as required and accept it in the browser."
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4245	"*** (and replace this comment by something more useful ;-)"
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4246
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4247	functionKeyList isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4248	functionKeyList := ValueHolder new.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4249	"/ 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	4250	"/ functionKeyList addDependent:self.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4251	"/ functionKeyList onChangeSend:#functionKeyListChanged to:self.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4252	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4253	^ functionKeyList.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4254	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4255
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4256	labelTextHolder
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4257	"automatically generated by UIPainter ..."
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4258
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4259	"*** the code below creates a default model when invoked."
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4260	"*** (which may not be the one you wanted)"
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4261	"*** Please change as required and accept it in the browser."
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4262	"*** (and replace this comment by something more useful ;-)"
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4263
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4264	labelTextHolder isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4265	labelTextHolder := ValueHolder new.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4266	"/ 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	4267	"/ labelTextHolder addDependent:self.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4268	"/ labelTextHolder onChangeSend:#labelTextHolderChanged to:self.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4269	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4270	^ labelTextHolder.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4271	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4272
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4273	macroTextHolder
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4274	"automatically generated by UIPainter ..."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4275
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4276	"*** the code below creates a default model when invoked."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4277	"*** (which may not be the one you wanted)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4278	"*** Please change as required and accept it in the browser."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4279	"*** (and replace this comment by something more useful ;-)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4280
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4281	macroTextHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4282	macroTextHolder := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4283	"/ if your app needs to be notified of changes, uncomment one of the lines below:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4284	"/ macroTextHolder addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4285	"/ macroTextHolder onChangeSend:#macroTextHolderChanged to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4286	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4287	^ macroTextHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4288	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4289
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4290	rawKeyList
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4291
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4292	rawKeyList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4293	rawKeyList := List new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4294	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4295	^ rawKeyList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4296	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4297
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4298	selectedFunctionKey
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4299
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4300	selectedFunctionKey isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4301	selectedFunctionKey := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4302	selectedFunctionKey addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4303	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4304	^ selectedFunctionKey.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4305	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4306
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4307	selectedRawKey
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4308
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4309	selectedRawKey isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4310	selectedRawKey := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4311	selectedRawKey addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4312	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4313	^ selectedRawKey.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4314	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4315
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4316	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4317
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4318	changeFunctionKeySelection
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4319
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4320	\|raw\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4321	raw := self selectedRawKey value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4322	self selectedFunctionKey value:(mappings at:raw asSymbol) asString.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4323	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4324
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4325	changeMacroText
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4326
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4327	\|f macro indent\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4328
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4329	f := self selectedFunctionKey value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4330	(f startsWith:'Cmd') ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4331	f := f copyFrom:4
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4332	].
6781 facbb533a366 * empty log message * Claus Gittinger <cg@exept.de> parents: 6780 diff changeset	4333	macro := currentUserPrefs functionKeySequences
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4334	at:(f asSymbol) ifAbsent:nil.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4335	macro notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4336	macro := macro asStringCollection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4337	indent := macro
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4338	inject:99999 into:[:min :element \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4339	\|stripped\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4340
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4341	stripped := element withoutLeadingSeparators.
6264 039dc5c1710b slight code cleanup Claus Gittinger <cg@exept.de> parents: 6256 diff changeset	4342	stripped isEmpty ifTrue:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4343	min
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4344	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4345	min min:(element size - stripped size)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4346	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4347	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4348	indent ~~ 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4349	macro := macro collect:[:line \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4350	line size > indent ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4351	line copyFrom:indent+1
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4352	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4353	line
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4354	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4355	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4356	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4357	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4358	macroTextHolder value:macro.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4359	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4360
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4361	changeRawKeySelection
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4362	\|f raw\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4363
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4364	f := self selectedFunctionKey value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4365	raw := mappings keyAtValue:f asString.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4366	raw isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4367	raw := mappings keyAtValue:f first.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4368	raw isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4369	raw := mappings keyAtValue:f asSymbol.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4370	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4371	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4372	self selectedRawKey value:raw.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4373	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4374
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4375	update:something with:aParameter from:changedObject
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4376	changedObject == self selectedFunctionKey ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4377	self changeRawKeySelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4378	self changeMacroText.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4379	^ self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4380	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4381	changedObject == self selectedRawKey ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4382	self changeFunctionKeySelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4383	^ self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4384	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4385	super update:something with:aParameter from:changedObject
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	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4389
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4390	initialize
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4391
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4392	super initialize.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4393
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4394	mappings := Screen current keyboardMap.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4395
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4396	rawKeyList := (mappings keys asArray collect:[:key \| key asString]) sort.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4397	functionKeyList := (mappings values asSet asArray collect:[:key \| key asString]) sort.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4398
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4399	self labelTextHolder value:(resources at:'KEY_MSG2' default:'keyboard mapping:') withCRs.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4400	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4401
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4402	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4403
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4404	hasUnsavedChanges
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4405
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4406	^ false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4407	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4408
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4409	!AbstractSettingsApplication::LanguageSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4410
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4411	defaultIcon
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	4412	<resource: #programImage>
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	4413
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	4414	^ ToolbarIconLibrary languagesIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4415	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4416
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4417	!AbstractSettingsApplication::LanguageSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4418
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4419	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4420	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4421	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4422
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4423	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4424	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4425
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4426	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4427	UIPainter new openOnClass:AbstractSettingsApplication::LanguageSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4428	AbstractSettingsApplication::LanguageSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4429	AbstractSettingsApplication::LanguageSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4430	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4431
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4432	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4433
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4434	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4435	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4436	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4437	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4438	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4439	label: 'Language Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4440	name: 'Language Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4441	min: (Point 10 10)
6058 d0add4dd0d80 * empty log message * Claus Gittinger <cg@exept.de> parents: 6037 diff changeset	4442	bounds: (Rectangle 0 0 571 939)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4443	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4444	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4445	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4446	collection: (
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	4447	(TextEditorSpec
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	4448	name: 'TextEditor1'
5556 f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	4449	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	4450	style: (FontDescription helvetica medium roman 10 #'iso10646-1')
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	4451	model: noticeLabelHolder
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	4452	hasHorizontalScrollBar: true
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	4453	hasVerticalScrollBar: true
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	4454	miniScrollerHorizontal: true
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	4455	autoHideScrollBars: true
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	4456	isReadOnly: true
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	4457	postBuildCallback: postBuildHelpLabel:
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4458	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4459	(LabelSpec
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4460	label: 'Current Language:'
5556 f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	4461	name: 'Label1'
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	4462	layout: (LayoutFrame 0 0 0 0 -233 1 20 0)
5556 f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	4463	translateLabel: true
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	4464	labelChannel: currentLanguageLabel
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	4465	adjust: right
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	4466	)
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	4467	(LabelSpec
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4468	label: 'Label'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4469	name: 'CurrentLang'
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4470	layout: (LayoutFrame -233 1 0 0 0 1 20 0)
6058 d0add4dd0d80 * empty log message * Claus Gittinger <cg@exept.de> parents: 6037 diff changeset	4471	style: (FontDescription arial bold roman 10 nil)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4472	translateLabel: true
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4473	labelChannel: currentFlagAndLanguageChannel
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4474	adjust: left
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4475	)
5556 f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	4476	(InputFieldSpec
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	4477	name: 'EntryField1'
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	4478	layout: (LayoutFrame 2 0.0 160 0 -2 1.0 184 0)
5556 f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	4479	model: languageHolder
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	4480	acceptOnReturn: true
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	4481	acceptOnTab: true
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	4482	acceptOnLostFocus: true
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	4483	acceptOnPointerLeave: true
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	4484	)
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	4485	(SequenceViewSpec
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	4486	name: 'List1'
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	4487	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	4488	model: languageIndexHolder
5556 f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	4489	hasHorizontalScrollBar: true
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	4490	hasVerticalScrollBar: true
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	4491	doubleClickSelector: doubleClick:
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4492	useIndex: true
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4493	sequenceList: languageListHolder
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4494	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4495	(HorizontalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4496	name: 'HorizontalPanel1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4497	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	4498	horizontalLayout: center
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4499	verticalLayout: center
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4500	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4501	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4502	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4503	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4504	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4505	(ActionButtonSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4506	label: 'Reread Language Resources'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4507	name: 'RereadResourcesButton'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4508	translateLabel: true
5556 f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	4509	resizeForLabel: true
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4510	model: rereadResourceFiles
5556 f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	4511	useDefaultExtent: true
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4512	)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4513	)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4514
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4515	)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4516	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4517	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4518
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4519	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4520	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4521	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4522
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4523	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'accessing'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4524
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4525	languageList
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4526	"return the value of the instance variable 'languageList' (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4527
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4528	^ languageList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4529	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4530
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4531	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4532
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4533	basicReadSettings
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4534	self languageHolder value:self currentLanguage.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4535	self currentFlagAndLanguageChannel value:self currentLanguage.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4536	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4537
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4538	basicSaveSettings
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4539	\|fontPref fontPrefs language oldLanguage languageString territory enc
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4540	answer matchingFonts l screen switch dialog anyWrong\|
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4541
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4542	self withWaitCursorDo:[
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4543	languageString := translatedLanguages at:(self languageIndexHolder value).
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4544	language := self languageHolder value.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4545	(language includes:$-) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4546	l := language asCollectionOfSubstringsSeparatedBy:$-.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4547	language := l at:1.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4548	territory := l at:2.
5837 470e67fd9d0a * empty log message * Claus Gittinger <cg@exept.de> parents: 5825 diff changeset	4549	territory isNil ifTrue:[
470e67fd9d0a * empty log message * Claus Gittinger <cg@exept.de> parents: 5825 diff changeset	4550	territory := language string copyTo:2
470e67fd9d0a * empty log message * Claus Gittinger <cg@exept.de> parents: 5825 diff changeset	4551	].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4552	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4553
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4554	"/ check if the new language needs a differently encoded font;
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4555	"/ ask user to switch font and allow cancellation.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4556	"/ Otherwise, you are left with unreadable menu & button items ...
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4557
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4558	oldLanguage := Smalltalk language.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4559	Smalltalk language:language asSymbol.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4560	ResourcePack flushCachedResourcePacks.
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4561
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4562	"/ refetch resources ...
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4563	resources := AbstractLauncherApplication classResources.
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4564	fontPrefs := resources at:'PREFERRED_FONT_ENCODINGS' default:nil.
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4565	fontPrefs isNil ifTrue:[
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4566	fontPref := resources at:'PREFERRED_FONT_ENCODING' default:nil.
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4567	fontPref isNil ifTrue:[
5700 61de7f81a8fb * empty log message * Claus Gittinger <cg@exept.de> parents: 5627 diff changeset	4568	fontPrefs := #(#'iso10646-1')
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4569	] ifFalse:[
5700 61de7f81a8fb * empty log message * Claus Gittinger <cg@exept.de> parents: 5627 diff changeset	4570	fontPrefs := #(#'iso10646-1') , (Array with:fontPref).
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4571	]
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4572	].
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	4573
9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	4574	"/ 'normalize' names of encodings
5700 61de7f81a8fb * empty log message * Claus Gittinger <cg@exept.de> parents: 5627 diff changeset	4575	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	4576	fontPrefs := fontPrefs select:[:each \| each notNil] thenCollect:[:each \| each nameOfEncoding].
5700 61de7f81a8fb * empty log message * Claus Gittinger <cg@exept.de> parents: 5627 diff changeset	4577	fontPrefs isEmpty ifTrue:[
61de7f81a8fb * empty log message * Claus Gittinger <cg@exept.de> parents: 5627 diff changeset	4578	fontPrefs := #(#'iso10464-1')
61de7f81a8fb * empty log message * Claus Gittinger <cg@exept.de> parents: 5627 diff changeset	4579	].
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4580	fontPref := fontPrefs first.
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4581
5580 11cec5eb8c93 * empty log message * Claus Gittinger <cg@exept.de> parents: 5576 diff changeset	4582	Smalltalk setLanguage:#en.
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4583	ResourcePack flushCachedResourcePacks.
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4584	resources := AbstractLauncherApplication classResources.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4585
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4586	switch := true.
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4587	anyWrong := false.
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4588	(Array
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4589	with:MenuView defaultFont
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4590	"/ with:ListView defaultFont
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4591	with:EditTextView defaultFont
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4592	with:Button defaultFont)
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4593	do:[:fn \|
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4594	enc := fn encoding.
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4595	(fontPrefs contains:[:pref \| CharacterEncoder isEncoding:pref subSetOf:enc])
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4596	ifFalse:[
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4597	anyWrong := true
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4598	].
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4599	].
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4600	anyWrong ifTrue:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4601	"/ look if there is one at all.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4602	screen := Screen current.
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4603	matchingFonts := screen listOfAvailableFonts
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4604	select:[:f \| fontPrefs contains:[:pref \|
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4605	CharacterEncoder
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4606	isEncoding:pref subSetOf:(f encoding ? 'ascii')]].
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4607
6264 039dc5c1710b slight code cleanup Claus Gittinger <cg@exept.de> parents: 6256 diff changeset	4608	matchingFonts isEmpty ifTrue:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4609	"/ flush and try again - just in case, the font path has changed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4610	screen flushListOfAvailableFonts.
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4611	matchingFonts := screen listOfAvailableFonts
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4612	select:[:f \| fontPrefs contains:[:pref \|
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4613	CharacterEncoder
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4614	isEncoding:pref subSetOf:(f encoding ? 'ascii')]].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4615	].
6264 039dc5c1710b slight code cleanup Claus Gittinger <cg@exept.de> parents: 6256 diff changeset	4616	matchingFonts isEmpty ifTrue:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4617	(Dialog
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4618	confirm:(resources
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4619	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	4620	with:fontPref) withCRs)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4621	ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4622	switch := false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4623	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4624	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4625	answer := Dialog
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4626	confirmWithCancel:(resources
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4627	string:'Some font(s) is not %1-encoded.\\Change it ?'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4628	with:fontPref) withCRs
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4629	labels:(resources
5109 27daba118da2 * empty log message * Claus Gittinger <cg@exept.de> parents: 5101 diff changeset	4630	array:#('Cancel' 'No' 'Yes'))
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4631	default:3.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4632	answer isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4633	switch := false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4634	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4635	answer ifTrue:[
5495 61664e06a5d7 * empty log message * Claus Gittinger <cg@exept.de> parents: 5479 diff changeset	4636	switch := (AbstractLauncherApplication::LauncherDialogs fontBoxForEncoding:fontPref)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4637	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4638	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4639	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4640	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4641
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4642	switch ifTrue:[
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4643	Transcript showCR:'Changing language setting to ' , languageString string , ' (' , language , ')...'.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4644	Smalltalk language:language asSymbol.
5837 470e67fd9d0a * empty log message * Claus Gittinger <cg@exept.de> parents: 5825 diff changeset	4645	Smalltalk languageTerritory:(territory ? language) asSymbol.
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4646	ResourcePack flushCachedResourcePacks.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4647	"/ ResourcePack flushCachedResourcePacks - already done by language-change
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4648	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4649	].
4327 076dfc82d0ed * empty log message * penk parents: 4324 diff changeset	4650	switch ifTrue:[
6389 9f4010737320 code cleanup Claus Gittinger <cg@exept.de> parents: 6383 diff changeset	4651	(dialog := settingsDialog) notNil ifTrue:[
5212 5ddf75438c57 checkin from browser Claus Gittinger <cg@exept.de> parents: 5181 diff changeset	4652	dialog reopenLauncher.
4327 076dfc82d0ed * empty log message * penk parents: 4324 diff changeset	4653	] ifFalse:[
076dfc82d0ed * empty log message * penk parents: 4324 diff changeset	4654	NewLauncher current reopenLauncher.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4655	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4656	DebugView newDebugger.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4657	].
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4658	self updateForChangedLanguage.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4659	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4660
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4661	doubleClick:aEntry
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4662	self saveSettingsIfUnsavedChangesArePresent.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4663	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4664
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4665	helpFilename
5741 28a546bab7e8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5734 diff changeset	4666	^ 'Launcher/languageSetting.html'
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4667	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4668
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4669	rereadResourceFiles
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4670	ResourcePack flushCachedResourcePacks.
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4671	perLanguageResources := nil.
5576 8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	4672	self withWaitCursorDo:[
8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	4673	self updateForChangedLanguage.
8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	4674	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4675
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4676	"/ Smalltalk language:(Smalltalk language).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4677	"/ Smalltalk languageTerritory:(Smalltalk languageTerritory).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4678
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4679	Smalltalk changed:#Language.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4680	Smalltalk changed:#LanguageTerritory.
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4681	!
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4682
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4683	updateForChangedLanguage
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4684	self initializeLanguages.
5721 effab3aca7ff * empty log message * Claus Gittinger <cg@exept.de> parents: 5719 diff changeset	4685	languageListHolder value:languageList.
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4686	self languageListHolder value:languageList.
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4687	self currentFlagAndLanguageChannel value:self currentLanguage.
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4688	self setCurrentLanguageLabel.
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4689	self setNoticeLabel.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4690	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4691
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4692	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4693
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4694	currentFlagAndLanguageChannel
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4695	currentFlagAndLanguageChannel isNil ifTrue:[
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4696	currentFlagAndLanguageChannel := self currentLanguage asValue.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4697	].
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4698	^ currentFlagAndLanguageChannel.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4699	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4700
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4701	currentLanguageLabel
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4702	currentLanguageLabel isNil ifTrue:[
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4703	currentLanguageLabel := ValueHolder new.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4704	self setCurrentLanguageLabel.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4705	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4706	^ currentLanguageLabel.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4707	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4708
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4709	languageHolder
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4710	languageHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4711	languageHolder := self currentLanguage asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	4712	languageHolder onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4713	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4714	^ languageHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4715	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4716
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4717	languageIndexChanged
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4718	\|langIdx\|
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4719
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4720	langIdx := self languageIndexHolder value ? 1.
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4721	self languageHolder value:(listOfLanguages at:langIdx).
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4722	self updateModifiedChannel.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4723	!
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4724
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4725	languageIndexHolder
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4726	languageIndexHolder isNil ifTrue:[
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4727	languageIndexHolder := (self currentLanguageIndex) asValue.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4728	languageIndexHolder onChangeSend:#languageIndexChanged to:self.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4729	].
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4730	^ languageIndexHolder.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4731	!
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4732
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4733	languageListHolder
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4734	languageListHolder isNil ifTrue:[
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4735	languageListHolder := self languageList asValue.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4736	].
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4737	^ languageListHolder.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4738	!
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4739
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4740	noticeLabelHolder
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4741	noticeLabelHolder isNil ifTrue:[
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4742	noticeLabelHolder := ValueHolder new.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4743	self setNoticeLabel.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4744	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4745	^ noticeLabelHolder.
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4746	!
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4747
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4748	setCurrentLanguageLabel
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4749	currentLanguageLabel value: (resources string:'Current Language:')
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4750	!
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4751
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4752	setNoticeLabel
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	4753	noticeLabelHolder
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	4754	value: ((resources at:'LANG_MSG' default:'Select a Language') withCRs).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4755	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4756
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4757	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4758
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4759	initialize
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4760	self initializeLanguages.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4761	super initialize.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4762	!
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4763
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4764	initializeLanguages
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4765	\|flags enResources savedLanguage savedLanguageTerritory enLanguages nativeLanguages languages listOfLanguageKeys\|
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4766
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4767	resources := self class classResources.
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	4768	listOfLanguages := resources at:'LIST_OF_OFFERED_LANGUAGES' default:#('default' 'en' ).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4769	listOfLanguages := listOfLanguages asOrderedCollection.
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4770	listOfLanguageKeys := listOfLanguages collect:[:l \| l copyReplaceAll:$- with:$_ ].
5563 5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	4771
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	4772	(perLanguageResources notNil
4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	4773	and:[ (perLanguageResources includesKey:#en) not
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4774	and:[ (perLanguageResources includesKey:#'en_us') not ]])
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	4775	ifTrue:[
4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	4776	perLanguageResources := nil.
4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	4777	].
4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	4778
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4779	perLanguageResources isNil ifTrue:[
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4780	perLanguageResources := Dictionary new.
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4781
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4782	listOfLanguageKeys do:[:eachLang \|
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4783	savedLanguage := Language.
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4784	savedLanguageTerritory := LanguageTerritory.
5573 71a51c6df6a4 checkin from browser Claus Gittinger <cg@exept.de> parents: 5569 diff changeset	4785	ResourcePack flushCachedResourcePacks.
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4786	[
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4787	\|rsc lang terr\|
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4788
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4789	lang := terr := eachLang.
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4790	(lang includes:$_) ifTrue:[
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4791	terr := lang copyFrom:4.
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4792	lang := lang copyTo:2.
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4793	].
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4794	Language := lang asSymbol.
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4795	LanguageTerritory := terr asSymbol.
7295 1ed8da6b09d3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7178 diff changeset	4796	rsc := ResourcePack for:(self class) cached:false.
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4797	perLanguageResources at:eachLang asSymbol put:rsc.
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4798	] ensure:[
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4799	Language := savedLanguage.
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4800	LanguageTerritory := savedLanguageTerritory.
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4801	].
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4802	].
5573 71a51c6df6a4 checkin from browser Claus Gittinger <cg@exept.de> parents: 5569 diff changeset	4803	ResourcePack flushCachedResourcePacks.
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4804	].
7295 1ed8da6b09d3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7178 diff changeset	4805
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4806	enResources := perLanguageResources at:#en ifAbsent:[perLanguageResources at:#'en_us'].
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4807
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4808	enLanguages := listOfLanguageKeys
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4809	collect:[:lang \| \|item\|
5563 5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	4810	item := enResources at:('LANG_' , lang) default:nil.
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	4811	item isNil ifTrue:[
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	4812	lang
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4813	] ifFalse:[
5563 5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	4814	item isString ifTrue:[
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	4815	item
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	4816	] ifFalse:[
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	4817	item at:1
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	4818	]
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4819	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4820	].
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4821
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4822	nativeLanguages := listOfLanguageKeys
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4823	collect:[:lang \| \|item enLang\|
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4824	item := enResources at:('LANG_' , lang) default:nil.
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4825	item isNil ifTrue:[
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4826	enLang := lang
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4827	] ifFalse:[
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4828	item isString ifTrue:[
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4829	enLang := item
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4830	] ifFalse:[
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4831	enLang := item at:1
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4832	]
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4833	].
5583 2da80c3bc608 * empty log message * Claus Gittinger <cg@exept.de> parents: 5580 diff changeset	4834	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	4835	].
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4836
5563 5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	4837	languages := enLanguages
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	4838	collect:[:enLang \| \|item\|
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	4839	item := resources at:enLang default:enLang.
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	4840	].
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	4841
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4842	flags := listOfLanguageKeys collect:[:lang \| \|item coll\|
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4843	item := resources at:('FLAG_' , lang) default:nil.
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4844	item notNil ifTrue:[
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4845	item
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4846	] ifFalse:[
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4847	coll := lang asCollectionOfSubstringsSeparatedBy:$_.
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4848	(coll size > 1
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4849	and:[(item := resources at:('FLAG_' , coll last) default:nil) notNil])
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4850	ifTrue:[
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4851	item
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4852	] ifFalse:[
6638 74439c5aa6dd * empty log message * Claus Gittinger <cg@exept.de> parents: 6580 diff changeset	4853	item := resources string:('LANG_' , lang).
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4854	item isArray ifTrue:[
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4855	item at:2
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4856	] ifFalse:[
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4857	nil
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4858	]
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4859	]
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4860	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4861	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4862	flags := flags collect:[:nm \| \|img d\| nm notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4863	img := Image fromFile:nm.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4864	img isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4865	d := Smalltalk getPackageDirectoryForPackage:'stx:goodies'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4866	img := Image fromFile:(d construct:nm).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4867	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4868	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4869	nil
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4870	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4871	].
5563 5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	4872
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4873
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4874	translatedLanguages := (1 to:languages size) collect:[:idx \|
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4875	\|l eL nL s\|
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4876
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4877	l := languages at:idx.
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4878	eL := enLanguages at:idx.
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4879	nL := nativeLanguages at:idx.
5734 67a9878b31bc * empty log message * Claus Gittinger <cg@exept.de> parents: 5721 diff changeset	4880
67a9878b31bc * empty log message * Claus Gittinger <cg@exept.de> parents: 5721 diff changeset	4881	s := nL.
67a9878b31bc * empty log message * Claus Gittinger <cg@exept.de> parents: 5721 diff changeset	4882	eL ~= nL ifTrue:[
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4883	s := s , ' / ' , eL
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4884	].
5734 67a9878b31bc * empty log message * Claus Gittinger <cg@exept.de> parents: 5721 diff changeset	4885	(l ~= nL and:[l ~= eL]) ifTrue:[
67a9878b31bc * empty log message * Claus Gittinger <cg@exept.de> parents: 5721 diff changeset	4886	s := s , ' / ' , l
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4887	].
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4888	s
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4889	].
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4890
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4891	languageList := translatedLanguages
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4892	with:flags
5563 5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	4893	collect:[:lang :flag \| LabelAndIcon icon:flag string:lang.].
7295 1ed8da6b09d3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7178 diff changeset	4894
1ed8da6b09d3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7178 diff changeset	4895	"Modified: / 18-09-2006 / 19:23:39 / cg"
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	4896	!
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	4897
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	4898	postBuildHelpLabel:aWidget
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	4899	aWidget level:0.
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	4900	aWidget scrolledView backgroundColor:self window viewBackground.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4901	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4902
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4903	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4904
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4905	currentLanguage
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4906	^ languageList at:(self currentLanguageIndex)
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4907	!
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4908
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4909	currentLanguageIndex
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4910	\| langIdx \|
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4911
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4912	(Language ~= LanguageTerritory) ifTrue:[
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4913	langIdx := listOfLanguages indexOf:(Language , '-' , LanguageTerritory) ifAbsent:nil.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4914	].
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4915	langIdx isNil ifTrue:[
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4916	langIdx := listOfLanguages indexOf:Language ifAbsent:nil.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4917	].
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4918	langIdx isNil ifTrue:[
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4919	langIdx := listOfLanguages indexOf:'en' ifAbsent:nil.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4920	langIdx isNil ifTrue:[
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4921	langIdx := listOfLanguages indexOf:'en-us' ifAbsent:nil.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4922
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4923	langIdx isNil ifTrue:[
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4924	langIdx := 1.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4925	]
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4926	]
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4927	].
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4928	^ langIdx
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4929	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4930
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4931	hasUnsavedChanges
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4932	^ (self languageHolder value) ~= (self currentLanguage)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4933	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4934
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4935	!AbstractSettingsApplication::MemorySettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4936
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4937	defaultIcon
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	4938	<resource: #programImage>
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	4939
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	4940	^ ToolbarIconLibrary memoryIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4941	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4942
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4943	!AbstractSettingsApplication::MemorySettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4944
5433 f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4945	windowSpec
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4946	"This resource specification was automatically generated
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4947	by the UIPainter of ST/X."
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4948
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4949	"Do not manually edit this!! If it is corrupted,
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4950	the UIPainter may not be able to read the specification."
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4951
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4952	"
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4953	UIPainter new openOnClass:AbstractSettingsApplication::MemorySettingsAppl andSelector:#windowSpec
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4954	AbstractSettingsApplication::MemorySettingsAppl new openInterface:#windowSpec
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4955	AbstractSettingsApplication::MemorySettingsAppl open
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4956	"
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4957
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4958	<resource: #canvas>
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4959
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4960	^
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4961	#(FullSpec
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4962	name: windowSpec
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4963	window:
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4964	(WindowSpec
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4965	label: 'Memory Manager Settings'
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4966	name: 'Memory Manager Settings'
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4967	min: (Point 10 10)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4968	bounds: (Rectangle 13 23 465 745)
5433 f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4969	)
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4970	component:
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4971	(SpecCollection
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4972	collection: (
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4973	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4974	label: 'Label'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4975	name: 'Label1'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4976	layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 50 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4977	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4978	labelChannel: warningLabelHolder
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4979	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4980	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4981	(VerticalPanelViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4982	name: 'VerticalPanel1'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4983	layout: (LayoutFrame 0 0.0 50 0 0 1.0 0 1.0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4984	horizontalLayout: fit
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4985	verticalLayout: top
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4986	horizontalSpace: 0
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4987	verticalSpace: 3
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4988	ignoreInvisibleComponents: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4989	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4990	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4991	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4992	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4993	name: 'NewSpaceSizeBox'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4994	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4995	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4996	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4997	(InputFieldSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4998	name: 'EntryField23'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4999	layout: (LayoutFrame -95 1 3 0 -5 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5000	model: newSpaceSize
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5001	type: fileSize
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5002	acceptOnReturn: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5003	acceptOnTab: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5004	acceptOnLostFocus: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5005	acceptOnPointerLeave: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5006	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5007	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5008	label: 'Size of NewSpace:'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5009	name: 'Label44'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5010	layout: (LayoutFrame 0 0 3 0 -95 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5011	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5012	adjust: right
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5013	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5014	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5015	label: 'Size of newSpace where objects are created'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5016	name: 'Label45'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5017	layout: (LayoutFrame 0 0.0 23 0 0 1.0 43 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5018	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5019	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5020	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5021	(DividerSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5022	name: 'Separator24'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5023	layout: (LayoutFrame 0 0.0 0 0 0 1.0 3 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5024	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5025	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5026
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5027	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5028	extent: (Point 452 43)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5029	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5030	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5031	name: 'MaximumMemoryLimitBox'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5032	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5033	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5034	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5035	(InputFieldSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5036	name: 'EntryField24'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5037	layout: (LayoutFrame -95 1 3 0 -5 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5038	model: maxOldSpace
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5039	type: fileSize
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5040	formatString: ''
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5041	acceptOnReturn: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5042	acceptOnTab: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5043	acceptOnLostFocus: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5044	acceptOnPointerLeave: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5045	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5046	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5047	label: 'Maximum Memory Limit:'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5048	name: 'Label46'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5049	layout: (LayoutFrame 0 0 3 0 -95 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5050	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5051	adjust: right
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5052	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5053	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5054	label: 'Never allocate more than this amount of memory'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5055	name: 'Label47'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5056	layout: (LayoutFrame 0 0.0 23 0 0 1.0 43 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5057	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5058	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5059	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5060	(DividerSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5061	name: 'Separator25'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5062	layout: (LayoutFrame 0 0.0 0 0 0 1.0 3 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5063	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5064	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5065
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5066	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5067	extent: (Point 452 43)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5068	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5069	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5070	name: 'QuickAllocationLimitBox'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5071	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5072	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5073	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5074	(InputFieldSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5075	name: 'EntryField14'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5076	layout: (LayoutFrame -95 1 3 0 -5 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5077	model: fastMoreLimit
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5078	type: fileSize
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5079	acceptOnReturn: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5080	acceptOnTab: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5081	acceptOnLostFocus: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5082	acceptOnPointerLeave: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5083	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5084	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5085	label: 'Quick Allocation Limit:'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5086	name: 'Label26'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5087	layout: (LayoutFrame 0 0 3 0 -95 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5088	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5089	adjust: right
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5090	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5091	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5092	label: 'Quickly allocate more memory (suppress GC) up to this limit'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5093	name: 'Label27'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5094	layout: (LayoutFrame 0 0.0 23 0 0 1.0 43 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5095	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5096	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5097	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5098	(DividerSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5099	name: 'Separator15'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5100	layout: (LayoutFrame 0 0.0 0 0 0 1.0 3 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5101	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5102	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5103
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5104	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5105	extent: (Point 452 43)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5106	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5107	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5108	name: 'IncrementalGCAllocationTriggerBox'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5109	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5110	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5111	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5112	(InputFieldSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5113	name: 'EntryField25'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5114	layout: (LayoutFrame -95 1 3 0 -5 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5115	model: igcLimit
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5116	type: fileSize
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5117	acceptOnReturn: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5118	acceptOnTab: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5119	acceptOnLostFocus: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5120	acceptOnPointerLeave: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5121	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5122	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5123	label: 'Incremental GC Allocation Trigger:'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5124	name: 'Label48'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5125	layout: (LayoutFrame 0 0 3 0 -95 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5126	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5127	adjust: right
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5128	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5129	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5130	label: 'Start IGC whenever this amount has been allocated'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5131	name: 'Label49'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5132	layout: (LayoutFrame 0 0.0 23 0 0 1.0 43 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5133	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5134	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5135	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5136	(DividerSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5137	name: 'Separator26'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5138	layout: (LayoutFrame 0 0.0 0 0 0 1.0 3 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5139	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5140	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5141
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5142	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5143	extent: (Point 452 43)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5144	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5145	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5146	name: 'IncrementalGCFreespaceTriggerBox'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5147	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5148	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5149	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5150	(InputFieldSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5151	name: 'EntryField26'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5152	layout: (LayoutFrame -95 1 3 0 -5 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5153	model: igcFreeLimit
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5154	type: fileSize
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5155	acceptOnReturn: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5156	acceptOnTab: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5157	acceptOnLostFocus: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5158	acceptOnPointerLeave: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5159	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5160	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5161	label: 'Incremental GC Freespace Trigger:'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5162	name: 'Label50'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5163	layout: (LayoutFrame 0 0 3 0 -95 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5164	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5165	adjust: right
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5166	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5167	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5168	label: 'Start IGC whenever freespace drops below this'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5169	name: 'Label51'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5170	layout: (LayoutFrame 0 0.0 23 0 0 1.0 43 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5171	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5172	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5173	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5174	(DividerSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5175	name: 'Separator27'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5176	layout: (LayoutFrame 0 0.0 0 0 0 1.0 3 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5177	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5178	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5179
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5180	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5181	extent: (Point 452 43)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5182	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5183	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5184	name: 'GCAmountBox'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5185	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5186	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5187	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5188	(InputFieldSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5189	name: 'EntryField17'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5190	layout: (LayoutFrame -95 1 3 0 -5 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5191	model: igcFreeAmount
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5192	type: fileSize
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5193	acceptOnReturn: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5194	acceptOnTab: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5195	acceptOnLostFocus: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5196	acceptOnPointerLeave: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5197	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5198	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5199	label: 'Incremental GC Amount:'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5200	name: 'Label32'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5201	layout: (LayoutFrame 0 0 3 0 -95 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5202	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5203	adjust: right
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5204	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5205	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5206	label: 'Try to keep this amount for peak requests'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5207	name: 'Label33'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5208	layout: (LayoutFrame 0 0.0 23 0 0 1.0 43 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5209	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5210	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5211	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5212	(DividerSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5213	name: 'Separator18'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5214	layout: (LayoutFrame 0 0.0 0 0 0 1.0 3 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5215	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5216	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5217
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5218	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5219	extent: (Point 452 43)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5220	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5221	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5222	name: 'OldspaceIncrementBox'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5223	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5224	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5225	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5226	(InputFieldSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5227	name: 'EntryField18'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5228	layout: (LayoutFrame -95 1 3 0 -5 1.0 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5229	model: oldIncr
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5230	type: fileSize
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5231	acceptOnReturn: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5232	acceptOnTab: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5233	acceptOnLostFocus: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5234	acceptOnPointerLeave: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5235	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5236	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5237	label: 'Oldspace Increment:'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5238	name: 'Label34'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5239	layout: (LayoutFrame 0 0 3 0 -95 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5240	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5241	adjust: right
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5242	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5243	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5244	label: 'Increase oldSpace in chunks of this size'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5245	name: 'Label35'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5246	layout: (LayoutFrame 0 0.0 23 0 0 1.0 43 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5247	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5248	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5249	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5250	(DividerSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5251	name: 'Separator19'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5252	layout: (LayoutFrame 0 0.0 0 0 0 1.0 3 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5253	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5254	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5255
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5256	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5257	extent: (Point 452 43)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5258	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5259	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5260	name: 'OldSpaceCompressLimitBox'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5261	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5262	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5263	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5264	(InputFieldSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5265	name: 'EntryField19'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5266	layout: (LayoutFrame -95 1 3 0 -5 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5267	model: compressLimit
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5268	type: fileSize
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5269	acceptOnReturn: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5270	acceptOnTab: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5271	acceptOnLostFocus: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5272	acceptOnPointerLeave: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5273	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5274	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5275	label: 'Oldspace Compress Limit:'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5276	name: 'Label36'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5277	layout: (LayoutFrame 0 0 3 0 -95 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5278	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5279	adjust: right
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5280	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5281	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5282	label: 'Use 2-pass compressing GC if > 0 and more memory is in use'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5283	name: 'Label37'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5284	layout: (LayoutFrame 0 0.0 23 0 0 1.0 43 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5285	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5286	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5287	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5288	(DividerSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5289	name: 'Separator20'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5290	layout: (LayoutFrame 0 0.0 0 0 0 1.0 3 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5291	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5292	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5293
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5294	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5295	extent: (Point 452 43)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5296	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5297	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5298	name: 'StackLimitBox'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5299	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5300	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5301	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5302	(InputFieldSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5303	name: 'EntryField20'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5304	layout: (LayoutFrame -95 1 3 0 -5 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5305	enableChannel: supportsJustInTimeCompilation
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5306	model: stackLimit
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5307	type: fileSize
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5308	acceptOnReturn: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5309	acceptOnTab: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5310	acceptOnLostFocus: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5311	acceptOnPointerLeave: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5312	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5313	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5314	label: 'Stack Limit:'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5315	name: 'Label38'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5316	layout: (LayoutFrame 0 0 3 0 -95 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5317	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5318	adjust: right
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5319	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5320	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5321	label: 'Trigger recursionInterrupt if more stack is used by a process'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5322	name: 'Label39'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5323	layout: (LayoutFrame 0 0.0 23 0 0 1.0 43 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5324	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5325	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5326	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5327	(DividerSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5328	name: 'Separator21'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5329	layout: (LayoutFrame 0 0.0 0 0 0 1.0 3 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5330	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5331	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5332
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5333	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5334	extent: (Point 452 43)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5335	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5336	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5337	name: 'CodeLimitBox'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5338	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5339	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5340	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5341	(InputFieldSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5342	name: 'EntryField21'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5343	layout: (LayoutFrame -95 1 3 0 -5 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5344	enableChannel: supportsJustInTimeCompilation
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5345	model: codeLimit
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5346	type: fileSize
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5347	acceptOnReturn: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5348	acceptOnTab: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5349	acceptOnLostFocus: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5350	acceptOnPointerLeave: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5351	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5352	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5353	label: 'Dynamic code Limit:'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5354	name: 'Label40'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5355	layout: (LayoutFrame 0 0 3 0 -95 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5356	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5357	adjust: right
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5358	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5359	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5360	label: 'Flush dynamic compiled code to stay within this limit'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5361	name: 'Label41'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5362	layout: (LayoutFrame 0 0.0 23 0 0 1.0 43 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5363	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5364	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5365	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5366	(DividerSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5367	name: 'Separator22'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5368	layout: (LayoutFrame 0 0.0 0 0 0 1.0 3 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5369	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5370	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5371
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5372	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5373	extent: (Point 452 43)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5374	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5375	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5376	name: 'CodeTriggerBox'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5377	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5378	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5379	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5380	(InputFieldSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5381	name: 'EntryField22'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5382	layout: (LayoutFrame -95 1 3 0 -5 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5383	model: codeTrigger
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5384	type: fileSize
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5385	acceptOnReturn: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5386	acceptOnTab: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5387	acceptOnLostFocus: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5388	acceptOnPointerLeave: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5389	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5390	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5391	label: 'Dynamic code Limit:'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5392	name: 'Label42'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5393	layout: (LayoutFrame 0 0 3 0 -95 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5394	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5395	adjust: right
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5396	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5397	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5398	label: 'Start incremental GC whenever this amount of code has been allocated'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5399	name: 'Label43'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5400	layout: (LayoutFrame 0 0.0 23 0 0 1.0 43 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5401	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5402	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5403	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5404	(DividerSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5405	name: 'Separator23'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5406	layout: (LayoutFrame 0 0.0 0 0 0 1.0 3 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5407	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5408	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5409
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5410	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5411	extent: (Point 452 43)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5412	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5413	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5414
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5415	)
5433 f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	5416	)
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	5417	)
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	5418
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	5419	)
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	5420	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5421	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5422
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5423	!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5424
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5425	basicReadSettings
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	5426	self
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	5427	readAspects:
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	5428	#(
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	5429	newSpaceSize
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	5430	maxOldSpace
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	5431	)
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	5432	from:ObjectMemory.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5433
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5434	self igcLimit value:ObjectMemory incrementalGCLimit.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5435	self igcFreeLimit value:ObjectMemory freeSpaceGCLimit.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5436	self igcFreeAmount value:ObjectMemory freeSpaceGCAmount.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5437	self oldIncr value:ObjectMemory oldSpaceIncrement.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5438	self compressLimit value:ObjectMemory oldSpaceCompressLimit.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5439	self codeLimit value:ObjectMemory dynamicCodeLimit.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5440	self codeTrigger value:ObjectMemory dynamicCodeGCTrigger.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5441	self fastMoreLimit value:(ObjectMemory fastMoreOldSpaceLimit:-1).
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5442
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5443	self stackLimit value:Process defaultMaximumStackSize.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5444	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5445
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5446	basicSaveSettings
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	5447	self
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	5448	writeAspects:
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	5449	#(
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	5450	newSpaceSize
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	5451	maxOldSpace
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	5452	)
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	5453	to:ObjectMemory.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5454
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5455	ObjectMemory freeSpaceGCAmount:self igcFreeAmount value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5456	ObjectMemory freeSpaceGCLimit:self igcFreeLimit value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5457	ObjectMemory incrementalGCLimit:self igcLimit value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5458	ObjectMemory oldSpaceIncrement:self oldIncr value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5459	ObjectMemory fastMoreOldSpaceLimit:self fastMoreLimit value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5460	ObjectMemory oldSpaceCompressLimit:self compressLimit value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5461	ObjectMemory dynamicCodeLimit:self codeLimit value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5462	ObjectMemory dynamicCodeGCTrigger:self codeTrigger value.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5463
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5464	Process defaultMaximumStackSize:self stackLimit value.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5465	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5466
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	5467	helpFilename
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	5468	^ 'Launcher/memorySettings.html'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5469	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5470
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5471	!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5472
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5473	codeLimit
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5474
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5475	codeLimit isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5476	codeLimit := ObjectMemory dynamicCodeLimit asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5477	codeLimit onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5478	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5479	^ codeLimit.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5480	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5481
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5482	codeTrigger
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5483
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5484	codeTrigger isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5485	codeTrigger := ObjectMemory dynamicCodeGCTrigger asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5486	codeTrigger onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5487	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5488	^ codeTrigger.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5489	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5490
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5491	compressLimit
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5492
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5493	compressLimit isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5494	compressLimit := ObjectMemory oldSpaceCompressLimit asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5495	compressLimit onChangeSend:#updateModifiedChannel to:self
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5496	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5497	^ compressLimit.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5498	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5499
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5500	fastMoreLimit
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5501
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5502	fastMoreLimit isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5503	fastMoreLimit := (ObjectMemory fastMoreOldSpaceLimit:-1) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5504	fastMoreLimit onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5505	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5506	^ fastMoreLimit.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5507	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5508
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5509	igcFreeAmount
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5510
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5511	igcFreeAmount isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5512	igcFreeAmount := ObjectMemory freeSpaceGCAmount asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5513	igcFreeAmount onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5514	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5515	^ igcFreeAmount.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5516	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5517
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5518	igcFreeLimit
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5519
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5520	igcFreeLimit isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5521	igcFreeLimit := ObjectMemory freeSpaceGCLimit asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5522	igcFreeLimit onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5523	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5524	^ igcFreeLimit.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5525	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5526
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5527	igcLimit
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5528
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5529	igcLimit isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5530	igcLimit := ObjectMemory incrementalGCLimit asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5531	igcLimit onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5532	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5533	^ igcLimit.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5534	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5535
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5536	maxOldSpace
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5537
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5538	maxOldSpace isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5539	maxOldSpace := ObjectMemory maxOldSpace asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5540	maxOldSpace onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5541	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5542	^ maxOldSpace.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5543	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5544
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5545	newSpaceSize
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5546
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5547	newSpaceSize isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5548	newSpaceSize := ObjectMemory newSpaceSize asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5549	newSpaceSize onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5550	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5551	^ newSpaceSize.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5552	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5553
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5554	oldIncr
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5555
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5556	oldIncr isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5557	oldIncr := ObjectMemory oldSpaceIncrement asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5558	oldIncr onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5559	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5560	^ oldIncr.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5561	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5562
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5563	stackLimit
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5564
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5565	stackLimit isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5566	stackLimit := Process defaultMaximumStackSize asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5567	stackLimit onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5568	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5569	^ stackLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5570	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5571
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5572	supportsJustInTimeCompilation
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5573
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5574	^ ObjectMemory supportsJustInTimeCompilation.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5575	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5576
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5577	warningLabelHolder
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5578
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5579	warningLabelHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5580	warningLabelHolder := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5581	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5582	^ warningLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5583	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5584
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5585	!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5586
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5587	initialize
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5588	super initialize.
5576 8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	5589	self warningLabelHolder
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	5590	value:(StringCollection
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	5591	with:(resources string:'Warning - invalid settings may result in failures or poor performance.')
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	5592	with:(resources string:'You have been warned.') allBold
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	5593	).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5594	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5595
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5596	!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5597
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5598	hasUnsavedChanges
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	5599	(self
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	5600	hasChangedAspectIn:
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	5601	#(
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	5602	newSpaceSize
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	5603	maxOldSpace
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	5604	)
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	5605	asComparedTo:ObjectMemory) ifTrue:[^ true].
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5606
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	5607	ObjectMemory freeSpaceGCAmount ~= self igcFreeAmount value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	5608	ObjectMemory freeSpaceGCLimit ~= self igcFreeLimit value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	5609	ObjectMemory incrementalGCLimit ~= self igcLimit value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	5610	ObjectMemory oldSpaceIncrement ~= self oldIncr value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	5611	(ObjectMemory fastMoreOldSpaceLimit:-1) ~= self fastMoreLimit value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	5612	ObjectMemory oldSpaceCompressLimit ~= self compressLimit value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	5613	ObjectMemory dynamicCodeLimit ~= self codeLimit value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	5614	ObjectMemory dynamicCodeGCTrigger ~= self codeTrigger value ifTrue:[^ true].
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5615
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5616	Process defaultMaximumStackSize ~= self stackLimit value ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	5617	^ false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5618	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5619
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5620	!AbstractSettingsApplication::MiscCommunicationSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5621
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5622	defaultIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5623	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5624	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5625
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5626	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5627	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5628
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5629	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5630	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5631	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5632	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5633	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5634
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5635	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5636
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5637	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5638	constantNamed:#'AbstractSettingsApplication::MiscCommunicationSettingsAppl class defaultIcon'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	5639	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	5640	@@!!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	5641	]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	5642	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	5643	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5644
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5645	!AbstractSettingsApplication::MiscCommunicationSettingsAppl class methodsFor:'interface specs'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5646
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5647	windowSpec
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5648	"This resource specification was automatically generated
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5649	by the UIPainter of ST/X."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5650
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5651	"Do not manually edit this!! If it is corrupted,
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5652	the UIPainter may not be able to read the specification."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5653
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5654	"
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5655	UIPainter new openOnClass:AbstractSettingsApplication::MiscCommunicationSettingsAppl andSelector:#windowSpec
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5656	AbstractSettingsApplication::MiscCommunicationSettingsAppl new openInterface:#windowSpec
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5657	AbstractSettingsApplication::MiscCommunicationSettingsAppl open
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5658	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5659
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5660	<resource: #canvas>
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5661
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5662	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5663	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5664	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5665	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5666	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5667	label: 'Communication Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5668	name: 'Communication Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5669	min: (Point 10 10)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5670	bounds: (Rectangle 14 46 614 560)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5671	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5672	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5673	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5674	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5675	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5676	name: 'VerticalPanel1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5677	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	5678	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5679	verticalLayout: top
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5680	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5681	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5682	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5683	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5684	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5685	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5686	label: 'Remote browsing'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5687	name: 'Label1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5688	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5689	extent: (Point 600 22)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5690	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5691	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5692	name: 'Box1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5693	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5694	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5695	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5696	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5697	label: 'Remote browsing enabled'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5698	name: 'CheckBox1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5699	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	5700	enableChannel: hasRemoteBrowsingSupport
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5701	model: remoteBrowsingEnabled
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5702	translateLabel: true
5086 b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	5703	)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	5704	)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	5705
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	5706	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5707	extent: (Point 600 23)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5708	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5709	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5710	name: 'Separator1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5711	extent: (Point 600 4)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5712	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5713	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5714	label: 'Window migration'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5715	name: 'Label2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5716	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5717	extent: (Point 600 22)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5718	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5719	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5720	name: 'Box2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5721	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5722	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5723	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5724	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5725	label: 'Window migration enabled'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5726	name: 'CheckBox2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5727	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	5728	enableChannel: hasWindowMigrationServer
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5729	model: windowMigrationEnabled
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5730	translateLabel: true
5086 b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	5731	)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	5732	)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	5733
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	5734	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5735	extent: (Point 600 23)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5736	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5737	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5738	name: 'Box3'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5739	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5740	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5741	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5742	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5743	label: 'Password check'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5744	name: 'CheckBox3'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5745	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	5746	enableChannel: enablePasswordCheck
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5747	model: windowMigrationAuthenticate
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5748	translateLabel: true
5086 b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	5749	)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	5750	)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	5751
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	5752	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5753	extent: (Point 600 22)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5754	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5755	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5756	name: 'Box4'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5757	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5758	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5759	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5760	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5761	label: 'Password:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5762	name: 'Label3'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5763	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	5764	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5765	adjust: right
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5766	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5767	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5768	name: 'EntryField1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5769	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	5770	enableChannel: windowMigrationAuthenticate
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5771	model: windowMigrationPassword
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5772	type: password
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5773	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5774	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5775	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5776	acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5777	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5778	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5779
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5780	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5781	extent: (Point 600 22)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5782	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5783	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5784
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5785	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5786	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5787	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5788
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5789	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5790	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5791	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5792
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5793	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'actions'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5794
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5795	basicReadSettings
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5796	self remoteBrowsingEnabled
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5797	value:(self hasRemoteBrowsingSupport
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5798	and:[SmalltalkShareServer isLoaded and:[SmalltalkShareServer serverRunning]]).
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5799	self windowMigrationEnabled
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5800	value:(self hasWindowMigrationServer
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5801	and:[ WindowMigrationServer isLoaded
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5802	and:[WindowMigrationServer serverRunning]
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5803	]).
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5804	(self hasWindowMigrationServer and:[WindowMigrationServer isLoaded]) ifTrue:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5805	self windowMigrationPassword value:WindowMigrationServer password.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5806	self windowMigrationAuthenticate
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5807	value:self windowMigrationPassword value notNil
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5808	] ifFalse:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5809	self windowMigrationPassword value:nil.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5810	self windowMigrationAuthenticate value:false
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5811	].
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5812	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5813
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5814	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5815
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5816	self hasRemoteBrowsingSupport ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5817	self remoteBrowsingEnabled value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5818	SmalltalkShareServer serverRunning ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5819	SmalltalkShareServer killAll
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5820	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5821	] ifFalse:[
6250 5b0673ccff1c refactored intention revealing code: Claus Gittinger <cg@exept.de> parents: 6202 diff changeset	5822	SmalltalkShareServer serverRunning ifFalse:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5823	SmalltalkShareServer start.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5824	"/ must wait a bit; give it a chance to
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5825	"/ really start (before checking)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5826	Delay waitForSeconds:0.5.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5827	SmalltalkShareServer serverRunning ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5828	self warn:'SmalltalkShareServer startup failed (see stderr).'
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5829	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5830	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5831	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5832	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5833	self hasWindowMigrationServer ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5834	self windowMigrationAuthenticate value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5835	WindowMigrationServer password:self windowMigrationPassword value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5836	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5837	WindowMigrationServer password:nil
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5838	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5839	self windowMigrationEnabled value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5840	WindowMigrationServer serverRunning ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5841	WindowMigrationServer stop
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5842	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5843	] ifFalse:[
6250 5b0673ccff1c refactored intention revealing code: Claus Gittinger <cg@exept.de> parents: 6202 diff changeset	5844	WindowMigrationServer serverRunning ifFalse:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5845	WindowMigrationServer start.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5846	"/ must wait a bit; give it a chance to
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5847	"/ really start (before checking)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5848	Delay waitForSeconds:0.5.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5849	WindowMigrationServer serverRunning ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5850	self warn:'WindowMigrationServer startup failed (see stderr).'
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5851	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5852	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5853	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5854	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5855	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5856
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	5857	helpFilename
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	5858	^ 'Launcher/communicationsSettings.html'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5859	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5860
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5861	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'aspects'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5862
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5863	enablePasswordCheck
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5864
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5865	enablePasswordCheck isNil ifTrue:[
6251 de1297cac10e refadctored intention revealing code: Claus Gittinger <cg@exept.de> parents: 6250 diff changeset	5866	self hasWindowMigrationServer ifFalse:[
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5867	enablePasswordCheck := false asValue.
6251 de1297cac10e refadctored intention revealing code: Claus Gittinger <cg@exept.de> parents: 6250 diff changeset	5868	] ifTrue:[
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5869	enablePasswordCheck := self windowMigrationEnabled.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5870	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5871	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5872	^ enablePasswordCheck.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5873	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5874
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5875	remoteBrowsingEnabled
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5876
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5877	remoteBrowsingEnabled isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5878	remoteBrowsingEnabled := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5879	remoteBrowsingEnabled onChangeSend:#updateModifiedChannel to:self.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5880	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5881	^ remoteBrowsingEnabled.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5882	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5883
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5884	windowMigrationAuthenticate
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5885
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5886	windowMigrationAuthenticate isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5887	windowMigrationAuthenticate := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5888	windowMigrationAuthenticate onChangeSend:#updateModifiedChannel to:self.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5889	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5890	^ windowMigrationAuthenticate.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5891	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5892
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5893	windowMigrationEnabled
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5894
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5895	windowMigrationEnabled isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5896	windowMigrationEnabled := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5897	windowMigrationEnabled onChangeSend:#updateModifiedChannel to:self.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5898	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5899	^ windowMigrationEnabled.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5900	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5901
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5902	windowMigrationPassword
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5903
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5904	windowMigrationPassword isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5905	windowMigrationPassword := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5906	windowMigrationPassword onChangeSend:#updateModifiedChannel to:self.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5907	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5908	^ windowMigrationPassword.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5909	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5910
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5911	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'initialization & release'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5912
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5913	initialize
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5914	super initialize.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5915	self readSettings.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5916	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5917
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5918	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'queries'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5919
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5920	hasRemoteBrowsingSupport
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5921
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5922	^ SmalltalkShareServer notNil
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5923	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5924
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5925	hasUnsavedChanges
5020 85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	5926	(self hasRemoteBrowsingSupport and:[SmalltalkShareServer isLoaded]) ifTrue:[
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	5927	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	5928	].
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	5929	self hasWindowMigrationServer ifTrue:[
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	5930	WindowMigrationServer isLoaded ifFalse:[
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	5931	self windowMigrationEnabled value ifTrue:[
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	5932	WindowMigrationServer autoload.
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	5933	].
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	5934	].
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	5935	(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	5936	(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	5937	(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	5938	].
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	5939	^ false
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5940	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5941
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5942	hasWindowMigrationServer
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5943
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5944	^ WindowMigrationServer notNil
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5945	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5946
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5947	!AbstractSettingsApplication::MiscDisplaySettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5948
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5949	defaultIcon
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5950	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5951	by the ImageEditor of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5952
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5953	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5954	the ImageEditor may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5955
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5956	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5957	self defaultIcon inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5958	ImageEditor openOnClass:self andSelector:#defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5959	Icon flushCachedIcons
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5960	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5961
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5962	<resource: #image>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5963
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5964	^Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5965	constantNamed:#'AbstractSettingsApplication::MiscDisplaySettingsAppl class defaultIcon'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5966	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	5967	@@@@@@@@@@@@@@DA@@@@@@@@@@@@@@@@@@@@@@@@@@DB@0D@@@@@@@@@@@@@@@@@@@@@@@DB@0LD@P@@@@@@@@@@@@@@@@@@@@DB@0LDA@DA@@@@@@@@@@@@
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	5968	@@@@@@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	5969	@ 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	5970	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	5971	@ 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	5972	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	5973	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5974
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5975	!AbstractSettingsApplication::MiscDisplaySettingsAppl class methodsFor:'interface specs'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5976
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5977	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5978	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5979	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5980
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5981	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5982	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5983
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5984	"
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5985	UIPainter new openOnClass:AbstractSettingsApplication::MiscDisplaySettingsAppl andSelector:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5986	AbstractSettingsApplication::MiscDisplaySettingsAppl new openInterface:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5987	AbstractSettingsApplication::MiscDisplaySettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5988	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5989
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5990	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5991
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5992	^
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	5993	#(FullSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	5994	name: windowSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	5995	window:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	5996	(WindowSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	5997	label: 'Display settings'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	5998	name: 'Display settings'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	5999	min: (Point 10 10)
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	6000	bounds: (Rectangle 0 0 445 483)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6001	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6002	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6003	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6004	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6005	(VerticalPanelViewSpec
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	6006	name: 'VerticalPanel1'
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	6007	layout: (LayoutFrame 0 0 0 0 0 1 434 0)
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	6008	horizontalLayout: fitSpace
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	6009	verticalLayout: topSpace
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	6010	horizontalSpace: 5
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6011	verticalSpace: 3
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6012	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6013	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6014	collection: (
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	6015	(CheckBoxSpec
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	6016	label: 'Use Native Widgets (Experimental & Unfinished Feature)'
6014 5ec12867ba18 * empty log message * ca parents: 6013 diff changeset	6017	name: 'NativeWidgets'
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	6018	enableChannel: displaySupportsNativeWidgets
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	6019	model: nativeWidgets
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	6020	translateLabel: true
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	6021	extent: (Point 435 22)
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	6022	)
6014 5ec12867ba18 * empty log message * ca parents: 6013 diff changeset	6023	(CheckBoxSpec
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	6024	label: 'Use Native Dialogs (Experimental & Unfinished Feature)'
6014 5ec12867ba18 * empty log message * ca parents: 6013 diff changeset	6025	name: 'NativeDialogs'
5ec12867ba18 * empty log message * ca parents: 6013 diff changeset	6026	enableChannel: displaySupportsNativeDialogs
5ec12867ba18 * empty log message * ca parents: 6013 diff changeset	6027	model: nativeDialogs
5ec12867ba18 * empty log message * ca parents: 6013 diff changeset	6028	translateLabel: true
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	6029	extent: (Point 435 22)
6014 5ec12867ba18 * empty log message * ca parents: 6013 diff changeset	6030	)
6012 6736ffa4ba2f * empty log message * ca parents: 6008 diff changeset	6031	(ViewSpec
6736ffa4ba2f * empty log message * ca parents: 6008 diff changeset	6032	name: 'SeparatingSpace1'
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	6033	extent: (Point 435 5)
6012 6736ffa4ba2f * empty log message * ca parents: 6008 diff changeset	6034	)
6736ffa4ba2f * empty log message * ca parents: 6008 diff changeset	6035	(DividerSpec
6736ffa4ba2f * empty log message * ca parents: 6008 diff changeset	6036	name: 'Separator1'
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	6037	extent: (Point 435 4)
6012 6736ffa4ba2f * empty log message * ca parents: 6008 diff changeset	6038	)
6736ffa4ba2f * empty log message * ca parents: 6008 diff changeset	6039	(ViewSpec
6736ffa4ba2f * empty log message * ca parents: 6008 diff changeset	6040	name: 'SeparatingSpace2'
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	6041	extent: (Point 435 5)
6012 6736ffa4ba2f * empty log message * ca parents: 6008 diff changeset	6042	)
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	6043	(CheckBoxSpec
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	6044	label: 'Shadows under PopUp Views'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	6045	name: 'shadows'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	6046	model: shadows
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	6047	translateLabel: true
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	6048	extent: (Point 435 22)
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	6049	)
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	6050	(CheckBoxSpec
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	6051	label: 'Beeper enabled'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	6052	name: 'beepEnabled'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	6053	model: beepEnabled
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	6054	translateLabel: true
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	6055	extent: (Point 435 22)
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	6056	)
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	6057	(CheckBoxSpec
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	6058	label: 'Boxes Return Focus to Previously Active View'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	6059	name: 'returnFocus'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	6060	model: returnFocus
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	6061	translateLabel: true
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	6062	extent: (Point 435 22)
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	6063	)
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	6064	(CheckBoxSpec
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	6065	label: 'Views Catch Focus when Mapped'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	6066	name: 'takeFocus'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	6067	model: takeFocus
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	6068	translateLabel: true
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	6069	extent: (Point 435 22)
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	6070	)
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	6071	(CheckBoxSpec
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	6072	label: 'Show Accelerator Keys in Menus'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	6073	name: 'showAccelerators'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	6074	model: showAccelerators
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	6075	translateLabel: true
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	6076	extent: (Point 435 22)
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	6077	)
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	6078	(CheckBoxSpec
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	6079	label: 'Raise & Activate Windows on Click'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	6080	name: 'activateOnClick'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	6081	model: activateOnClick
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	6082	translateLabel: true
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	6083	extent: (Point 435 22)
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	6084	)
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	6085	(CheckBoxSpec
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	6086	label: 'Focus Follows Mouse'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	6087	name: 'focusFollowsMouse'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	6088	model: focusFollowsMouse
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	6089	translateLabel: true
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	6090	extent: (Point 435 22)
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	6091	)
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	6092	(CheckBoxSpec
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	6093	label: 'Opaque Variable Panel Resizing'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	6094	name: 'opaqueVariablePanelResize'
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	6095	model: opaqueVariablePanelResizing
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	6096	translateLabel: true
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	6097	extent: (Point 435 22)
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	6098	)
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	6099	(CheckBoxSpec
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	6100	label: 'Opaque Table Column Resizing'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	6101	name: 'opaqueTableColumnResize'
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	6102	model: opaqueTableColumnResizing
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	6103	translateLabel: true
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	6104	extent: (Point 435 22)
6013 7e8dd712b45f * empty log message * ca parents: 6012 diff changeset	6105	)
7e8dd712b45f * empty log message * ca parents: 6012 diff changeset	6106	(ViewSpec
7e8dd712b45f * empty log message * ca parents: 6012 diff changeset	6107	name: 'SeparatingSpace3'
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	6108	extent: (Point 435 4)
6013 7e8dd712b45f * empty log message * ca parents: 6012 diff changeset	6109	)
7e8dd712b45f * empty log message * ca parents: 6012 diff changeset	6110	(DividerSpec
7e8dd712b45f * empty log message * ca parents: 6012 diff changeset	6111	name: 'Separator2'
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	6112	extent: (Point 435 4)
6013 7e8dd712b45f * empty log message * ca parents: 6012 diff changeset	6113	)
7e8dd712b45f * empty log message * ca parents: 6012 diff changeset	6114	(ViewSpec
7e8dd712b45f * empty log message * ca parents: 6012 diff changeset	6115	name: 'SeparatingSpace4'
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	6116	extent: (Point 435 3)
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	6117	)
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	6118	(LabelSpec
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	6119	label: 'Label'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	6120	name: 'Label1'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	6121	translateLabel: true
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	6122	labelChannel: formatHostNameWindowLabel
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	6123	adjust: right
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	6124	useDefaultExtent: true
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	6125	)
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	6126	(ViewSpec
6012 6736ffa4ba2f * empty log message * ca parents: 6008 diff changeset	6127	name: 'WindowLabelBox'
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6128	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6129	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6130	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6131	(CheckBoxSpec
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	6132	label: 'Window Label Format'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	6133	name: 'hostNameInLabelHolder'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	6134	layout: (LayoutFrame 0 0 -22 1 216 0 0 1)
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	6135	model: hostNameInLabelHolder
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	6136	translateLabel: true
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	6137	)
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	6138	(InputFieldSpec
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	6139	name: 'hostNameInLabelEntryField'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	6140	layout: (LayoutFrame 218 0 -22 1 -5 1 0 1)
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	6141	enableChannel: hostNameInLabelHolder
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	6142	model: newWindowLabelFormat
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	6143	immediateAccept: true
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	6144	acceptOnReturn: true
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	6145	acceptOnTab: true
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	6146	acceptOnLostFocus: true
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	6147	acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6148	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6149	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6150
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6151	)
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	6152	extent: (Point 435 30)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6153	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6154	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6155
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6156	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6157	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6158	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6159
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6160	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6161	)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6162	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6163
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6164	!AbstractSettingsApplication::MiscDisplaySettingsAppl methodsFor:'actions'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6165
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6166	basicReadSettings
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	6167	self
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	6168	readAspects:
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	6169	#(
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	6170	nativeWidgets
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	6171	nativeDialogs
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	6172	)
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	6173	from:Screen current.
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	6174
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	6175	self
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	6176	readAspects:
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	6177	#(
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	6178	beepEnabled
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	6179	opaqueVariablePanelResizing
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	6180	opaqueTableColumnResizing
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	6181	)
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	6182	from:currentUserPrefs.
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	6183
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6184	self shadows value:PopUpView shadows.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6185	self newWindowLabelFormat value:StandardSystemView windowLabelFormat.
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	6186	self hostNameInLabelHolder value:StandardSystemView includeHostNameInLabel.
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	6187	self returnFocus value:StandardSystemView returnFocusWhenClosingModalBoxes.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6188	self takeFocus value:StandardSystemView takeFocusWhenMapped.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6189	self focusFollowsMouse value:(currentUserPrefs focusFollowsMouse ? true).
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6190	self activateOnClick value:(Display activateOnClick:nil).
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6191	self showAccelerators value:MenuView showAcceleratorKeys.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6192	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6193
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6194	basicSaveSettings
6030 94eba9f547a2 * empty log message * ca parents: 6029 diff changeset	6195	\|currentScreen mustReopenTools\|
94eba9f547a2 * empty log message * ca parents: 6029 diff changeset	6196
94eba9f547a2 * empty log message * ca parents: 6029 diff changeset	6197	currentScreen := Screen current.
94eba9f547a2 * empty log message * ca parents: 6029 diff changeset	6198
6025 70cd59f93dbb * empty log message * Claus Gittinger <cg@exept.de> parents: 6023 diff changeset	6199	self displaySupportsNativeWidgets ifTrue:[
6030 94eba9f547a2 * empty log message * ca parents: 6029 diff changeset	6200	currentScreen nativeWidgets ~= self nativeWidgets value ifTrue:[
94eba9f547a2 * empty log message * ca parents: 6029 diff changeset	6201	mustReopenTools := true.
94eba9f547a2 * empty log message * ca parents: 6029 diff changeset	6202	currentScreen nativeWidgets:self nativeWidgets value.
94eba9f547a2 * empty log message * ca parents: 6029 diff changeset	6203	].
6025 70cd59f93dbb * empty log message * Claus Gittinger <cg@exept.de> parents: 6023 diff changeset	6204	].
70cd59f93dbb * empty log message * Claus Gittinger <cg@exept.de> parents: 6023 diff changeset	6205	self displaySupportsNativeDialogs ifTrue:[
6030 94eba9f547a2 * empty log message * ca parents: 6029 diff changeset	6206	currentScreen nativeDialogs:self nativeDialogs value.
6025 70cd59f93dbb * empty log message * Claus Gittinger <cg@exept.de> parents: 6023 diff changeset	6207	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6208	PopUpView shadows:self shadows value.
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	6209
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6210	(self hostNameInLabelHolder value ~= StandardSystemView includeHostNameInLabel
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6211	or:[self newWindowLabelFormat value ~= StandardSystemView windowLabelFormat]) ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6212	StandardSystemView includeHostNameInLabel:self hostNameInLabelHolder value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6213	self newWindowLabelFormat value notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6214	StandardSystemView windowLabelFormat:self newWindowLabelFormat value
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6215	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6216
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6217	Screen allScreens do:[:aDisplay \|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6218	aDisplay allViewsDo:[:aView \|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6219	\|l\|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6220
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6221	aView isTopView ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6222	l := aView label.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6223	l notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6224	aView label:(l , ' '); label:l. "/ force a change
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6225	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6226	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6227	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6228	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6229	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6230
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	6231	self
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	6232	writeAspects:
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	6233	#(
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	6234	beepEnabled
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	6235	focusFollowsMouse
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	6236	opaqueVariablePanelResizing
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	6237	opaqueTableColumnResizing
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	6238	)
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	6239	to:currentUserPrefs.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6240
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6241	StandardSystemView returnFocusWhenClosingModalBoxes:self returnFocus value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6242	StandardSystemView takeFocusWhenMapped:self takeFocus value.
6030 94eba9f547a2 * empty log message * ca parents: 6029 diff changeset	6243	currentScreen activateOnClick:self activateOnClick value.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6244
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6245	MenuView showAcceleratorKeys:self showAccelerators value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6246
6030 94eba9f547a2 * empty log message * ca parents: 6029 diff changeset	6247	mustReopenTools ifTrue:[
94eba9f547a2 * empty log message * ca parents: 6029 diff changeset	6248	self reopenToolsAfterChangedViewStyleSetting.
94eba9f547a2 * empty log message * ca parents: 6029 diff changeset	6249	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6250	"Modified: / 16.12.2002 / 18:06:31 / penk"
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6251	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6252
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6253	formatHostNameinWindowLabels
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6254	\|newFormat\|
c72e35116b13 instable state penk parents: 5040 diff changeset	6255
c72e35116b13 instable state penk parents: 5040 diff changeset	6256	newFormat := Dialog
c72e35116b13 instable state penk parents: 5040 diff changeset	6257	request:'Define the Format of Window Labels:\\ %1 - Label\ %2 - Hostname\ %3 - Username\ %4 - ProcessId\'
c72e35116b13 instable state penk parents: 5040 diff changeset	6258	withCRs
c72e35116b13 instable state penk parents: 5040 diff changeset	6259	initialAnswer:newWindowLabelFormat.
c72e35116b13 instable state penk parents: 5040 diff changeset	6260	newFormat size > 0 ifTrue:[
c72e35116b13 instable state penk parents: 5040 diff changeset	6261	newWindowLabelFormat := newFormat.
c72e35116b13 instable state penk parents: 5040 diff changeset	6262	self updateModifiedChannel
c72e35116b13 instable state penk parents: 5040 diff changeset	6263	]
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6264	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6265
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	6266	helpFilename
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	6267	^ 'Launcher/miscSettings.html'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6268	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6269
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6270	!AbstractSettingsApplication::MiscDisplaySettingsAppl methodsFor:'aspects'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6271
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6272	activateOnClick
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6273	activateOnClick isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6274	activateOnClick := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6275	activateOnClick onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6276	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6277	^ activateOnClick.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6278	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6279
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6280	beepEnabled
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6281	beepEnabled isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6282	beepEnabled := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6283	beepEnabled onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6284	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6285	^ beepEnabled.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6286	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6287
6025 70cd59f93dbb * empty log message * Claus Gittinger <cg@exept.de> parents: 6023 diff changeset	6288	displaySupportsNativeDialogs
70cd59f93dbb * empty log message * Claus Gittinger <cg@exept.de> parents: 6023 diff changeset	6289	^ Screen current supportsNativeDialogs
70cd59f93dbb * empty log message * Claus Gittinger <cg@exept.de> parents: 6023 diff changeset	6290	!
70cd59f93dbb * empty log message * Claus Gittinger <cg@exept.de> parents: 6023 diff changeset	6291
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	6292	displaySupportsNativeWidgets
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	6293	^ Screen current supportsNativeWidgets
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	6294	!
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	6295
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6296	focusFollowsMouse
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6297	focusFollowsMouse isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6298	focusFollowsMouse := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6299	focusFollowsMouse onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6300	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6301	^ focusFollowsMouse.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6302	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6303
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6304	formatHostNameWindowLabel
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6305	formatHostNameWindowLabel isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6306	formatHostNameWindowLabel :=
6939 af3cdc84970f * empty log message * Claus Gittinger <cg@exept.de> parents: 6897 diff changeset	6307	(resources string:
af3cdc84970f * empty log message * Claus Gittinger <cg@exept.de> parents: 6897 diff changeset	6308	'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	6309	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6310	^ formatHostNameWindowLabel.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6311
6939 af3cdc84970f * empty log message * Claus Gittinger <cg@exept.de> parents: 6897 diff changeset	6312	"Created: / 16-12-2002 / 17:50:49 / penk"
af3cdc84970f * empty log message * Claus Gittinger <cg@exept.de> parents: 6897 diff changeset	6313	"Modified: / 22-08-2006 / 11:43:41 / cg"
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6314	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6315
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6316	hostNameInLabelHolder
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6317	hostNameInLabelHolder isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6318	hostNameInLabelHolder := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6319	hostNameInLabelHolder onChangeSend:#updateModifiedChannel to:self
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6320	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6321	^ hostNameInLabelHolder.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6322	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6323
6014 5ec12867ba18 * empty log message * ca parents: 6013 diff changeset	6324	nativeDialogs
5ec12867ba18 * empty log message * ca parents: 6013 diff changeset	6325	nativeDialogs isNil ifTrue:[
5ec12867ba18 * empty log message * ca parents: 6013 diff changeset	6326	nativeDialogs := Screen current nativeDialogs asValue.
5ec12867ba18 * empty log message * ca parents: 6013 diff changeset	6327	nativeDialogs onChangeSend:#updateModifiedChannel to:self
5ec12867ba18 * empty log message * ca parents: 6013 diff changeset	6328	].
5ec12867ba18 * empty log message * ca parents: 6013 diff changeset	6329	^ nativeDialogs.
5ec12867ba18 * empty log message * ca parents: 6013 diff changeset	6330	!
5ec12867ba18 * empty log message * ca parents: 6013 diff changeset	6331
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	6332	nativeWidgets
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	6333	nativeWidgets isNil ifTrue:[
6025 70cd59f93dbb * empty log message * Claus Gittinger <cg@exept.de> parents: 6023 diff changeset	6334	nativeWidgets := Screen current nativeWidgets asValue.
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	6335	nativeWidgets onChangeSend:#updateModifiedChannel to:self
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	6336	].
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	6337	^ nativeWidgets.
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	6338	!
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	6339
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6340	newWindowLabelFormat
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6341	newWindowLabelFormat isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6342	newWindowLabelFormat := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6343	newWindowLabelFormat onChangeSend:#updateModifiedChannel to:self
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6344	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6345	^ newWindowLabelFormat.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6346
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6347	"Created: / 16.12.2002 / 17:50:49 / penk"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6348	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6349
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	6350	opaqueTableColumnResizing
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6351	opaqueTableColumnResize isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6352	opaqueTableColumnResize := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6353	opaqueTableColumnResize onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6354	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6355	^ opaqueTableColumnResize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6356	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6357
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	6358	opaqueVariablePanelResizing
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6359	opaqueVariablePanelResize isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6360	opaqueVariablePanelResize := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6361	opaqueVariablePanelResize onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6362	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6363	^ opaqueVariablePanelResize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6364	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6365
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6366	returnFocus
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6367	returnFocus isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6368	returnFocus := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6369	returnFocus onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6370	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6371	^ returnFocus.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6372	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6373
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6374	shadows
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6375	shadows isNil ifTrue:[
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	6376	shadows := PopUpView shadows asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6377	shadows onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6378	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6379	^ shadows.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6380	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6381
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6382	showAccelerators
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6383	showAccelerators isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6384	showAccelerators := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6385	showAccelerators onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6386	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6387	^ showAccelerators.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6388	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6389
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6390	takeFocus
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6391	takeFocus isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6392	takeFocus := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6393	takeFocus onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6394	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6395	^ takeFocus.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6396	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6397
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6398	!AbstractSettingsApplication::MiscDisplaySettingsAppl methodsFor:'queries'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6399
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6400	hasUnsavedChanges
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	6401	(self
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	6402	hasChangedAspectIn:
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	6403	#(
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	6404	nativeWidgets
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	6405	nativeDialogs
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	6406	)
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	6407	asComparedTo:Screen current) ifTrue:[^ true].
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	6408
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	6409	(self
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	6410	hasChangedAspectIn:
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	6411	#(
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	6412	beepEnabled
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	6413	opaqueVariablePanelResizing
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	6414	opaqueTableColumnResizing
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	6415	)
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	6416	asComparedTo:currentUserPrefs) ifTrue:[^ true].
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	6417
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6418	self newWindowLabelFormat value ~= StandardSystemView windowLabelFormat ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6419	self shadows value ~= PopUpView shadows ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6420	self hostNameInLabelHolder value ~= StandardSystemView includeHostNameInLabel ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6421	self returnFocus value ~= StandardSystemView returnFocusWhenClosingModalBoxes ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6422	self takeFocus value ~= StandardSystemView takeFocusWhenMapped ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6423	self focusFollowsMouse value ~= (currentUserPrefs focusFollowsMouse ? true) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6424	self activateOnClick value ~= (Display activateOnClick:nil) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6425	self showAccelerators value ~= MenuView showAcceleratorKeys ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6426	^ false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6427	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6428
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6429	!AbstractSettingsApplication::OsiSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6430
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6431	defaultIcon
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	6432	<resource: #programImage>
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	6433
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	6434	^ AbstractSettingsApplication::MiscCommunicationSettingsAppl defaultIcon.
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6435	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6436
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6437	!AbstractSettingsApplication::OsiSettingsAppl class methodsFor:'interface specs'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6438
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6439	windowSpec
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6440	"This resource specification was automatically generated
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6441	by the UIPainter of ST/X."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6442
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6443	"Do not manually edit this!! If it is corrupted,
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6444	the UIPainter may not be able to read the specification."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6445
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6446	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6447	UIPainter new openOnClass:AbstractSettingsApplication::OsiSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6448	AbstractSettingsApplication::OsiSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6449	AbstractSettingsApplication::OsiSettingsAppl open
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6450	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6451
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6452	<resource: #canvas>
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6453
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6454	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6455	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6456	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6457	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6458	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6459	label: 'OSI Protocols Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6460	name: 'OSI Protocols Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6461	min: (Point 10 10)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6462	bounds: (Rectangle 14 46 614 596)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6463	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6464	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6465	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6466	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6467	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6468	name: 'VerticalPanel2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6469	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	6470	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6471	verticalLayout: top
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6472	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6473	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6474	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6475	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6476	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6477	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6478	label: 'ACSE'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6479	name: 'Label1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6480	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6481	extent: (Point 600 22)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6482	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6483	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6484	name: 'Box1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6485	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6486	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6487	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6488	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6489	label: 'Log Errors'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6490	name: 'CheckBox1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6491	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	6492	enableChannel: osiACSEPresent
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6493	model: osiACSEErrorLogging
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6494	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6495	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6496	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6497	label: 'Log Connections'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6498	name: 'CheckBox2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6499	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	6500	enableChannel: osiACSEPresent
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6501	model: osiACSEConnectionLogging
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6502	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6503	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6504	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6505	label: 'Log Data Xfer'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6506	name: 'CheckBox3'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6507	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	6508	enableChannel: osiACSEPresent
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6509	model: osiACSEDataLogging
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6510	translateLabel: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6511	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6512	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6513
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6514	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6515	extent: (Point 600 27)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6516	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6517	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6518	name: 'Box9'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6519	extent: (Point 600 22)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6520	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6521	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6522	label: 'ROSE'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6523	name: 'Label2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6524	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6525	extent: (Point 600 22)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6526	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6527	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6528	name: 'Box4'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6529	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6530	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6531	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6532	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6533	label: 'Log Errors'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6534	name: 'CheckBox4'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6535	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	6536	enableChannel: osiROSEPresent
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6537	model: osiROSEErrorLogging
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6538	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6539	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6540	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6541	label: 'Log Invoactions'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6542	name: 'CheckBox5'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6543	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	6544	enableChannel: osiROSEPresent
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6545	model: osiROSEInvokationLogging
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6546	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6547	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6548	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6549	label: 'Log Responses'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6550	name: 'CheckBox6'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6551	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	6552	enableChannel: osiROSEPresent
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6553	model: osiROSEResponseLogging
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6554	translateLabel: true
5086 b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	6555	)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	6556	)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	6557
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	6558	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6559	extent: (Point 600 25)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6560	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6561	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6562	name: 'Box6'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6563	extent: (Point 600 23)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6564	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6565	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6566	label: 'CMISE'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6567	name: 'Label3'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6568	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6569	extent: (Point 600 22)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6570	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6571	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6572	name: 'Box7'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6573	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6574	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6575	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6576	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6577	label: 'Log Errors'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6578	name: 'CheckBox7'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6579	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	6580	enableChannel: osiCMISEPresent
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6581	model: osiCMISEErrorLogging
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6582	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6583	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6584	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6585	label: 'Log Messages'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6586	name: 'CheckBox8'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6587	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	6588	enableChannel: osiCMISEPresent
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6589	model: osiCMISEMessageLogging
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6590	translateLabel: true
5086 b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	6591	)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	6592	)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	6593
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	6594	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6595	extent: (Point 600 22)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6596	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6597	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6598
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6599	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6600	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6601	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6602
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6603	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6604	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6605	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6606
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6607	!AbstractSettingsApplication::OsiSettingsAppl methodsFor:'actions'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6608
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6609	basicReadSettings
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6610	self osiACSEPresent value:(OSI::ACSE notNil and:[OSI::ACSE isLoaded]).
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6611	self osiROSEPresent value:(OSI::ROSE notNil and:[OSI::ROSE isLoaded]).
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6612	self osiCMISEPresent value:(OSI::CMISE notNil and:[OSI::CMISE isLoaded]).
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6613	self osiACSEPresent value ifTrue:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6614	self osiACSEErrorLogging value:OSI::ACSE errorLogging.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6615	self osiACSEConnectionLogging value:OSI::ACSE connectionLogging.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6616	self osiACSEDataLogging value:OSI::ACSE dataLogging
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6617	].
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6618	self osiROSEPresent value ifTrue:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6619	self osiROSEErrorLogging value:OSI::ROSE errorLogging.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6620	self osiROSEInvokationLogging value:OSI::ROSE invocationLogging.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6621	self osiROSEResponseLogging value:OSI::ROSE responseLogging
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6622	].
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6623	self osiCMISEPresent value ifTrue:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6624	self osiCMISEErrorLogging value:OSI::CMISE errorLogging.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6625	self osiCMISEMessageLogging value:OSI::CMISE messageLogging
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6626	].
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6627	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6628
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6629	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6630
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6631	self osiACSEPresent value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6632	OSI::ACSE errorLogging:self osiACSEErrorLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6633	OSI::ACSE connectionLogging:self osiACSEConnectionLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6634	OSI::ACSE dataLogging:self osiACSEDataLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6635	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6636	self osiROSEPresent value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6637	OSI::ROSE errorLogging:self osiROSEErrorLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6638	OSI::ROSE invocationLogging:self osiROSEInvokationLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6639	OSI::ROSE responseLogging:self osiROSEResponseLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6640	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6641	self osiCMISEPresent value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6642	OSI::CMISE errorLogging:self osiCMISEErrorLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6643	OSI::CMISE messageLogging:self osiCMISEMessageLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6644	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6645	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6646
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	6647	helpFilename
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	6648	^ 'Launcher/communicationsSettings.html'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6649	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6650
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6651	!AbstractSettingsApplication::OsiSettingsAppl methodsFor:'aspects'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6652
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6653	osiACSEConnectionLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6654	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6655
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6656	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6657	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6658	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6659	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6660
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6661	osiACSEConnectionLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6662	osiACSEConnectionLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6663	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6664	"/ osiACSEConnectionLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6665	"/ osiACSEConnectionLogging onChangeSend:#osiACSEConnectionLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6666	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6667	^ osiACSEConnectionLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6668	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6669
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6670	osiACSEDataLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6671	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6672
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6673	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6674	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6675	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6676	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6677
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6678	osiACSEDataLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6679	osiACSEDataLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6680	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6681	"/ osiACSEDataLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6682	"/ osiACSEDataLogging onChangeSend:#osiACSEDataLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6683	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6684	^ osiACSEDataLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6685	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6686
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6687	osiACSEErrorLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6688	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6689
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6690	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6691	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6692	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6693	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6694
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6695	osiACSEErrorLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6696	osiACSEErrorLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6697	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6698	"/ osiACSEErrorLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6699	"/ osiACSEErrorLogging onChangeSend:#osiACSEErrorLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6700	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6701	^ osiACSEErrorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6702	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6703
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6704	osiACSEPresent
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6705	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6706
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6707	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6708	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6709	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6710	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6711
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6712	osiACSEPresent isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6713	osiACSEPresent := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6714	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6715	"/ osiACSEPresent addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6716	"/ osiACSEPresent onChangeSend:#osiACSEPresentChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6717	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6718	^ osiACSEPresent.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6719	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6720
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6721	osiCMISEErrorLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6722	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6723
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6724	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6725	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6726	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6727	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6728
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6729	osiCMISEErrorLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6730	osiCMISEErrorLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6731	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6732	"/ osiCMISEErrorLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6733	"/ osiCMISEErrorLogging onChangeSend:#osiCMISEErrorLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6734	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6735	^ osiCMISEErrorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6736	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6737
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6738	osiCMISEMessageLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6739	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6740
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6741	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6742	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6743	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6744	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6745
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6746	osiCMISEMessageLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6747	osiCMISEMessageLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6748	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6749	"/ osiCMISEMessageLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6750	"/ osiCMISEMessageLogging onChangeSend:#osiCMISEMessageLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6751	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6752	^ osiCMISEMessageLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6753	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6754
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6755	osiCMISEPresent
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6756	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6757
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6758	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6759	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6760	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6761	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6762
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6763	osiCMISEPresent isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6764	osiCMISEPresent := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6765	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6766	"/ osiCMISEPresent addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6767	"/ osiCMISEPresent onChangeSend:#osiCMISEPresentChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6768	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6769	^ osiCMISEPresent.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6770	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6771
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6772	osiROSEErrorLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6773	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6774
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6775	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6776	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6777	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6778	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6779
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6780	osiROSEErrorLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6781	osiROSEErrorLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6782	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6783	"/ osiROSEErrorLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6784	"/ osiROSEErrorLogging onChangeSend:#osiROSEErrorLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6785	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6786	^ osiROSEErrorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6787	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6788
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6789	osiROSEInvokationLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6790	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6791
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6792	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6793	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6794	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6795	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6796
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6797	osiROSEInvokationLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6798	osiROSEInvokationLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6799	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6800	"/ osiROSEInvokationLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6801	"/ osiROSEInvokationLogging onChangeSend:#osiROSEInvokationLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6802	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6803	^ osiROSEInvokationLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6804	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6805
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6806	osiROSEPresent
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6807	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6808
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6809	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6810	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6811	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6812	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6813
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6814	osiROSEPresent isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6815	osiROSEPresent := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6816	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6817	"/ osiROSEPresent addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6818	"/ osiROSEPresent onChangeSend:#osiROSEPresentChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6819	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6820	^ osiROSEPresent.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6821	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6822
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6823	osiROSEResponseLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6824	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6825
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6826	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6827	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6828	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6829	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6830
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6831	osiROSEResponseLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6832	osiROSEResponseLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6833	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6834	"/ osiROSEResponseLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6835	"/ osiROSEResponseLogging onChangeSend:#osiROSEResponseLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6836	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6837	^ osiROSEResponseLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6838	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6839
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6840	!AbstractSettingsApplication::OsiSettingsAppl methodsFor:'queries'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6841
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6842	hasUnsavedChanges
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6843
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6844	^ ((
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6845	(self osiACSEPresent value and:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6846	self osiACSEErrorLogging value ~= OSI::ACSE errorLogging or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6847	self osiACSEConnectionLogging value ~= OSI::ACSE connectionLogging or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6848	self osiACSEDataLogging value ~= OSI::ACSE dataLogging]]]) or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6849	self osiROSEPresent value and:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6850	self osiROSEErrorLogging value ~= OSI::ROSE errorLogging or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6851	self osiROSEInvokationLogging value ~= OSI::ROSE invocationLogging or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6852	self osiROSEResponseLogging value ~= OSI::ROSE responseLogging]]]]) or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6853	(self osiCMISEPresent value) and:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6854	self osiCMISEErrorLogging value ~= OSI::CMISE errorLogging or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6855	self osiCMISEMessageLogging value ~= OSI::CMISE messageLogging]]])
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6856	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6857
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6858	!AbstractSettingsApplication::PrinterSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6859
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6860	defaultIcon
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	6861	<resource: #programImage>
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	6862
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	6863	^ ToolbarIconLibrary printerIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6864	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6865
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6866	!AbstractSettingsApplication::PrinterSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6867
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6868	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6869	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6870	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6871
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6872	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6873	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6874
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6875	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6876	UIPainter new openOnClass:AbstractSettingsApplication::PrinterSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6877	AbstractSettingsApplication::PrinterSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6878	AbstractSettingsApplication::PrinterSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6879	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6880
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6881	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6882
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6883	^
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6884	#(FullSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6885	name: windowSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6886	window:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6887	(WindowSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6888	label: 'Printer Settings'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6889	name: 'Printer Settings'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6890	min: (Point 10 10)
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	6891	bounds: (Rectangle 0 0 616 385)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6892	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6893	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6894	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6895	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6896	(VerticalPanelViewSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6897	name: 'VerticalPanel1'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6898	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	6899	horizontalLayout: fit
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6900	verticalLayout: top
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6901	horizontalSpace: 3
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6902	verticalSpace: 3
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6903	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6904	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6905	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6906	(ViewSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6907	name: 'PrinterSelectBox'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6908	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6909	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6910	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6911	(LabelSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6912	label: 'Printer Type:'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6913	name: 'PrinterTypeLabel'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	6914	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	6915	translateLabel: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6916	adjust: right
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6917	)
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6918	(ComboListSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6919	name: 'PrinterTypeComboList'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	6920	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	6921	model: printerTypeSelection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6922	comboList: printerType
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6923	useIndex: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6924	)
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6925	(LabelSpec
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	6926	label: 'Print Command:'
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6927	name: 'PrinterCommandLabel'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	6928	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	6929	translateLabel: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6930	adjust: right
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6931	)
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6932	(ComboBoxSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6933	name: 'CommandComboBox'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	6934	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	6935	enableChannel: printCommandEnabled
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6936	model: printCommand
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6937	acceptOnLostFocus: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6938	acceptOnPointerLeave: false
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6939	comboList: printCommandList
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6940	useIndex: false
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6941	)
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6942	(LabelSpec
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6943	label: 'Print to File:'
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6944	name: 'PrinterFileLabel'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	6945	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	6946	translateLabel: true
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6947	adjust: right
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6948	)
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6949	(FilenameInputFieldSpec
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6950	name: 'PrinterFileEntryField'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	6951	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	6952	model: printFilename
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	6953	formatString: ''
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6954	immediateAccept: true
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6955	acceptOnLeave: true
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6956	acceptOnLostFocus: true
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6957	acceptOnPointerLeave: false
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6958	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6959	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6960
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6961	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6962	extent: (Point 600 84)
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6963	)
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6964	(DividerSpec
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6965	name: 'Separator1'
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6966	extent: (Point 600 3)
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6967	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6968	(ViewSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6969	name: 'FormatBox'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6970	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6971	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6972	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6973	(LabelSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6974	label: 'Page Format:'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6975	name: 'PageFormatLabel'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	6976	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	6977	translateLabel: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6978	adjust: right
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6979	)
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6980	(PopUpListSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6981	label: 'PopUp List'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6982	name: 'PageFormatPopUpList'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	6983	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	6984	tabable: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6985	model: pageFormat
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6986	enableChannel: enableFormat
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6987	menu: pageFormatList
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6988	)
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6989	(CheckBoxSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6990	label: 'Landscape'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6991	name: 'LandscapeCheckBox'
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6992	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	6993	enableChannel: enablelandscape
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6994	model: landscape
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6995	translateLabel: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6996	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6997	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6998
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6999	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7000	extent: (Point 600 30)
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7001	)
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	7002	(DividerSpec
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	7003	name: 'Separator5'
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	7004	extent: (Point 600 3)
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	7005	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7006	(ViewSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7007	name: 'MarginBox'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7008	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7009	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7010	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7011	(VerticalPanelViewSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7012	name: 'VerticalPanel2'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7013	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	7014	horizontalLayout: fit
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7015	verticalLayout: center
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7016	horizontalSpace: 3
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7017	verticalSpace: 3
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7018	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7019	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7020	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7021	(ViewSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7022	name: 'Box1'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7023	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7024	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7025	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7026	(LabelSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7027	label: 'Top Margin:'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7028	name: 'TopMarginLabel'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	7029	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	7030	translateLabel: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7031	adjust: right
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7032	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7033	(InputFieldSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7034	name: 'TopMarginEntryField'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	7035	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	7036	enableChannel: enableMargins
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7037	model: topMargin
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7038	type: numberOrNil
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7039	acceptOnReturn: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7040	acceptOnTab: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7041	acceptOnLostFocus: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7042	acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7043	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7044	(PopUpListSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7045	label: 'PopUp List'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7046	name: 'PopUpList2'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7047	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	7048	tabable: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7049	model: selectedUnit
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7050	menu: unitList
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7051	useIndex: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7052	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7053	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7054
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7055	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7056	extent: (Point 600 24)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7057	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7058	(ViewSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7059	name: 'Box2'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7060	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7061	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7062	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7063	(LabelSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7064	label: 'Left Margin:'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7065	name: 'LeftMarginLabel'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	7066	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	7067	translateLabel: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7068	adjust: right
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7069	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7070	(InputFieldSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7071	name: 'LeftMarginEntryField'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	7072	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	7073	enableChannel: enableMargins
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7074	model: leftMargin
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7075	type: numberOrNil
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7076	acceptOnReturn: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7077	acceptOnTab: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7078	acceptOnLostFocus: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7079	acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7080	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7081	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7082
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7083	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7084	extent: (Point 600 24)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7085	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7086	(ViewSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7087	name: 'Box3'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7088	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7089	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7090	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7091	(LabelSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7092	label: 'Right Margin:'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7093	name: 'RightMarginLabel'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	7094	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	7095	translateLabel: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7096	adjust: right
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7097	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7098	(InputFieldSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7099	name: 'RightMarginEntryField'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	7100	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	7101	enableChannel: enableMargins
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7102	model: rightMargin
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7103	type: numberOrNil
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7104	acceptOnReturn: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7105	acceptOnTab: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7106	acceptOnLostFocus: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7107	acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7108	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7109	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7110
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7111	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7112	extent: (Point 600 24)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7113	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7114	(ViewSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7115	name: 'Box4'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7116	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7117	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7118	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7119	(LabelSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7120	label: 'Bottom Margin:'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7121	name: 'BottomMarginLabel'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	7122	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	7123	translateLabel: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7124	adjust: right
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7125	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7126	(InputFieldSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7127	name: 'BottomMarginEntryField'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	7128	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	7129	enableChannel: enableMargins
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7130	model: bottomMargin
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7131	type: numberOrNil
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7132	acceptOnReturn: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7133	acceptOnTab: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7134	acceptOnLostFocus: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7135	acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7136	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7137	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7138
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7139	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7140	extent: (Point 600 24)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7141	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7142	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7143
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7144	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7145	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7146	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7147
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7148	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7149	extent: (Point 600 100)
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7150	)
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	7151	(DividerSpec
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	7152	name: 'Separator6'
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	7153	extent: (Point 600 3)
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	7154	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7155	(ViewSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7156	name: 'Box5'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7157	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7158	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7159	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7160	(CheckBoxSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7161	label: 'Color Printer'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7162	name: 'ColorPrinterCheckBox'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	7163	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	7164	enableChannel: enableColorBox
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7165	model: supportsColor
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7166	translateLabel: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7167	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7168	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7169
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7170	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7171	extent: (Point 600 27)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7172	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7173	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7174
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	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7178
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7179	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7180	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7181	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7182
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7183	!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7184
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7185	basicReadSettings
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	7186	Printer notNil ifTrue:[
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	7187	self
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	7188	readAspects:
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	7189	#(
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	7190	topMargin
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	7191	bottomMargin
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	7192	leftMargin
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	7193	rightMargin
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	7194	landscape
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	7195	printCommand
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	7196	printFilename
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	7197	supportsColor
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	7198	)
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	7199	from:Printer.
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	7200	].
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	7201
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	7202	self printerTypeSelection value:(self possiblePrinters identityIndexOf:Printer).
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	7203	self pageFormatList notEmpty ifTrue:[ self pageFormat value:Printer pageFormat ].
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7204	self printerTypeSelectionOrUnitListChanged.
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	7205
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	7206	"Modified: / 07-08-2006 / 15:22:27 / fm"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7207	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7208
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7209	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7210
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7211	Printer := self possiblePrinters at:(self printerTypeSelection value).
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	7212
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7213	Printer printCommand:self printCommand value.
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	7214	Printer printFilename:(printFilename value isEmptyOrNil ifTrue:[nil] ifFalse:[printFilename value]).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7215
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7216	Printer supportsPageSizes ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7217	Printer pageFormat:(self pageFormat value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7218	Printer landscape:(self landscape value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7219	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7220	Printer supportsMargins ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7221	\| unit \|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7222	self selectedUnit value == 2 ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7223	unit := #mm
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7224	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7225	unit := #inch
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7226	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7227	Printer topMargin:(UnitConverter convert:(self topMargin value) from:unit to:#inch).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7228	Printer leftMargin:(UnitConverter convert:(self leftMargin value) from:unit to:#inch).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7229	Printer rightMargin:(UnitConverter convert:(self rightMargin value) from:unit to:#inch).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7230	Printer bottomMargin:(UnitConverter convert:(self bottomMargin value) from:unit to:#inch).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7231	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7232	Printer supportsPostscript ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7233	Printer supportsColor:self supportsColor value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7234	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7235	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7236
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	7237	helpFilename
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	7238	^ 'Launcher/printerSettings.html'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7239	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7240
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7241	!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7242
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7243	bottomMargin
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7244
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7245	bottomMargin isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7246	bottomMargin := Printer bottomMargin asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7247	bottomMargin onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7248	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7249	^ bottomMargin.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7250	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7251
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7252	enableColorBox
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7253
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7254	enableColorBox isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7255	enableColorBox := true asValue.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7256	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7257	^ enableColorBox.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7258	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7259
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7260	enableFormat
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7261
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7262	enableFormat isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7263	enableFormat := true asValue.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7264	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7265	^ enableFormat.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7266	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7267
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7268	enableMargins
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7269
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7270	enableMargins isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7271	enableMargins := true asValue.
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	^ enableMargins.
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
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7276	enablelandscape
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	enablelandscape isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7279	enablelandscape := true asValue.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7280	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7281	^ enablelandscape.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7282	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7283
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7284	landscape
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7285
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7286	landscape isNil ifTrue:[
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	7287	landscape := (Printer isNil ifTrue:[ false ] ifFalse:[ Printer landscape]) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7288	landscape onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7289	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7290	^ landscape.
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	7291
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	7292	"Modified: / 07-08-2006 / 15:22:44 / fm"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7293	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7294
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7295	leftMargin
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7296
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7297	leftMargin isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7298	leftMargin := Printer leftMargin asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7299	leftMargin onChangeSend:#updateModifiedChannel to:self
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7300	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7301	^ leftMargin.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7302	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7303
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7304	pageFormat
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7305
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7306	pageFormat isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7307	self pageFormatList notEmpty ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7308	\| index \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7309	(index := self pageFormatList indexOf:#a4) ~~ 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7310	pageFormat := index asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7311	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7312	pageFormat := 1 asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7313	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7314	].
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7315	pageFormat onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7316	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7317	^ pageFormat.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7318	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7319
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7320	pageFormatList
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7321
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7322	pageFormatList isNil ifTrue:[
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	7323	pageFormatList := (Printer isNil ifTrue:[ #() ] ifFalse: [Printer defaultPageFormats]) asList.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7324	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7325	^ pageFormatList.
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	7326
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	7327	"Modified: / 07-08-2006 / 15:23:19 / fm"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7328	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7329
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7330	printCommand
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7331
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7332	printCommand isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7333	printCommand := Printer printCommand asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7334	printCommand onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7335	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7336	^ printCommand.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7337	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7338
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	7339	printCommandEnabled
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	7340	^ BlockValue
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	7341	with:[:m \| m value isEmptyOrNil]
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	7342	argument:(self printFilename).
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	7343	!
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	7344
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7345	printCommandList
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7346
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7347	printCommandList isNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7348	printCommandList := self commandList asList.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7349	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7350	^ printCommandList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7351	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7352
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	7353	printFilename
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	7354	printFilename isNil ifTrue:[
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	7355	printFilename := (Printer isNil ifTrue:[''] ifFalse:[Printer printFilename ? '']) asValue.
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	7356	printFilename onChangeSend:#updateModifiedChannel to:self
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	7357	].
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	7358	^ printFilename.
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	7359
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	7360	"Modified: / 07-08-2006 / 15:24:45 / fm"
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	7361	!
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	7362
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7363	printerType
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7364
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7365	printerType isNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7366	printerType := (self possiblePrinters collect:[:cls \| cls printerTypeName]) asList.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7367	printerType onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7368	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7369	^ printerType.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7370	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7371
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7372	printerTypeSelection
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7373
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7374	printerTypeSelection isNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7375	printerTypeSelection := (self possiblePrinters identityIndexOf:Printer) asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7376	"/ printerTypeSelection onChangeSend:#printerTypeSelectionChanged to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7377	printerTypeSelection addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7378	printerTypeSelection changed.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7379	printerTypeSelection onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7380	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7381	^ printerTypeSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7382	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7383
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7384	rightMargin
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7385
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7386	rightMargin isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7387	rightMargin := Printer rightMargin asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7388	rightMargin onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7389	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7390	^ rightMargin.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7391	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7392
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7393	selectedUnit
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7394
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7395	selectedUnit isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7396	selectedUnit := 1 asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7397	selectedUnit addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7398	selectedUnit changed.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7399	selectedUnit onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7400	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7401	^ selectedUnit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7402	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7403
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7404	supportsColor
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7405
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7406	supportsColor isNil ifTrue:[
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	7407	supportsColor := (Printer notNil and:[Printer supportsColor]) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7408	supportsColor onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7409	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7410	^ supportsColor.
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	7411
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	7412	"Modified: / 07-08-2006 / 15:24:22 / fm"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7413	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7414
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7415	topMargin
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7416
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7417	topMargin isNil ifTrue:[
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	7418	topMargin := (Printer isNil ifTrue:[ 0 ] ifFalse:[ Printer topMargin ]) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7419	topMargin onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7420	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7421	^ topMargin.
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	7422
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	7423	"Modified: / 07-08-2006 / 15:21:50 / fm"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7424	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7425
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7426	unitList
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7427
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7428	unitList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7429	unitList := #('inch' 'mm') asList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7430	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7431	^ unitList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7432	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7433
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7434	!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7435
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7436	printerTypeSelectionChanged
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7437	\| p hasPageSize hasMargins\|
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	7438
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	7439	self printerType selectionIndex ~~ 0 ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7440	p := self possiblePrinters at:(self printerType selectionIndex).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7441	hasPageSize := p supportsPageSizes.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7442	hasMargins := p supportsMargins.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7443	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7444	hasPageSize := false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7445	hasMargins := false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7446	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7447	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7448
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7449	printerTypeSelectionOrUnitListChanged
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	7450	\| p hasPageSize hasMargins unit printerSupportsPostscript\|
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7451
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7452	self printerTypeSelection value ~~ 0 ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7453	p := self possiblePrinters at:(self printerTypeSelection value).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7454	hasPageSize := p supportsPageSizes.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7455	hasMargins := p supportsMargins.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7456	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7457	hasPageSize := false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7458	hasMargins := false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7459	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7460	self enablelandscape value:hasPageSize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7461	self enableFormat value:hasPageSize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7462	hasPageSize ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7463	self pageFormat value:(p pageFormat).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7464	self landscape value:(p landscape).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7465	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7466	self landscape value:false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7467	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7468	hasMargins ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7469	self selectedUnit value == 2 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7470	unit := #mm
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7471	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7472	unit := #inch
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7473	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7474
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	7475	self topMargin value:(UnitConverter convert:p topMargin from:#inch to:unit).
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	7476	self leftMargin value:(UnitConverter convert:p leftMargin from:#inch to:unit).
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	7477	self rightMargin value:(UnitConverter convert:p rightMargin from:#inch to:unit).
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	7478	self bottomMargin value:(UnitConverter convert:p bottomMargin from:#inch to:unit).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7479
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7480	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7481	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7482	self enableMargins value:hasMargins.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7483
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7484	p notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7485	\| newCommandList \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7486	newCommandList := p defaultCommands.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7487	newCommandList notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7488	self printCommandList contents:(newCommandList asList).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7489	self printCommandList changed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7490	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7491	self printCommand value:(p printCommand).
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	7492	self printFilename value:(p printFilename ? '').
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7493	].
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	7494	printerSupportsPostscript := p notNil and:[p supportsPostscript].
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	7495	self enableColorBox value:printerSupportsPostscript.
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	7496	printerSupportsPostscript ifFalse:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7497	self supportsColor value:false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7498	] ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7499	self supportsColor value:(Printer supportsColor).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7500	]
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	7501
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	7502	"Modified: / 07-08-2006 / 15:24:06 / fm"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7503	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7504
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7505	unitListChanged
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7506	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7507
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7508	update:something with:aParameter from:changedObject
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7509	(changedObject == self selectedUnit or:[changedObject == self printerTypeSelection]) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7510	self printerTypeSelectionOrUnitListChanged.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7511	^ self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7512	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7513
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7514	super update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7515	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7516
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7517	!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7518
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7519	commandList
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7520	commandList isNil ifTrue:[
6638 74439c5aa6dd * empty log message * Claus Gittinger <cg@exept.de> parents: 6580 diff changeset	7521	commandList := resources string:'PRINT_COMMANDS' default:nil.
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7522	commandList isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7523	commandList := PrinterStream defaultCommands.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7524	commandList isNil ifTrue:[
5151 53c19d72ff59 Avoid warning about slow grow operation Stefan Vogel <sv@exept.de> parents: 5149 diff changeset	7525	commandList := #('lpr' 'lp').
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7526	].
5151 53c19d72ff59 Avoid warning about slow grow operation Stefan Vogel <sv@exept.de> parents: 5149 diff changeset	7527	(commandList includes:self printCommand value) ifFalse:[
53c19d72ff59 Avoid warning about slow grow operation Stefan Vogel <sv@exept.de> parents: 5149 diff changeset	7528	commandList := commandList copyWith:self printCommand value.
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7529	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7530	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7531	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7532	^ commandList
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7533	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7534
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7535	hasUnsavedChanges
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7536	\| printer unit\|
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	7537
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	7538	Printer isNil ifTrue:[^ false].
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	7539
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7540	self selectedUnit value == 2 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7541	unit := #mm
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7542	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7543	unit := #inch
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7544	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7545	printer := self possiblePrinters at:(self printerTypeSelection value).
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	7546
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	7547	printer ~= Printer ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	7548
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	7549	Printer printCommand ~= self printCommand value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	7550	(Printer printFilename ? '') ~= (self printFilename value ? '') ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	7551
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	7552	Printer supportsPageSizes ifTrue:[
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	7553	Printer pageFormat ~= self pageFormat value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	7554	Printer landscape ~= (self landscape value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	7555	].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	7556	Printer supportsMargins ifTrue:[
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	7557	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	7558	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	7559	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	7560	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	7561	].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	7562	Printer supportsPostscript ifTrue:[
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	7563	Printer supportsColor ~= self supportsColor value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	7564	].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	7565	^ false
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	7566
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	7567	"Modified: / 07-08-2006 / 15:25:47 / fm"
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7568	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7569
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7570	possiblePrinters
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7571	possiblePrinters isNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7572	possiblePrinters := PrinterStream withAllSubclasses asArray.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7573	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7574	^ possiblePrinters
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7575	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7576
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7577	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7578
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7579	defaultIcon
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7580	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7581	by the ImageEditor of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7582
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7583	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7584	the ImageEditor may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7585
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7586	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7587	self defaultIcon inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7588	ImageEditor openOnClass:self andSelector:#defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7589	Icon flushCachedIcons
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7590	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7591
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7592	<resource: #image>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7593
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7594	^Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7595	constantNamed:#'AbstractSettingsApplication::ProcessorSchedulerSettingsAppl class defaultIcon'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	7596	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	7597	@@@@@@@@@@@@@@@@@@@@ADQ@@@@@@@@@@DQBL2QD@@@@@@@DH"D3D"I@@@@@@DHQDSLQDRP@@@@DHQDQDQDQD$@@@DHQDQDQDQDQI@@@P!!DQDQDQDQD$@@AB
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	7598	DQDQDQLQDRP@ABDQDQDQLQDQD$@DHQDQDSLQDQDRP@P!!DQDQL1DQDQI@ABDQDQDQLQDQD$@@P!!DQDQDSDQD$@@ABDQDQDQD1DRP@@DHQDQDQDQLQI@@@ABDQ
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	7599	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	7600	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7601
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7602	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl class methodsFor:'interface specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7603
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7604	windowSpec
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7605	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7606	by the UIPainter of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7607
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7608	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7609	the UIPainter may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7610
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7611	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7612	UIPainter new openOnClass:AbstractSettingsApplication::ProcessorSchedulerSettingsAppl andSelector:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7613	AbstractSettingsApplication::ProcessorSchedulerSettingsAppl new openInterface:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7614	AbstractSettingsApplication::ProcessorSchedulerSettingsAppl open
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7615	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7616
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7617	<resource: #canvas>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7618
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7619	^
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7620	#(FullSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7621	name: windowSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7622	window:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7623	(WindowSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7624	label: 'Processor and Scheduler Settings'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7625	name: 'Processor and Scheduler Settings'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7626	min: (Point 10 10)
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7627	bounds: (Rectangle 14 46 614 366)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7628	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7629	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7630	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7631	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7632	(VerticalPanelViewSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7633	name: 'VerticalPanel2'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7634	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	7635	horizontalLayout: fit
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7636	verticalLayout: topSpace
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7637	horizontalSpace: 3
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7638	verticalSpace: 5
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7639	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7640	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7641	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7642	(CheckBoxSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7643	label: 'Preemptive Scheduling'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7644	name: 'CheckBox11'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7645	model: preemptive
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7646	translateLabel: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7647	extent: (Point 600 22)
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7648	)
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7649	(ViewSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7650	name: 'Box2'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7651	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7652	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7653	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7654	(CheckBoxSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7655	label: 'Dynamic Priorities'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7656	name: 'CheckBox12'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7657	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	7658	enableChannel: preemptive
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7659	model: dynamicPrios
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7660	translateLabel: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7661	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7662	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7663
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7664	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7665	extent: (Point 600 23)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7666	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7667	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7668
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7669	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7670	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7671	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7672
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7673	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7674	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7675	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7676
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7677	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl methodsFor:'actions'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7678
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7679	basicReadSettings
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7680	self preemptive value:Processor isTimeSlicing.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7681	self dynamicPrios value:Processor supportDynamicPriorities.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7682	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7683
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7684	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7685
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7686	Processor isTimeSlicing ~~ self preemptive value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7687	self preemptive value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7688	Processor startTimeSlicing
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7689	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7690	Processor stopTimeSlicing
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7691	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7692	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7693	Processor supportDynamicPriorities ~~ self dynamicPrios value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7694	Processor supportDynamicPriorities:self dynamicPrios value
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7695	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7696	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7697
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	7698	helpFilename
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	7699	^ 'Launcher/miscSettings.html'
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7700	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7701
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7702	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl methodsFor:'aspects'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7703
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7704	dynamicPrios
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7705	dynamicPrios isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7706	dynamicPrios := true asValue.
5085 e22e91773cf9 have no save button enabled on timeSlicing changes penk parents: 5083 diff changeset	7707	dynamicPrios onChangeSend:#updateModifiedChannel to:self.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7708	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7709	^ dynamicPrios.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7710	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7711
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7712	preemptive
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7713	preemptive isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7714	preemptive := true asValue.
5085 e22e91773cf9 have no save button enabled on timeSlicing changes penk parents: 5083 diff changeset	7715	preemptive onChangeSend:#updateModifiedChannel to:self.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7716	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7717	^ preemptive.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7718	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7719
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7720	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl methodsFor:'queries'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7721
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7722	hasUnsavedChanges
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	7723	self preemptive value ~= Processor isTimeSlicing ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	7724	self dynamicPrios value ~= Processor supportDynamicPriorities ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	7725	^ false
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7726	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7727
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7728	!AbstractSettingsApplication::RDoItServerSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7729
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7730	defaultIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7731	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7732	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7733
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7734	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7735	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7736
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7737	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7738	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7739	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7740	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7741	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7742
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7743	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7744
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7745	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7746	constantNamed:#'AbstractSettingsApplication::RDoItServerSettingsAppl class defaultIcon'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	7747	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	7748	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@&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	7749	''#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	7750	!!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	7751	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7752
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7753	!AbstractSettingsApplication::RDoItServerSettingsAppl class methodsFor:'interface specs'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7754
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7755	windowSpec
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7756	"This resource specification was automatically generated
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7757	by the UIPainter of ST/X."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7758
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7759	"Do not manually edit this!! If it is corrupted,
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7760	the UIPainter may not be able to read the specification."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7761
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7762	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7763	UIPainter new openOnClass:AbstractSettingsApplication::RDoItServerSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7764	AbstractSettingsApplication::RDoItServerSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7765	AbstractSettingsApplication::RDoItServerSettingsAppl open
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7766	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7767
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7768	<resource: #canvas>
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7769
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7770	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7771	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7772	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7773	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7774	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7775	label: 'RDoIt Server Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7776	name: 'RDoIt Server Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7777	min: (Point 10 10)
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7778	bounds: (Rectangle 0 0 600 550)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7779	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7780	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7781	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7782	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7783	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7784	name: 'VerticalPanel2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7785	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	7786	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7787	verticalLayout: top
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7788	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7789	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7790	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7791	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7792	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7793	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7794	name: 'Box1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7795	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7796	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7797	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7798	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7799	label: 'Remote doits enabled'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7800	name: 'CheckBox1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7801	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	7802	enableChannel: hasRDoitServerClass
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7803	model: rDoitsEnabled
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7804	translateLabel: true
5086 b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	7805	)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	7806	)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	7807
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	7808	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7809	extent: (Point 600 25)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7810	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7811	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7812	name: 'Box2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7813	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7814	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7815	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7816	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7817	label: 'Port/Path:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7818	name: 'Label2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7819	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	7820	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7821	adjust: right
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7822	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7823	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7824	name: 'EntryField1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7825	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	7826	enableChannel: rDoitsEnabled
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7827	model: rDoitServerPortOrPath
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7828	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7829	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7830	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7831	acceptOnPointerLeave: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7832	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7833	(LabelSpec
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7834	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	7835	name: 'Label3'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7836	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	7837	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7838	adjust: left
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7839	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7840	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7841
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7842	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7843	extent: (Point 600 72)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7844	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7845	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7846	name: 'Box3'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7847	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7848	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7849	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7850	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7851	label: 'Log errors'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7852	name: 'CheckBox2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7853	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	7854	enableChannel: rDoitsEnabled
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7855	model: rDoitErrorLogging
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7856	translateLabel: true
5086 b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	7857	)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	7858	)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	7859
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	7860	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7861	extent: (Point 600 25)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7862	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7863	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7864	name: 'Box4'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7865	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7866	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7867	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7868	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7869	label: 'Log requests'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7870	name: 'CheckBox3'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7871	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	7872	enableChannel: rDoitsEnabled
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7873	model: rDoitLogging
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7874	translateLabel: true
5086 b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	7875	)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	7876	)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	7877
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	7878	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7879	extent: (Point 600 24)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7880	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7881	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7882	name: 'Box5'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7883	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7884	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7885	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7886	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7887	label: 'Debug errors'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7888	name: 'CheckBox4'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7889	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	7890	enableChannel: rDoitsEnabled
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7891	model: rDoitErrorDebugging
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7892	translateLabel: true
5086 b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	7893	)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	7894	)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	7895
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	7896	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7897	extent: (Point 600 23)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7898	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7899	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7900
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7901	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7902	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7903	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7904
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7905	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7906	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7907	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7908
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7909	!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'actions'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7910
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7911	basicReadSettings
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7912	\|rDoitsEnabled rDoitLogging rDoitErrorLogging rDoitErrorDebugging rDoitServerPortOrPath\|
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7913
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7914	rDoitsEnabled := false.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7915	rDoitLogging := false.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7916	rDoitErrorLogging := false.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7917	rDoitErrorDebugging := false.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7918	rDoitServerPortOrPath := false.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7919
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7920	(self hasRDoitServer and:[RDoItServer isLoaded]) ifTrue:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7921	rDoitsEnabled := RDoItServer serverRunning.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7922	rDoitLogging := RDoItServer isLogging.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7923	rDoitErrorLogging := RDoItServer isErrorLogging.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7924	rDoitErrorDebugging := RDoItServer isErrorCatching not.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7925	rDoitServerPortOrPath := RDoItServer defaultPortNumberOrPath
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7926	].
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7927
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7928	self rDoitsEnabled value:rDoitsEnabled.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7929	self rDoitLogging value:rDoitLogging.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7930	self rDoitErrorLogging value:rDoitErrorLogging.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7931	self rDoitErrorDebugging value:rDoitErrorDebugging.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7932	self rDoitServerPortOrPath value:rDoitServerPortOrPath
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7933	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7934
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7935	basicSaveSettings
5991 1f8b715b9c06 Fix rdoit settings: allow to specify a port number Stefan Vogel <sv@exept.de> parents: 5943 diff changeset	7936	\|shouldRun portOrPath\|
1f8b715b9c06 Fix rdoit settings: allow to specify a port number Stefan Vogel <sv@exept.de> parents: 5943 diff changeset	7937
1f8b715b9c06 Fix rdoit settings: allow to specify a port number Stefan Vogel <sv@exept.de> parents: 5943 diff changeset	7938	portOrPath := self rDoitServerPortOrPath value.
6064 94d7e5b3471d * empty log message * penk parents: 6058 diff changeset	7939	portOrPath isNumber ifFalse:[
5991 1f8b715b9c06 Fix rdoit settings: allow to specify a port number Stefan Vogel <sv@exept.de> parents: 5943 diff changeset	7940	"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	7941	portOrPath := portOrPath asInteger.
1f8b715b9c06 Fix rdoit settings: allow to specify a port number Stefan Vogel <sv@exept.de> parents: 5943 diff changeset	7942	].
1f8b715b9c06 Fix rdoit settings: allow to specify a port number Stefan Vogel <sv@exept.de> parents: 5943 diff changeset	7943
1f8b715b9c06 Fix rdoit settings: allow to specify a port number Stefan Vogel <sv@exept.de> parents: 5943 diff changeset	7944	RDoItServer defaultPortNumberOrPath:portOrPath.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7945	RDoItServer logging:self rDoitLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7946	RDoItServer errorLogging:self rDoitErrorLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7947	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	7948	shouldRun := self rDoitsEnabled value.
1f8b715b9c06 Fix rdoit settings: allow to specify a port number Stefan Vogel <sv@exept.de> parents: 5943 diff changeset	7949	shouldRun ~~ RDoItServer serverRunning ifTrue:[
1f8b715b9c06 Fix rdoit settings: allow to specify a port number Stefan Vogel <sv@exept.de> parents: 5943 diff changeset	7950	shouldRun ifFalse:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7951	RDoItServer stop
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7952	] ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7953	RDoItServer start.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7954	"/ must wait a bit; give it a chance to
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7955	"/ really start (before checking)
5991 1f8b715b9c06 Fix rdoit settings: allow to specify a port number Stefan Vogel <sv@exept.de> parents: 5943 diff changeset	7956	Delay waitForSeconds:1.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7957	RDoItServer serverRunning ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7958	self warn:'RDoit startup failed (see stderr).'
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7959	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7960	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7961	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7962	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7963
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	7964	helpFilename
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	7965	^ 'Launcher/communicationsSettings.html'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7966	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7967
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7968	!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'aspects'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7969
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7970	rDoitErrorDebugging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7971	rDoitErrorDebugging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7972	rDoitErrorDebugging := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7973	rDoitErrorDebugging onChangeSend:#updateModifiedChannel to:self
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7974	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7975	^ rDoitErrorDebugging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7976	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7977
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7978	rDoitErrorLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7979	rDoitErrorLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7980	rDoitErrorLogging := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7981	rDoitErrorLogging onChangeSend:#updateModifiedChannel to:self
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7982	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7983	^ rDoitErrorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7984	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7985
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7986	rDoitLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7987	rDoitLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7988	rDoitLogging := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7989	rDoitLogging onChangeSend:#updateModifiedChannel to:self
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7990	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7991	^ rDoitLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7992	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7993
5032 2a26da89dada allow for rdoitPort to be a string (for ud sockets) Claus Gittinger <cg@exept.de> parents: 5031 diff changeset	7994	rDoitServerPortOrPath
2a26da89dada allow for rdoitPort to be a string (for ud sockets) Claus Gittinger <cg@exept.de> parents: 5031 diff changeset	7995	rDoitServerPortOrPath isNil ifTrue:[
2a26da89dada allow for rdoitPort to be a string (for ud sockets) Claus Gittinger <cg@exept.de> parents: 5031 diff changeset	7996	rDoitServerPortOrPath := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7997	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	7998	].
2a26da89dada allow for rdoitPort to be a string (for ud sockets) Claus Gittinger <cg@exept.de> parents: 5031 diff changeset	7999	^ rDoitServerPortOrPath.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8000	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8001
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8002	rDoitsEnabled
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8003	rDoitsEnabled isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8004	rDoitsEnabled := true asValue.
4675 40c7fa2ca3e5 rDoit - enablement fixed. Claus Gittinger <cg@exept.de> parents: 4658 diff changeset	8005	rDoitsEnabled onChangeSend:#rDoitsEnabledChanged to:self
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8006	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8007	^ rDoitsEnabled.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8008	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8009
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8010	!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'change & update'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8011
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8012	rDoitsEnabledChanged
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	8013	self updateModifiedChannel.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8014	self rDoitsEnabled value ifTrue:[
5991 1f8b715b9c06 Fix rdoit settings: allow to specify a port number Stefan Vogel <sv@exept.de> parents: 5943 diff changeset	8015	rDoitServerPortOrPath value isEmptyOrNil ifTrue:[
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	8016	rDoitServerPortOrPath value:(RDoItServer defaultPortNumberOrPath)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8017	]
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	8018	]
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8019	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8020
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8021	!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'queries'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8022
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8023	hasRDoitServer
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8024	^ RDoItServer notNil and:[RDoItServer isLoaded]
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8025	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8026
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8027	hasRDoitServerClass
4675 40c7fa2ca3e5 rDoit - enablement fixed. Claus Gittinger <cg@exept.de> parents: 4658 diff changeset	8028	^ RDoItServer notNil
40c7fa2ca3e5 rDoit - enablement fixed. Claus Gittinger <cg@exept.de> parents: 4658 diff changeset	8029	!
40c7fa2ca3e5 rDoit - enablement fixed. Claus Gittinger <cg@exept.de> parents: 4658 diff changeset	8030
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8031	hasUnsavedChanges
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8032	(self hasRDoitServer and:[RDoItServer isLoaded]) ifTrue:[
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8033	self rDoitsEnabled value ~= RDoItServer serverRunning ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8034	RDoItServer serverRunning ifTrue:[
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8035	self rDoitLogging value ~= RDoItServer isLogging ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8036	self rDoitErrorLogging value ~= RDoItServer isErrorLogging ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8037	self rDoitErrorDebugging value ~= RDoItServer isErrorCatching not ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8038	self rDoitServerPortOrPath value ~= RDoItServer defaultPortNumberOrPath ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8039	]
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8040	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8041	^ false
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8042	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8043
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8044	!AbstractSettingsApplication::SQLServerSettingsAppl class methodsFor:'image specs'!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8045
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8046	defaultIcon
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8047	"This resource specification was automatically generated
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8048	by the ImageEditor of ST/X."
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8049
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8050	"Do not manually edit this!! If it is corrupted,
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8051	the ImageEditor may not be able to read the specification."
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8052
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8053	"
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8054	self defaultIcon inspect
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8055	ImageEditor openOnClass:self andSelector:#defaultIcon
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8056	Icon flushCachedIcons
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8057	"
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8058
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8059	<resource: #image>
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	^Icon
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8062	constantNamed:#'Expecco::ExpeccoIconLibrary class defaultIcon'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8063	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	8064	H"H"H @@@@@@@@@@@@@@@@@@@@@"H"H"@@@@@@@@@@@@@@@@@@@@@@@@@@@"H"H"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BH"@@@@@@@@@@@@J"(J"(@@@@
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8065	@@@@@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	8066	@@@@@@@@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	8067	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	8068	@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	8069	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	8070	@@@@@@@@@@@@@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	8071	! !
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8072
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8073	!AbstractSettingsApplication::SQLServerSettingsAppl class methodsFor:'interface specs'!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8074
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8075	windowSpec
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8076	"This resource specification was automatically generated
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8077	by the UIPainter of ST/X."
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8078
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8079	"Do not manually edit this!! If it is corrupted,
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8080	the UIPainter may not be able to read the specification."
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8081
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8082	"
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8083	UIPainter new openOnClass:AbstractSettingsApplication::SQLServerSettingsAppl andSelector:#windowSpec
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8084	AbstractSettingsApplication::SQLServerSettingsAppl new openInterface:#windowSpec
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8085	AbstractSettingsApplication::SQLServerSettingsAppl open
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
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8088	<resource: #canvas>
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8089
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8090	^
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8091	#(FullSpec
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8092	name: windowSpec
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8093	window:
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8094	(WindowSpec
6428 76dfcf8cb841 * empty log message * Claus Gittinger <cg@exept.de> parents: 6427 diff changeset	8095	label: 'SQL Server Settings'
76dfcf8cb841 * empty log message * Claus Gittinger <cg@exept.de> parents: 6427 diff changeset	8096	name: 'SQL Server Settings'
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8097	min: (Point 10 10)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8098	bounds: (Rectangle 0 0 600 550)
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	component:
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8101	(SpecCollection
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8102	collection: (
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8103	(VerticalPanelViewSpec
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8104	name: 'VerticalPanel2'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8105	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	8106	horizontalLayout: fit
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8107	verticalLayout: top
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8108	horizontalSpace: 3
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8109	verticalSpace: 3
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8110	component:
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8111	(SpecCollection
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8112	collection: (
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8113	(ViewSpec
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8114	name: 'EnableBox'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8115	component:
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8116	(SpecCollection
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8117	collection: (
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8118	(CheckBoxSpec
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8119	label: 'SQL Server Enabled'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8120	name: 'EnableCheckBox'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8121	layout: (LayoutFrame 5 0 0 0 -5 1 22 0)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8122	enableChannel: hasRDoitServerClass
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8123	model: sqlServerEnabled
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8124	translateLabel: true
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
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	extent: (Point 600 25)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8130	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8131	(ViewSpec
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8132	name: 'PortBox'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8133	component:
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8134	(SpecCollection
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8135	collection: (
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8136	(LabelSpec
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8137	label: 'MySQL Port:'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8138	name: 'Label2'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8139	layout: (LayoutFrame 5 0 0 0 150 0 22 0)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8140	translateLabel: true
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8141	adjust: right
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8142	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8143	(InputFieldSpec
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8144	name: 'EntryField1'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8145	layout: (LayoutFrame 150 0 0 0 -5 1 22 0)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8146	enableChannel: rDoitsEnabled
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8147	model: sqlServerPort
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8148	acceptOnReturn: true
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8149	acceptOnTab: true
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8150	acceptOnLostFocus: true
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8151	acceptOnPointerLeave: true
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	(LabelSpec
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8154	label: 'MySQL Port-Number (ODBC)'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8155	name: 'Label3'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8156	layout: (LayoutFrame 150 0 28 0 596 0 50 0)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8157	translateLabel: true
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8158	adjust: left
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8159	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8160	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8161
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8162	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8163	extent: (Point 600 72)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8164	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8165	(ViewSpec
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8166	name: 'LogErrorsBox'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8167	component:
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8168	(SpecCollection
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8169	collection: (
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8170	(CheckBoxSpec
6431 6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	8171	label: 'Log Errors'
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8172	name: 'ErrorLoggingCheckBox'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8173	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8174	enableChannel: rDoitsEnabled
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8175	model: sqlErrorLogging
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8176	translateLabel: true
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8177	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8178	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8179
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8180	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8181	extent: (Point 600 25)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8182	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8183	(ViewSpec
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8184	name: 'LogRequestsBox'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8185	component:
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8186	(SpecCollection
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8187	collection: (
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8188	(CheckBoxSpec
6431 6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	8189	label: 'Log Requests'
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8190	name: 'LogRequestsCheckBox'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8191	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8192	enableChannel: rDoitsEnabled
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8193	model: sqlLogging
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8194	translateLabel: true
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8195	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8196	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8197
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8198	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8199	extent: (Point 600 24)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8200	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8201	(ViewSpec
6431 6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	8202	name: 'LogDataBox'
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	8203	component:
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	8204	(SpecCollection
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	8205	collection: (
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	8206	(CheckBoxSpec
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	8207	label: 'Log Data'
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	8208	name: 'LogDataCheckBox'
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	8209	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	8210	enableChannel: rDoitsEnabled
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	8211	model: sqlDataLogging
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	8212	translateLabel: true
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	8213	)
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	8214	)
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	8215
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	8216	)
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	8217	extent: (Point 600 23)
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	8218	)
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	8219	(ViewSpec
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8220	name: 'DebugErrorsBox'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8221	component:
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8222	(SpecCollection
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8223	collection: (
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8224	(CheckBoxSpec
6431 6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	8225	label: 'Debug Errors'
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8226	name: 'DebugErrorsCheckBox'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8227	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8228	enableChannel: rDoitsEnabled
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8229	model: sqlErrorDebugging
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8230	translateLabel: true
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8231	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8232	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8233
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8234	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8235	extent: (Point 600 23)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8236	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8237	(ViewSpec
6431 6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	8238	name: 'Box1'
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	8239	extent: (Point 600 10)
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	8240	)
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	8241	(ViewSpec
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8242	name: 'EnableSmalltalkBox'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8243	component:
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8244	(SpecCollection
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8245	collection: (
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8246	(CheckBoxSpec
6431 6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	8247	label: 'Virtual Smalltalk Tables Enabled'
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8248	name: 'EnableSmalltalkCheckBox'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8249	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8250	enableChannel: rDoitsEnabled
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8251	model: sqlSmalltalkServerEnabled
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8252	translateLabel: true
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8253	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8254	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8255
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8256	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8257	extent: (Point 600 24)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8258	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8259	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8260
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8261	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8262	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8263	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8264
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8265	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8266	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8267	! !
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8268
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8269	!AbstractSettingsApplication::SQLServerSettingsAppl methodsFor:'actions'!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8270
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8271	basicReadSettings
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8272	(self hasSQLServer and:[SQLServer::SQLServer isLoaded]) ifTrue:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8273	self sqlServerEnabled value:SQLServer::SQLServer serverRunning.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8274	self sqlSmalltalkServerEnabled value:SQLServer::SQLServer isSmalltalkServerEnabled.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8275	self sqlLogging value:SQLServer::SQLServer isLogging.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8276	self sqlErrorLogging value:SQLServer::SQLServer isErrorLogging.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8277	self sqlDataLogging value:SQLServer::SQLServer isDataLogging.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8278	self sqlErrorDebugging value:SQLServer::SQLServer isErrorCatching not.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8279	self sqlServerPort value:SQLServer::SQLServer defaultPort
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8280	] ifFalse:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8281	self sqlServerEnabled value:false.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8282	self sqlSmalltalkServerEnabled value:false.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8283	self sqlLogging value:false.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8284	self sqlErrorLogging value:false.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8285	self sqlDataLogging value:false.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8286	self sqlErrorDebugging value:false.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8287	self sqlServerPort value:nil
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8288	].
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8289	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8290
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8291	basicSaveSettings
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8292	\|shouldRun port\|
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8293
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8294	port := self sqlServerPort value.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8295	port isNumber ifFalse:[
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8296	port := port asInteger.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8297	].
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8298
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8299	SQLServer::SQLServer defaultPort:port.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8300	SQLServer::SQLServer logging:self sqlLogging value.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8301	SQLServer::SQLServer errorLogging:self sqlErrorLogging value.
6431 6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	8302	SQLServer::SQLServer dataLogging:self sqlDataLogging value.
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8303	SQLServer::SQLServer errorCatching:(self sqlErrorDebugging value not).
6429 5d2d51c0c393 * empty log message * Claus Gittinger <cg@exept.de> parents: 6428 diff changeset	8304	SQLServer::SQLServer smalltalkServerEnabled:(self sqlSmalltalkServerEnabled value).
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8305
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8306	shouldRun := self sqlServerEnabled value.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8307	shouldRun ~~ SQLServer::SQLServer serverRunning ifTrue:[
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8308	shouldRun ifFalse:[
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8309	SQLServer::SQLServer stop
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8310	] ifTrue:[
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8311	SQLServer::SQLServer start.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8312	"/ must wait a bit; give it a chance to
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8313	"/ really start (before checking)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8314	Delay waitForSeconds:1.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8315	SQLServer::SQLServer serverRunning ifFalse:[
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8316	self warn:'SQLServer startup failed (see stderr).'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8317	]
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8318	]
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8319	].
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8320	!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8321
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8322	helpFilename
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8323	^ 'Launcher/communicationsSettings.html'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8324	! !
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8325
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8326	!AbstractSettingsApplication::SQLServerSettingsAppl methodsFor:'aspects'!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8327
6431 6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	8328	sqlDataLogging
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	8329	sqlDataLogging isNil ifTrue:[
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	8330	sqlDataLogging := true asValue.
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	8331	sqlDataLogging onChangeSend:#updateModifiedChannel to:self
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	8332	].
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	8333	^ sqlDataLogging.
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	8334	!
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	8335
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8336	sqlErrorDebugging
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8337	sqlErrorDebugging isNil ifTrue:[
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8338	sqlErrorDebugging := true asValue.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8339	sqlErrorDebugging onChangeSend:#updateModifiedChannel to:self
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8340	].
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8341	^ sqlErrorDebugging.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8342	!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8343
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8344	sqlErrorLogging
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8345	sqlErrorLogging isNil ifTrue:[
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8346	sqlErrorLogging := true asValue.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8347	sqlErrorLogging onChangeSend:#updateModifiedChannel to:self
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8348	].
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8349	^ sqlErrorLogging.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8350	!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8351
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8352	sqlLogging
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8353	sqlLogging isNil ifTrue:[
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8354	sqlLogging := true asValue.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8355	sqlLogging onChangeSend:#updateModifiedChannel to:self
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8356	].
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8357	^ sqlLogging.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8358	!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8359
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8360	sqlServerEnabled
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8361	sqlServerEnabled isNil ifTrue:[
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8362	sqlServerEnabled := true asValue.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8363	sqlServerEnabled onChangeSend:#sqlServerEnabledChanged to:self
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8364	].
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8365	^ sqlServerEnabled.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8366	!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8367
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8368	sqlServerPort
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8369	sqlServerPort isNil ifTrue:[
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8370	sqlServerPort := ValueHolder new.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8371	sqlServerPort onChangeSend:#updateModifiedChannel to:self
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8372	].
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8373	^ sqlServerPort.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8374	!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8375
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8376	sqlSmalltalkServerEnabled
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8377	sqlSmalltalkServerEnabled isNil ifTrue:[
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8378	sqlSmalltalkServerEnabled := true asValue.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8379	sqlSmalltalkServerEnabled onChangeSend:#sqlSmalltalkServerEnabledChanged to:self
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8380	].
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8381	^ sqlSmalltalkServerEnabled.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8382	! !
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8383
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8384	!AbstractSettingsApplication::SQLServerSettingsAppl methodsFor:'change & update'!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8385
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8386	sqlServerEnabledChanged
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8387	self updateModifiedChannel.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8388	self sqlServerEnabled value ifTrue:[
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8389	sqlServerPort value isEmptyOrNil ifTrue:[
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8390	sqlServerPort value:(SQLServer::SQLServer defaultPort)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8391	]
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8392	]
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8393	!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8394
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8395	sqlSmalltalkServerEnabledChanged
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8396	self updateModifiedChannel.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8397	self sqlSmalltalkServerEnabled value ifTrue:[
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8398	sqlServerPort value isEmptyOrNil ifTrue:[
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8399	sqlServerPort value:(SQLServer::SQLServer defaultPort)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8400	]
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8401	]
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8402	! !
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8403
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8404	!AbstractSettingsApplication::SQLServerSettingsAppl methodsFor:'queries'!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8405
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8406	hasSQLServer
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8407	^ SQLServer::SQLServer notNil and:[SQLServer::SQLServer isLoaded]
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8408	!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8409
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8410	hasSQLServerClass
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8411	^ SQLServer::SQLServer notNil
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8412	!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8413
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8414	hasUnsavedChanges
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8415	(self hasSQLServer and:[SQLServer::SQLServer isLoaded]) ifTrue:[
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8416	self sqlServerEnabled value ~= SQLServer::SQLServer serverRunning ifTrue:[^ true].
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8417	SQLServer::SQLServer serverRunning ifTrue:[
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8418	self sqlSmalltalkServerEnabled value ~= SQLServer::SQLServer isSmalltalkServerEnabled ifTrue:[^ true].
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8419	self sqlLogging value ~= SQLServer::SQLServer isLogging ifTrue:[^ true].
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8420	self sqlErrorLogging value ~= SQLServer::SQLServer isErrorLogging ifTrue:[^ true].
6431 6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	8421	self sqlDataLogging value ~= SQLServer::SQLServer isDataLogging ifTrue:[^ true].
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8422	self sqlErrorDebugging value ~= SQLServer::SQLServer isErrorCatching not ifTrue:[^ true].
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8423	self sqlServerPort value ~= SQLServer::SQLServer defaultPort ifTrue:[^ true].
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8424	]
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8425	].
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8426	^ false
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8427	! !
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8428
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8429	!AbstractSettingsApplication::STCCompilerSettingsAppl class methodsFor:'defaults'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8430
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8431	stcCompilationOptions
5278 67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	8432	^ #(default never)
67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	8433	!
67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	8434
67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	8435	stcCompilationStrings
67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	8436
67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	8437	^ #('primitive code only' 'never')
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8438	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8439
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8440	!AbstractSettingsApplication::STCCompilerSettingsAppl class methodsFor:'image specs'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8441
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8442	defaultIcon
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8443	^ self defaultIcon3
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8444	!
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8445
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8446	defaultIcon1
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8447	"This resource specification was automatically generated
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8448	by the ImageEditor of ST/X."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8449
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8450	"Do not manually edit this!! If it is corrupted,
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8451	the ImageEditor may not be able to read the specification."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8452
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8453	"
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8454	self defaultIcon1 inspect
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8455	ImageEditor openOnClass:self andSelector:#defaultIcon1
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8456	Icon flushCachedIcons
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8457	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8458
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8459	<resource: #image>
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8460
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8461	^Icon
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8462	constantNamed:#'AbstractSettingsApplication::STCCompilerSettingsAppl class defaultIcon1'
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	8463	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	8464	@@@@@@@@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	8465	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	8466	!
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8467
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8468	defaultIcon2
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8469	"This resource specification was automatically generated
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8470	by the ImageEditor of ST/X."
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8471
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8472	"Do not manually edit this!! If it is corrupted,
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8473	the ImageEditor may not be able to read the specification."
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8474
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8475	"
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8476	self defaultIcon2 inspect
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8477	ImageEditor openOnClass:self andSelector:#defaultIcon2
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8478	Icon flushCachedIcons
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8479	"
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8480
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8481	<resource: #image>
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8482
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8483	^Icon
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8484	constantNamed:#'AbstractSettingsApplication::STCCompilerSettingsAppl class defaultIcon2'
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8485	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	8486	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	8487	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	8488	@@@@@@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	8489	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	8490	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	8491	@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	8492	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	8493	!
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8494
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8495	defaultIcon3
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8496	"This resource specification was automatically generated
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8497	by the ImageEditor of ST/X."
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8498
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8499	"Do not manually edit this!! If it is corrupted,
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8500	the ImageEditor may not be able to read the specification."
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8501
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8502	"
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8503	self defaultIcon3 inspect
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8504	ImageEditor openOnClass:self andSelector:#defaultIcon3
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8505	Icon flushCachedIcons
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8506	"
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8507
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8508	<resource: #image>
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8509
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8510	^Icon
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8511	constantNamed:#'AbstractSettingsApplication::STCCompilerSettingsAppl class defaultIcon3'
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8512	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	8513	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	8514	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	8515	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	8516	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	8517	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	8518	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	8519	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	8520	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8521
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8522	!AbstractSettingsApplication::STCCompilerSettingsAppl class methodsFor:'interface specs'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8523
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8524	windowSpec
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8525	"This resource specification was automatically generated
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8526	by the UIPainter of ST/X."
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	"Do not manually edit this!! If it is corrupted,
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8529	the UIPainter may not be able to read the specification."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8530
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8531	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8532	UIPainter new openOnClass:AbstractSettingsApplication::STCCompilerSettingsAppl andSelector:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8533	AbstractSettingsApplication::STCCompilerSettingsAppl new openInterface:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8534	AbstractSettingsApplication::STCCompilerSettingsAppl open
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8535	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8536
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8537	<resource: #canvas>
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8538
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8539	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8540	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8541	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8542	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8543	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8544	label: 'STC Compiler Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8545	name: 'STC Compiler Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8546	min: (Point 10 10)
6866 ec908ed4b944 make command fm parents: 6860 diff changeset	8547	bounds: (Rectangle 0 0 600 478)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8548	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8549	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8550	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8551	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8552	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8553	name: 'VerticalPanel2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8554	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	8555	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8556	verticalLayout: top
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8557	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8558	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8559	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8560	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8561	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8562	(ViewSpec
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8563	name: 'SeparatingBox12'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	8564	extent: (Point 600 4)
a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	8565	)
a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	8566	(ViewSpec
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8567	name: 'STCCompilationBox11'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8568	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8569	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8570	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8571	(LabelSpec
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	8572	label: 'STC Compilation to Machine Code:'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8573	name: 'Label11'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8574	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	8575	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8576	adjust: right
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8577	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8578	(PopUpListSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8579	label: 'PopUp List'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8580	name: 'StcCompilation'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8581	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	8582	tabable: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8583	model: stcCompilationSelection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8584	enableChannel: canLoadBinaries
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8585	menu: stcCompilationList
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8586	useIndex: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8587	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8588	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8589
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8590	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8591	extent: (Point 600 29)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8592	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8593	(ViewSpec
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8594	name: 'STCCommandBox1'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8595	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8596	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8597	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8598	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8599	label: 'STC Command:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8600	name: 'Label1'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	8601	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	8602	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8603	adjust: right
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8604	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8605	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8606	name: 'EntryField1'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	8607	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	8608	enableChannel: canLoadBinaries
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8609	model: stc
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8610	acceptOnLeave: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8611	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8612	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8613	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8614	acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8615	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8616	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8617
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8618	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8619	extent: (Point 600 35)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8620	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8621	(ViewSpec
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8622	name: 'STCOptionsBox2'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8623	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8624	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8625	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8626	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8627	label: 'STC Options:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8628	name: 'Label2'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	8629	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	8630	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8631	adjust: right
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8632	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8633	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8634	name: 'EntryField2'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	8635	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	8636	enableChannel: canLoadBinaries
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8637	model: stcOptions
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8638	acceptOnLeave: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8639	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8640	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8641	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8642	acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8643	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8644	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8645
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8646	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8647	extent: (Point 600 35)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8648	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8649	(ViewSpec
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8650	name: 'CCCommandBox3'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8651	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8652	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8653	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8654	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8655	label: 'CC Command:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8656	name: 'Label3'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	8657	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	8658	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8659	adjust: right
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8660	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8661	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8662	name: 'EntryField3'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	8663	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	8664	enableChannel: canLoadBinaries
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8665	model: cc
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8666	acceptOnLeave: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8667	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8668	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8669	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8670	acceptOnPointerLeave: true
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	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8675	extent: (Point 600 35)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8676	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8677	(ViewSpec
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8678	name: 'CCOptionsBox4'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8679	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8680	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8681	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8682	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8683	label: 'CC Options:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8684	name: 'Label4'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	8685	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	8686	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8687	adjust: right
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8688	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8689	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8690	name: 'EntryField4'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	8691	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	8692	enableChannel: canLoadBinaries
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8693	model: ccOptions
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8694	acceptOnLeave: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8695	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8696	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8697	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8698	acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8699	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8700	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8701
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8702	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8703	extent: (Point 600 35)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8704	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8705	(ViewSpec
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8706	name: 'IncludeDirectoriesBox5'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8707	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8708	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8709	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8710	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8711	label: 'Include Directories:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8712	name: 'Label5'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	8713	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	8714	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8715	adjust: right
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8716	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8717	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8718	name: 'EntryField5'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	8719	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	8720	enableChannel: canLoadBinaries
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8721	model: stcIncludes
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8722	acceptOnLeave: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8723	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8724	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8725	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8726	acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8727	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8728	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8729
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8730	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8731	extent: (Point 600 35)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8732	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8733	(ViewSpec
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8734	name: 'STCDefinesBox6'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8735	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8736	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8737	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8738	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8739	label: 'Defines:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8740	name: 'Label6'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	8741	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	8742	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8743	adjust: right
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8744	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8745	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8746	name: 'EntryField6'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	8747	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	8748	enableChannel: canLoadBinaries
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8749	model: stcDefines
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8750	acceptOnLeave: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8751	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8752	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8753	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8754	acceptOnPointerLeave: true
4387 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	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8757
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8758	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8759	extent: (Point 600 34)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8760	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8761	(ViewSpec
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8762	name: 'LinkCommandBox7'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8763	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8764	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8765	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8766	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8767	label: 'Link Command:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8768	name: 'Label7'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	8769	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	8770	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8771	adjust: right
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8772	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8773	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8774	name: 'EntryField7'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	8775	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	8776	enableChannel: canLoadBinaries
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8777	model: linkCommand
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8778	acceptOnLeave: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8779	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8780	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8781	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8782	acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8783	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8784	)
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	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8787	extent: (Point 600 33)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8788	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8789	(ViewSpec
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8790	name: 'LinkArgumentsBox8'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8791	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8792	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8793	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8794	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8795	label: 'Link Arguments:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8796	name: 'Label8'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	8797	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	8798	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8799	adjust: right
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8800	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8801	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8802	name: 'EntryField8'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	8803	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	8804	enableChannel: canLoadBinaries
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8805	model: linkArgs
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8806	acceptOnLeave: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8807	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8808	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8809	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8810	acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8811	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8812	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8813
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8814	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8815	extent: (Point 600 32)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8816	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8817	(ViewSpec
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8818	name: 'LinkSharedArgumentsBox1'
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8819	component:
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8820	(SpecCollection
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8821	collection: (
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8822	(LabelSpec
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8823	label: 'Link Shared Arguments:'
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8824	name: 'Label12'
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8825	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	8826	translateLabel: true
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8827	adjust: right
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8828	)
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8829	(InputFieldSpec
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8830	name: 'EntryField11'
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8831	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	8832	enableChannel: canLoadBinaries
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8833	model: linkSharedArgs
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8834	acceptOnLeave: true
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8835	acceptOnReturn: true
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8836	acceptOnTab: true
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8837	acceptOnLostFocus: true
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8838	acceptOnPointerLeave: true
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8839	)
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8840	)
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8841
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8842	)
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8843	extent: (Point 600 31)
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8844	)
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8845	(ViewSpec
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8846	name: 'CLibrariesBox9'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8847	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8848	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8849	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8850	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8851	label: 'C-Libraries:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8852	name: 'Label9'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	8853	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	8854	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8855	adjust: right
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8856	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8857	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8858	name: 'EntryField9'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	8859	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	8860	enableChannel: canLoadBinaries
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8861	model: stcLibraries
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8862	acceptOnLeave: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8863	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8864	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8865	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8866	acceptOnPointerLeave: true
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	)
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	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8871	extent: (Point 600 31)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8872	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8873	(ViewSpec
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8874	name: 'STCLibraryPathBox10'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8875	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8876	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8877	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8878	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8879	label: 'STC Library Path:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8880	name: 'Label10'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	8881	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	8882	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8883	adjust: right
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8884	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8885	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8886	name: 'EntryField10'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	8887	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	8888	enableChannel: enableStcLibraryPath
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8889	model: stcLibraryPath
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8890	acceptOnLeave: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8891	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8892	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8893	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8894	acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8895	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8896	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8897
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8898	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8899	extent: (Point 600 30)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8900	)
6866 ec908ed4b944 make command fm parents: 6860 diff changeset	8901	(ViewSpec
ec908ed4b944 make command fm parents: 6860 diff changeset	8902	name: 'MakeCommandBox'
ec908ed4b944 make command fm parents: 6860 diff changeset	8903	component:
ec908ed4b944 make command fm parents: 6860 diff changeset	8904	(SpecCollection
ec908ed4b944 make command fm parents: 6860 diff changeset	8905	collection: (
ec908ed4b944 make command fm parents: 6860 diff changeset	8906	(LabelSpec
ec908ed4b944 make command fm parents: 6860 diff changeset	8907	label: 'Make Command:'
ec908ed4b944 make command fm parents: 6860 diff changeset	8908	name: 'Label13'
ec908ed4b944 make command fm parents: 6860 diff changeset	8909	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
ec908ed4b944 make command fm parents: 6860 diff changeset	8910	translateLabel: true
ec908ed4b944 make command fm parents: 6860 diff changeset	8911	adjust: right
ec908ed4b944 make command fm parents: 6860 diff changeset	8912	)
ec908ed4b944 make command fm parents: 6860 diff changeset	8913	(InputFieldSpec
ec908ed4b944 make command fm parents: 6860 diff changeset	8914	name: 'EntryField12'
ec908ed4b944 make command fm parents: 6860 diff changeset	8915	layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
6867 35d36dde8831 * empty log message * fm parents: 6866 diff changeset	8916	model: makeCommand
6866 ec908ed4b944 make command fm parents: 6860 diff changeset	8917	acceptOnLeave: true
ec908ed4b944 make command fm parents: 6860 diff changeset	8918	acceptOnReturn: true
ec908ed4b944 make command fm parents: 6860 diff changeset	8919	acceptOnTab: true
ec908ed4b944 make command fm parents: 6860 diff changeset	8920	acceptOnLostFocus: true
ec908ed4b944 make command fm parents: 6860 diff changeset	8921	acceptOnPointerLeave: true
ec908ed4b944 make command fm parents: 6860 diff changeset	8922	)
ec908ed4b944 make command fm parents: 6860 diff changeset	8923	)
ec908ed4b944 make command fm parents: 6860 diff changeset	8924
ec908ed4b944 make command fm parents: 6860 diff changeset	8925	)
ec908ed4b944 make command fm parents: 6860 diff changeset	8926	extent: (Point 600 29)
ec908ed4b944 make command fm parents: 6860 diff changeset	8927	)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8928	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8929
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8930	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8931	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8932	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8933
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8934	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8935	)
6866 ec908ed4b944 make command fm parents: 6860 diff changeset	8936
6867 35d36dde8831 * empty log message * fm parents: 6866 diff changeset	8937	"Modified: / 09-08-2006 / 19:31:38 / fm"
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8938	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8939
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8940	!AbstractSettingsApplication::STCCompilerSettingsAppl methodsFor:'actions'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8941
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8942	basicReadSettings
7071 72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	8943	\|t\|
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	8944
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8945	self canLoadBinaries
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8946	value:(ObjectFileLoader notNil and:[ObjectFileLoader canLoadObjectFiles]).
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8947
6536 aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	8948	self stcIncludes value:ParserFlags stcCompilationIncludes.
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	8949	self stcDefines value:ParserFlags stcCompilationDefines.
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	8950	self stcOptions value:ParserFlags stcCompilationOptions.
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	8951	self ccOptions value:ParserFlags ccCompilationOptions.
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	8952	self cc value:ParserFlags ccPath.
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	8953	self stc value:ParserFlags stcPath.
6866 ec908ed4b944 make command fm parents: 6860 diff changeset	8954	self makeCommand value:ParserFlags makeCommand.
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8955
7071 72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	8956	self linkCommand value:ParserFlags linkCommand.
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	8957	self linkArgs value:ParserFlags linkArgs.
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	8958	self linkSharedArgs value:ParserFlags linkSharedArgs.
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	8959
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	8960	(t := ParserFlags searchedLibraries) notNil ifTrue:[
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	8961	self stcLibraries value:(String fromStringCollection:t separatedBy:' ')
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	8962	].
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	8963	(t := ParserFlags libPath) notNil ifTrue:[
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	8964	self stcLibraryPath value:t
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8965	].
5278 67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	8966
67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	8967	self stcCompilationSelection value:(self class stcCompilationOptions
6536 aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	8968	indexOf:(ParserFlags stcCompilation)
5278 67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	8969	ifAbsent:1).
6866 ec908ed4b944 make command fm parents: 6860 diff changeset	8970
ec908ed4b944 make command fm parents: 6860 diff changeset	8971	"Modified: / 09-08-2006 / 18:49:38 / fm"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8972	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8973
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8974	basicSaveSettings
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8975
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8976	ParserFlags stcCompilation:(self class stcCompilationOptions at:self stcCompilationSelection value).
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8977	ParserFlags stcCompilationIncludes:self stcIncludes value.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8978	ParserFlags stcCompilationDefines:self stcDefines value.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8979	ParserFlags stcCompilationOptions:self stcOptions value.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8980	ParserFlags ccCompilationOptions:self ccOptions value.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8981	ParserFlags ccPath:self cc value.
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	8982	ParserFlags makeCommand:self makeCommand value.
6866 ec908ed4b944 make command fm parents: 6860 diff changeset	8983
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8984	self stc value ~= ParserFlags stcPath ifTrue:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8985	ParserFlags stcPath:self stc value
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8986	].
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8987	ParserFlags linkCommand:self linkCommand value.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8988	ParserFlags linkArgs:self linkArgs value.
7071 72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	8989	ParserFlags linkSharedArgs:self linkSharedArgs value.
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	8990	self stcLibraries value notNil ifTrue:[
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	8991	ParserFlags searchedLibraries:(self stcLibraries value asCollectionOfWords).
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	8992	].
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	8993	stcLibraryPath notNil ifTrue:[
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	8994	ParserFlags libPath:(self stcLibraryPath value).
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8995	].
6866 ec908ed4b944 make command fm parents: 6860 diff changeset	8996
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	8997	"Modified: / 09-08-2006 / 19:33:10 / fm"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8998	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8999
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	9000	helpFilename
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	9001	^ 'Launcher/compilerSettings.html'
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	9002	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	9003
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	9004	!AbstractSettingsApplication::STCCompilerSettingsAppl methodsFor:'aspects'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	9005
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9006	canLoadBinaries
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	9007
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	9008	canLoadBinaries isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	9009	canLoadBinaries := (ObjectFileLoader notNil and:[ObjectFileLoader canLoadObjectFiles]) asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	9010	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	9011	^ canLoadBinaries.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	9012	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	9013
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9014	cc
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9015
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9016	cc isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9017	cc := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	9018	cc onChangeSend:#updateModifiedChannel to:self.
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9019	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9020	^ cc.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9021	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9022
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9023	ccOptions
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	9024
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	9025	ccOptions isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	9026	ccOptions := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	9027	ccOptions onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	9028	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	9029	^ ccOptions.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	9030	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	9031
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9032	enableStcLibraryPath
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	9033
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	9034	^ (ObjectFileLoader libPath notNil and:[self canLoadBinaries])
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	9035	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	9036
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9037	linkArgs
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	9038
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	9039	linkArgs isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	9040	linkArgs := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	9041	linkArgs onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	9042	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	9043	^ linkArgs.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	9044	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	9045
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9046	linkCommand
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	9047
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	9048	linkCommand isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	9049	linkCommand := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	9050	linkCommand onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	9051	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	9052	^ linkCommand.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	9053	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	9054
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	9055	linkSharedArgs
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	9056
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	9057	linkSharedArgs isNil ifTrue:[
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	9058	linkSharedArgs := ValueHolder new.
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	9059	linkSharedArgs onChangeSend:#updateModifiedChannel to:self.
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	9060	].
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	9061	^ linkSharedArgs.
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	9062	!
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	9063
6866 ec908ed4b944 make command fm parents: 6860 diff changeset	9064	makeCommand
ec908ed4b944 make command fm parents: 6860 diff changeset	9065
ec908ed4b944 make command fm parents: 6860 diff changeset	9066	makeCommand isNil ifTrue:[
ec908ed4b944 make command fm parents: 6860 diff changeset	9067	makeCommand := ValueHolder new.
ec908ed4b944 make command fm parents: 6860 diff changeset	9068	makeCommand onChangeSend:#updateModifiedChannel to:self.
ec908ed4b944 make command fm parents: 6860 diff changeset	9069	].
ec908ed4b944 make command fm parents: 6860 diff changeset	9070	^ makeCommand.
ec908ed4b944 make command fm parents: 6860 diff changeset	9071
ec908ed4b944 make command fm parents: 6860 diff changeset	9072	"Created: / 09-08-2006 / 18:49:52 / fm"
ec908ed4b944 make command fm parents: 6860 diff changeset	9073	!
ec908ed4b944 make command fm parents: 6860 diff changeset	9074
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9075	stc
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9076
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9077	stc isNil ifTrue:[
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	9078	stc := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	9079	stc onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	9080	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	9081	^ stc.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	9082	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	9083
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9084	stcCompilationList
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	9085
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	9086	stcCompilationList isNil ifTrue:[
5278 67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	9087	stcCompilationList := (resources array:(self class stcCompilationStrings)) asList.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	9088	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	9089	^ stcCompilationList.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	9090	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	9091
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9092	stcCompilationSelection
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	9093
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	9094	stcCompilationSelection isNil ifTrue:[
6536 aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	9095	stcCompilationSelection := (self class stcCompilationOptions indexOf:(ParserFlags stcCompilation) ifAbsent:1) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	9096	stcCompilationSelection onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	9097	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	9098	^ stcCompilationSelection.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	9099	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	9100
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9101	stcDefines
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	9102
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	9103	stcDefines isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	9104	stcDefines := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	9105	stcDefines onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	9106	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	9107	^ stcDefines.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	9108	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	9109
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9110	stcIncludes
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	9111
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	9112	stcIncludes isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	9113	stcIncludes := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	9114	stcIncludes onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	9115	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	9116	^ stcIncludes.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	9117	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	9118
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9119	stcLibraries
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	9120
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	9121	stcLibraries isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	9122	stcLibraries := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	9123	stcLibraries onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	9124	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	9125	^ stcLibraries.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	9126	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	9127
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9128	stcLibraryPath
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	9129
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	9130	stcLibraryPath isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	9131	stcLibraryPath := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	9132	stcLibraryPath onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	9133	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	9134	^ stcLibraryPath.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	9135	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	9136
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9137	stcOptions
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	9138
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	9139	stcOptions isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	9140	stcOptions := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	9141	stcOptions onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	9142	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	9143	^ stcOptions.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	9144	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	9145
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	9146	!AbstractSettingsApplication::STCCompilerSettingsAppl methodsFor:'queries'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	9147
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9148	hasUnsavedChanges
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	9149	\| searchedLibs \|
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	9150
6536 aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	9151	((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	9152	((ObjectFileLoader notNil and:[ObjectFileLoader canLoadObjectFiles]) ~= self canLoadBinaries value ) ifTrue:[^ true].
6536 aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	9153	((ParserFlags stcCompilationIncludes) ~= self stcIncludes value) ifTrue:[^ true].
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	9154	((ParserFlags stcCompilationDefines) ~= self stcDefines value) ifTrue:[^ true].
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	9155	((ParserFlags stcCompilationOptions) ~= self stcOptions value) ifTrue:[^ true].
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	9156	((ParserFlags ccCompilationOptions) ~= self ccOptions value) ifTrue:[^ true].
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	9157	((ParserFlags ccPath) ~= self cc value) ifTrue:[^ true].
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	9158	((ParserFlags stcPath) ~= self stc value) ifTrue:[^ true].
6866 ec908ed4b944 make command fm parents: 6860 diff changeset	9159	((ParserFlags makeCommand) ~= self makeCommand value) ifTrue:[^ true].
6536 aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	9160	((ParserFlags linkCommand) ~= self linkCommand value) ifTrue:[^ true].
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	9161	((ParserFlags linkArgs) ~= self linkArgs value) ifTrue:[^ true].
7071 72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	9162	((ParserFlags linkSharedArgs) ~= self linkSharedArgs value) ifTrue:[^ true].
6536 aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	9163	(ParserFlags libPath ~= self stcLibraryPath value) ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	9164
7071 72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	9165	searchedLibs := ParserFlags searchedLibraries.
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	9166	searchedLibs notNil ifTrue:[
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	9167	(String fromStringCollection:searchedLibs separatedBy:' ') ~= self stcLibraries value ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	9168	].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	9169	^ false.
6866 ec908ed4b944 make command fm parents: 6860 diff changeset	9170
ec908ed4b944 make command fm parents: 6860 diff changeset	9171	"Modified: / 09-08-2006 / 18:50:36 / fm"
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	9172	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	9173
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9174	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl class methodsFor:'defaults'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9175
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9176	exampleText
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9177
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9178	^ 'methodSelector:methodArg
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9179	"method comment:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9180	some stupid code to show the current settings"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9181
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9182	\|index\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9183
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9184	"/ another comment ...
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9185	self at:index+1. "/ a message
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9186	self at:index put:methodArg. "/ a two arg message
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9187	self from:1 to:index put:methodArg. "/ a three arg message
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9188	methodArg ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9189	Transcript showCR:''hello''. "/ condition
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9190	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9191	methodArg ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9192	Transcript showCR:''hello''. "/ condition
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9193	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9194	Transcript showCR:''world''.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9195	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9196	[methodArg] whileTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9197	Transcript showCR:''hello''. "/ looping
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9198	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9199	[self aVeryLongConditionBlock and:[self toMakeBlockLonger]] whileTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9200	Transcript showCR:''hello''. "/ long blocks
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9201	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9202	methodArg do:[:element \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9203	Transcript showCR:''hello''. "/ looping
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9204	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9205	1 to:methodArg size do:[:index \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9206	Transcript showCR:''hello''. "/ looping
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9207	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9208	methodArg keysAndValuesDo:[:index \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9209	Transcript showCR:''hello''. "/ looping
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	Object errorSignal handle:[:ex \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9212	ex return
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9213	] do:[ "/ exception handling
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9214	self someAction "/ blocks
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	^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9217	'.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9218	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9219
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9220	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl class methodsFor:'image specs'!
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9221
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9222	defaultIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9223	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9224	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9225
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9226	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9227	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9228
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9229	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9230	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9231	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9232	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9233	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9234
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9235	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9236
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9237	^Icon
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	9238	constantNamed:#'AbstractSettingsApplication::SourceCodeFormatSettingsAppl class defaultIcon'
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	9239	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	9240	*****************************("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	9241	!!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	9242	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	9243	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9244
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9245	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl class methodsFor:'interface specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9246
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9247	windowSpec
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9248	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9249	by the UIPainter of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9250
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9251	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9252	the UIPainter may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9253
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9254	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9255	UIPainter new openOnClass:AbstractSettingsApplication::SourceCodeFormatSettingsAppl andSelector:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9256	AbstractSettingsApplication::SourceCodeFormatSettingsAppl new openInterface:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9257	AbstractSettingsApplication::SourceCodeFormatSettingsAppl open
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9258	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9259
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9260	<resource: #canvas>
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	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9263	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9264	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9265	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9266	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9267	label: 'Code Format Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9268	name: 'Code Format Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9269	min: (Point 10 10)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9270	bounds: (Rectangle 0 0 604 676)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9271	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9272	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9273	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9274	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9275	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9276	name: 'VerticalPanel3'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9277	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	9278	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9279	verticalLayout: topSpace
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9280	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9281	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9282	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9283	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9284	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9285	(VerticalPanelViewSpec
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9286	name: 'VerticalPanel1'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9287	horizontalLayout: fit
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9288	verticalLayout: bottom
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9289	horizontalSpace: 3
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9290	verticalSpace: 3
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9291	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9292	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9293	collection: (
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9294	(ViewSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9295	name: 'Box1'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9296	component:
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9297	(SpecCollection
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9298	collection: (
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9299	(CheckBoxSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9300	label: 'Space around Temporaries'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9301	name: 'CheckBox3'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9302	layout: (LayoutFrame 0 0 0 0 250 0 22 0)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9303	model: spaceAroundTemporaries
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9304	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9305	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9306	(CheckBoxSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9307	label: 'Blank line after local Var Declaration'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9308	name: 'CheckBox4'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9309	layout: (LayoutFrame 250 0 0 0 0 1 22 0)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9310	model: emptyLineAfterTemporaries
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9311	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9312	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9313	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9314
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9315	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9316	extent: (Point 604 22)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9317	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9318	(ViewSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9319	name: 'Box11'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9320	component:
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9321	(SpecCollection
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9322	collection: (
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9323	(CheckBoxSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9324	label: 'Space after ''^'''
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9325	name: 'CheckBox5'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9326	layout: (LayoutFrame 0 0 0 0 250 0 22 0)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9327	model: spaceAfterReturnToken
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9328	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9329	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9330	(CheckBoxSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9331	label: 'Space after '':'' in Keywords'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9332	name: 'CheckBox6'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9333	layout: (LayoutFrame 250 0 0 0 -5 1 22 0)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9334	model: spaceAfterKeywordSelector
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9335	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9336	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9337	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9338
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9339	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9340	extent: (Point 604 22)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9341	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9342	(ViewSpec
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9343	name: 'Box15'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9344	component:
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9345	(SpecCollection
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9346	collection: (
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9347	(CheckBoxSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9348	label: 'Space after ''['''
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9349	name: 'CheckBox9'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9350	layout: (LayoutFrame 0 0 0 0 250 0 22 0)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9351	model: spaceAfterBlockStart
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9352	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9353	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9354	(CheckBoxSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9355	label: 'Space before '']'''
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9356	name: 'CheckBox10'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9357	layout: (LayoutFrame 250 0 0 0 -5 1 22 0)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9358	model: spaceBeforeBlockEnd
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9359	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9360	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9361	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9362
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9363	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9364	extent: (Point 604 22)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9365	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9366	(ViewSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9367	name: 'Box12'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9368	component:
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9369	(SpecCollection
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9370	collection: (
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9371	(CheckBoxSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9372	label: 'Block Args on new Line'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9373	name: 'CheckBox7'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9374	layout: (LayoutFrame 250 0 0 0 -5 1 22 0)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9375	model: blockArgumentsOnNewLine
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9376	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9377	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9378	(CheckBoxSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9379	label: 'C-Style Blocks'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9380	name: 'CheckBox8'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9381	layout: (LayoutFrame 0 0 0 0 250 0 22 0)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9382	model: cStyleBlocks
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9383	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9384	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9385	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9386
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9387	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9388	extent: (Point 604 22)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9389	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9390	(ViewSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9391	name: 'Box13'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9392	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9393	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9394	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9395	(LabelSpec
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9396	label: 'Indent:'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9397	name: 'Label1'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9398	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	9399	translateLabel: true
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9400	adjust: right
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9401	)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9402	(InputFieldSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9403	name: 'EntryField1'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9404	layout: (LayoutFrame 253 0 0 0 300 0 22 0)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9405	model: tabIndent
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9406	type: number
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9407	acceptOnReturn: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9408	acceptOnTab: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9409	acceptOnLostFocus: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9410	acceptOnPointerLeave: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9411	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9412	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9413
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9414	)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9415	extent: (Point 604 30)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9416	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9417	(ViewSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9418	name: 'Box16'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9419	component:
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9420	(SpecCollection
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9421	collection: (
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9422	(LabelSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9423	label: 'Max Length for Single Line Blocks:'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9424	name: 'Label5'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9425	layout: (LayoutFrame 0 0 0 0 250 0 22 0)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9426	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9427	adjust: right
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9428	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9429	(InputFieldSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9430	name: 'EntryField4'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9431	layout: (LayoutFrame 253 0 0 0 300 0 22 0)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9432	model: maxLengthForSingleLineBlocks
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9433	type: number
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9434	acceptOnReturn: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9435	acceptOnTab: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9436	acceptOnLostFocus: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9437	acceptOnPointerLeave: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9438	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9439	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9440
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9441	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9442	extent: (Point 604 29)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9443	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9444	(HorizontalPanelViewSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9445	name: 'HorizontalPanel1'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9446	horizontalLayout: fitSpace
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9447	verticalLayout: bottom
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9448	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9449	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9450	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9451	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9452	collection: (
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9453	(ActionButtonSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9454	label: 'Reset to ST/X Default'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9455	name: 'Button1'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9456	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9457	model: resetToStxDefault
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9458	extent: (Point 297 22)
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9459	)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9460	(ActionButtonSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9461	label: 'Reset to RefactoryBrowser Default'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9462	name: 'Button2'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9463	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9464	model: resetToRBDefault
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9465	extent: (Point 298 22)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9466	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9467	)
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	)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9470	extent: (Point 604 30)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9471	)
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
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9474	)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9475	extent: (Point 604 180)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9476	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9477	(ViewSpec
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	9478	name: 'SpacingBox1'
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	9479	extent: (Point 604 10)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9480	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9481	(ViewSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9482	name: 'Box14'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9483	component:
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9484	(SpecCollection
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9485	collection: (
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9486	(LabelSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9487	label: 'Sample Output:'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9488	name: 'Label3'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9489	layout: (LayoutFrame 0 0 0 0 0 1 22 0)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9490	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9491	adjust: left
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9492	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9493	(TextEditorSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9494	name: 'TextEditor3'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9495	layout: (LayoutFrame 0 0 22 0 0 1 300 0)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9496	model: editorText
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9497	hasHorizontalScrollBar: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9498	hasVerticalScrollBar: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9499	isReadOnly: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9500	postBuildCallback: postBuildTextEditor:
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9501	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9502	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9503
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9504	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9505	extent: (Point 604 300)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9506	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9507	(ViewSpec
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	9508	name: 'SpacingBox2'
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	9509	extent: (Point 604 10)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9510	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9511	(CheckBoxSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9512	label: 'Auto Format'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9513	name: 'CheckBox2'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9514	model: autoFormat
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9515	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9516	extent: (Point 604 22)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9517	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9518	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9519
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9520	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9521	)
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
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9524	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9525	)
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
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9528	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'actions'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9529
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	9530	basicReadSettings
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	9531	reformatLocked := true.
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	9532
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	9533	self
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	9534	readAspects:
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	9535	#(
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	9536	tabIndent
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	9537	spaceAroundTemporaries
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	9538	emptyLineAfterTemporaries
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	9539	spaceAfterReturnToken
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	9540	spaceAfterKeywordSelector
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	9541	spaceAfterBlockStart
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	9542	spaceBeforeBlockEnd
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	9543	cStyleBlocks
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	9544	blockArgumentsOnNewLine
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	9545	maxLengthForSingleLineBlocks
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	9546	)
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	9547	from:RBFormatter.
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	9548
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	9549	self autoFormat value:currentUserPrefs autoFormatting.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	9550	self updateModifiedChannel.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	9551	reformatLocked := false.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	9552	self reformat.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	9553	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	9554
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9555	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9556
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9557	currentUserPrefs autoFormatting:self autoFormat value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9558	currentUserPrefs at:#'formatter.tabIndent' put:self tabIndent value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9559	currentUserPrefs at:#'formatter.spaceAroundTemporaries' put:self spaceAroundTemporaries value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9560	currentUserPrefs at:#'formatter.emptyLineAfterTemporaries' put:self emptyLineAfterTemporaries value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9561	currentUserPrefs at:#'formatter.spaceAfterReturnToken' put:self spaceAfterReturnToken value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9562	currentUserPrefs at:#'formatter.spaceAfterKeywordSelector' put:self spaceAfterKeywordSelector value.
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9563	currentUserPrefs at:#'formatter.spaceAfterBlockStart' put:self spaceAfterBlockStart value.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9564	currentUserPrefs at:#'formatter.spaceBeforeBlockEnd' put:self spaceBeforeBlockEnd value.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9565	currentUserPrefs at:#'formatter.cStyleBlocks' put:self cStyleBlocks value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9566	currentUserPrefs at:#'formatter.blockArgumentsOnNewLine' put:self blockArgumentsOnNewLine value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9567	currentUserPrefs at:#'formatter.maxLengthForSingleLineBlocks' put:self maxLengthForSingleLineBlocks value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9568	RBFormatter
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9569	tabIndent:self tabIndent value;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9570	spaceAroundTemporaries:self spaceAroundTemporaries value;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9571	emptyLineAfterTemporaries:self emptyLineAfterTemporaries value;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9572	spaceAfterReturnToken:self spaceAfterReturnToken value;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9573	spaceAfterKeywordSelector:self spaceAfterKeywordSelector value;
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9574	spaceAfterBlockStart:self spaceAfterBlockStart value;
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9575	spaceBeforeBlockEnd:self spaceBeforeBlockEnd value;
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9576	cStyleBlocks:self cStyleBlocks value;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9577	blockArgumentsOnNewLine:self blockArgumentsOnNewLine value;
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	9578	maxLengthForSingleLineBlocks:self maxLengthForSingleLineBlocks value asInteger.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9579	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9580
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	9581	helpFilename
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	9582	^ 'Launcher/sourceFormatSettings.html'
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9583	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9584
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9585	reformat
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9586
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9587	\|tree s_tabIndent s_spaceAroundTemporaries s_emptyLineAfterTemporaries
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9588	s_spaceAfterReturnToken s_spaceAfterKeywordSelector s_cStyleBlocks
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9589	s_maxLengthForSingleLineBlocks s_blockArgumentsOnNewLine
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9590	s_spaceAfterBlockStart s_spaceBeforeBlockEnd\|
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9591
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9592	reformatLocked ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9593	"/
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9594	"/ temporary change the RBFormatters settings ...
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	s_tabIndent := RBFormatter tabIndent.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9597	s_spaceAroundTemporaries := RBFormatter spaceAroundTemporaries.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9598	s_emptyLineAfterTemporaries := RBFormatter emptyLineAfterTemporaries.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9599	s_spaceAfterReturnToken := RBFormatter spaceAfterReturnToken.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9600	s_spaceAfterKeywordSelector := RBFormatter spaceAfterKeywordSelector.
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9601	s_spaceAfterBlockStart := RBFormatter spaceAfterBlockStart.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9602	s_spaceBeforeBlockEnd := RBFormatter spaceBeforeBlockEnd.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9603	s_cStyleBlocks := RBFormatter cStyleBlocks.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9604	s_blockArgumentsOnNewLine := RBFormatter blockArgumentsOnNewLine.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9605	s_maxLengthForSingleLineBlocks := RBFormatter maxLengthForSingleLineBlocks.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9606
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9607	RBFormatter
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9608	tabIndent:self tabIndent value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9609	spaceAroundTemporaries:self spaceAroundTemporaries value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9610	emptyLineAfterTemporaries:self emptyLineAfterTemporaries value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9611	spaceAfterReturnToken:self spaceAfterReturnToken value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9612	spaceAfterKeywordSelector:self spaceAfterKeywordSelector value;
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9613	spaceAfterBlockStart:self spaceAfterBlockStart value;
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9614	spaceBeforeBlockEnd:self spaceBeforeBlockEnd value;
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9615	cStyleBlocks:self cStyleBlocks value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9616	blockArgumentsOnNewLine:self blockArgumentsOnNewLine value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9617	maxLengthForSingleLineBlocks:self maxLengthForSingleLineBlocks value.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9618
5076 c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	9619	"/ tree := RBParser
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	9620	"/ parseMethod:self class exampleText
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	9621	"/ onError: [:aString :position \| nil].
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	9622	"/ tree do:[:node \|
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	9623	"/ (node ~~ tree and:[node parent isNil]) ifTrue:[
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	9624	"/ self error:'No parent for node'.
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	9625	"/ ]
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	9626	"/ ].
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	9627	"/ self editorText value:tree printString.
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	9628	self editorText value:(RBFormatter format:(self class exampleText)).
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9629
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9630	RBFormatter
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9631	tabIndent:s_tabIndent;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9632	spaceAroundTemporaries:s_spaceAroundTemporaries;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9633	emptyLineAfterTemporaries:s_emptyLineAfterTemporaries;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9634	spaceAfterReturnToken:s_spaceAfterReturnToken;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9635	spaceAfterKeywordSelector:s_spaceAfterKeywordSelector;
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9636	spaceAfterBlockStart:s_spaceAfterBlockStart;
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9637	spaceBeforeBlockEnd:s_spaceBeforeBlockEnd;
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9638	cStyleBlocks:s_cStyleBlocks;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9639	blockArgumentsOnNewLine:s_blockArgumentsOnNewLine;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9640	maxLengthForSingleLineBlocks:s_maxLengthForSingleLineBlocks.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9641	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9642	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9643
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9644	resetToRBDefault
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9645
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9646	reformatLocked := true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9647	self tabIndent value: 8.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9648	self spaceAfterReturnToken value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9649	self spaceAfterKeywordSelector value:true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9650	self spaceAroundTemporaries value:true.
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9651	self spaceAfterBlockStart value:true.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9652	self spaceBeforeBlockEnd value:true.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9653	self emptyLineAfterTemporaries value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9654	self cStyleBlocks value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9655	self blockArgumentsOnNewLine value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9656	self maxLengthForSingleLineBlocks value: 20.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9657	reformatLocked := false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9658	self reformat.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9659	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9660
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9661	resetToStxDefault
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9662
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9663	reformatLocked := true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9664	self tabIndent value: 4.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9665	self spaceAfterReturnToken value: true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9666	self spaceAfterKeywordSelector value: false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9667	self spaceAroundTemporaries value: false.
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9668	self spaceAfterBlockStart value:false.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9669	self spaceBeforeBlockEnd value:false.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9670	self emptyLineAfterTemporaries value: true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9671	self cStyleBlocks value: true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9672	self blockArgumentsOnNewLine value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9673	self maxLengthForSingleLineBlocks value: 20.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9674	reformatLocked := false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9675	self reformat.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9676	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9677
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9678	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'aspects'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9679
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9680	autoFormat
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9681
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9682	autoFormat isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9683	autoFormat := currentUserPrefs autoFormatting asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	9684	autoFormat onChangeSend:#updateModifiedChannel to:self
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9685	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9686	^ autoFormat.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9687	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9688
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9689	blockArgumentsOnNewLine
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9690
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9691	blockArgumentsOnNewLine isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9692	blockArgumentsOnNewLine := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9693	blockArgumentsOnNewLine addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9694	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9695	^ blockArgumentsOnNewLine.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9696	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9697
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9698	cStyleBlocks
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9699
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9700	cStyleBlocks isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9701	cStyleBlocks := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9702	cStyleBlocks addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9703	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9704	^ cStyleBlocks.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9705	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9706
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9707	editorText
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9708
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9709	editorText isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9710	editorText := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9711	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9712	^ editorText.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9713	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9714
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9715	emptyLineAfterTemporaries
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9716
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9717	emptyLineAfterTemporaries isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9718	emptyLineAfterTemporaries := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9719	emptyLineAfterTemporaries addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9720	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9721	^ emptyLineAfterTemporaries.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9722	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9723
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9724	maxLengthForSingleLineBlocks
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9725
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9726	maxLengthForSingleLineBlocks isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9727	maxLengthForSingleLineBlocks := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9728	maxLengthForSingleLineBlocks addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9729	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9730	^ maxLengthForSingleLineBlocks.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9731	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9732
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9733	spaceAfterBlockStart
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9734
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9735	spaceAfterBlockStart isNil ifTrue:[
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9736	spaceAfterBlockStart := true asValue.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9737	spaceAfterBlockStart addDependent:self.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9738	].
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9739	^ spaceAfterBlockStart.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9740	!
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9741
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9742	spaceAfterKeywordSelector
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9743
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9744	spaceAfterKeywordSelector isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9745	spaceAfterKeywordSelector := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9746	spaceAfterKeywordSelector addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9747	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9748	^ spaceAfterKeywordSelector.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9749	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9750
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9751	spaceAfterReturnToken
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9752
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9753	spaceAfterReturnToken isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9754	spaceAfterReturnToken := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9755	spaceAfterReturnToken addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9756	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9757	^ spaceAfterReturnToken.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9758	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9759
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9760	spaceAroundTemporaries
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9761
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9762	spaceAroundTemporaries isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9763	spaceAroundTemporaries := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9764	spaceAroundTemporaries addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9765	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9766	^ spaceAroundTemporaries.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9767	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9768
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9769	spaceBeforeBlockEnd
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9770
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9771	spaceBeforeBlockEnd isNil ifTrue:[
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9772	spaceBeforeBlockEnd := true asValue.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9773	spaceBeforeBlockEnd addDependent:self.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9774	].
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9775	^ spaceBeforeBlockEnd.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9776	!
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9777
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9778	tabIndent
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9779
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9780	tabIndent isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9781	tabIndent := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9782	tabIndent addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9783	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9784	^ tabIndent.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9785	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9786
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9787	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'change & update'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9788
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	9789	update:something with:aParameter from:changedObject
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9790	(changedObject == self blockArgumentsOnNewLine or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9791	changedObject == self cStyleBlocks or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9792	changedObject == self emptyLineAfterTemporaries or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9793	changedObject == self maxLengthForSingleLineBlocks or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9794	changedObject == self spaceAfterKeywordSelector or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9795	changedObject == self spaceAfterReturnToken or:[
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9796	changedObject == self spaceAfterBlockStart or:[
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9797	changedObject == self spaceBeforeBlockEnd or:[
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9798	changedObject == self spaceAroundTemporaries or:[
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9799	changedObject == self tabIndent]]]]]]]]]) ifTrue:[
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	9800	self updateModifiedChannel.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9801	self reformat.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	9802	^ self
c72e35116b13 instable state penk parents: 5040 diff changeset	9803	].
c72e35116b13 instable state penk parents: 5040 diff changeset	9804	super
c72e35116b13 instable state penk parents: 5040 diff changeset	9805	update:something
c72e35116b13 instable state penk parents: 5040 diff changeset	9806	with:aParameter
c72e35116b13 instable state penk parents: 5040 diff changeset	9807	from:changedObject
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9808	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9809
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9810	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'initialization & release'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9811
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9812	initialize
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9813	super initialize.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9814	RBFormatter isNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9815	^ self warn:'Sorry, no RBFormatter class'
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9816	].
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9817	RBFormatter isLoaded ifFalse:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9818	WindowGroup activeGroup withWaitCursorDo:[RBFormatter autoload]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9819	].
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9820	reformatLocked := false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9821	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9822
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9823	postBuildTextEditor:aWidget
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9824
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9825	aWidget cursorMovementWhenUpdating:nil;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9826	scrollWhenUpdating:nil.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9827	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9828
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9829	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'queries'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9830
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9831	hasUnsavedChanges
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	9832	self autoFormat value ~= currentUserPrefs autoFormatting ? false ifTrue:[^ true].
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	9833
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	9834	(self
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	9835	hasChangedAspectIn:
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	9836	#(
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	9837	tabIndent
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	9838	spaceAroundTemporaries
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	9839	emptyLineAfterTemporaries
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	9840	spaceAfterReturnToken
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	9841	spaceAfterKeywordSelector
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	9842	spaceAfterBlockStart
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	9843	spaceBeforeBlockEnd
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	9844	cStyleBlocks
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	9845	blockArgumentsOnNewLine
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	9846	maxLengthForSingleLineBlocks
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	9847	)
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	9848	asComparedTo:RBFormatter) ifTrue:[^ true].
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	9849
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	9850	^ false
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9851	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9852
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9853	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9854
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9855	defaultIcon
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9856	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9857	by the ImageEditor of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9858
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9859	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9860	the ImageEditor may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9861
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9862	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9863	self defaultIcon inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9864	ImageEditor openOnClass:self andSelector:#defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9865	Icon flushCachedIcons
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9866	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9867
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9868	<resource: #image>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9869
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9870	^Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9871	constantNamed:#'AbstractSettingsApplication::SourceCodeManagementSettingsAppl class defaultIcon'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9872	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	9873	@@@@@@@@@@@A@PHB@0P@@@@@@@@@@@@@@@@@@@HEA \HA $JB0HD@@@@@@@@@@@@@@HLA04NC0HD@@L@@ P@@@@@@@@@@@@ED@ NDP@@@@@@@@@D@@@@@@@@
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	9874	@@@BA \FAPP@@@@@@@@@@@P@@@@@@@@@AQ@RC0@@@@@@@@@@@@@@@@@@@@@@@@TGA!!DD@@@@@@@@@@@@@@@@@@@D@PDIA08OA@@@@@@@@@@@@@@@@@@@AP S
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	9875	A0XIBPXGC0P@@@@@@@@@@@@@@@@ECAPLBPXOAP@@@@@@EQX@@@@@@@@@@@TIE@XOAP@@@@@@EQ\XE @@@@@@@@@@AP$OAP@@@@@@FQ\ZE!! V@@@@@@@@@@@E
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	9876	F0@@@@@@EQ\ZF!!(VFAX@@@@@@@@@@@@@@@@ZEQ\VE!!(ZF!!XWF @@@@@@@@@@@@@@@@@@@A\ZE!!(@@@@@@@@@@@@@@@@@@@@@@@@XE!!XZ@@@@@@@@@@@@@@@@
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	9877	@@@@@@@@EQ(V@@@@@@@@@@@@@@@@@@@@@@@@EQ\VE @@@@@@@@@@@@@@@@@@@@@@EQ VE @@@@@@@@@@@@@@F @@@@@WEQ VE!!(@@@@@@@@@@@@@@@@@E!!\W
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	9878	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	9879	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9880
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9881	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl class methodsFor:'interface specs'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9882
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9883	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9884	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9885	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9886
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9887	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9888	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9889
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9890	"
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9891	UIPainter new openOnClass:AbstractSettingsApplication::SourceCodeManagementSettingsAppl andSelector:#windowSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9892	AbstractSettingsApplication::SourceCodeManagementSettingsAppl new openInterface:#windowSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9893	AbstractSettingsApplication::SourceCodeManagementSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9894	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9895
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9896	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9897
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9898	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9899	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9900	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9901	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9902	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9903	label: 'Source Code Manager Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9904	name: 'Source Code Manager Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9905	min: (Point 10 10)
6103 d8147b126f9d * empty log message * penk parents: 6086 diff changeset	9906	bounds: (Rectangle 0 0 659 551)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9907	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9908	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9909	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9910	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9911	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9912	name: 'VerticalPanel2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9913	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	9914	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9915	verticalLayout: topSpace
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9916	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9917	verticalSpace: 20
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9918	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9919	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9920	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9921	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9922	name: 'VerticalPanel3'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9923	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9924	verticalLayout: top
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9925	horizontalSpace: 3
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9926	verticalSpace: 4
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9927	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9928	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9929	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9930	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9931	name: 'Box3'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9932	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9933	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9934	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9935	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9936	label: 'Sourcecode Management'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9937	name: 'SourcecodeManagementCheckBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9938	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	9939	model: useManager
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9940	translateLabel: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9941	)
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	9942	(ComboListSpec
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	9943	name: 'ComboList1'
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	9944	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	9945	visibilityChannel: moreThanOneManagerTypesAvailable
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	9946	enableChannel: useManager
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	9947	model: selectedManagerTypeIndexHolder
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	9948	comboList: availableManagerTypeNames
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	9949	useIndex: true
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	9950	)
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9951	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9952
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9953	)
6103 d8147b126f9d * empty log message * penk parents: 6086 diff changeset	9954	extent: (Point 659 30)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9955	)
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	9956	(ViewSpec
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	9957	name: 'ManagerSetupBoxx'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9958	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9959	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9960	collection: (
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	9961	(FramedBoxSpec
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9962	label: 'Store-DB Repository Setup'
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9963	name: 'StoreSetupBox'
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	9964	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	9965	visibilityChannel: managerIsStoreSourceCodeManager
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9966	labelPosition: topLeft
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9967	translateLabel: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9968	component:
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9969	(SpecCollection
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9970	collection: (
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9971	(ViewSpec
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9972	name: 'HostBox'
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9973	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	9974	component:
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9975	(SpecCollection
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9976	collection: (
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9977	(LabelSpec
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9978	label: 'DB or DB@Host:'
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9979	name: 'StoreHostLabel'
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9980	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	9981	level: 0
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9982	translateLabel: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9983	adjust: right
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9984	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9985	(ComboBoxSpec
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9986	name: 'StoreHostComboBox'
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	9987	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	9988	enableChannel: useManager
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9989	tabable: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9990	model: storeHostnameHolder
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9991	immediateAccept: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9992	acceptOnLeave: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9993	acceptOnReturn: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9994	acceptOnTab: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9995	acceptOnLostFocus: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9996	acceptChannel: acceptChannel
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9997	acceptOnPointerLeave: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9998	comboList: storeHostPrototypeList
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	9999	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10000	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10001
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10002	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10003	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10004	(ViewSpec
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10005	name: 'UserBox'
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10006	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	10007	component:
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10008	(SpecCollection
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10009	collection: (
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10010	(LabelSpec
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10011	label: 'Username:'
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10012	name: 'StoreUserLabel'
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10013	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	10014	level: 0
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10015	translateLabel: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10016	adjust: right
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10017	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10018	(InputFieldSpec
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10019	name: 'StoreUserEntryField'
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10020	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	10021	enableChannel: useManager
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10022	tabable: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10023	model: storeUsernameHolder
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10024	acceptChannel: acceptChannel
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10025	acceptOnPointerLeave: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10026	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10027	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10028
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10029	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10030	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10031	(ViewSpec
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10032	name: 'PasswordBox'
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10033	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	10034	component:
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10035	(SpecCollection
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10036	collection: (
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10037	(LabelSpec
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10038	label: 'Password:'
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10039	name: 'Label7'
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10040	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	10041	level: 0
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10042	translateLabel: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10043	adjust: right
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10044	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10045	(InputFieldSpec
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10046	name: 'PasswordEntryField'
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10047	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	10048	enableChannel: useManager
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10049	tabable: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10050	model: storePasswordHolder
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10051	type: password
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10052	acceptChannel: acceptChannel
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10053	acceptOnPointerLeave: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10054	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10055	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10056
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10057	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10058	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10059	(HorizontalPanelViewSpec
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10060	name: 'HorizontalPanel4'
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10061	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	10062	horizontalLayout: fitSpace
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10063	verticalLayout: center
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10064	horizontalSpace: 3
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10065	verticalSpace: 3
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10066	component:
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10067	(SpecCollection
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10068	collection: (
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10069	(ActionButtonSpec
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10070	label: 'Try to Connect'
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10071	name: 'Button1'
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10072	translateLabel: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10073	tabable: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10074	model: storeConnect
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10075	enableChannel: storeConnectEnabled
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10076	extent: (Point 124 22)
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10077	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10078	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10079
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10080	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10081	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10082	(LabelSpec
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10083	label: 'DB per Module:'
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10084	name: 'Label4'
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10085	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	10086	translateLabel: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10087	adjust: right
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10088	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10089	(SequenceViewSpec
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10090	name: 'List2'
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10091	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	10092	enableChannel: useManager
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10093	tabable: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10094	model: selectedPerStoreModuleRoot
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10095	hasHorizontalScrollBar: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10096	hasVerticalScrollBar: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10097	miniScrollerHorizontal: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10098	useIndex: false
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10099	sequenceList: listOfModules
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10100	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10101	(LabelSpec
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10102	label: 'Module:'
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10103	name: 'perModuleModuleLabel'
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10104	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	10105	translateLabel: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10106	adjust: right
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10107	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10108	(InputFieldSpec
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10109	name: 'perModuleModuleEntryField'
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10110	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	10111	enableChannel: useManager
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10112	tabable: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10113	model: perStoreModuleRoot
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10114	acceptChannel: acceptChannel
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10115	acceptOnPointerLeave: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10116	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10117	(LabelSpec
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10118	label: 'DB:'
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10119	name: 'perModuleDBLabel'
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10120	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	10121	translateLabel: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10122	adjust: right
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10123	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10124	(ComboBoxSpec
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10125	name: 'perModuleModuleHostComboBox2'
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10126	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	10127	enableChannel: useManager
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10128	tabable: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10129	model: perStoreModuleHostnameHolder
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10130	immediateAccept: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10131	acceptOnLeave: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10132	acceptOnReturn: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10133	acceptOnTab: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10134	acceptOnLostFocus: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10135	acceptChannel: acceptChannel
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10136	acceptOnPointerLeave: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10137	comboList: storeHostPrototypeList
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10138	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10139	(LabelSpec
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10140	label: 'User / Password:'
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10141	name: 'perModuleUserPasswordLabel'
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10142	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	10143	translateLabel: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10144	adjust: right
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10145	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10146	(InputFieldSpec
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10147	name: 'perModuleUserEntryField'
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10148	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	10149	enableChannel: useManager
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10150	tabable: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10151	model: perStoreModuleUsernameHolder
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10152	acceptChannel: acceptChannel
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10153	acceptOnPointerLeave: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10154	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10155	(InputFieldSpec
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10156	name: 'perModulePasswordEntryField'
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10157	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	10158	enableChannel: useManager
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10159	tabable: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10160	model: perStoreModulePasswordHolder
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10161	type: password
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10162	acceptChannel: acceptChannel
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10163	acceptOnPointerLeave: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10164	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10165	(HorizontalPanelViewSpec
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10166	name: 'HorizontalPanel5'
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10167	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	10168	horizontalLayout: fit
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10169	verticalLayout: center
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10170	horizontalSpace: 3
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10171	verticalSpace: 3
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10172	component:
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10173	(SpecCollection
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10174	collection: (
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10175	(ActionButtonSpec
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10176	label: 'Add/Apply'
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10177	name: 'Button2'
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10178	translateLabel: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10179	tabable: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10180	model: addPerStoreModuleDB
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10181	enableChannel: useManager
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10182	extent: (Point 97 22)
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10183	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10184	(ActionButtonSpec
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10185	label: 'Remove'
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10186	name: 'Button3'
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10187	translateLabel: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10188	tabable: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10189	model: removePerStoreModuleDB
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10190	enableChannel: removeEnabled
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10191	extent: (Point 98 22)
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10192	)
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10193	)
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10194
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10195	)
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10196	)
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10197	(HorizontalPanelViewSpec
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10198	name: 'HorizontalPanel6'
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10199	layout: (LayoutFrame 10 0.65 -25 1 0 1 6 1)
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10200	horizontalLayout: fit
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10201	verticalLayout: center
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10202	horizontalSpace: 3
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10203	verticalSpace: 3
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10204	component:
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10205	(SpecCollection
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10206	collection: (
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10207	(ActionButtonSpec
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10208	label: 'Try to Connect'
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10209	name: 'ConnectPerStoreModuleButton'
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10210	translateLabel: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10211	tabable: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10212	model: connectPerStoreModuleDB
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10213	enableChannel: storeConnectInModuleEnabled
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10214	extent: (Point 103 22)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10215	)
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10216	(ActionButtonSpec
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10217	label: 'Browse'
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10218	name: 'BrowsePerStoreModuleButton'
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10219	translateLabel: true
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10220	tabable: true
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10221	model: browsePerStoreModuleDB
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10222	enableChannel: storeConnectInModuleEnabled
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10223	extent: (Point 104 22)
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10224	)
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10225	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10226
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10227	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10228	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10229	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10230
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10231	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10232	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10233	(FramedBoxSpec
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10234	label: 'CVS Sourcecode Manager Setup'
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10235	name: 'CVSSetupBox'
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10236	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	10237	visibilityChannel: managerIsCVSSourceCodeManager
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10238	labelPosition: topLeft
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10239	translateLabel: true
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10240	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10241	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10242	collection: (
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10243	(ViewSpec
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10244	name: 'Box1'
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10245	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	10246	component:
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10247	(SpecCollection
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10248	collection: (
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10249	(LabelSpec
7331 b8986149fdfd use CVSExecutable instead of CVSBindir Claus Gittinger <cg@exept.de> parents: 7326 diff changeset	10250	label: 'CVS Command or Path:'
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10251	name: 'Label1'
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10252	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	10253	level: 0
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10254	translateLabel: true
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10255	adjust: right
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10256	)
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10257	(InputFieldSpec
7331 b8986149fdfd use CVSExecutable instead of CVSBindir Claus Gittinger <cg@exept.de> parents: 7326 diff changeset	10258	name: 'CVSExecutableField'
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10259	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	10260	enableChannel: useManager
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10261	tabable: true
7331 b8986149fdfd use CVSExecutable instead of CVSBindir Claus Gittinger <cg@exept.de> parents: 7326 diff changeset	10262	model: cvsExecutableHolder
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10263	acceptChannel: acceptChannel
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10264	acceptOnPointerLeave: true
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10265	)
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10266	)
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10267
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10268	)
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10269	)
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10270	(ViewSpec
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10271	name: 'Box7'
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10272	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	10273	component:
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10274	(SpecCollection
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10275	collection: (
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10276	(LabelSpec
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10277	label: 'CVSRoot default:'
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10278	name: 'defaultCvsRootLabel'
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10279	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	10280	level: 0
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10281	translateLabel: true
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10282	adjust: right
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10283	)
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10284	(ComboBoxSpec
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10285	name: 'cvsRootComboBox'
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10286	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	10287	enableChannel: useManager
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10288	tabable: true
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10289	model: cvsRootHolder
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10290	immediateAccept: true
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10291	acceptOnLeave: true
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10292	acceptOnReturn: true
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10293	acceptOnTab: true
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10294	acceptOnLostFocus: true
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10295	acceptChannel: acceptChannel
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10296	acceptOnPointerLeave: true
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10297	comboList: cvsRootPrototypeList
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10298	)
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10299	)
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10300
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10301	)
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10302	)
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10303	(HorizontalPanelViewSpec
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10304	name: 'HorizontalPanel3'
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10305	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	10306	horizontalLayout: fitSpace
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10307	verticalLayout: center
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10308	horizontalSpace: 3
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10309	verticalSpace: 3
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10310	component:
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10311	(SpecCollection
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10312	collection: (
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10313	(ViewSpec
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10314	name: 'Box8'
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10315	extent: (Point 103 10)
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10316	)
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10317	(ViewSpec
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10318	name: 'Box9'
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10319	extent: (Point 103 10)
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10320	)
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10321	(ViewSpec
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10322	name: 'Box10'
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10323	extent: (Point 103 10)
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10324	)
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10325	(ActionButtonSpec
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10326	label: 'CVS-Login'
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10327	name: 'loginButton1'
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10328	translateLabel: true
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10329	tabable: true
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10330	model: loginCVSRoot
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10331	enableChannel: cvsLoginEnabled
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10332	extent: (Point 103 22)
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10333	)
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10334	)
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10335
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10336	)
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10337	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10338	(LabelSpec
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10339	label: 'CVSRoot per Module:'
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10340	name: 'knownModulesLabel'
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10341	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	10342	translateLabel: true
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10343	adjust: right
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10344	)
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10345	(SequenceViewSpec
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10346	name: 'List1'
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10347	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	10348	enableChannel: useManager
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10349	tabable: true
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10350	model: selectedPerModuleRoot
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10351	hasHorizontalScrollBar: true
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10352	hasVerticalScrollBar: true
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10353	miniScrollerHorizontal: true
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10354	useIndex: false
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10355	sequenceList: listOfModules
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10356	)
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10357	(LabelSpec
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10358	label: 'Module:'
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10359	name: 'moduleLabel'
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10360	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	10361	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10362	adjust: right
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10363	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10364	(InputFieldSpec
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10365	name: 'perModuleRootModuleEntryField'
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10366	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	10367	enableChannel: useManager
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10368	tabable: true
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10369	model: perModuleRootModule
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10370	acceptChannel: acceptChannel
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10371	acceptOnPointerLeave: true
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10372	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10373	(LabelSpec
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10374	label: 'CVSRoot:'
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10375	name: 'cvsRootLabel'
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10376	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	10377	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10378	adjust: right
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10379	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10380	(ComboBoxSpec
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10381	name: 'perModuleRootComboBox'
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10382	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	10383	enableChannel: useManager
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10384	tabable: true
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10385	model: perModuleRoot
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10386	immediateAccept: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10387	acceptOnLeave: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10388	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10389	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10390	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10391	acceptChannel: acceptChannel
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10392	acceptOnPointerLeave: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10393	comboList: cvsRootPrototypeList
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10394	)
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10395	(HorizontalPanelViewSpec
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10396	name: 'HorizontalPanel2'
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10397	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	10398	horizontalLayout: fitSpace
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10399	verticalLayout: center
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10400	horizontalSpace: 3
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10401	verticalSpace: 3
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10402	component:
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10403	(SpecCollection
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10404	collection: (
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10405	(ActionButtonSpec
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10406	label: 'Add/Apply'
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10407	name: 'addButton'
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10408	translateLabel: true
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10409	tabable: true
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10410	model: addPerModuleRoot
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10411	enableChannel: useManager
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10412	extent: (Point 98 22)
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10413	)
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10414	(ActionButtonSpec
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10415	label: 'Remove'
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10416	name: 'removeButton'
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10417	translateLabel: true
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10418	tabable: true
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10419	model: removePerModuleRoot
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10420	enableChannel: removeEnabled
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10421	extent: (Point 98 22)
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10422	)
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10423	(ViewSpec
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10424	name: 'Box11'
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10425	extent: (Point 98 10)
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10426	)
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10427	(ActionButtonSpec
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10428	label: 'CVS-Login'
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10429	name: 'loginButton2'
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10430	translateLabel: true
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10431	tabable: true
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10432	model: loginPerModuleRoot
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10433	enableChannel: cvsLoginInModuleEnabled
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10434	extent: (Point 98 22)
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10435	)
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10436	)
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10437
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10438	)
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10439	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10440	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10441
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10442	)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10443	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10444	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10445
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10446	)
6103 d8147b126f9d * empty log message * penk parents: 6086 diff changeset	10447	extent: (Point 659 327)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10448	)
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10449	(FramedBoxSpec
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10450	label: 'Source Cache'
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10451	name: 'FramedBox1'
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10452	labelPosition: topLeft
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10453	translateLabel: true
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10454	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10455	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10456	collection: (
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10457	(ViewSpec
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10458	name: 'SourceCacheDirBox'
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10459	layout: (LayoutFrame 0 0 0 0 0 1 30 0)
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10460	component:
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10461	(SpecCollection
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10462	collection: (
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10463	(LabelSpec
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10464	label: 'Source Cache Dir:'
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10465	name: 'SourceCacheDirLabel'
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10466	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	10467	translateLabel: true
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10468	adjust: right
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10469	)
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10470	(InputFieldSpec
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10471	name: 'SourceCacheDirEntryField'
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10472	layout: (LayoutFrame 64 0.25 0 0 0 1 22 0)
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10473	enableChannel: useManager
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10474	model: sourceCacheDir
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10475	immediateAccept: false
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10476	acceptOnReturn: true
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10477	acceptOnTab: true
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10478	acceptOnLostFocus: true
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10479	acceptOnPointerLeave: true
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10480	)
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10481	)
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10482
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10483	)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10484	)
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10485	(HorizontalPanelViewSpec
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10486	name: 'CacheActionsHorizontalPanel'
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10487	layout: (LayoutFrame 44 0.25 34 0 0 1 72 0)
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10488	horizontalLayout: fitSpace
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10489	verticalLayout: center
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10490	horizontalSpace: 3
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10491	verticalSpace: 3
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10492	component:
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10493	(SpecCollection
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10494	collection: (
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10495	(ActionButtonSpec
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10496	label: 'Flush Cache now'
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10497	name: 'FlushCacheNowButton'
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10498	translateLabel: true
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10499	model: flushSourceCache
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10500	enableChannel: useManager
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10501	extent: (Point 209 22)
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10502	)
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10503	(ActionButtonSpec
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10504	label: 'Condense Cache now'
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10505	name: 'CondenseCacheNowButton'
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10506	translateLabel: true
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10507	model: condenseSourceCache
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10508	enableChannel: useManager
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10509	extent: (Point 210 22)
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10510	)
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10511	)
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10512
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10513	)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10514	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10515	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10516
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10517	)
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10518	extent: (Point 659 95)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10519	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10520	(ViewSpec
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10521	name: 'UseLocalSourceBox'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10522	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10523	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10524	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10525	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10526	label: 'If Present, Use Local Source (Suppress Checkout)'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10527	name: 'CheckBox4'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10528	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	10529	enableChannel: useManager
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10530	model: localSourceFirst
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10531	translateLabel: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10532	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10533	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10534
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10535	)
6103 d8147b126f9d * empty log message * penk parents: 6086 diff changeset	10536	extent: (Point 659 25)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10537	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10538	(ViewSpec
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10539	name: 'CheckForHaltSendsBox'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10540	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10541	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10542	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10543	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10544	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	10545	name: 'CheckBox5'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10546	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	10547	enableChannel: useManager
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10548	model: checkClassesWhenCheckingIn
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10549	translateLabel: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10550	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10551	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10552
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10553	)
6103 d8147b126f9d * empty log message * penk parents: 6086 diff changeset	10554	extent: (Point 659 25)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10555	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10556	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10557
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10558	)
6103 d8147b126f9d * empty log message * penk parents: 6086 diff changeset	10559	extent: (Point 659 768)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10560	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10561	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10562
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10563	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10564	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10565	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10566
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10567	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10568	)
7331 b8986149fdfd use CVSExecutable instead of CVSBindir Claus Gittinger <cg@exept.de> parents: 7326 diff changeset	10569
b8986149fdfd use CVSExecutable instead of CVSBindir Claus Gittinger <cg@exept.de> parents: 7326 diff changeset	10570	"Modified: / 21-09-2006 / 16:53:22 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10571	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10572
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10573	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'accessing'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10574
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10575	manager
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10576
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10577	^ Smalltalk at:#SourceCodeManager
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10578	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10579
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10580	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'actions'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10581
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10582	basicReadSettings
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10583	self initialize.
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10584
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10585	self hasManager ifTrue:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10586	self useManager value:(manager := Smalltalk at:#SourceCodeManager) notNil.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10587	self localSourceFirst value:Class tryLocalSourceFirst.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10588	self sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName).
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10589
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10590	manager notNil ifTrue:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10591	manager forgetDisabledModules.
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10592	manager isCVS ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10593	repository := manager repositoryName.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10594	repositoryHolder := (repository ? '') asValue
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10595	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10596	manager isStore ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10597	self storeHostnameHolder value: (manager hostAndDBName).
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10598	self storeUsernameHolder value: (manager userName).
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10599	self storePasswordHolder value: (manager password).
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10600	].
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10601	].
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10602	] ifFalse:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10603	self useManager value:false.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10604	self localSourceFirst value:false.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10605	].
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10606
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10607	self availableManagers do:[:eachManager \|
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10608	\|infoPerModule\|
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10609
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10610	infoPerModule := eachManager repositoryInfoPerModule.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10611	infoPerModule keysAndValuesDo:[:module :info \|
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10612	rootsPerModule at:module put:(Array with:eachManager with:info).
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10613	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10614	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10615
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	10616	self updateSelectedManager.
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	10617
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10618	self checkClassesWhenCheckingIn value:(currentUserPrefs at:#checkClassesWhenCheckingIn ifAbsent:true).
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10619	self cvsRootHolder value:CVSSourceCodeManager repositoryName ? '/cvs/stx'.
7331 b8986149fdfd use CVSExecutable instead of CVSBindir Claus Gittinger <cg@exept.de> parents: 7326 diff changeset	10620	self cvsExecutableHolder value:CVSSourceCodeManager cvsExecutable.
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10621
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10622	rootsPerModule notNil ifTrue:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10623	self listOfModules removeAll.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10624	listOfModules addAll:rootsPerModule keys asList.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10625	].
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10626	"/ self selectedPerModuleRootChanged.
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10627
7331 b8986149fdfd use CVSExecutable instead of CVSBindir Claus Gittinger <cg@exept.de> parents: 7326 diff changeset	10628	"Modified: / 21-09-2006 / 16:52:47 / cg"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10629	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10630
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10631	basicSaveSettings
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10632	\|modules\|
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	currentUserPrefs at:#checkClassesWhenCheckingIn put:self checkClassesWhenCheckingIn value.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10635	Class tryLocalSourceFirst:self localSourceFirst value.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10636
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10637	(self hasManager and:[self useManager value]) ifTrue:[
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10638	manager ~~ self selectedManager ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10639	manager := nil.
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
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10642	manager isNil ifTrue:[
6997 3b32b9cdef10 care for single avail. manager Claus Gittinger <cg@exept.de> parents: 6994 diff changeset	10643	manager := self selectedManager.
3b32b9cdef10 care for single avail. manager Claus Gittinger <cg@exept.de> parents: 6994 diff changeset	10644	manager isNil ifTrue:[
3b32b9cdef10 care for single avail. manager Claus Gittinger <cg@exept.de> parents: 6994 diff changeset	10645	manager := self availableManagers first.
3b32b9cdef10 care for single avail. manager Claus Gittinger <cg@exept.de> parents: 6994 diff changeset	10646	].
3b32b9cdef10 care for single avail. manager Claus Gittinger <cg@exept.de> parents: 6994 diff changeset	10647	Smalltalk at:#SourceCodeManager put:manager.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10648	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10649	manager notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10650	\| nm fn\|
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10651
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10652	nm := self sourceCacheDir value.
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10653	nm notEmptyOrNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10654	(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	10655	(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	10656	fn makeDirectory;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10657	makeReadableForAll;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10658	makeWritableForAll;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10659	makeExecutableForAll.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10660	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10661	].
5318 02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	10662	(fn isDirectory
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10663	and:[fn isReadable
5318 02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	10664	and:[fn isWritable]]) ifTrue:[
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10665	AbstractSourceCodeManager cacheDirectoryName:nm.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10666	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10667	self warn:'Invalid sourceCache directory.'
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10668	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10669	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10670	].
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10671
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10672	self availableManagers do:[:eachManager \|
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10673	\|infoPerModule\|
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10674	modules := rootsPerModule select:[:entry \| entry first == eachManager].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10675	infoPerModule := Dictionary new.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10676	modules keysAndValuesDo:[:module :entry \|
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10677	entry first == eachManager ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10678	infoPerModule at:module put:(entry second).
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10679	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10680	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10681	eachManager repositoryInfoPerModule:infoPerModule.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10682	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10683
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10684	manager isCVS ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10685	self basicSaveCVSSettings.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10686	] ifFalse:[ manager isStore ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10687	self basicSaveStoreSettings.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10688	] ifFalse:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10689	self error.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10690	]].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10691
4650 c358bcfef403 source code management have no unsaved changes after enable anymore penk parents: 4635 diff changeset	10692	self sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName).
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10693
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10694	DebugView newDebugger. "/ ???
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10695	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10696	Smalltalk at:#SourceCodeManager put:nil
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10697	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10698
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10699	self acceptChannel value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10700	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10701
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10702	condenseSourceCache
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10703
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10704	self withWaitCursorDo:[ AbstractSourceCodeManager condenseSourceCache ]
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10705	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10706
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10707	flushSourceCache
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10708
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10709	self withWaitCursorDo:[ AbstractSourceCodeManager flushSourceCache ]
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10710	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10711
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	10712	helpFilename
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	10713	^ 'Launcher/cvsSetup.html'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10714	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10715
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10716	removePerModuleRoot
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10717
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10718	\|module\|
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10719
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10720	acceptChannel value:true.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10721	module := self perModuleRootModule value.
5174 bfd29db1a419 source code management per module get apply for changes Michael Beyl <mb@exept.de> parents: 5172 diff changeset	10722	self listOfModules remove:module ifAbsent:nil.
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10723	rootsPerModule removeKey:module ifAbsent:nil.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10724	self perModuleRootModule value:nil.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10725	self perModuleRoot value:nil.
5174 bfd29db1a419 source code management per module get apply for changes Michael Beyl <mb@exept.de> parents: 5172 diff changeset	10726	self updateModifiedChannel.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10727	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10728
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10729	setupSourceCodeManager
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10730
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10731	AbstractLauncherApplication::LauncherDialogs cvsConfigurationDialog.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10732	manager := (Smalltalk at:#SourceCodeManager).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10733	manager notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10734	repositoryHolder value: manager repositoryName.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10735	sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10736	].
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10737
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10738	"Modified: / 16-08-2006 / 11:07:51 / cg"
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10739	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10740
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10741	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'actions - cvs'!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10742
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10743	addPerModuleRoot
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10744	\|module cvsRoot\|
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10745
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10746	acceptChannel value:true.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10747	module := self perModuleRootModule value.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10748	cvsRoot := self perModuleRoot value.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10749	(self listOfModules includes:module) ifFalse:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10750	self listOfModules add:module; sort.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10751	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10752	cvsRoot size > 0 ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10753	rootsPerModule at:module put:(Array with:CVSSourceCodeManager with:cvsRoot).
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10754	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10755	self updateModifiedChannel.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10756	!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10757
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10758	basicSaveCVSSettings
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10759	\|cvsRoot\|
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10760
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10761	repositoryHolder notNil ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10762	repositoryHolder value size > 0 ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10763	manager notNil ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10764	manager initializeForRepository:repositoryHolder value.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10765	]
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10766	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10767	].
7347 4df230873b7b * empty log message * Claus Gittinger <cg@exept.de> parents: 7336 diff changeset	10768	CVSSourceCodeManager cvsExecutable:((self cvsExecutableHolder value ? '') withoutSeparators).
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10769	CVSSourceCodeManager initializeForRepository:(cvsRoot := self cvsRootHolder value).
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10770
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10771	RecentlyUsedCVSRoots isNil ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10772	RecentlyUsedCVSRoots := OrderedCollection new.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10773	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10774	(RecentlyUsedCVSRoots includes:cvsRoot) ifFalse:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10775	RecentlyUsedCVSRoots addFirst:cvsRoot.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10776	RecentlyUsedCVSRoots size > 20 ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10777	RecentlyUsedCVSRoots removeLast.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10778	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10779	].
7331 b8986149fdfd use CVSExecutable instead of CVSBindir Claus Gittinger <cg@exept.de> parents: 7326 diff changeset	10780
7347 4df230873b7b * empty log message * Claus Gittinger <cg@exept.de> parents: 7336 diff changeset	10781	"Modified: / 29-09-2006 / 12:28:50 / cg"
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10782	!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10783
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10784	cvsLogin:cvsRoot
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10785	\|cmd term\|
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10786
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10787	cmd := 'cvs -d ' , cvsRoot , ' login ; exit'.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10788	term := VT100TerminalView open.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10789	term topView label:'CVS Login for ' , cvsRoot.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10790	term topView waitUntilVisible.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10791	term shellTerminateAction:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10792	"/ term topView destroy
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10793	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10794
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10795	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	10796	term showCR:''.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10797	term endEntry.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10798	Delay waitForSeconds:1.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10799	term sendLine:cmd.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10800
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10801	"
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10802	self basicNew cvsLogin:':pserver:stx@exept.eu.org:/stx'
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10803	"
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10804	!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10805
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10806	loginCVSRoot
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10807	self cvsLogin:cvsRootHolder value.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10808	!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10809
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10810	loginPerModuleRoot
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10811	self cvsLogin:perModuleRoot value.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10812	! !
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	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'actions - store'!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10815
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10816	addPerStoreModuleDB
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	\|module info\|
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	acceptChannel value:true.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10821
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10822	module := self perStoreModuleRoot value.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10823	info := StoreSourceCodeManager newDBInfo.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10824	info hostAndDBName:perStoreModuleHostnameHolder value.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10825	info userName:perStoreModuleUsernameHolder value.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10826	info password:perStoreModulePasswordHolder value.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10827
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10828	(self listOfModules includes:module) ifFalse:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10829	self listOfModules add:module; sort.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10830	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10831	rootsPerModule at:module put:(Array with:StoreSourceCodeManager with:info).
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10832
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10833	self updateModifiedChannel.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10834	!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10835
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10836	basicSaveStoreSettings
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10837	\|storeHost\|
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10838
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10839	StoreSourceCodeManager hostAndDBName:(storeHost := self storeHostnameHolder value withoutSeparators).
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10840	StoreSourceCodeManager userName:(self storeUsernameHolder value withoutSeparators).
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10841	StoreSourceCodeManager password:(self storePasswordHolder value withoutSeparators).
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10842
6999 d298f055491a * empty log message * Claus Gittinger <cg@exept.de> parents: 6997 diff changeset	10843	storeHost notEmptyOrNil ifTrue:[
d298f055491a * empty log message * Claus Gittinger <cg@exept.de> parents: 6997 diff changeset	10844	StoreSourceCodeManager connectToDatabase.
d298f055491a * empty log message * Claus Gittinger <cg@exept.de> parents: 6997 diff changeset	10845	].
6994 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	RecentlyUsedStoreHosts isNil ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10848	RecentlyUsedStoreHosts := OrderedCollection new.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10849	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10850	(RecentlyUsedStoreHosts includes:storeHost) ifFalse:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10851	RecentlyUsedStoreHosts addFirst:storeHost.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10852	RecentlyUsedStoreHosts size > 20 ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10853	RecentlyUsedStoreHosts removeLast.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10854	].
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	!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10857
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10858	browsePerStoreModuleDB
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10859	\|testInfo\|
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10860
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10861	testInfo := StoreSourceCodeManager newDBInfo.
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10862	testInfo hostAndDBName:(perStoreModuleHostnameHolder value).
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10863	testInfo userName:(perStoreModuleUsernameHolder value).
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10864	testInfo password:(perStoreModulePasswordHolder value).
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10865	self browseStoreDB:testInfo
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10866	!
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10867
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10868	browseStoreDB:dbInfo
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10869	Tools::StoreProjectBrowser openOn:dbInfo
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10870	!
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	10871
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10872	connectPerStoreModuleDB
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10873	\|testInfo\|
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	testInfo := StoreSourceCodeManager newDBInfo.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10876	testInfo hostAndDBName:(perStoreModuleHostnameHolder value).
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10877	testInfo userName:(perStoreModuleUsernameHolder value).
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10878	testInfo password:(perStoreModulePasswordHolder value).
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	(self tryToConnectTo:testInfo)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10881	!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10882
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10883	storeConnect
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10884	\|testInfo\|
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	testInfo := StoreSourceCodeManager newDBInfo.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10887	testInfo hostAndDBName:(storeHostnameHolder value).
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10888	testInfo userName:(storeUsernameHolder value).
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10889	testInfo password:(storePasswordHolder value).
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10890
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10891	(self tryToConnectTo:testInfo) ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10892	LastStoreHost := storeHostnameHolder value.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10893	LastStoreUser := storeUsernameHolder value.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10894	LastStorePassword := storePasswordHolder value.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10895	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10896	!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10897
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10898	tryToConnectTo:dbInfo
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10899	\|session\|
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10900
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10901	SQL::SQLError handle:[:ex \|
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10902	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	10903	^ false.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10904	] do:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10905	self withWaitCursorDo:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10906	session := StoreSourceCodeManager tryToConnectToDatabase:dbInfo.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10907	]
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10908	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10909	session isNil ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10910	self warn:'OOPS - Failed to connect'.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10911	^ false.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10912	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10913
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10914	self information:('Successfully connected to ',dbInfo dbName,'.').
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10915	session disconnect.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10916	^ true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10917	! !
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10918
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10919	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'aspects'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10920
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10921	acceptChannel
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10922
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10923	acceptChannel isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10924	acceptChannel := TriggerValue new.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10925	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10926	^ acceptChannel.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10927	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10928
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10929	availableManagerTypeNames
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10930	^ self availableManagers collect:[:cls \| cls managerTypeName].
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10931
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10932	"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	10933	!
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10934
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10935	availableManagers
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10936	availableManagers isNil ifTrue:[
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10937	availableManagers := AbstractSourceCodeManager availableManagers.
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10938	].
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10939	^ availableManagers.
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10940
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10941	"
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10942	self basicNew availableManagers
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10943	"
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	10944
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10945	"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	10946	!
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	10947
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10948	checkClassesWhenCheckingIn
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10949
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10950	checkClassesWhenCheckingIn isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10951	checkClassesWhenCheckingIn := (currentUserPrefs at:#checkClassesWhenCheckingIn ifAbsent:true) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10952	checkClassesWhenCheckingIn onChangeSend:#updateModifiedChannel to:self
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10953	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10954	^ checkClassesWhenCheckingIn.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10955	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10956
7331 b8986149fdfd use CVSExecutable instead of CVSBindir Claus Gittinger <cg@exept.de> parents: 7326 diff changeset	10957	cvsExecutableHolder
b8986149fdfd use CVSExecutable instead of CVSBindir Claus Gittinger <cg@exept.de> parents: 7326 diff changeset	10958	cvsExecutableHolder isNil ifTrue:[
b8986149fdfd use CVSExecutable instead of CVSBindir Claus Gittinger <cg@exept.de> parents: 7326 diff changeset	10959	cvsExecutableHolder := ValueHolder new.
b8986149fdfd use CVSExecutable instead of CVSBindir Claus Gittinger <cg@exept.de> parents: 7326 diff changeset	10960	cvsExecutableHolder onChangeSend:#updateModifiedChannel to:self
b8986149fdfd use CVSExecutable instead of CVSBindir Claus Gittinger <cg@exept.de> parents: 7326 diff changeset	10961	].
b8986149fdfd use CVSExecutable instead of CVSBindir Claus Gittinger <cg@exept.de> parents: 7326 diff changeset	10962	^ cvsExecutableHolder.
b8986149fdfd use CVSExecutable instead of CVSBindir Claus Gittinger <cg@exept.de> parents: 7326 diff changeset	10963
b8986149fdfd use CVSExecutable instead of CVSBindir Claus Gittinger <cg@exept.de> parents: 7326 diff changeset	10964	"Created: / 21-09-2006 / 15:37:06 / cg"
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10965	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10966
5343 eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	10967	cvsLoginEnabled
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	10968	cvsLoginEnabled isNil ifTrue:[
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	10969	cvsLoginEnabled := false asValue.
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	10970	].
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	10971	^ cvsLoginEnabled.
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	10972	!
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	10973
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	10974	cvsLoginInModuleEnabled
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	10975	cvsLoginInModuleEnabled isNil ifTrue:[
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	10976	cvsLoginInModuleEnabled := false asValue.
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	10977	].
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	10978	^ cvsLoginInModuleEnabled.
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	10979	!
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	10980
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10981	cvsRootHolder
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10982
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10983	cvsRootHolder isNil ifTrue:[
5318 02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	10984	cvsRootHolder := self cvsRootFromCVSRootFileOrNil asValue.
5343 eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	10985	cvsRootHolder addDependent:self.
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10986	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10987	^ cvsRootHolder.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10988	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10989
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10990	cvsRootPrototypeList
6743 fed3ac14df0f New loaction of public cvs pserver Stefan Vogel <sv@exept.de> parents: 6742 diff changeset	10991	\|cvsRoot prototypeList\|
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10992
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10993	cvsRootPrototypeList isNil ifTrue:[
6743 fed3ac14df0f New loaction of public cvs pserver Stefan Vogel <sv@exept.de> parents: 6742 diff changeset	10994	prototypeList := OrderedSet new.
5343 eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	10995
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	10996	cvsRoot := self cvsRootFromCVSRootFileOrNil.
6743 fed3ac14df0f New loaction of public cvs pserver Stefan Vogel <sv@exept.de> parents: 6742 diff changeset	10997	cvsRoot notNil ifTrue:[
fed3ac14df0f New loaction of public cvs pserver Stefan Vogel <sv@exept.de> parents: 6742 diff changeset	10998	prototypeList add:cvsRoot
5343 eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	10999	].
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	11000
6743 fed3ac14df0f New loaction of public cvs pserver Stefan Vogel <sv@exept.de> parents: 6742 diff changeset	11001	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	11002
7311 1f9d53c9ba47 Prototype for bh.exept.de Stefan Vogel <sv@exept.de> parents: 7295 diff changeset	11003	OperatingSystem getDomainName = 'bh.exept.de' ifTrue:[
1f9d53c9ba47 Prototype for bh.exept.de Stefan Vogel <sv@exept.de> parents: 7295 diff changeset	11004	prototypeList add:(':pserver:' , OperatingSystem getLoginName , '@cvs.bh.exept.de:/cvs/stx')
5318 02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	11005	] ifFalse:[
6743 fed3ac14df0f New loaction of public cvs pserver Stefan Vogel <sv@exept.de> parents: 6742 diff changeset	11006	prototypeList add:(':pserver:' , OperatingSystem getLoginName , '@CVSHOST:/cvs/stx').
4767 389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	11007	].
389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	11008
389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	11009	OperatingSystem isUNIXlike ifTrue:[
6743 fed3ac14df0f New loaction of public cvs pserver Stefan Vogel <sv@exept.de> parents: 6742 diff changeset	11010	prototypeList add:'/cvs/stx'.
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	11011	] ifFalse:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	11012	OperatingSystem isMSDOSlike ifTrue:[
6743 fed3ac14df0f New loaction of public cvs pserver Stefan Vogel <sv@exept.de> parents: 6742 diff changeset	11013	prototypeList addFirst:':local:c:\cvs\stx'.
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	11014	] ifFalse:[
4767 389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	11015	"there might be more here in the future"
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	11016	]
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	11017	].
5318 02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	11018
6743 fed3ac14df0f New loaction of public cvs pserver Stefan Vogel <sv@exept.de> parents: 6742 diff changeset	11019	cvsRootPrototypeList := prototypeList asOrderedCollection.
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	11020	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	11021	^ cvsRootPrototypeList.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	11022	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	11023
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11024	listOfModules
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	11025
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	11026	listOfModules isNil ifTrue:[
5174 bfd29db1a419 source code management per module get apply for changes Michael Beyl <mb@exept.de> parents: 5172 diff changeset	11027	rootsPerModule notNil ifTrue:[
bfd29db1a419 source code management per module get apply for changes Michael Beyl <mb@exept.de> parents: 5172 diff changeset	11028	listOfModules := rootsPerModule keys asList.
bfd29db1a419 source code management per module get apply for changes Michael Beyl <mb@exept.de> parents: 5172 diff changeset	11029	].
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	11030	listOfModules sort.
5174 bfd29db1a419 source code management per module get apply for changes Michael Beyl <mb@exept.de> parents: 5172 diff changeset	11031	listOfModules onChangeSend:#updateModifiedChannel to:self
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	11032	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	11033	^ listOfModules.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	11034	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	11035
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11036	localSourceFirst
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11037
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11038	localSourceFirst isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11039	localSourceFirst := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	11040	localSourceFirst onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11041	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11042	^ localSourceFirst.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11043	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11044
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	11045	managerIsCVSSourceCodeManager
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	11046	managerIsCVSSourceCodeManager isNil ifTrue:[
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	11047	managerIsCVSSourceCodeManager := (SourceCodeManager notNil and:
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	11048	[SourceCodeManager isCVS]) asValue.
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	11049	].
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	11050	^ managerIsCVSSourceCodeManager.
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	11051
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	11052	"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	11053	!
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	11054
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	11055	managerIsStoreSourceCodeManager
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	11056	managerIsStoreSourceCodeManager isNil ifTrue:[
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	11057	managerIsStoreSourceCodeManager := (SourceCodeManager notNil and:
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	11058	[SourceCodeManager isStore]) asValue.
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	11059	].
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	11060	^ managerIsStoreSourceCodeManager.
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	11061
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	11062	"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	11063	!
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	11064
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	11065	moreThanOneManagerTypesAvailable
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	11066	^ self availableManagers size > 1
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	11067
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	11068	"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	11069	!
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	11070
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11071	perModuleFieldsEnableHolder
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11072
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11073	perModuleFieldsEnableHolder isNil ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11074	perModuleFieldsEnableHolder := true asValue.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11075	perModuleFieldsEnableHolder addDependent:self.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11076	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11077	^ perModuleFieldsEnableHolder.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11078	!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11079
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11080	perModuleRoot
5332 d02586ccaa63 value holder for roots per module penk parents: 5318 diff changeset	11081	perModuleRoot isNil ifTrue:[
d02586ccaa63 value holder for roots per module penk parents: 5318 diff changeset	11082	perModuleRoot := ValueHolder new.
5343 eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	11083	perModuleRoot addDependent:self.
5332 d02586ccaa63 value holder for roots per module penk parents: 5318 diff changeset	11084	].
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	11085	^ perModuleRoot.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	11086	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	11087
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11088	perModuleRootModule
5332 d02586ccaa63 value holder for roots per module penk parents: 5318 diff changeset	11089	perModuleRootModule isNil ifTrue:[
d02586ccaa63 value holder for roots per module penk parents: 5318 diff changeset	11090	perModuleRootModule := ValueHolder new.
d02586ccaa63 value holder for roots per module penk parents: 5318 diff changeset	11091	].
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	11092	^ perModuleRootModule.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	11093	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	11094
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11095	perStoreModuleFieldsEnableHolder
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11096
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11097	perStoreModuleFieldsEnableHolder isNil ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11098	perStoreModuleFieldsEnableHolder := true asValue.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11099	perStoreModuleFieldsEnableHolder addDependent:self.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11100	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11101	^ perStoreModuleFieldsEnableHolder.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11102	!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11103
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11104	perStoreModuleHostnameHolder
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11105
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11106	perStoreModuleHostnameHolder isNil ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11107	perStoreModuleHostnameHolder := '' asValue.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11108	perStoreModuleHostnameHolder addDependent:self.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11109	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11110	^ perStoreModuleHostnameHolder.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11111	!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11112
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11113	perStoreModulePasswordHolder
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11114
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11115	perStoreModulePasswordHolder isNil ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11116	perStoreModulePasswordHolder := '' asValue.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11117	perStoreModulePasswordHolder addDependent:self.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11118	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11119	^ perStoreModulePasswordHolder.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11120	!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11121
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11122	perStoreModuleRoot
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11123	perStoreModuleRoot isNil ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11124	perStoreModuleRoot := ValueHolder new.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11125	perStoreModuleRoot addDependent:self.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11126	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11127	^ perStoreModuleRoot.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11128	!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11129
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11130	perStoreModuleRootModule
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11131	perStoreModuleRootModule isNil ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11132	perStoreModuleRootModule := ValueHolder new.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11133	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11134	^ perStoreModuleRootModule.
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	perStoreModuleUsernameHolder
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11138
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11139	perStoreModuleUsernameHolder isNil ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11140	perStoreModuleUsernameHolder := '' asValue.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11141	perStoreModuleUsernameHolder addDependent:self.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11142	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11143	^ perStoreModuleUsernameHolder.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11144	!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11145
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11146	removeEnabled
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	11147
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	11148	removeEnabled isNil ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	11149	removeEnabled := false asValue.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	11150	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	11151	^ removeEnabled.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	11152	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	11153
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	11154	selectedManager
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	11155	\|idx\|
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	11156
6997 3b32b9cdef10 care for single avail. manager Claus Gittinger <cg@exept.de> parents: 6994 diff changeset	11157	self availableManagers size == 1 ifTrue:[
3b32b9cdef10 care for single avail. manager Claus Gittinger <cg@exept.de> parents: 6994 diff changeset	11158	^ self availableManagers first
3b32b9cdef10 care for single avail. manager Claus Gittinger <cg@exept.de> parents: 6994 diff changeset	11159	].
3b32b9cdef10 care for single avail. manager Claus Gittinger <cg@exept.de> parents: 6994 diff changeset	11160
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	11161	idx := self selectedManagerTypeIndexHolder value.
6997 3b32b9cdef10 care for single avail. manager Claus Gittinger <cg@exept.de> parents: 6994 diff changeset	11162	(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	11163	^ self availableManagers at:idx
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	11164
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	11165	"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	11166	!
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	11167
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	11168	selectedManagerTypeIndexHolder
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	11169	\|selectedManager\|
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	11170
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	11171	selectedManagerTypeIndexHolder isNil ifTrue:[
6997 3b32b9cdef10 care for single avail. manager Claus Gittinger <cg@exept.de> parents: 6994 diff changeset	11172	selectedManagerTypeIndexHolder := nil asValue.
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	11173	selectedManagerTypeIndexHolder onChangeEvaluate:[
7080 26d4f0a51124 * empty log message * Claus Gittinger <cg@exept.de> parents: 7071 diff changeset	11174	selectedManager := self selectedManager.
26d4f0a51124 * empty log message * Claus Gittinger <cg@exept.de> parents: 7071 diff changeset	11175	self managerIsCVSSourceCodeManager value:( selectedManager notNil and:[ selectedManager isCVS] ).
26d4f0a51124 * empty log message * Claus Gittinger <cg@exept.de> parents: 7071 diff changeset	11176	self managerIsStoreSourceCodeManager value:( selectedManager notNil and:[ selectedManager isStore] ).
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11177	self updateModifiedChannel
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	11178	].
6997 3b32b9cdef10 care for single avail. manager Claus Gittinger <cg@exept.de> parents: 6994 diff changeset	11179
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	11180	self updateSelectedManager.
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	11181	].
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	11182	^ selectedManagerTypeIndexHolder.
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	11183
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	11184	"Created: / 16-08-2006 / 11:17:20 / cg"
7080 26d4f0a51124 * empty log message * Claus Gittinger <cg@exept.de> parents: 7071 diff changeset	11185	"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	11186	!
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	11187
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11188	selectedPerModuleRoot
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	11189	selectedPerModuleRoot isNil ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	11190	selectedPerModuleRoot := ValueHolder new.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	11191	selectedPerModuleRoot addDependent:self.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	11192	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	11193	^ selectedPerModuleRoot.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	11194	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	11195
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11196	selectedPerStoreModuleRoot
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11197	selectedPerStoreModuleRoot isNil ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11198	selectedPerStoreModuleRoot := ValueHolder new.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11199	selectedPerStoreModuleRoot addDependent:self.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11200	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11201	^ selectedPerStoreModuleRoot.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11202	!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11203
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11204	sourceCacheDir
5286 ab068226973e has unsaved changes penk parents: 5283 diff changeset	11205	sourceCacheDir isNil ifTrue:[
ab068226973e has unsaved changes penk parents: 5283 diff changeset	11206	sourceCacheDir := ValueHolder new.
ab068226973e has unsaved changes penk parents: 5283 diff changeset	11207	sourceCacheDir onChangeSend:#updateModifiedChannel to:self
ab068226973e has unsaved changes penk parents: 5283 diff changeset	11208	].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11209	^ sourceCacheDir.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11210	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11211
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11212	storeConnectEnabled
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11213	storeConnectEnabled isNil ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11214	storeConnectEnabled := false asValue.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11215	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11216	^ storeConnectEnabled.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11217	!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11218
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11219	storeConnectInModuleEnabled
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11220	storeConnectInModuleEnabled isNil ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11221	storeConnectInModuleEnabled := false asValue.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11222	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11223	^ storeConnectInModuleEnabled.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11224	!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11225
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11226	storeHostPrototypeList
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11227	\|prototypeList\|
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11228
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11229	storeHostPrototypeList isNil ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11230	prototypeList := OrderedSet new.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11231
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11232	prototypeList add:('public@store.smalltalk-x.de:5432').
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11233	prototypeList add:('public').
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11234	prototypeList add:('stx').
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11235
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11236	OperatingSystem getLoginName = 'cg' ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11237	prototypeList add:('oyster@store.smalltalk-x.de:5432').
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11238	prototypeList add:('oyster').
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11239	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11240
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11241	OperatingSystem getDomainName = 'exept.de' ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11242	prototypeList add:('stx@exept.exept.de:5432').
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11243	] ifFalse:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11244	prototypeList add:('db@host').
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11245	prototypeList add:('db@host:port').
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11246	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11247	storeHostPrototypeList := prototypeList asOrderedCollection.
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	^ storeHostPrototypeList.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11250	!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11251
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11252	storeHostnameHolder
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11253
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11254	storeHostnameHolder isNil ifTrue:[
6999 d298f055491a * empty log message * Claus Gittinger <cg@exept.de> parents: 6997 diff changeset	11255	storeHostnameHolder := ("LastStoreHost ?" '') asValue.
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11256	storeHostnameHolder addDependent:self.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11257	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11258	^ storeHostnameHolder.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11259	!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11260
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	11261	storeLoginEnabled
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	11262	storeLoginEnabled isNil ifTrue:[
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	11263	storeLoginEnabled := false asValue.
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	11264	].
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	11265	^ storeLoginEnabled.
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	11266
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	11267	"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	11268	!
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	11269
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11270	storePasswordHolder
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11271
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11272	storePasswordHolder isNil ifTrue:[
6999 d298f055491a * empty log message * Claus Gittinger <cg@exept.de> parents: 6997 diff changeset	11273	storePasswordHolder := ("LastStorePassword ?" '') asValue.
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11274	storePasswordHolder addDependent:self.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11275	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11276	^ storePasswordHolder.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11277	!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11278
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11279	storeUsernameHolder
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	storeUsernameHolder isNil ifTrue:[
6999 d298f055491a * empty log message * Claus Gittinger <cg@exept.de> parents: 6997 diff changeset	11282	storeUsernameHolder := ("LastStoreUser ?" '') asValue.
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11283	storeUsernameHolder addDependent:self.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11284	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11285	^ storeUsernameHolder.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11286	!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11287
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11288	useManager
5286 ab068226973e has unsaved changes penk parents: 5283 diff changeset	11289	useManager isNil ifTrue:[
ab068226973e has unsaved changes penk parents: 5283 diff changeset	11290	useManager := ValueHolder new.
ab068226973e has unsaved changes penk parents: 5283 diff changeset	11291	useManager onChangeSend:#updateModifiedChannel to:self
ab068226973e has unsaved changes penk parents: 5283 diff changeset	11292	].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11293	^ useManager.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11294	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11295
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11296	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'change & update'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11297
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11298	selectedPerModuleRootChanged
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11299	\|module entry\|
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	11300
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	11301	self acceptChannel value:true.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	11302	module := self selectedPerModuleRoot value.
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11303	module isNil ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11304	self removeEnabled value:false.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11305	self perModuleRootModule value:' '.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11306	self perModuleRoot value:''.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11307	^ self
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11308	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11309
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11310	entry := rootsPerModule at:module ifAbsent:#().
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11311	(entry first = CVSSourceCodeManager) ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11312	self removeEnabled value:true.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11313	self perModuleRootModule value:module.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11314	self perModuleRoot value:(entry at:2).
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11315	] ifFalse:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11316	self removeEnabled value:false.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11317	self perModuleRootModule value:module , ' ',('<<use ',entry first managerTypeName,'>>') allBold.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11318	self perModuleRoot value:''.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11319	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11320	!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11321
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11322	selectedPerStoreModuleRootChanged
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11323	\|module entry\|
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11324
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11325	self acceptChannel value:true.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11326
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11327	module := self selectedPerStoreModuleRoot value.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11328	module isNil ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11329	self removeEnabled value:false.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11330	self perStoreModuleRoot value:''.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11331	self perStoreModuleHostnameHolder value:''.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11332	self perStoreModuleUsernameHolder value:''.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11333	self perStoreModulePasswordHolder value:''.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11334	^ self
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11335	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11336
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11337	entry := rootsPerModule at:module ifAbsent:#().
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11338	(entry first = StoreSourceCodeManager) ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11339	self removeEnabled value:true.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11340	self perStoreModuleRoot value:module.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11341	self perStoreModuleHostnameHolder value:(entry at:2) hostAndDBName.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11342	self perStoreModuleUsernameHolder value:(entry at:2) userName.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11343	self perStoreModulePasswordHolder value:(entry at:2) password.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11344	] ifFalse:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11345	self removeEnabled value:false.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11346	self perStoreModuleRoot value:module , ' ',('<<use ',entry first managerTypeName,'>>') allBold.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11347	self perStoreModuleHostnameHolder value:''.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11348	self perStoreModuleUsernameHolder value:''.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11349	self perStoreModulePasswordHolder value:''.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11350	].
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	11351	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	11352
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11353	sourceDirChanged
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	11354	\| nm fn\|
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	11355
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	11356	manager isNil ifTrue:[^ self].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	11357
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	11358	nm := self sourceCacheDir value.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	11359	nm isEmptyOrNil ifTrue:[^ self].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	11360
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	11361	(fn := nm asFilename) exists ifFalse:[
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	11362	(self confirm:('SourceCache directory ''' , nm , ''' does not exist.\Create ?' withCRs)) ifTrue:[
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	11363	fn makeDirectory;
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	11364	makeReadableForAll;
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	11365	makeWritableForAll;
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	11366	makeExecutableForAll.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	11367	] ifFalse:[
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	11368	self sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName).
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	11369	^ self.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	11370	].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	11371	].
5318 02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	11372	(fn isDirectory
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	11373	and:[fn isReadable
5318 02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	11374	and:[fn isWritable]]) ifTrue:[
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	11375	AbstractSourceCodeManager cacheDirectoryName:nm.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	11376	] ifFalse:[
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	11377	self warn:'Invalid sourceCache directory.'.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	11378	self sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11379	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11380	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11381
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	11382	update:something with:aParameter from:changedObject
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11383	"/ common
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11384	changedObject == sourceCacheDir ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11385	self sourceDirChanged.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11386	self updateModifiedChannel.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11387	^ self
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11388	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11389
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11390	"/ cvs
5343 eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	11391	changedObject == cvsRootHolder ifTrue:[
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	11392	self updateModifiedChannel.
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	11393	self updateLoginEnableHolders.
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	11394	^ self
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	11395	].
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	11396	changedObject == perModuleRoot ifTrue:[
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	11397	self updateLoginEnableHolders.
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	11398	^ self
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	11399	].
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	11400	changedObject == selectedPerModuleRoot ifTrue:[
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	11401	self selectedPerModuleRootChanged.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	11402	^ self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11403	].
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11404
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11405	"/ store
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11406	changedObject == storeHostnameHolder ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11407	self updateConnectEnableHolders.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11408	^ self
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11409	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11410	changedObject == storeUsernameHolder ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11411	self updateConnectEnableHolders.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11412	^ self
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11413	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11414	changedObject == storePasswordHolder ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11415	self updateConnectEnableHolders.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11416	^ self
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11417	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11418	changedObject == perStoreModuleRoot ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11419	self updateConnectEnableHolders.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11420	^ self
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11421	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11422	changedObject == perStoreModuleHostnameHolder ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11423	self updateConnectEnableHolders.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11424	^ self
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11425	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11426	changedObject == perStoreModuleUsernameHolder ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11427	self updateConnectEnableHolders.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11428	^ self
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11429	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11430	changedObject == perStoreModulePasswordHolder ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11431	self updateConnectEnableHolders.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11432	^ self
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11433	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11434
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11435	changedObject == selectedPerStoreModuleRoot ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11436	self selectedPerStoreModuleRootChanged.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11437	^ self
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11438	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11439
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11440	super update:something with:aParameter from:changedObject
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11441	!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11442
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11443	updateConnectEnableHolders
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11444	self storeConnectEnabled
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11445	value:(storeHostnameHolder value notEmptyOrNil
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11446	and:[ storeUsernameHolder value notEmptyOrNil
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11447	and:[ storePasswordHolder value notEmptyOrNil ]]).
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11448
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11449	self storeConnectInModuleEnabled
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11450	value:(perStoreModuleHostnameHolder value notEmptyOrNil
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11451	and:[ perStoreModuleUsernameHolder value notEmptyOrNil
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11452	and:[ perStoreModulePasswordHolder value notEmptyOrNil ]]).
5343 eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	11453	!
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	11454
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	11455	updateLoginEnableHolders
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	11456	self cvsLoginEnabled value:((cvsRootHolder value ? '') startsWith:':pserver:').
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	11457	self cvsLoginInModuleEnabled value:((perModuleRoot value ? '') startsWith:':pserver:').
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	11458	!
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	11459
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	11460	updateSelectedManager
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	11461	\|selectedManagerTypeIndex\|
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	11462
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	11463	selectedManagerTypeIndex := self availableManagers indexOf:SourceCodeManager.
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	11464	selectedManagerTypeIndex == 0 ifTrue:[
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	11465	self availableManagers size == 1 ifTrue:[
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	11466	selectedManagerTypeIndex := 1.
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	11467	].
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	11468	].
7178 1f33a61499e6 * empty log message * ca parents: 7175 diff changeset	11469	self selectedManagerTypeIndexHolder value:selectedManagerTypeIndex.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11470	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11471
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11472	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'initialization & release'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11473
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11474	initialize
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11475	(AbstractSourceCodeManager notNil) ifTrue:[ AbstractSourceCodeManager autoload ].
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	11476
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	11477	useManager := false asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	11478	useManager onChangeSend:#updateModifiedChannel to:self.
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	11479
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	11480	sourceCacheDir := nil asValue.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	11481	sourceCacheDir addDependent:self.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	11482
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	11483	repositoryHolder := '' asValue.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	11484	rootsPerModule := Dictionary new.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	11485
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11486	self availableManagers do:[:eachManager \|
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11487	eachManager repositoryInfoPerModule
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11488	keysAndValuesDo:[:module :info \|
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11489	rootsPerModule at:module put:(Array with:eachManager with:info)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11490	].
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	11491	].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	11492
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11493	super initialize.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11494	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11495
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11496	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'queries'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11497
5318 02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	11498	cvsRootFromCVSRootFileOrNil
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	11499	\|cvsDir cvsRootFile cvsRoot\|
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	11500
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	11501	cvsDir := 'CVS' asFilename.
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	11502	cvsDir isDirectory ifTrue:[
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	11503	cvsRootFile := cvsDir construct:'Root'.
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	11504	cvsRootFile isReadable ifTrue:[
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	11505	cvsRoot := cvsRootFile contents firstIfEmpty:nil.
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	11506	].
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	11507	].
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	11508	^ cvsRoot
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	11509	!
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	11510
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11511	hasManager
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11512	"true if ANY source code management class is available"
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11513
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11514	^ AbstractSourceCodeManager notNil and:[AbstractSourceCodeManager isLoaded]
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11515	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11516
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11517	hasUnsavedChanges
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	11518	(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	11519	(Smalltalk at:#SourceCodeManager) ~~ self selectedManager ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	11520	(self hasManager and:[self useManager value]) ifFalse:[^ false].
5286 ab068226973e has unsaved changes penk parents: 5283 diff changeset	11521
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11522	(Class tryLocalSourceFirst ~= self localSourceFirst value) ifTrue:[^ true].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11523	((AbstractSourceCodeManager cacheDirectoryName ? '') ~= (self sourceCacheDir value ? '')) ifTrue:[^ true].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11524
6781 facbb533a366 * empty log message * Claus Gittinger <cg@exept.de> parents: 6780 diff changeset	11525	((currentUserPrefs at:#checkClassesWhenCheckingIn ifAbsent:true) ~= self checkClassesWhenCheckingIn value)
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	11526	ifTrue:[^ true].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	11527
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	11528	(Array
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	11529	with:CVSSourceCodeManager
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	11530	with:StoreSourceCodeManager)
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	11531	do:[:mgr \|
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	11532	\|modules\|
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	11533
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	11534	modules := rootsPerModule select:[:entry \| entry first == mgr].
7348 ae51cb7d24de adding a per-module-repository must also enable the save button Claus Gittinger <cg@exept.de> parents: 7347 diff changeset	11535
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	11536	mgr repositoryInfoPerModule keysAndValuesDo:[:module :info \|
7348 ae51cb7d24de adding a per-module-repository must also enable the save button Claus Gittinger <cg@exept.de> parents: 7347 diff changeset	11537	((modules includesKey:module) and:[info = (modules at:module) second])
ae51cb7d24de adding a per-module-repository must also enable the save button Claus Gittinger <cg@exept.de> parents: 7347 diff changeset	11538	ifFalse:[^ true].
ae51cb7d24de adding a per-module-repository must also enable the save button Claus Gittinger <cg@exept.de> parents: 7347 diff changeset	11539	].
ae51cb7d24de adding a per-module-repository must also enable the save button Claus Gittinger <cg@exept.de> parents: 7347 diff changeset	11540	modules keysAndValuesDo:[:module :info\|
ae51cb7d24de adding a per-module-repository must also enable the save button Claus Gittinger <cg@exept.de> parents: 7347 diff changeset	11541	((mgr repositoryInfoPerModule includesKey:module) and:[(mgr repositoryInfoPerModule at:module) = info second])
ae51cb7d24de adding a per-module-repository must also enable the save button Claus Gittinger <cg@exept.de> parents: 7347 diff changeset	11542	ifFalse:[^ true].
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	11543	].
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	11544	].
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	11545
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11546	self selectedManager isCVS ifTrue:[
7331 b8986149fdfd use CVSExecutable instead of CVSBindir Claus Gittinger <cg@exept.de> parents: 7326 diff changeset	11547	((CVSSourceCodeManager cvsExecutable ? '') ~= (self cvsExecutableHolder value ? '') withoutSeparators)
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11548	ifTrue:[^ true].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11549
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11550	(CVSSourceCodeManager repositoryName ? '/files/CVS' ~= self cvsRootHolder value)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11551	ifTrue:[^ true].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11552	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11553
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11554	self selectedManager isStore ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11555	((StoreSourceCodeManager hostAndDBName ? '') ~= (self storeHostnameHolder value ? '') withoutSeparators)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11556	ifTrue:[^ true].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11557	((StoreSourceCodeManager userName ? '') ~= (self storeUsernameHolder value ? '') withoutSeparators)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11558	ifTrue:[^ true].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11559	((StoreSourceCodeManager password ? '') ~= (self storePasswordHolder value ? '') withoutSeparators)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11560	ifTrue:[^ true].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11561	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11562
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	11563	^ false
7331 b8986149fdfd use CVSExecutable instead of CVSBindir Claus Gittinger <cg@exept.de> parents: 7326 diff changeset	11564
7348 ae51cb7d24de adding a per-module-repository must also enable the save button Claus Gittinger <cg@exept.de> parents: 7347 diff changeset	11565	"Modified: / 29-09-2006 / 14:40:42 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11566	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11567
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11568	!AbstractSettingsApplication::StyleSettingsAppl class methodsFor:'defaults'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11569
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11570	standardStyles
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11571
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11572	^ #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11573	'decWindows'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11574	'iris'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11575	'motif'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11576	'mswindows95'
6073 09b4a678793a more xp style Claus Gittinger <cg@exept.de> parents: 6072 diff changeset	11577	'mswindowsxp'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11578	'next'
6108 7e6d327225fa * empty log message * Claus Gittinger <cg@exept.de> parents: 6103 diff changeset	11579	"/ 'normal'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11580	'os2'
6003 668703f77d2c * empty log message * Claus Gittinger <cg@exept.de> parents: 5991 diff changeset	11581	'sgmotif'
6073 09b4a678793a more xp style Claus Gittinger <cg@exept.de> parents: 6072 diff changeset	11582	"/ 'st80'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11583	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11584	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11585
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11586	!AbstractSettingsApplication::StyleSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11587
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11588	defaultIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11589	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11590	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11591
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11592	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11593	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11594
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11595	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11596	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11597	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11598	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11599	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11600
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11601	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11602
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11603	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11604	constantNamed:#'AbstractSettingsApplication::StyleSettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11605	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	11606	@@@@@@@@@@@@@@DA@@@@@@@@@@@@@@@@@@@@@@@@@@DB@0D@@@@@@@@@@@@@@@@@@@@@@@DB@0LD@P@@@@@@@@@@@@@@@@@@@@DB@0LDA@DA@@@@@@@@@@@@
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	11607	@@@@@@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	11608	@ 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	11609	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	11610	@ 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	11611	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	11612	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11613
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11614	!AbstractSettingsApplication::StyleSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11615
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11616	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11617	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11618	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11619
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11620	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11621	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11622
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11623	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11624	UIPainter new openOnClass:AbstractSettingsApplication::StyleSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11625	AbstractSettingsApplication::StyleSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11626	AbstractSettingsApplication::StyleSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11627	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11628
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11629	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11630
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11631	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11632	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11633	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11634	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11635	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11636	label: 'ViewStyle Selection'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11637	name: 'ViewStyle Selection'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11638	min: (Point 10 10)
5576 8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	11639	bounds: (Rectangle 0 0 562 661)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11640	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11641	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11642	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11643	collection: (
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11644	(VariableVerticalPanelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11645	name: 'VariableVerticalPanel1'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11646	layout: (LayoutFrame 0 0.0 0 0 0 1.0 -35 1)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11647	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11648	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11649	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11650	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11651	name: 'Box1'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11652	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11653	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11654	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11655	(TextEditorSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11656	name: 'TextEditor1'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11657	layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	11658	style: (FontDescription arial medium roman 9)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11659	model: noticeLabelHolder
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11660	hasHorizontalScrollBar: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11661	hasVerticalScrollBar: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11662	isReadOnly: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11663	postBuildCallback: postBuildHelpLabel:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11664	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11665	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11666
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11667	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11668	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11669	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11670	name: 'Box2'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11671	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11672	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11673	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11674	(VerticalPanelViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11675	name: 'VerticalPanel1'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11676	layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11677	horizontalLayout: fit
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11678	verticalLayout: topFit
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11679	horizontalSpace: 3
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11680	verticalSpace: 3
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11681	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11682	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11683	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11684	(CheckBoxSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11685	label: 'standard styles only'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11686	name: 'CheckBox1'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11687	model: showStandardStylesOnly
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11688	translateLabel: true
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	11689	extent: (Point 562 35)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11690	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11691	(SequenceViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11692	name: 'StyleList'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11693	model: selectedStyle
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11694	hasHorizontalScrollBar: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11695	hasVerticalScrollBar: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11696	doubleClickSelector: doubleClickAt:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11697	useIndex: false
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11698	sequenceList: styleList
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	11699	extent: (Point 562 353)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11700	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11701	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11702
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11703	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11704	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11705	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11706
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11707	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11708	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11709	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11710
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11711	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11712	handles: (Any 0.37 1.0)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11713	)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11714	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11715	name: 'Box3'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11716	layout: (LayoutFrame 0 0 -35 1 0 1 0 1)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11717	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11718	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11719	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11720	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11721	label: 'Label'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11722	name: 'Label1'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11723	layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11724	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11725	labelChannel: infoLabelHolder
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11726	resizeForLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11727	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11728	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11729	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11730
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	11731	)
5378 4054d8298e68 windowspec for view style penk parents: 5362 diff changeset	11732	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11733	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11734
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11735	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11736	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11737	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11738
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11739	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11740
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	11741	basicReadSettings
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	11742	"nothing done here"
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	11743	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	11744
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11745	basicSaveSettings
6029 40b96dc2621d * empty log message * ca parents: 6025 diff changeset	11746	\|newStyle\|
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11747
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11748	newStyle := self selectedStyle value.
4705 16cfb945d591 * empty log message * penk parents: 4675 diff changeset	11749
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11750	self withWaitCursorDo:[
6081 74df33ee24b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 6073 diff changeset	11751	Transcript showCR:'Change style to ' , newStyle , ' ...'.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11752	View defaultStyle:newStyle asSymbol.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11753	].
6029 40b96dc2621d * empty log message * ca parents: 6025 diff changeset	11754	self reopenToolsAfterChangedViewStyleSetting.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11755	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11756
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11757	doubleClickAt:aLine
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11758
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11759	self saveSettings.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11760	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11761
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	11762	helpFilename
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	11763	^ 'Launcher/styleSettings.html'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11764	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11765
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11766	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11767
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11768	infoLabelHolder
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11769
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11770	infoLabelHolder isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11771	infoLabelHolder := '' asValue.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11772	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11773	^ infoLabelHolder.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11774	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11775
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11776	noticeLabelHolder
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11777
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11778	noticeLabelHolder isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11779	noticeLabelHolder := '' asValue.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11780	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11781	^ noticeLabelHolder.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11782	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11783
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11784	selectedStyle
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11785
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11786	selectedStyle isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11787	selectedStyle := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11788	selectedStyle addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11789	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11790	^ selectedStyle.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11791	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11792
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11793	showStandardStylesOnly
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11794
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11795	showStandardStylesOnly isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11796	showStandardStylesOnly := true asValue.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11797	showStandardStylesOnly addDependent:self.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11798	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11799	^ showStandardStylesOnly.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11800	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11801
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11802	styleList
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11803
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11804	styleList isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11805	styleList := List new.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11806	styleList addDependent:self.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11807	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11808	^ styleList.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11809	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11810
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11811	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11812
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11813	changeInfoLabel
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11814
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11815	\|nm sheet comment\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11816
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11817	comment := ''.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11818	nm := self selectedStyle value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11819	nm notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11820	sheet := ViewStyle fromFile:(nm , '.style').
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11821	comment := (sheet at:#comment ifAbsent:'') withoutSeparators.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11822	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11823	comment := comment withCRs asStringCollection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11824	comment size == 1 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11825	comment := comment first
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11826	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11827	self infoLabelHolder value:comment
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11828	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11829
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	11830	update:something with:aParameter from:changedObject
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11831	changedObject == self showStandardStylesOnly ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11832	self updateList.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	11833	^ self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11834	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11835	changedObject == self selectedStyle ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11836	self changeInfoLabel.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	11837	self updateModifiedChannel.
c72e35116b13 instable state penk parents: 5040 diff changeset	11838	^ self
c72e35116b13 instable state penk parents: 5040 diff changeset	11839	].
c72e35116b13 instable state penk parents: 5040 diff changeset	11840	super
c72e35116b13 instable state penk parents: 5040 diff changeset	11841	update:something
c72e35116b13 instable state penk parents: 5040 diff changeset	11842	with:aParameter
c72e35116b13 instable state penk parents: 5040 diff changeset	11843	from:changedObject
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11844	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11845
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11846	updateList
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11847
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11848	\|listOfStyles lastSelection\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11849
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11850	lastSelection := self selectedStyle value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11851	listOfStyles := styleDirectoryContents select:[:aFileName \| aFileName asFilename hasSuffix:'style'].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11852	listOfStyles := listOfStyles collect:[:aFileName \| aFileName asFilename withoutSuffix name].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11853	Filename isCaseSensitive ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11854	listOfStyles := listOfStyles collect:[:aStyleName \| aStyleName asLowercase].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11855	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11856	listOfStyles remove:'generic' ifAbsent:nil; remove:'mswindows3' ifAbsent:nil.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11857	self showStandardStylesOnly value ifTrue:[
6086 1d3d8652e87d * empty log message * Claus Gittinger <cg@exept.de> parents: 6081 diff changeset	11858	listOfStyles := listOfStyles select:[:aStyleName \| self class standardStyles includes:aStyleName asLowercase].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11859	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11860
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11861	listOfStyles sort.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11862	self styleList contents:listOfStyles.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11863	self selectedStyle value:lastSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11864	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11865
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11866	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11867
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11868	initialize
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11869
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11870	\|someRsrcFile resourceDir\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11871
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11872	super initialize.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11873
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11874	someRsrcFile := Smalltalk getSystemFileName:('resources' asFilename constructString:'normal.style').
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11875	someRsrcFile isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11876	someRsrcFile := Smalltalk getResourceFileName:'normal.style' forPackage:'stx:libview'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11877	someRsrcFile isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11878	someRsrcFile := Smalltalk getResourceFileName:'styles/normal.style' forPackage:'stx:libview'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11879	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11880	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11881	someRsrcFile notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11882	resourceDir := someRsrcFile asFilename directoryName
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11883	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11884	resourceDir := Smalltalk getSystemFileName:'resources'.
4635 6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	11885	resourceDir isNil ifTrue:[
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	11886	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	11887	^ self
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	11888	].
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	11889	].
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	11890
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	11891	[
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	11892	styleDirectoryContents := resourceDir asFilename directoryContents.
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	11893	] on:FileStream openErrorSignal do:[:ex\|
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	11894	self warn:'no styles found (unaccessable ''resources'' directory)'.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11895	^ self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11896	].
4635 6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	11897
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11898	self updateList.
6086 1d3d8652e87d * empty log message * Claus Gittinger <cg@exept.de> parents: 6081 diff changeset	11899	(self class standardStyles includes:View defaultStyle asLowercase) ifFalse:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11900	self showStandardStylesOnly value:false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11901	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11902	self selectedStyle value:(View defaultStyle).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11903	self noticeLabelHolder value:(resources at:'STYLE_MSG' default:'Select a Style') withCRs.
5378 4054d8298e68 windowspec for view style penk parents: 5362 diff changeset	11904	!
4054d8298e68 windowspec for view style penk parents: 5362 diff changeset	11905
4054d8298e68 windowspec for view style penk parents: 5362 diff changeset	11906	postBuildHelpLabel:aWidget
4054d8298e68 windowspec for view style penk parents: 5362 diff changeset	11907	aWidget level:0.
4054d8298e68 windowspec for view style penk parents: 5362 diff changeset	11908	aWidget scrolledView backgroundColor:self window viewBackground.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11909	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11910
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11911	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11912
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11913	hasUnsavedChanges
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11914
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11915	^ (self selectedStyle value ~= View defaultStyle)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11916	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11917
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11918	!AbstractSettingsApplication::SyntaxColorSettingsAppl class methodsFor:'defaults'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11919
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11920	emphasisList
4398 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	#normal
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11924	#underline
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11925	#'red underline'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11926	#underwave
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11927	#'red underwave'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11928	#bold
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11929	#boldUnderline
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11930	#'bold+red underline'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11931	#boldUnderwave
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11932	#'bold+red underwave'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11933	#italic
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11934	#italicUnderline
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11935	#'italic+red underline'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11936	#italicUnderwave
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11937	#'italic+red underwave'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11938	#reverse
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11939	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11940	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11941
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11942	exampleText
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11943
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11944	^ 'methodSelector:methodArg
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11945	"method comment:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11946	some stupid code to show the current settings"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11947
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11948	\|methodVar\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11949
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11950	"/ another comment ...
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11951	self at:methodArg. "/ a message
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11952	self fooBarBaz:methodVar. "/ a bad message
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11953	methodVar := Array new:1.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11954	unknonVar := 1. "/ a bad variable
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11955	UnknonVar := 1. "/ another bad variable
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11956	"self bar:methodVar. detect commented code easily"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11957	1 to:5 do:[:i \| self at:i + 1].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11958	Transcript showCR:''some string'' , #someSymbol.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11959	^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11960	'.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11961	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11962
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11963	fontList
4398 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	^ #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11966	normal
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11967	underline
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11968	#'red underline'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11969	underwave
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11970	#'red underwave'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11971	bold
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11972	boldUnderline
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11973	#'bold+red underline'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11974	boldUnderwave
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11975	#'bold+red underwave'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11976	italic
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11977	italicUnderline
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11978	#'italic+red underline'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11979	italicUnderwave
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11980	#'italic+red underwave'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11981	reverse
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11982	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11983	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11984
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11985	!AbstractSettingsApplication::SyntaxColorSettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11986
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11987	defaultIcon
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11988	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11989	by the ImageEditor of ST/X."
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	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11992	the ImageEditor may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11993
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11994	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11995	self defaultIcon inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11996	ImageEditor openOnClass:self andSelector:#defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11997	Icon flushCachedIcons
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11998	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11999
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12000	<resource: #image>
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	^Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12003	constantNamed:#'AbstractSettingsApplication::SyntaxColorSettingsAppl class defaultIcon'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	12004	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	12005	DQDQDQDQDQDQDQDTQDQDQDQDQDQDPQQ@QDADQBP$QDP!!E@QDQ@QDIBQDP$DTADQDADQDQDQBPQPDQDPDQDQDQBQAE@QDQ@QDQDQDIDDTADQDADQDQDIDPQPD
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	12006	QDPDQDQDP$QAEDADPDQDQDP$QDDTQDQDQDQDQDQDPQQDADQDQDQDQDQAEDADQDQDQDQDQDDTPDQ@QDADQDQDPQP@A@PDA@Q@QDQAEDADA@PDADQDQDDTPDPD
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	12007	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	12008	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12009
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12010	!AbstractSettingsApplication::SyntaxColorSettingsAppl class methodsFor:'interface specs'!
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	windowSpec
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12013	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12014	by the UIPainter of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12015
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12016	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12017	the UIPainter may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12018
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12019	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12020	UIPainter new openOnClass:AbstractSettingsApplication::SyntaxColorSettingsAppl andSelector:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12021	AbstractSettingsApplication::SyntaxColorSettingsAppl new openInterface:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12022	AbstractSettingsApplication::SyntaxColorSettingsAppl open
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12023	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12024
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12025	<resource: #canvas>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12026
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12027	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12028	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12029	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12030	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12031	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12032	label: 'Syntax Color Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12033	name: 'Syntax Color Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12034	min: (Point 10 10)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12035	bounds: (Rectangle 0 0 695 609)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12036	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12037	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12038	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12039	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12040	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12041	name: 'VerticalPanel2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12042	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	12043	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12044	verticalLayout: topSpace
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12045	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12046	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12047	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12048	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12049	collection: (
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12050	(ViewSpec
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	12051	name: 'ElementSelectionBox'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12052	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12053	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12054	collection: (
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12055	(LabelSpec
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	12056	label: 'Element:'
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12057	name: 'Label4'
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	12058	layout: (LayoutFrame 0 0 0 0 100 0 22 0)
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	12059	translateLabel: true
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	12060	adjust: right
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12061	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12062	(ComboListSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12063	name: 'ComboList3'
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	12064	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	12065	enableChannel: syntaxColoring
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12066	model: syntaxElementSelection
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12067	comboList: syntaxElementList
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12068	useIndex: false
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12069	hidePullDownMenuButton: false
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12070	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12071	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12072
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12073	)
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	12074	extent: (Point 695 25)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12075	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12076	(ViewSpec
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	12077	name: 'ColorBox'
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	12078	component:
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	12079	(SpecCollection
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	12080	collection: (
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	12081	(LabelSpec
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	12082	label: 'Color:'
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	12083	name: 'Label2'
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	12084	layout: (LayoutFrame 40 0 0 0 140 0 22 0)
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	12085	translateLabel: true
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	12086	adjust: right
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	12087	)
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	12088	(ColorMenuSpec
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	12089	name: 'ColorMenu2'
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	12090	layout: (LayoutFrame 140 0 0 0 0 1 22 0)
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	12091	enableChannel: syntaxColoring
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	12092	model: syntaxColor
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	12093	labelsAreColored: true
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	12094	)
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	12095	)
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	12096
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	12097	)
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	12098	extent: (Point 695 25)
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	12099	)
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	12100	(ViewSpec
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	12101	name: 'EmphasisBox'
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12102	component:
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12103	(SpecCollection
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12104	collection: (
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12105	(LabelSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12106	label: 'Emphasis:'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12107	name: 'Label1'
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	12108	layout: (LayoutFrame 40 0 0 0 140 0 22 0)
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	12109	translateLabel: true
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	12110	adjust: right
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12111	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12112	(ComboListSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12113	name: 'ComboList5'
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	12114	layout: (LayoutFrame 140 0 0 0 0 1 22 0)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12115	enableChannel: syntaxColoring
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12116	model: syntaxEmphasisSelection
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12117	comboList: syntaxEmphasisList
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12118	useIndex: false
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12119	hidePullDownMenuButton: false
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12120	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12121	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12122
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12123	)
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	12124	extent: (Point 695 25)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12125	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12126	(ViewSpec
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	12127	name: 'ResetBox'
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12128	component:
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12129	(SpecCollection
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12130	collection: (
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12131	(ActionButtonSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12132	label: 'Reset To:'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12133	name: 'Button2'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12134	layout: (LayoutFrame 0 0 -22 1 150 0 0 1)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12135	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12136	model: resetToColorScheme
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12137	enableChannel: syntaxColoring
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12138	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12139	(ComboListSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12140	name: 'ComboList4'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12141	layout: (LayoutFrame 150 0 -22 1 0 1 0 1)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12142	enableChannel: syntaxColoring
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12143	model: resetListSelection
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12144	comboList: resetList
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12145	useIndex: false
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12146	hidePullDownMenuButton: false
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12147	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12148	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12149
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12150	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12151	extent: (Point 695 35)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12152	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12153	(ViewSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12154	name: 'SpacingBox1'
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	12155	extent: (Point 695 10)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12156	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12157	(LabelSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12158	label: 'Sample Output:'
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	12159	name: 'SampleLabel3'
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12160	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12161	adjust: left
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12162	extent: (Point 695 22)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12163	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12164	(TextEditorSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12165	name: 'TextEditor2'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12166	enableChannel: syntaxColoring
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12167	model: coloredText
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12168	hasHorizontalScrollBar: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12169	hasVerticalScrollBar: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12170	isReadOnly: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12171	extent: (Point 695 280)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12172	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12173	(ViewSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12174	name: 'SpacingBox2'
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	12175	extent: (Point 695 10)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12176	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12177	(CheckBoxSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12178	label: 'Syntax Coloring'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12179	name: 'CheckBox1'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12180	model: syntaxColoring
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12181	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12182	extent: (Point 695 22)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12183	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12184	(CheckBoxSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12185	label: 'Immediate Selector Check'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12186	name: 'ImmediateSelectorCheckBox'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12187	enableChannel: syntaxColoring
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12188	model: fullSelectorCheck
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12189	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12190	extent: (Point 695 22)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12191	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12192	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12193
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12194	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12195	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12196	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12197
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12198	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12199	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12200	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12201
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12202	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'actions'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12203
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12204	basicReadSettings
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12205	\|colorList resetListLoc\|
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12206
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12207	oldUserPreferences notNil ifTrue:[
6781 facbb533a366 * empty log message * Claus Gittinger <cg@exept.de> parents: 6780 diff changeset	12208	(UserPreferences reset; current) addAll:oldUserPreferences
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12209	].
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	12210
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	12211	self
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	12212	readAspects:
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	12213	#(
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	12214	syntaxColoring
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	12215	fullSelectorCheck
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	12216	)
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	12217	from:currentUserPrefs.
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	12218
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12219	oldUserPreferences := currentUserPrefs copy.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12220	colorList := UserPreferences syntaxColorNames.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12221	resetListLoc := currentUserPrefs listOfPredefinedSyntaxColoringSchemes
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12222	collect:[:entry \| entry second].
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12223	self resetList value:resetListLoc.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12224	self resetListSelection value:resetListLoc first.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12225	self syntaxEmphasisList value:self class emphasisList.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12226	self syntaxElementList value:colorList.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12227	self syntaxElementSelection value:(colorList at:1).
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12228	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12229
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12230	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12231
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12232	oldUserPreferences := currentUserPrefs copy.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12233	currentUserPrefs syntaxColoring:self syntaxColoring value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12234	currentUserPrefs at:#fullSelectorCheck put:self fullSelectorCheck value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12235	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12236
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	12237	helpFilename
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	12238	^ 'Launcher/sourceSettings.html'
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12239	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12240
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12241	recolor
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12242	\|text\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12243
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12244	self syntaxColoring value ifTrue:[
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12245	text := SyntaxHighlighter
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12246	formatMethod:self class exampleText
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12247	in:nil
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12248	using:currentUserPrefs.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12249	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12250	text := self class exampleText.
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	self coloredText value:text
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12253	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12254
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12255	resetToColorScheme
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12256	\|resetSelector\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12257
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	12258	resetSelector := resetListDictionary
c72e35116b13 instable state penk parents: 5040 diff changeset	12259	keyAtValue:(self resetListSelection value).
c72e35116b13 instable state penk parents: 5040 diff changeset	12260	currentUserPrefs perform:resetSelector.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12261	self recolor.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	12262	self updateModifiedChannel
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12263	! !
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	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'aspects'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12266
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12267	coloredText
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12268
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12269	coloredText isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12270	coloredText := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12271	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12272	^ coloredText.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12273	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12274
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12275	fullSelectorCheck
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12276
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12277	fullSelectorCheck isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12278	fullSelectorCheck := currentUserPrefs fullSelectorCheck asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	12279	fullSelectorCheck onChangeSend:#updateModifiedChannel to:self
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12280	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12281	^ fullSelectorCheck.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12282	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12283
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12284	resetList
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12285
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12286	resetList isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12287	resetList := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12288	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12289	^ resetList.
7099 786bfd931b07 control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 7080 diff changeset	12290
786bfd931b07 control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 7080 diff changeset	12291	"Modified: / 08-09-2006 / 16:00:58 / cg"
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12292	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12293
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12294	resetListSelection
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12295
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12296	resetListSelection isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12297	resetListSelection := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12298	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12299	^ resetListSelection.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12300	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12301
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12302	syntaxColor
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12303
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12304	syntaxColor isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12305	syntaxColor := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12306	syntaxColor addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12307	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12308	^ syntaxColor.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12309	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12310
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12311	syntaxColoring
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12312
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12313	syntaxColoring isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12314	syntaxColoring := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12315	syntaxColoring addDependent:self.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	12316	syntaxColoring onChangeSend:#updateModifiedChannel to:self.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12317	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12318	^ syntaxColoring.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12319	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12320
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12321	syntaxElementList
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12322	syntaxElementList isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12323	syntaxElementList := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12324	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12325	^ syntaxElementList.
7099 786bfd931b07 control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 7080 diff changeset	12326
786bfd931b07 control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 7080 diff changeset	12327	"Modified: / 08-09-2006 / 16:01:05 / cg"
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12328	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12329
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12330	syntaxElementSelection
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12331
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12332	syntaxElementSelection isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12333	syntaxElementSelection := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12334	syntaxElementSelection addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12335	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12336	^ syntaxElementSelection.
7099 786bfd931b07 control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 7080 diff changeset	12337
786bfd931b07 control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 7080 diff changeset	12338	"Modified: / 08-09-2006 / 16:01:08 / cg"
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12339	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12340
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12341	syntaxEmphasisList
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	12342	syntaxEmphasisList isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	12343	syntaxEmphasisList := ValueHolder new.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	12344	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	12345	^ syntaxEmphasisList.
7099 786bfd931b07 control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 7080 diff changeset	12346
786bfd931b07 control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 7080 diff changeset	12347	"Modified: / 08-09-2006 / 16:01:13 / cg"
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	12348	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	12349
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12350	syntaxEmphasisSelection
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12351
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12352	syntaxEmphasisSelection isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12353	syntaxEmphasisSelection := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12354	syntaxEmphasisSelection addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12355	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12356	^ syntaxEmphasisSelection.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12357	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12358
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12359	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'change & update'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12360
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12361	getEmphasis:anEmphasisOrSymbol
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12362	" return emphasis Symbol for emphasis or emphasis for emphasis symbol "
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12363
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12364	^ emphasisDictionary at:anEmphasisOrSymbol ifAbsent:[nil]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12365	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12366
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12367	syntaxColorChanged
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12368	currentUserPrefs at:(self syntaxColorSelector) put:(self syntaxColor value).
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12369	self recolor.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	12370	self updateModifiedChannel
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12371	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12372
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12373	syntaxElementSelectionChanged
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12374
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12375	\| syntaxEmphasisValue \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12376
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12377	self syntaxColor value:(currentUserPrefs perform:(self syntaxColorSelector)).
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12378	syntaxEmphasisValue := (currentUserPrefs perform:(self syntaxEmphasisSelector)).
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12379	self syntaxEmphasisSelection value:(self getEmphasis:syntaxEmphasisValue).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12380	self recolor.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12381	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12382
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12383	syntaxEmphasisSelectionChanged
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12384	\|em\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12385
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12386	em := self getEmphasis:self syntaxEmphasisSelection value.
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12387	currentUserPrefs at:(self syntaxEmphasisSelector) put:em.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12388	self recolor.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	12389	self updateModifiedChannel
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12390	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12391
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12392	update:something with:aParameter from:changedObject
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12393	changedObject == self syntaxElementSelection ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12394	self syntaxElementSelectionChanged.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12395	^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12396	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12397	changedObject == self syntaxColor ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12398	self syntaxColorChanged.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12399	^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12400	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12401	changedObject == self syntaxEmphasisSelection ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12402	self syntaxEmphasisSelectionChanged.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12403	^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12404	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12405	changedObject == self syntaxColoring ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12406	self recolor.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12407	^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12408	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12409
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12410	super update:something with:aParameter from:changedObject
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12411	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12412
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12413	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'initialization & release'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12414
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12415	initialize
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12416	self initializeEmphasisDictionary.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12417	super initialize.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12418
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12419	resetListDictionary := Dictionary new.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12420	currentUserPrefs listOfPredefinedSyntaxColoringSchemes do:[:entry \|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12421	resetListDictionary at:(entry at:1) put:(entry at:2)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12422	].
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12423	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12424
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12425	initializeEmphasisDictionary
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12426
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12427	emphasisDictionary := Dictionary new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12428	self class emphasisList do:[ : entry \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12429	entry == #'red underline' ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12430	emphasisDictionary at:entry put:(Array with:#underline with:(#underlineColor->Color red)).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12431	emphasisDictionary at:(Array with:#underline with:(#underlineColor->Color red)) put:entry.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12432	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12433	entry == #'red underwave' ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12434	emphasisDictionary at:entry put:(Array with:#underwave with:(#underlineColor->Color red)).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12435	emphasisDictionary at:(Array with:#underwave with:(#underlineColor->Color red)) put:entry.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12436	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12437	entry == #'bold+red underline' ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12438	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	12439	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	12440	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12441	entry == #'bold+red underwave' ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12442	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	12443	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	12444	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12445	entry == #'italic+red underline' ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12446	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	12447	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	12448	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12449	entry == #'italic+red underwave' ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12450	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	12451	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	12452	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12453	emphasisDictionary at:entry put:entry
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12454	]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12455	]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12456	]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12457	]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12458	]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12459	]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12460	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12461	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12462
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12463	release
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12464
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12465	oldUserPreferences notNil ifTrue:[
5943 df089099d96d Use #addAll: instead of #declareAllFrom:, since #declareAllFrom: Stefan Vogel <sv@exept.de> parents: 5920 diff changeset	12466	(UserPreferences reset; current) addAll:oldUserPreferences
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12467	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12468	super release
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12469	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12470
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12471	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'queries'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12472
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12473	hasUnsavedChanges
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12474	\|colorList colorPerformer emphasisPerformer\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12475
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12476	colorList := UserPreferences syntaxColorNames.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12477	colorList do:[:syntaxElement \|
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12478	colorPerformer := (self syntaxColorSelectorForElement:syntaxElement).
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12479	emphasisPerformer := (self syntaxEmphasisSelectorForElement:syntaxElement).
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12480	((oldUserPreferences perform:colorPerformer) ~= (currentUserPrefs perform:colorPerformer)) ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12481	^ true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12482	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12483	((oldUserPreferences perform:emphasisPerformer) ~= (currentUserPrefs perform:emphasisPerformer)) ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12484	^ true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12485	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12486	syntaxElement
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12487	].
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	12488
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	12489	(self
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	12490	hasChangedAspectIn:
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	12491	#(
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	12492	syntaxColoring
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	12493	fullSelectorCheck
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	12494	)
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	12495	asComparedTo:currentUserPrefs) ifTrue:[^ true].
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	12496
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12497	^ false
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12498	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12499
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12500	syntaxColorSelector
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12501	^ (self syntaxColorSelectorForElement:self syntaxElementSelection value)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12502	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12503
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12504	syntaxColorSelectorForElement:aSyntaxElement
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12505	^ (aSyntaxElement replChar:$ withString: '') asLowercaseFirst asSymbol
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12506	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12507
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12508	syntaxEmphasisSelector
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12509
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12510	^ self syntaxEmphasisSelectorForElement:(self syntaxElementSelection value)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12511	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12512
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12513	syntaxEmphasisSelectorForElement:anEmElement
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12514	^ (((self syntaxColorSelectorForElement:anEmElement) readStream upToAll: 'Color'), 'Emphasis')
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12515	asLowercaseFirst asSymbol
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12516	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12517
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	12518	!AbstractSettingsApplication::SystemMessageSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	12519
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12520	defaultIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	12521	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	12522	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	12523
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	12524	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	12525	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	12526
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	12527	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	12528	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	12529	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	12530	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	12531	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	12532
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	12533	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	12534
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	12535	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	12536	constantNamed:#'AbstractSettingsApplication::SystemMessageSettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	12537	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	12538	@@@@@@@@@@@@@PDA@P@@@@@@@@@@@@@@@@@@@@@@@PHB@0D@@@@@@@@@@@@@@@@@@@@@@PHDAPLC@P@@@@@@@@@@@@@@@@@@@@DBA PGA0 @@@@@@@@@@@@@
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	12539	@@@@@@@A@ XDA0\H@@@@@@@@@@@@@@@@@@@@@PHIA@(J@@@@@@@@@@@@@@@@@@@@@@DAB00MCP@@@@@@@@@@@@@@@@@@@@@@@@DN@@@@@@@@@@@@@@@@@@@@
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	12540	@@@@@@@AC @@@@@@@@@@@@@@@@@@@@@@@@@@@P8@@@@@@@@@@@@@@@@@@@@@@@<OC0PNDA@@DQD@@@@@@@@@@@@@@@<RD1LTEQXVE1 XDP@@@@@@@@@@@@@O
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	12541	D!!LSEATVE!!\XFAD@@@@@@@@@@@@@C1HSD1$UEAPZF1,\@@@@@@@@@@@@@@<RGQ4YF!!PTEAXVG@@@@@@@@@@@@@@OD!!4]FQ(TEAPVE!!0@@@@@@@@@@@@@C1H]
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	12542	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	12543	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	12544	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	12545
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12546	!AbstractSettingsApplication::SystemMessageSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12547
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12548	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12549	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12550	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12551
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12552	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12553	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12554
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12555	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	12556	UIPainter new openOnClass:AbstractSettingsApplication::SystemMessageSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	12557	AbstractSettingsApplication::SystemMessageSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	12558	AbstractSettingsApplication::SystemMessageSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12559	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12560
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12561	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12562
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12563	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12564	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12565	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12566	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12567	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12568	label: 'Messages Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12569	name: 'Messages Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12570	min: (Point 10 10)
6166 92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12571	bounds: (Rectangle 0 0 561 435)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12572	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12573	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12574	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12575	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12576	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12577	name: 'VerticalPanel2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12578	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	12579	horizontalLayout: fitSpace
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12580	verticalLayout: topSpace
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12581	horizontalSpace: 5
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12582	verticalSpace: 5
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12583	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12584	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12585	collection: (
6166 92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12586	(FramedBoxSpec
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12587	label: 'Info & Error Messages'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12588	name: 'FramedBox1'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12589	labelPosition: topLeft
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12590	translateLabel: true
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12591	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12592	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12593	collection: (
6166 92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12594	(CheckBoxSpec
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12595	label: 'VM Info Messages'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12596	name: 'VMInfoMessages'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12597	layout: (LayoutFrame 5 0 5 0 -5 1 27 0)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12598	model: vmInfo
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12599	translateLabel: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12600	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12601	(CheckBoxSpec
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12602	label: 'VM Error Messages'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12603	name: 'VMErrorMessages'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12604	layout: (LayoutFrame 5 0 30 0 -5 1 52 0)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12605	model: vmErrors
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12606	translateLabel: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12607	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12608	(CheckBoxSpec
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12609	label: 'Display Error Messages (Xlib, Xtlib, WinAPI ...)'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12610	name: 'DisplayErrorMessages'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12611	layout: (LayoutFrame 5 0 55 0 -5 1 77 0)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12612	model: displayErrors
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12613	translateLabel: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12614	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12615	(CheckBoxSpec
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12616	label: 'Other Info Messages'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12617	name: 'OtherInfoMessages'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12618	layout: (LayoutFrame 5 0 80 0 -5 1 102 0)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12619	model: classInfos
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12620	translateLabel: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	12621	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	12622	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	12623
933cd54deefe checkin from browser penk parents: 4292 diff changeset	12624	)
6166 92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12625	extent: (Point 551 133)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12626	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12627	(FramedBoxSpec
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12628	label: 'Change File'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12629	name: 'FramedBox2'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12630	labelPosition: topLeft
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12631	translateLabel: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12632	component:
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12633	(SpecCollection
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12634	collection: (
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12635	(CheckBoxSpec
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12636	label: 'Log compiles in Changefile'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12637	name: 'CheckBox1'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12638	layout: (LayoutFrame 5 0 5 0 -5 1 27 0)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12639	model: updChanges
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12640	translateLabel: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12641	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12642	(CheckBoxSpec
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12643	label: 'Log doIts in Changefile'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12644	name: 'CheckBox2'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12645	layout: (LayoutFrame 5 0 30 0 -5 1 52 0)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12646	model: logDoits
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12647	translateLabel: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12648	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12649	(LabelSpec
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12650	label: 'Changefile Name:'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12651	name: 'ChangefileNameLabel'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12652	layout: (LayoutFrame 5 0 55 0 200 0 77 0)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12653	translateLabel: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12654	adjust: right
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12655	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12656	(InputFieldSpec
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12657	name: 'ChangeFileNameEntryField'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12658	layout: (LayoutFrame 200 0 55 0 -5 1 77 0)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12659	model: changeFileName
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12660	immediateAccept: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12661	acceptOnReturn: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12662	acceptOnTab: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12663	acceptOnLostFocus: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12664	acceptOnPointerLeave: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12665	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12666	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12667
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12668	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12669	extent: (Point 551 110)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12670	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12671	(FramedBoxSpec
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12672	label: 'Audible Bell'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12673	name: 'FramedBox3'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12674	labelPosition: topLeft
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12675	translateLabel: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12676	component:
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12677	(SpecCollection
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12678	collection: (
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12679	(CheckBoxSpec
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12680	label: 'Beep for Info Dialogs'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12681	name: 'CheckBox3'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12682	layout: (LayoutFrame 5 0 5 0 -5 1 27 0)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12683	model: beepForInfoDialog
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12684	translateLabel: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12685	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12686	(CheckBoxSpec
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12687	label: 'Beep for Warning Dialogs'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12688	name: 'CheckBox4'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12689	layout: (LayoutFrame 5 0 30 0 -5 1 52 0)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12690	model: beepForWarningDialog
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12691	translateLabel: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12692	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12693	(CheckBoxSpec
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12694	label: 'Beep for Error Dialogs'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12695	name: 'CheckBox5'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12696	layout: (LayoutFrame 5 0 55 0 -5 1 77 0)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12697	model: beepForErrorDialog
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12698	translateLabel: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12699	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12700	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12701
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12702	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12703	extent: (Point 551 107)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12704	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12705	(FramedBoxSpec
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12706	label: 'Help'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12707	name: 'FramedBox4'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12708	labelPosition: topLeft
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12709	translateLabel: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12710	component:
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12711	(SpecCollection
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12712	collection: (
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12713	(CheckBoxSpec
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12714	label: 'Fly By Help'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12715	name: 'CheckBox6'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12716	layout: (LayoutFrame 5 0 5 0 -5 1 27 0)
6781 facbb533a366 * empty log message * Claus Gittinger <cg@exept.de> parents: 6780 diff changeset	12717	model: flyByHelpActive
6166 92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12718	translateLabel: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12719	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12720	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12721
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12722	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12723	extent: (Point 551 58)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12724	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12725	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12726
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12727	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12728	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12729	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12730
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12731	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12732	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12733	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12734
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12735	!AbstractSettingsApplication::SystemMessageSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12736
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12737	basicReadSettings
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12738	self
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12739	readAspects:
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12740	#(
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12741	beepForInfoDialog
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12742	beepForWarningDialog
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12743	beepForErrorDialog
6781 facbb533a366 * empty log message * Claus Gittinger <cg@exept.de> parents: 6780 diff changeset	12744	flyByHelpActive
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12745	)
6781 facbb533a366 * empty log message * Claus Gittinger <cg@exept.de> parents: 6780 diff changeset	12746	from:currentUserPrefs.
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12747
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12748	self vmInfo value:ObjectMemory infoPrinting.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12749	self vmErrors value:ObjectMemory debugPrinting.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12750	self classInfos value:Object infoPrinting.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12751	self displayErrors value:DeviceWorkstation errorPrinting.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12752	self changeFileName value:ObjectMemory nameForChanges.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12753	self logDoits value:Smalltalk logDoits.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12754	self updChanges value:Class updatingChanges.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12755	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12756
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12757	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12758
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12759	ObjectMemory infoPrinting:self vmInfo value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12760	ObjectMemory debugPrinting:self vmErrors value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12761	Object infoPrinting:self classInfos value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12762	DeviceWorkstation errorPrinting:self displayErrors value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12763	ObjectMemory nameForChanges:self changeFileName value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12764	Smalltalk logDoits:self logDoits value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12765	Class updateChanges:self updChanges value.
6163 00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	12766
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12767	self
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12768	writeAspects:
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12769	#(
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12770	beepForInfoDialog
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12771	beepForWarningDialog
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12772	beepForErrorDialog
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12773	flyByHelpActive
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12774	)
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12775	to:currentUserPrefs.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12776	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12777
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	12778	helpFilename
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	12779	^ 'Launcher/messageSettings.html'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12780	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12781
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12782	!AbstractSettingsApplication::SystemMessageSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12783
6163 00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	12784	beepForErrorDialog
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	12785	beepForErrorDialog isNil ifTrue:[
6781 facbb533a366 * empty log message * Claus Gittinger <cg@exept.de> parents: 6780 diff changeset	12786	beepForErrorDialog := currentUserPrefs beepForErrorDialog asValue.
6163 00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	12787	beepForErrorDialog onChangeSend:#updateModifiedChannel to:self
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	12788	].
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	12789	^ beepForErrorDialog.
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	12790	!
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	12791
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	12792	beepForInfoDialog
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	12793	beepForInfoDialog isNil ifTrue:[
6781 facbb533a366 * empty log message * Claus Gittinger <cg@exept.de> parents: 6780 diff changeset	12794	beepForInfoDialog := currentUserPrefs beepForInfoDialog asValue.
6163 00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	12795	beepForInfoDialog onChangeSend:#updateModifiedChannel to:self
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	12796	].
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	12797	^ beepForInfoDialog.
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	12798	!
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	12799
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	12800	beepForWarningDialog
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	12801	beepForWarningDialog isNil ifTrue:[
6781 facbb533a366 * empty log message * Claus Gittinger <cg@exept.de> parents: 6780 diff changeset	12802	beepForWarningDialog := currentUserPrefs beepForWarningDialog asValue.
6163 00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	12803	beepForWarningDialog onChangeSend:#updateModifiedChannel to:self
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	12804	].
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	12805	^ beepForWarningDialog.
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	12806	!
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	12807
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12808	changeFileName
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12809
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12810	changeFileName isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12811	changeFileName := ObjectMemory nameForChanges asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	12812	changeFileName onChangeSend:#updateModifiedChannel to:self
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12813	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12814	^ changeFileName.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12815	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12816
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12817	classInfos
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12818
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12819	classInfos isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12820	classInfos := Object infoPrinting asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	12821	classInfos onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12822	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12823	^ classInfos.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12824	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12825
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12826	displayErrors
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12827
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12828	displayErrors isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12829	displayErrors := DeviceWorkstation errorPrinting asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	12830	displayErrors onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12831	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12832	^ displayErrors.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12833	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12834
6781 facbb533a366 * empty log message * Claus Gittinger <cg@exept.de> parents: 6780 diff changeset	12835	flyByHelpActive
6166 92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12836	flyByHelp isNil ifTrue:[
6781 facbb533a366 * empty log message * Claus Gittinger <cg@exept.de> parents: 6780 diff changeset	12837	flyByHelp := currentUserPrefs flyByHelpActive asValue.
6166 92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12838	flyByHelp onChangeSend:#updateModifiedChannel to:self
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12839	].
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12840	^ flyByHelp.
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12841	!
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	12842
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12843	logDoits
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12844
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12845	logDoits isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12846	logDoits := Smalltalk logDoits asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	12847	logDoits onChangeSend:#updateModifiedChannel to:self
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12848	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12849	^ logDoits.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12850	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12851
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12852	updChanges
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12853
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12854	updChanges isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12855	updChanges := Class updatingChanges asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	12856	updChanges onChangeSend:#updateModifiedChannel to:self
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12857	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12858	^ updChanges.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12859	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12860
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12861	vmErrors
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	12862
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	12863	vmErrors isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	12864	vmErrors := ObjectMemory debugPrinting asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	12865	vmErrors onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	12866	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	12867	^ vmErrors.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	12868	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	12869
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12870	vmInfo
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12871
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12872	vmInfo isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12873	vmInfo := ObjectMemory infoPrinting asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	12874	vmInfo onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12875	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12876	^ vmInfo.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12877	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12878
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12879	!AbstractSettingsApplication::SystemMessageSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12880
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12881	hasUnsavedChanges
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	12882	(self
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	12883	hasChangedAspectIn:
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	12884	#(
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	12885	beepForInfoDialog
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	12886	beepForWarningDialog
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	12887	beepForErrorDialog
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	12888	flyByHelpActive
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	12889	)
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	12890	asComparedTo:currentUserPrefs) ifTrue:[^ true].
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	12891
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	12892	self vmInfo value ~= ObjectMemory infoPrinting ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	12893	self vmErrors value ~= ObjectMemory debugPrinting ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	12894	self classInfos value ~= Object infoPrinting ifTrue:[^ true].
6163 00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	12895	self logDoits value ~= Smalltalk logDoits ifTrue:[^ true].
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	12896	self updChanges value ~= Class updatingChanges ifTrue:[^ true].
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	12897	self changeFileName value ~= ObjectMemory nameForChanges ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	12898	self displayErrors value ~= DeviceWorkstation errorPrinting ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	12899	^ false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12900	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12901
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	12902	!AbstractSettingsApplication::ToolsSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	12903
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12904	defaultIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	12905	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	12906	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	12907
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	12908	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	12909	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	12910
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	12911	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	12912	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	12913	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	12914	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	12915	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	12916
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	12917	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	12918
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	12919	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	12920	constantNamed:#'AbstractSettingsApplication::ToolsSettingsAppl class defaultIcon'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	12921	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	12922	*****************************@@@@@@@@@@@@@J(@@@@@@@@@@@@@ @@@F(QD@@@@@B@@@@B((QD@@@@J(@@@@@@JLQ@@@@ @B$@@@)CD@@@B*@@
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	12923	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	12924	@@@@@@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	12925	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	12926
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12927	!AbstractSettingsApplication::ToolsSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12928
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12929	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12930	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12931	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12932
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12933	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12934	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12935
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12936	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	12937	UIPainter new openOnClass:AbstractSettingsApplication::ToolsSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	12938	AbstractSettingsApplication::ToolsSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	12939	AbstractSettingsApplication::ToolsSettingsAppl open
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	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12943
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12944	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12945	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12946	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12947	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12948	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12949	label: 'Tool Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12950	name: 'Tool Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12951	min: (Point 10 10)
5576 8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	12952	bounds: (Rectangle 0 0 607 786)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12953	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12954	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12955	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12956	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12957	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12958	name: 'VerticalPanel2'
5576 8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	12959	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	12960	horizontalLayout: fit
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12961	verticalLayout: top
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12962	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12963	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12964	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12965	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12966	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12967	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12968	label: 'Use the New System Browser'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12969	name: 'NewSystemBrowser'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12970	model: useNewSystemBrowser
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12971	translateLabel: true
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	12972	extent: (Point 607 25)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12973	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12974	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12975	label: 'Use the New File Browser'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12976	name: 'NewFileBrowser'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12977	model: useNewFileBrowser
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12978	translateLabel: true
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	12979	extent: (Point 607 25)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12980	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12981	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12982	label: 'Use the New VersionDiff Browser'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12983	name: 'VersionDiffBrowser'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12984	model: useNewVersionDiffBrowser
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12985	translateLabel: true
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	12986	extent: (Point 607 25)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12987	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12988	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12989	label: 'Use the New FileTree File Dialog'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12990	name: 'UseNewFileDialogCheckBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12991	model: useNewFileDialog
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12992	translateLabel: true
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	12993	extent: (Point 607 25)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12994	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12995	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12996	label: 'Use the New Settings Dialog'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12997	name: 'UseNewSettinsApplicationCheckBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12998	model: useNewSettingsApplication
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12999	translateLabel: true
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	13000	extent: (Point 607 25)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	13001	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	13002	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	13003	label: 'Use the New Process Monitor'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	13004	name: 'UseNewProcessMonitor'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	13005	model: useProcessMonitorV2
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	13006	translateLabel: true
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	13007	extent: (Point 607 25)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	13008	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	13009	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	13010	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	13011	name: 'ChangesBrowser'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	13012	model: useNewChangesBrowser
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	13013	translateLabel: true
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	13014	extent: (Point 607 25)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	13015	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	13016	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	13017	label: 'Use Hierarchical Inspector (not yet recommended)'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	13018	name: 'HierarchicalInspector'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	13019	model: useNewInspector
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	13020	translateLabel: true
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	13021	extent: (Point 607 25)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	13022	)
6742 62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	13023	(CheckBoxSpec
62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	13024	label: 'Use the Smalltalk Document Viewer'
62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	13025	name: 'UseSmalltalkDocumentViewer'
62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	13026	model: useSmalltalkDocumentViewer
62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	13027	translateLabel: true
62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	13028	extent: (Point 607 25)
62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	13029	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	13030	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	13031	name: 'Box2'
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	13032	extent: (Point 607 20)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	13033	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	13034	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	13035	label: 'Show Clock in Launcher'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	13036	name: 'Clock'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	13037	model: showClockInLauncher
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	13038	translateLabel: true
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	13039	extent: (Point 607 25)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	13040	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	13041	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	13042	name: 'Box3'
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	13043	extent: (Point 607 19)
5576 8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	13044	)
8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	13045	(HorizontalPanelViewSpec
8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	13046	name: 'HorizontalPanel1'
8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	13047	horizontalLayout: leftSpaceFit
8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	13048	verticalLayout: center
8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	13049	horizontalSpace: 3
8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	13050	verticalSpace: 3
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	13051	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	13052	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	13053	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	13054	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	13055	label: 'Transcripts Buffer Size:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	13056	name: 'Label1'
5576 8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	13057	translateLabel: true
8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	13058	resizeForLabel: true
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	13059	adjust: right
6072 470d0fb1c937 * empty log message * Claus Gittinger <cg@exept.de> parents: 6064 diff changeset	13060	extent: (Point 190 19)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	13061	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	13062	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	13063	name: 'Transcripts Buffer Size'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	13064	model: transcriptBufferSize
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	13065	type: number
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	13066	immediateAccept: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	13067	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	13068	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	13069	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	13070	acceptOnPointerLeave: true
6072 470d0fb1c937 * empty log message * Claus Gittinger <cg@exept.de> parents: 6064 diff changeset	13071	extent: (Point 408 24)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	13072	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13073	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13074
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13075	)
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	13076	extent: (Point 607 35)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13077	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13078	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13079
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13080	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13081	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13082	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13083
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13084	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13085	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13086	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13087
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13088	!AbstractSettingsApplication::ToolsSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13089
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13090	basicReadSettings
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	13091	self
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	13092	readAspects:
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	13093	#(
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	13094	useNewInspector
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	13095	useNewChangesBrowser
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	13096	useNewSystemBrowser
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	13097	useNewVersionDiffBrowser
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	13098	useNewFileBrowser
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	13099	useNewFileDialog
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	13100	useNewSettingsApplication
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	13101	useProcessMonitorV2
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	13102	useSmalltalkDocumentViewer
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	13103	showClockInLauncher
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	13104	)
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	13105	from:currentUserPrefs.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13106
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13107	Transcript current isExternalStream ifFalse:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13108	self transcriptBufferSize value:Transcript current lineLimit.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13109	].
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13110	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13111
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13112	basicSaveSettings
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	13113	\|showClock launcher reopenLauncher newSystemBrowserClass transcript\|
5594 06aba5d1bb6e NewSystemBrowser -> Tools::NewSystemBrowser Claus Gittinger <cg@exept.de> parents: 5583 diff changeset	13114
06aba5d1bb6e NewSystemBrowser -> Tools::NewSystemBrowser Claus Gittinger <cg@exept.de> parents: 5583 diff changeset	13115	newSystemBrowserClass := Tools::NewSystemBrowser ? NewSystemBrowser.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13116
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	13117	self
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	13118	writeAspects:
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	13119	#(
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	13120	useNewInspector
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	13121	useNewChangesBrowser
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	13122	useNewVersionDiffBrowser
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	13123	useNewFileDialog
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	13124	useProcessMonitorV2
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	13125	useSmalltalkDocumentViewer
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	13126	)
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	13127	to:currentUserPrefs.
6742 62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	13128
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	13129	currentUserPrefs useNewSettingsApplication ~= self useNewSettingsApplication value ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	13130	currentUserPrefs useNewSettingsApplication:self useNewSettingsApplication value.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	13131	].
5083 7fdf1e8c8f03 reopen launcher when systemBrowser setting changes Claus Gittinger <cg@exept.de> parents: 5080 diff changeset	13132
7fdf1e8c8f03 reopen launcher when systemBrowser setting changes Claus Gittinger <cg@exept.de> parents: 5080 diff changeset	13133	currentUserPrefs useNewSystemBrowser ~= self useNewSystemBrowser value ifTrue:[
7fdf1e8c8f03 reopen launcher when systemBrowser setting changes Claus Gittinger <cg@exept.de> parents: 5080 diff changeset	13134	currentUserPrefs useNewSystemBrowser:self useNewSystemBrowser value.
5594 06aba5d1bb6e NewSystemBrowser -> Tools::NewSystemBrowser Claus Gittinger <cg@exept.de> parents: 5583 diff changeset	13135	(self useNewSystemBrowser value and:[newSystemBrowserClass isLoaded]) ifTrue:[
06aba5d1bb6e NewSystemBrowser -> Tools::NewSystemBrowser Claus Gittinger <cg@exept.de> parents: 5583 diff changeset	13136	newSystemBrowserClass installInLauncher.
5083 7fdf1e8c8f03 reopen launcher when systemBrowser setting changes Claus Gittinger <cg@exept.de> parents: 5080 diff changeset	13137	] ifFalse:[
5594 06aba5d1bb6e NewSystemBrowser -> Tools::NewSystemBrowser Claus Gittinger <cg@exept.de> parents: 5583 diff changeset	13138	newSystemBrowserClass removeFromLauncher.
5083 7fdf1e8c8f03 reopen launcher when systemBrowser setting changes Claus Gittinger <cg@exept.de> parents: 5080 diff changeset	13139	].
7fdf1e8c8f03 reopen launcher when systemBrowser setting changes Claus Gittinger <cg@exept.de> parents: 5080 diff changeset	13140	reopenLauncher := true.
7fdf1e8c8f03 reopen launcher when systemBrowser setting changes Claus Gittinger <cg@exept.de> parents: 5080 diff changeset	13141	].
7fdf1e8c8f03 reopen launcher when systemBrowser setting changes Claus Gittinger <cg@exept.de> parents: 5080 diff changeset	13142
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13143	(Smalltalk at:#FileBrowserV2) isBehavior ifTrue:[
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	13144	currentUserPrefs useNewFileBrowser ~= self useNewFileBrowser value ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	13145	currentUserPrefs useNewFileBrowser:self useNewFileBrowser value.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	13146	(self useNewFileBrowser value and:[FileBrowserV2 isLoaded]) ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	13147	FileBrowserV2 installInLauncher.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	13148	] ifFalse:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13149	FileBrowserV2 removeFromLauncher.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	13150	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	13151	reopenLauncher := true.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	13152	]
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13153	].
5627 d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	13154
d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	13155	transcript := Transcript current.
d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	13156	(transcript notNil and:[transcript isExternalStream not]) ifTrue:[
d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	13157	launcher := transcript application.
d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	13158	].
d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	13159
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13160	showClock := self showClockInLauncher value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13161	currentUserPrefs showClockInLauncher ~= showClock ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13162	currentUserPrefs showClockInLauncher:showClock.
5627 d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	13163	launcher notNil ifTrue:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13164	showClock ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13165	launcher startClock
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13166	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13167	launcher stopClock
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13168	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13169	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13170	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13171	Inspector := currentUserPrefs inspectorClassSetting.
5627 d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	13172
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	13173	reopenLauncher ifTrue:[
5627 d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	13174	launcher notNil ifTrue:[
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	13175	launcher reopenLauncher.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	13176	]
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	13177	].
6757 fbce24177fdb transcript buffersize fix Claus Gittinger <cg@exept.de> parents: 6743 diff changeset	13178
fbce24177fdb transcript buffersize fix Claus Gittinger <cg@exept.de> parents: 6743 diff changeset	13179	transcript := Transcript current.
fbce24177fdb transcript buffersize fix Claus Gittinger <cg@exept.de> parents: 6743 diff changeset	13180	(transcript notNil and:[transcript isExternalStream not]) ifTrue:[
fbce24177fdb transcript buffersize fix Claus Gittinger <cg@exept.de> parents: 6743 diff changeset	13181	transcript lineLimit:self transcriptBufferSize value.
fbce24177fdb transcript buffersize fix Claus Gittinger <cg@exept.de> parents: 6743 diff changeset	13182	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13183	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13184
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	13185	helpFilename
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	13186	^ 'Launcher/toolSettings.html'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13187	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13188
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13189	!AbstractSettingsApplication::ToolsSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13190
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13191	showClockInLauncher
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	13192	showClockInLauncher isNil ifTrue:[
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	13193	showClockInLauncher := false asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	13194	showClockInLauncher onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	13195	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	13196	^ showClockInLauncher.
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	13197
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	13198	"Modified: / 21-09-2006 / 00:39:54 / cg"
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	13199	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	13200
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13201	transcriptBufferSize
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	13202	transcriptBufferSize isNil ifTrue:[
5627 d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	13203	transcriptBufferSize := 600 asValue. "/ Transcript current lineLimit asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	13204	transcriptBufferSize onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	13205	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	13206	^ transcriptBufferSize.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	13207	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	13208
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13209	useNewChangesBrowser
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	13210	useNewChangesBrowser isNil ifTrue:[
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	13211	useNewChangesBrowser := false asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	13212	useNewChangesBrowser onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	13213	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	13214	^ useNewChangesBrowser.
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	13215
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	13216	"Modified: / 21-09-2006 / 00:39:37 / cg"
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	13217	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	13218
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13219	useNewFileBrowser
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	13220	useNewFileBrowser isNil ifTrue:[
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	13221	useNewFileBrowser := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	13222	useNewFileBrowser onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	13223	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	13224	^ useNewFileBrowser.
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	13225
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	13226	"Modified: / 21-09-2006 / 00:39:19 / cg"
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	13227	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	13228
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13229	useNewFileDialog
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	13230	useNewFileDialog isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	13231	useNewFileDialog := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	13232	useNewFileDialog onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	13233	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	13234	^ useNewFileDialog.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	13235	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	13236
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13237	useNewInspector
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	13238	useNewInspector isNil ifTrue:[
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	13239	useNewInspector := false asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	13240	useNewInspector onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	13241	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	13242	^ useNewInspector.
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	13243
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	13244	"Modified: / 21-09-2006 / 00:38:41 / cg"
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	13245	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	13246
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13247	useNewSettingsApplication
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	13248	useNewSettingsApplication isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	13249	useNewSettingsApplication := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	13250	useNewSettingsApplication onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	13251	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	13252	^ useNewSettingsApplication.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	13253	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	13254
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13255	useNewSystemBrowser
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	13256	useNewSystemBrowser isNil ifTrue:[
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	13257	useNewSystemBrowser := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	13258	useNewSystemBrowser onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	13259	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	13260	^ useNewSystemBrowser.
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	13261
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	13262	"Modified: / 21-09-2006 / 00:39:02 / cg"
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	13263	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	13264
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13265	useNewVersionDiffBrowser
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	13266	useNewVersionDiffBrowser isNil ifTrue:[
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	13267	useNewVersionDiffBrowser := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	13268	useNewVersionDiffBrowser onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	13269	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	13270	^ useNewVersionDiffBrowser.
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	13271
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	13272	"Modified: / 21-09-2006 / 00:38:56 / cg"
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	13273	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	13274
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13275	useProcessMonitorV2
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	13276	useProcessMonitorV2 isNil ifTrue:[
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	13277	useProcessMonitorV2 := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	13278	useProcessMonitorV2 onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	13279	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	13280	^ useProcessMonitorV2.
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	13281
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	13282	"Modified: / 21-09-2006 / 00:38:50 / cg"
6742 62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	13283	!
62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	13284
62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	13285	useSmalltalkDocumentViewer
62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	13286	useSmalltalkDocumentViewer isNil ifTrue:[
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	13287	useSmalltalkDocumentViewer := nil asValue.
6742 62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	13288	useSmalltalkDocumentViewer onChangeSend:#updateModifiedChannel to:self
62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	13289	].
62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	13290	^ useSmalltalkDocumentViewer.
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	13291
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	13292	"Modified: / 21-09-2006 / 00:03:13 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13293	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13294
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13295	!AbstractSettingsApplication::ToolsSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13296
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13297	hasUnsavedChanges
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	13298	(self
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	13299	hasChangedAspectIn:
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	13300	#(
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	13301	useNewInspector
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	13302	useNewChangesBrowser
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	13303	useNewSystemBrowser
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	13304	useNewVersionDiffBrowser
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	13305	useNewFileBrowser
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	13306	useNewFileDialog
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	13307	useNewSettingsApplication
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	13308	useProcessMonitorV2
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	13309	useSmalltalkDocumentViewer
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	13310	showClockInLauncher
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	13311	)
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	13312	asComparedTo:currentUserPrefs) ifTrue:[^ true].
6742 62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	13313
5627 d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	13314	Transcript current isExternalStream ifFalse:[
d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	13315	(self transcriptBufferSize value ~= Transcript current lineLimit) ifTrue:[^ true].
d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	13316	].
d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	13317	^ false.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13318	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13319
4226 44e2f83cc526 initial checkin penk parents: diff changeset	13320	!AbstractSettingsApplication class methodsFor:'documentation'!
44e2f83cc526 initial checkin penk parents: diff changeset	13321
44e2f83cc526 initial checkin penk parents: diff changeset	13322	version
7348 ae51cb7d24de adding a per-module-repository must also enable the save button Claus Gittinger <cg@exept.de> parents: 7347 diff changeset	13323	^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.257 2006-09-29 12:47:00 cg Exp $'
ae51cb7d24de adding a per-module-repository must also enable the save button Claus Gittinger <cg@exept.de> parents: 7347 diff changeset	13324	! !

author	Claus Gittinger <cg@exept.de>
	Fri, 29 Sep 2006 14:47:00 +0200
changeset 7348	ae51cb7d24de
parent 7347	4df230873b7b
child 7385	c85a59467972
permissions	-rw-r--r--