hg/stx-libtool: AbstractSettingsApplication.st@823c6c4a0d48 (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
6769 4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	16	instanceVariableNames:'settingsString currentUserPrefs modifiedChannel settingsDialog
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	17	requestor'
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	18	classVariableNames:''
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	19	poolDictionaries:''
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	20	category:'Interface-Smalltalk'
4226 44e2f83cc526 initial checkin penk parents: diff changeset	21	!
44e2f83cc526 initial checkin penk parents: diff changeset	22
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	23	AbstractSettingsApplication subclass:#ByteCodeCompilerSettingsAppl
6769 4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	24	instanceVariableNames:'warnings warnSTX warnDollar warnOldStyle warnCommonMistakes
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	25	warnUnderscore warnCompatibility warnUnusedVars
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	26	warnAboutWrongVariableNames warnAboutBadComments
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	27	warnInconsistentReturnValues warnAboutLowercaseLocalVariableNames
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	28	allowQualifiedNames allowDollar allowReservedWordsAsSelectors
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	29	allowOldStyleAssignment allowUnderscore allowDolphinExtensions
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	30	allowSqueakExtensions allowVisualAgeESSymbolLiterals
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	31	allowFixedPointLiterals justInTimeCompilation canLoadBinaries
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	32	constantFoldingSelection keepSource constantFolding
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	33	constantFoldingOptions fullDebugSupport immutableArrays
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	34	enableUnderscore enableDollar'
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	35	classVariableNames:''
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	36	poolDictionaries:''
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	37	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	38	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	39
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	40	AbstractSettingsApplication subclass:#DebuggerSettingsAppl
6769 4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	41	instanceVariableNames:'showErrorNotifier showVerboseStack allowSendMailFromDebugger'
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	42	classVariableNames:''
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	43	poolDictionaries:''
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	44	privateIn:AbstractSettingsApplication
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	45	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	46
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	47	AbstractSettingsApplication subclass:#DisplaySettingsAppl
6769 4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	48	instanceVariableNames:'isColorMonitor useFixGrayPaletteLabel useFixPalette sizeY
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	49	clipEncodingListSelection sizeX monitorList ditherList
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	50	clipEncodingList ditherListSelection deepIcons monitorSelection
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	51	useFixPaletteLabel visualIsPseudoColor ditherSymsNotNil
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	52	useFixGrayPalette sizeInfos screen ditherStyles ditherSyms
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	53	screenDepthVisualLabelHolder maxCopyBufferSize'
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	54	classVariableNames:''
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	55	poolDictionaries:''
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	56	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	57	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	58
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	59	AbstractSettingsApplication subclass:#EditSettingsAppl
6769 4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	60	instanceVariableNames:'st80EditingMode tabsIs4 st80DoubleClickSelectMode
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	61	searchDialogIsModal startTextDragWithControl'
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	62	classVariableNames:''
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	63	poolDictionaries:''
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	64	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	65	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	66
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	67	AbstractSettingsApplication subclass:#FontSettingsAppl
6769 4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	68	instanceVariableNames:'filter allOfThem labelDef buttonDef listDef menuDef textDef
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	69	allFontLabelHolder buttonsFontLabelHolder textFontLabelHolder
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	70	labelsFontLabelHolder listsFontLabelHolder menusFontLabelHolder
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	71	allLabel buttonsLabel textLabel labelLabel listsLabel menuLabel'
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	72	classVariableNames:''
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	73	poolDictionaries:''
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	74	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	75	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	76
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	77	AbstractSettingsApplication subclass:#GeneralCompilerSettingsAppl
6769 4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	78	instanceVariableNames:'st80EditingMode tabsIs4 st80DoubleClickSelectMode
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	79	searchDialogIsModal startTextDragWithControl catchClassRedefs
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	80	fullHistoryUpdate historyLines keepSourceSelection keepSource
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	81	hasHistoryManager canLoadBinaries loadBinaries catchMethodRedefs'
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	82	classVariableNames:''
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	83	poolDictionaries:''
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	84	privateIn:AbstractSettingsApplication
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	85	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	86
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	87	AbstractSettingsApplication subclass:#HTTPStartServerSettingsApplication
6769 4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	88	instanceVariableNames:'portNumberChannel informationLabel hasNoCreatedServerChannel
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	89	hasCreatedServerChannel useFcgiHolder'
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	90	classVariableNames:'CreatedServers'
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	91	poolDictionaries:''
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	92	privateIn:AbstractSettingsApplication
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	93	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	94
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	95	AbstractSettingsApplication subclass:#KbdMappingSettingsAppl
6769 4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	96	instanceVariableNames:'selectedRawKey macroTextHolder selectedFunctionKey
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	97	labelTextHolder functionKeyList rawKeyList mappings'
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	98	classVariableNames:''
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	99	poolDictionaries:''
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	100	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	101	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	102
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	103	AbstractSettingsApplication subclass:#LanguageSettingsAppl
6769 4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	104	instanceVariableNames:'languageHolder languageIndexHolder languageList
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	105	languageListHolder listOfLanguages translatedLanguages
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	106	noticeLabelHolder currentFlagAndLanguageChannel
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	107	currentLanguageLabel perLanguageResources'
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	108	classVariableNames:''
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	109	poolDictionaries:''
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	110	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	111	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	112
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	113	AbstractSettingsApplication subclass:#MemorySettingsAppl
6769 4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	114	instanceVariableNames:'newSpaceSize maxOldSpace fastMoreLimit warningLabelHolder
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	115	codeTrigger codeLimit oldIncr compressLimit igcFreeLimit igcLimit
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	116	igcFreeAmount stackLimit supportsJustInTimeCompilation'
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	117	classVariableNames:''
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	118	poolDictionaries:''
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	119	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	120	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	121
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	122	AbstractSettingsApplication subclass:#MiscCommunicationSettingsAppl
6769 4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	123	instanceVariableNames:'remoteBrowsingEnabled windowMigrationEnabled
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	124	windowMigrationPassword windowMigrationAuthenticate
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	125	enablePasswordCheck'
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	126	classVariableNames:''
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	127	poolDictionaries:''
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	128	privateIn:AbstractSettingsApplication
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	129	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	130
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	131	AbstractSettingsApplication subclass:#MiscDisplaySettingsAppl
6769 4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	132	instanceVariableNames:'returnFocus focusFollowsMouse beepEnabled takeFocus
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	133	activateOnClick nativeWidgets nativeDialogs shadows
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	134	opaqueVariablePanelResize formatHostNameinWindowLabels
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	135	opaqueTableColumnResize hostNameInLabelHolder showAccelerators
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	136	newWindowLabelFormat formatHostNameWindowLabel'
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	137	classVariableNames:''
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	138	poolDictionaries:''
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	139	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	140	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	141
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	142	AbstractSettingsApplication subclass:#OsiSettingsAppl
6769 4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	143	instanceVariableNames:'osiACSEConnectionLogging osiROSEErrorLogging osiCMISEErrorLogging
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	144	osiACSEErrorLogging osiROSEPresent osiCMISEPresent
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	145	osiCMISEMessageLogging osiACSEDataLogging
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	146	osiROSEInvokationLogging osiACSEPresent osiROSEResponseLogging'
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	147	classVariableNames:''
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	148	poolDictionaries:''
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	149	privateIn:AbstractSettingsApplication
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	150	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	151
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	152	AbstractSettingsApplication subclass:#PrinterSettingsAppl
6769 4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	153	instanceVariableNames:'selectedUnit supportsColor topMargin rightMargin bottomMargin
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	154	landscape pageFormatList pageFormat unitList leftMargin
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	155	possiblePrinters printerType printerTypeSelection
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	156	printCommandList commandList printCommand printFilename
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	157	enableFormat enablelandscape enableMargins enableColorBox'
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	158	classVariableNames:''
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	159	poolDictionaries:''
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	160	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	161	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	162
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	163	AbstractSettingsApplication subclass:#ProcessorSchedulerSettingsAppl
6769 4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	164	instanceVariableNames:'dynamicPrios preemptive'
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	165	classVariableNames:''
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	166	poolDictionaries:''
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	167	privateIn:AbstractSettingsApplication
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	168	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	169
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	170	AbstractSettingsApplication subclass:#RDoItServerSettingsAppl
6769 4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	171	instanceVariableNames:'rDoitLogging rDoitsEnabled rDoitErrorLogging hasRDoitServer
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	172	rDoitErrorDebugging rDoitServerPortOrPath'
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	173	classVariableNames:''
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	174	poolDictionaries:''
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	175	privateIn:AbstractSettingsApplication
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	176	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	177
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	178	AbstractSettingsApplication subclass:#SQLServerSettingsAppl
6769 4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	179	instanceVariableNames:'sqlServerEnabled sqlSmalltalkServerEnabled sqlLogging
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	180	sqlDataLogging sqlErrorLogging hasSQLServer sqlErrorDebugging
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	181	sqlServerPort'
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	182	classVariableNames:''
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	183	poolDictionaries:''
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	184	privateIn:AbstractSettingsApplication
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	185	!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	186
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	187	AbstractSettingsApplication subclass:#STCCompilerSettingsAppl
6769 4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	188	instanceVariableNames:'cc ccOptions stcIncludes linkCommand stc linkArgs linkSharedArgs
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	189	canLoadBinaries stcDefines stcLibraries stcOptions stcLibraryPath
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	190	stcCompilationSelection stcCompilationList'
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	191	classVariableNames:''
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	192	poolDictionaries:''
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	193	privateIn:AbstractSettingsApplication
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	194	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	195
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	196	AbstractSettingsApplication subclass:#SourceCodeFormatSettingsAppl
6769 4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	197	instanceVariableNames:'spaceAfterKeywordSelector emptyLineAfterTemporaries tabIndent
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	198	autoFormat cStyleBlocks editorText maxLengthForSingleLineBlocks
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	199	blockArgumentsOnNewLine spaceAfterReturnToken
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	200	spaceAroundTemporaries spaceAfterBlockStart spaceBeforeBlockEnd
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	201	oldUserPreferences reformatLocked'
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	202	classVariableNames:''
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	203	poolDictionaries:''
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	204	privateIn:AbstractSettingsApplication
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	205	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	206
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	207	AbstractSettingsApplication subclass:#SourceCodeManagementSettingsAppl
6769 4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	208	instanceVariableNames:'sourceCacheDir useManager condenseSourceCache
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	209	syntaxColorConfiguration setupSourceCodeManager
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	210	checkClassesWhenCheckingIn formattingConfiguration
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	211	flushSourceCache localSourceFirst cvsIsSetup repositoryHolder
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	212	manager repository listOfModules cvsRootPrototypeList
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	213	addPerModuleRoot removeEnabled perModuleRootModule acceptChannel
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	214	removePerModuleRoot perModuleRoot cvsRootHolder
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	215	selectedPerModuleRoot cvsBinDirectoryHolder rootsPerModule
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	216	cvsLoginInModuleEnabled cvsLoginEnabled'
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	217	classVariableNames:''
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	218	poolDictionaries:''
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	219	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	220	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	221
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	222	AbstractSettingsApplication subclass:#StyleSettingsAppl
6769 4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	223	instanceVariableNames:'showStandardStylesOnly styleList selectedStyle
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	224	styleDirectoryContents infoLabelHolder noticeLabelHolder'
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	225	classVariableNames:''
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	226	poolDictionaries:''
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	227	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	228	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	229
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	230	AbstractSettingsApplication subclass:#SyntaxColorSettingsAppl
6769 4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	231	instanceVariableNames:'coloredText syntaxColor syntaxColors resetList resetListSelection
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	232	fullSelectorCheck syntaxColoring oldUserPreferences
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	233	syntaxFontSelector syntaxFonts syntaxElementList
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	234	syntaxElementSelection syntaxEmphasisList syntaxEmphasisSelection
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	235	emphasisDictionary resetListDictionary'
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	236	classVariableNames:''
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	237	poolDictionaries:''
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	238	privateIn:AbstractSettingsApplication
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	239	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	240
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	241	AbstractSettingsApplication subclass:#SystemMessageSettingsAppl
6769 4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	242	instanceVariableNames:'classInfos vmInfo vmErrors displayErrors logDoits updChanges
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	243	changeFileName beepForInfoDialog beepForWarningDialog
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	244	beepForErrorDialog flyByHelp'
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	245	classVariableNames:''
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	246	poolDictionaries:''
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	247	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	248	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	249
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	250	AbstractSettingsApplication subclass:#ToolsSettingsAppl
6769 4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	251	instanceVariableNames:'useNewVersionDiffBrowser transcriptBufferSize useNewInspector
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	252	showClockInLauncher useNewChangesBrowser useNewFileBrowser
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	253	useNewSystemBrowser useNewFileDialog useNewSettingsApplication
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	254	useProcessMonitorV2 useSmalltalkDocumentViewer'
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	255	classVariableNames:''
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	256	poolDictionaries:''
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	257	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	258	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	259
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	260	!AbstractSettingsApplication class methodsFor:'documentation'!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	261
5140 36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	262	copyright
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	263	"
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	264	COPYRIGHT (c) 2002 by eXept Software AG
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	265	All Rights Reserved
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	266
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	267	This software is furnished under a license and may be used
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	268	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	269	inclusion of the above copyright notice. This software may not
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	270	be provided or otherwise made available to, or used by, any
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	271	other person. No title to or ownership of the software is
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	272	hereby transferred.
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	273	"
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	274	! !
4226 44e2f83cc526 initial checkin penk parents: diff changeset	275
4292 68504047f229 * empty log message * penk parents: 4286 diff changeset	276	!AbstractSettingsApplication class methodsFor:'defaults'!
68504047f229 * empty log message * penk parents: 4286 diff changeset	277
68504047f229 * empty log message * penk parents: 4286 diff changeset	278	classResources
68504047f229 * empty log message * penk parents: 4286 diff changeset	279
68504047f229 * empty log message * penk parents: 4286 diff changeset	280	^ AbstractLauncherApplication classResources
5563 5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	281	!
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	282
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	283	resourcePackName
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	284	^ AbstractLauncherApplication resourcePackName
4292 68504047f229 * empty log message * penk parents: 4286 diff changeset	285	! !
68504047f229 * empty log message * penk parents: 4286 diff changeset	286
5283 9264c15059e7 category change penk parents: 5280 diff changeset	287	!AbstractSettingsApplication class methodsFor:'interface specs'!
9264c15059e7 category change penk parents: 5280 diff changeset	288
9264c15059e7 category change penk parents: 5280 diff changeset	289	windowSpec
9264c15059e7 category change penk parents: 5280 diff changeset	290	self subclassResponsibility
9264c15059e7 category change penk parents: 5280 diff changeset	291	! !
9264c15059e7 category change penk parents: 5280 diff changeset	292
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	293	!AbstractSettingsApplication class methodsFor:'queries'!
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	294
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	295	isVisualStartable
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	296	"return true, if this application can be started via #open.
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	297	(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	298
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	299	(self == AbstractSettingsApplication) ifTrue:[^ false "I am abstract"].
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	300	^ super isVisualStartable
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	301	! !
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	302
4705 16cfb945d591 * empty log message * penk parents: 4675 diff changeset	303	!AbstractSettingsApplication methodsFor:'accessing'!
16cfb945d591 * empty log message * penk parents: 4675 diff changeset	304
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	305	requestor:something
4705 16cfb945d591 * empty log message * penk parents: 4675 diff changeset	306	"set the value of the instance variable 'requestor' (automatically generated)"
16cfb945d591 * empty log message * penk parents: 4675 diff changeset	307
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	308	requestor := something.
5031 86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	309	!
86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	310
86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	311	settingsDialog
86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	312	^ settingsDialog
86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	313	!
86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	314
86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	315	settingsDialog:something
86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	316	settingsDialog := something.
4705 16cfb945d591 * empty log message * penk parents: 4675 diff changeset	317	! !
16cfb945d591 * empty log message * penk parents: 4675 diff changeset	318
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	319	!AbstractSettingsApplication methodsFor:'actions'!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	320
4598 330907eab7e0 * empty log message * penk parents: 4581 diff changeset	321	evaluateModified
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	322	self obsoleteMethodWarning.
c72e35116b13 instable state penk parents: 5040 diff changeset	323	^ self updateModifiedChannel.
4598 330907eab7e0 * empty log message * penk parents: 4581 diff changeset	324	!
330907eab7e0 * empty log message * penk parents: 4581 diff changeset	325
6029 40b96dc2621d * empty log message * ca parents: 6025 diff changeset	326	reopenToolsAfterChangedViewStyleSetting
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	327	\|app transcript\|
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	328
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	329	DebugView newDebugger.
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	330	transcript := Transcript current.
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	331	(transcript notNil and:[transcript isExternalStream not]) ifTrue:[
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	332	app := transcript topView application.
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	333	(app respondsTo:#reopenLauncher) ifTrue:[
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	334	app reopenLauncher.
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	335	].
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	336	].
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	337	!
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	338
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	339	saveRequest
4944 fce7d52d36da * empty log message * Claus Gittinger <cg@exept.de> parents: 4941 diff changeset	340	^ self saveRequestAsking:self askForChangeOnRelease
4941 42d9b274824d askForSaving fixed Claus Gittinger <cg@exept.de> parents: 4899 diff changeset	341	!
42d9b274824d askForSaving fixed Claus Gittinger <cg@exept.de> parents: 4899 diff changeset	342
42d9b274824d askForSaving fixed Claus Gittinger <cg@exept.de> parents: 4899 diff changeset	343	saveRequestAsking:askForChangeOnRelease
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	344	\|result\|
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	345
6383 62aec07a7f42 * empty log message * Claus Gittinger <cg@exept.de> parents: 6358 diff changeset	346	self hasUnsavedChanges ifTrue:[
4941 42d9b274824d askForSaving fixed Claus Gittinger <cg@exept.de> parents: 4899 diff changeset	347	askForChangeOnRelease ifTrue:[
4825 97ccd5a946f4 next step penk parents: 4813 diff changeset	348	result := self confirmWithCancel:(resources
6757 fbce24177fdb transcript buffersize fix Claus Gittinger <cg@exept.de> parents: 6743 diff changeset	349	string:'Save changes made in %1 ?' with:settingsString allBold).
4825 97ccd5a946f4 next step penk parents: 4813 diff changeset	350	] ifFalse:[
97ccd5a946f4 next step penk parents: 4813 diff changeset	351	result := true.
97ccd5a946f4 next step penk parents: 4813 diff changeset	352	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	353	result isNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	354	^ false
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	355	].
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	356	result ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	357	self saveSettings
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	358	] ifFalse:[
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	359	self readSettings
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	360	]
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	361	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	362	^ true
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	363	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	364
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	365	saveSettingsIfUnsavedChangesArePresent
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	366	self hasUnsavedChanges ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	367	self saveSettings.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	368	self modifiedChannel value:false
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	369	].
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	370	!
c72e35116b13 instable state penk parents: 5040 diff changeset	371
c72e35116b13 instable state penk parents: 5040 diff changeset	372	updateModifiedChannel
c72e35116b13 instable state penk parents: 5040 diff changeset	373	self modifiedChannel value:self hasUnsavedChanges
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	374	! !
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	375
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	376	!AbstractSettingsApplication methodsFor:'aspects'!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	377
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	378	modifiedChannel
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	379
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	380	modifiedChannel isNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	381	modifiedChannel := false asValue.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	382	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	383	^ modifiedChannel
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	384	! !
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	385
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	386	!AbstractSettingsApplication methodsFor:'initialization'!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	387
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	388	initialize
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	389	super initialize.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	390	resources := self class classResources.
6125 09320e47ccb2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6108 diff changeset	391	self initializeCurrentUserPreferences.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	392	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	393	"/ self readSettings.
6125 09320e47ccb2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6108 diff changeset	394	!
09320e47ccb2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6108 diff changeset	395
09320e47ccb2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6108 diff changeset	396	initializeCurrentUserPreferences
09320e47ccb2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6108 diff changeset	397	currentUserPrefs := UserPreferences current.
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	398	! !
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	399
5078 9fafc6b058bc new middleButtonMenu for remove service in SettingsDialog penk parents: 5076 diff changeset	400	!AbstractSettingsApplication methodsFor:'menu'!
9fafc6b058bc new middleButtonMenu for remove service in SettingsDialog penk parents: 5076 diff changeset	401
5080 9c9736712295 middleButtonMenu fix penk parents: 5078 diff changeset	402	settingsDialogPopUpMenu
5078 9fafc6b058bc new middleButtonMenu for remove service in SettingsDialog penk parents: 5076 diff changeset	403	^ nil
9fafc6b058bc new middleButtonMenu for remove service in SettingsDialog penk parents: 5076 diff changeset	404	! !
9fafc6b058bc new middleButtonMenu for remove service in SettingsDialog penk parents: 5076 diff changeset	405
4324 289972d3e455 * empty log message * penk parents: 4319 diff changeset	406	!AbstractSettingsApplication methodsFor:'protocol'!
289972d3e455 * empty log message * penk parents: 4319 diff changeset	407
4873 3ffb8a8812ec * empty log message * penk parents: 4851 diff changeset	408	askForChangeOnRelease
5011 42d7fed9da6a ask for changes Claus Gittinger <cg@exept.de> parents: 4986 diff changeset	409	^ true "/ false
4825 97ccd5a946f4 next step penk parents: 4813 diff changeset	410	!
97ccd5a946f4 next step penk parents: 4813 diff changeset	411
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	412	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	413
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	414	self subclassResponsibility.
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
4324 289972d3e455 * empty log message * penk parents: 4319 diff changeset	417	help
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	418	\|filename\|
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	419
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	420	filename := self helpFilename.
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	421	filename isNil ifTrue:[
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	422	self warn:'Sorry - no help available here.'.
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	423	^ self.
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	424	].
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	425	self withWaitCursorDo:[
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	426	HTMLDocumentView openFullOnHelpFile:filename
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	427	].
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	428	!
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	429
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	430	helpFilename
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	431	"subclasses must return the relative name of a helpFile
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	432	in the doc/online/<language>/help directory.
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	433	Or nil, if no help is available."
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	434
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	435	self subclassResponsibility
4324 289972d3e455 * empty log message * penk parents: 4319 diff changeset	436	!
4226 44e2f83cc526 initial checkin penk parents: diff changeset	437
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	438	readSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	439	self subclassResponsibility
4240 f196089fe934 next stage for settings penk parents: 4228 diff changeset	440	!
f196089fe934 next stage for settings penk parents: 4228 diff changeset	441
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	442	saveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	443	self basicSaveSettings.
6125 09320e47ccb2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6108 diff changeset	444
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	445	self modifiedChannel value:false.
4226 44e2f83cc526 initial checkin penk parents: diff changeset	446	! !
44e2f83cc526 initial checkin penk parents: diff changeset	447
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	448	!AbstractSettingsApplication methodsFor:'queries'!
1bde09704293 * empty log message * penk parents: 4893 diff changeset	449
6358 582d839d5b93 * empty log message * Claus Gittinger <cg@exept.de> parents: 6346 diff changeset	450	hasUnsavedChanges
582d839d5b93 * empty log message * Claus Gittinger <cg@exept.de> parents: 6346 diff changeset	451
582d839d5b93 * empty log message * Claus Gittinger <cg@exept.de> parents: 6346 diff changeset	452	^ self subclassResponsibility
582d839d5b93 * empty log message * Claus Gittinger <cg@exept.de> parents: 6346 diff changeset	453	!
582d839d5b93 * empty log message * Claus Gittinger <cg@exept.de> parents: 6346 diff changeset	454
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	455	itemPathName
6389 9f4010737320 code cleanup Claus Gittinger <cg@exept.de> parents: 6383 diff changeset	456	^ settingsDialog getNameOfApplication:self.
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	457	! !
1bde09704293 * empty log message * penk parents: 4893 diff changeset	458
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	459	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class methodsFor:'defaults'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	460
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	461	constantFoldingOptions
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	462
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	463	^ #( nil #level1 #level2 #full )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	464	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	465
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	466	constantFoldingStrings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	467
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	468	^ #('disabled' 'level1 (always safe)' 'level2 (usually safe)' 'full')
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	469	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	470
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	471	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class methodsFor:'image specs'!
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	472
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	473	defaultIcon
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	474	^ self defaultIcon3
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	475	!
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	476
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	477	defaultIcon1
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	478	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	479	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	480
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	481	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	482	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	483
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	484	"
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	485	self defaultIcon1 inspect
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	486	ImageEditor openOnClass:self andSelector:#defaultIcon1
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	487	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	488	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	489
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	490	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	491
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	492	^Icon
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	493	constantNamed:#'AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class defaultIcon1'
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	494	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	495	@@@@@@@@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	496	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	497	!
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	498
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	499	defaultIcon2
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	500	"This resource specification was automatically generated
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	501	by the ImageEditor of ST/X."
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	502
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	503	"Do not manually edit this!! If it is corrupted,
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	504	the ImageEditor may not be able to read the specification."
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	505
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	506	"
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	507	self defaultIcon2 inspect
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	508	ImageEditor openOnClass:self andSelector:#defaultIcon2
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	509	Icon flushCachedIcons
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	510	"
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	511
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	512	<resource: #image>
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	513
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	514	^Icon
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	515	constantNamed:#'AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class defaultIcon2'
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	516	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	517	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	518	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	519	@@@@@@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	520	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	521	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	522	@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	523	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	524	!
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	525
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	526	defaultIcon3
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	527	"This resource specification was automatically generated
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	528	by the ImageEditor of ST/X."
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	529
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	530	"Do not manually edit this!! If it is corrupted,
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	531	the ImageEditor may not be able to read the specification."
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	532
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	533	"
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	534	self defaultIcon3 inspect
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	535	ImageEditor openOnClass:self andSelector:#defaultIcon3
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	536	Icon flushCachedIcons
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	537	"
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	538
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	539	<resource: #image>
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	540
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	541	^Icon
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	542	constantNamed:#'AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class defaultIcon3'
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	543	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	544	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	545	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	546	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	547	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	548	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	549	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	550	A@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PD') ; colorMapFromArray:#[255 189 23 127 127 127 236 233 216 0 0 0 255 255 255 194 194 194 161 161 165]; mask:((Depth1Image new) width: 24; height: 24; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@A @@C0@@33@A?? A?? @??@@??@C??0G??8G??8C??0@??@@??@A?? A?? @33@@C0@@A @@@@@@@@@@@@@') ; yourself); yourself]
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	551	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	552
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	553	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class methodsFor:'interface specs'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	554
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	555	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	556	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	557	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	558
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	559	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	560	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	561
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	562	"
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	563	UIPainter new openOnClass:AbstractSettingsApplication::ByteCodeCompilerSettingsAppl andSelector:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	564	AbstractSettingsApplication::ByteCodeCompilerSettingsAppl new openInterface:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	565	AbstractSettingsApplication::ByteCodeCompilerSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	566	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	567
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	568	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	569
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	570	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	571	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	572	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	573	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	574	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	575	label: 'Byte Code Compiler Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	576	name: 'Byte Code Compiler Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	577	min: (Point 10 10)
6473 d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	578	bounds: (Rectangle 0 0 665 689)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	579	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	580	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	581	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	582	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	583	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	584	name: 'VerticalPanel1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	585	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	586	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	587	verticalLayout: top
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	588	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	589	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	590	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	591	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	592	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	593	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	594	label: 'Just in Time Compilation to Machine Code'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	595	name: 'JustInTimeCompilation'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	596	model: justInTimeCompilation
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	597	translateLabel: true
6473 d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	598	extent: (Point 665 25)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	599	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	600	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	601	name: 'Separator3'
6473 d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	602	extent: (Point 665 3)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	603	)
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	604	(ViewSpec
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	605	name: 'Box1'
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	606	component:
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	607	(SpecCollection
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	608	collection: (
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	609	(VerticalPanelViewSpec
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	610	name: 'VerticalPanel1_1'
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	611	layout: (LayoutFrame 0 0 0 0 -20 0.5 0 1)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	612	horizontalLayout: fit
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	613	verticalLayout: top
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	614	horizontalSpace: 3
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	615	verticalSpace: 3
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	616	component:
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	617	(SpecCollection
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	618	collection: (
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	619	(CheckBoxSpec
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	620	label: 'Allow Underscore in Identifiers'
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	621	name: 'AllowUnderscoreInIdentifiers'
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	622	model: allowUnderscoreInIdentifier
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	623	translateLabel: true
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	624	extent: (Point 313 22)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	625	)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	626	(CheckBoxSpec
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	627	label: 'Allow Dollar in Identifiers'
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	628	name: 'AllowDollarInIdentifiers'
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	629	model: allowDollarInIdentifier
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	630	translateLabel: true
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	631	extent: (Point 313 22)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	632	)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	633	(CheckBoxSpec
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	634	label: 'Allow VW3 QualifiedNames'
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	635	name: 'AllowVW3QualifiedNames'
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	636	model: allowQualifiedNames
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	637	translateLabel: true
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	638	extent: (Point 313 22)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	639	)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	640	(CheckBoxSpec
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	641	label: 'Allow OldStyle Assignment (_)'
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	642	name: 'AllowOldStyleAssignment'
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	643	model: allowOldStyleAssignment
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	644	translateLabel: true
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	645	extent: (Point 313 22)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	646	)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	647	(CheckBoxSpec
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	648	label: 'Allow Reserved Words as Selector (self)'
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	649	name: 'AllowReservedWordsAsSelector'
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	650	model: allowReservedWordsAsSelectors
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	651	translateLabel: true
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	652	extent: (Point 313 22)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	653	)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	654	)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	655
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	656	)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	657	)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	658	(VerticalPanelViewSpec
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	659	name: 'VerticalPanel1_2'
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	660	layout: (LayoutFrame 0 0.5 0 0 0 1 0 1)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	661	horizontalLayout: left
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	662	verticalLayout: top
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	663	horizontalSpace: 3
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	664	verticalSpace: 3
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	665	component:
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	666	(SpecCollection
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	667	collection: (
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	668	(CheckBoxSpec
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	669	label: 'Allow Squeak Extensions'
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	670	name: 'AllowSqueakExtensions'
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	671	model: allowSqueakExtensions
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	672	translateLabel: true
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	673	extent: (Point 665 22)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	674	)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	675	(CheckBoxSpec
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	676	label: 'Allow Dolphin Extensions'
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	677	name: 'AllowDolphinExtensions'
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	678	model: allowDolphinExtensions
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	679	translateLabel: true
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	680	extent: (Point 665 22)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	681	)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	682	(CheckBoxSpec
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	683	label: 'Allow VisualAge ES-Symbols'
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	684	name: 'AllowVisualAgeESSymbolLiterals'
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	685	model: allowVisualAgeESSymbolLiterals
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	686	translateLabel: true
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	687	extent: (Point 665 22)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	688	)
6578 560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	689	(CheckBoxSpec
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	690	label: 'Allow FixedPoint-Number Literals'
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	691	name: 'AllowFixedPointLiterals'
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	692	model: allowFixedPointLiterals
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	693	translateLabel: true
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	694	extent: (Point 665 22)
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	695	)
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	696	)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	697
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	698	)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	699	)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	700	)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	701
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	702	)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	703	extent: (Point 665 118)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	704	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	705	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	706	name: 'Separator4'
6473 d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	707	extent: (Point 665 3)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	708	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	709	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	710	label: 'Warnings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	711	name: 'Warnings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	712	model: warnings
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	713	translateLabel: true
6473 d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	714	extent: (Point 665 22)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	715	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	716	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	717	name: 'Box2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	718	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	719	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	720	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	721	(VerticalPanelViewSpec
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	722	name: 'VerticalPanel2_1'
6497 a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	723	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	724	horizontalLayout: fit
6497 a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	725	verticalLayout: top
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	726	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	727	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	728	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	729	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	730	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	731	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	732	label: 'ST/X Extensions'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	733	name: 'STXExtensions'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	734	enableChannel: warnings
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	735	model: warnSTXSpecials
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	736	translateLabel: true
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	737	extent: (Point 313 22)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	738	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	739	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	740	label: 'Underscores in Identifiers'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	741	name: 'UnderscoresInIdentifiers'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	742	enableChannel: enableUnderscore
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	743	model: warnUnderscoreInIdentifier
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	744	translateLabel: true
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	745	extent: (Point 313 22)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	746	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	747	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	748	label: 'Dollars in Identifiers'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	749	name: 'DollarsInIdentifiers'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	750	enableChannel: enableDollar
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	751	model: warnDollarInIdentifier
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	752	translateLabel: true
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	753	extent: (Point 313 22)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	754	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	755	(CheckBoxSpec
6497 a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	756	label: 'OldStyle Assignment'
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	757	name: 'OldStyleAssignment'
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	758	enableChannel: warnings
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	759	model: warnOldStyleAssignment
6497 a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	760	translateLabel: true
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	761	extent: (Point 313 22)
6497 a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	762	)
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	763	(CheckBoxSpec
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	764	label: 'Possible Incompatibilities'
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	765	name: 'PossibleIncompatibilities'
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	766	enableChannel: warnings
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	767	model: warnPossibleIncompatibilities
6497 a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	768	translateLabel: true
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	769	extent: (Point 313 22)
6497 a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	770	)
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	771	)
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	772
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	773	)
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	774	)
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	775	(VerticalPanelViewSpec
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	776	name: 'VerticalPanel2_2'
6497 a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	777	layout: (LayoutFrame 0 0.5 0 0 0 1 0 1)
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	778	horizontalLayout: left
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	779	verticalLayout: top
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	780	horizontalSpace: 3
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	781	verticalSpace: 3
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	782	component:
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	783	(SpecCollection
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	784	collection: (
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	785	(CheckBoxSpec
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	786	label: 'Unused Method Variables'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	787	name: 'UnusedMethodVariables'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	788	enableChannel: warnings
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	789	model: warnUnusedVars
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	790	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	791	extent: (Point 600 22)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	792	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	793	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	794	label: 'Common Mistakes'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	795	name: 'CommonMistakes'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	796	enableChannel: warnings
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	797	model: warnCommonMistakes
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	798	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	799	extent: (Point 600 22)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	800	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	801	(CheckBoxSpec
6497 a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	802	label: 'Bad (non-English) Variable Names'
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	803	name: 'BadVariableNames'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	804	enableChannel: warnings
6497 a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	805	model: warnAboutWrongVariableNames
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	806	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	807	extent: (Point 600 22)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	808	)
6473 d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	809	(CheckBoxSpec
6769 4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	810	label: 'Bad (Lowercase) Local Variable Names'
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	811	name: 'BadLocalVariableNames'
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	812	enableChannel: warnings
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	813	model: warnAboutLowercaseLocalVariableNames
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	814	translateLabel: true
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	815	extent: (Point 600 22)
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	816	)
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	817	(CheckBoxSpec
6497 a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	818	label: 'Bad (empty) Comments'
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	819	name: 'BadComments'
6473 d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	820	enableChannel: warnings
6497 a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	821	model: warnAboutBadComments
6473 d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	822	translateLabel: true
d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	823	extent: (Point 600 22)
d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	824	)
6580 db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	825	(CheckBoxSpec
db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	826	label: 'Inconsistent Return Values'
db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	827	name: 'InconsistentReturnValues'
db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	828	enableChannel: warnings
db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	829	model: warnInconsistentReturnValues
db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	830	translateLabel: true
db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	831	extent: (Point 600 22)
db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	832	)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	833	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	834
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	835	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	836	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	837	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	838
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	839	)
6769 4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	840	extent: (Point 665 150)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	841	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	842	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	843	name: 'Separator5'
6473 d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	844	extent: (Point 665 2)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	845	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	846	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	847	label: 'Literal Arrays are Immutable'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	848	name: 'LiteralArraysAreImmutable'
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	849	model: arraysAreImmutable
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	850	translateLabel: true
6473 d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	851	extent: (Point 665 22)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	852	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	853	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	854	label: 'Full Debug Info'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	855	name: 'FullDebugInfo'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	856	model: fullDebugSupport
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	857	translateLabel: true
6473 d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	858	extent: (Point 665 22)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	859	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	860	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	861	name: 'Separator6'
6473 d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	862	extent: (Point 665 2)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	863	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	864	(ViewSpec
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	865	name: 'Box3'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	866	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	867	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	868	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	869	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	870	label: 'Constant Folding:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	871	name: 'ConstantFoldingLabel'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	872	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	873	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	874	adjust: right
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	875	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	876	(PopUpListSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	877	label: 'PopUp List'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	878	name: 'ConstantFolding'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	879	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	880	tabable: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	881	model: constantFoldingSelection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	882	menu: constantFolding
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	883	useIndex: true
4428 00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	884	)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	885	)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	886
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	887	)
6473 d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	888	extent: (Point 665 22)
4428 00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	889	)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	890	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	891
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	892	)
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
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	896	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	897	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	898	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	899
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	900	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'actions'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	901
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	902	basicSaveSettings
6497 a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	903	"/ todo: move all compiler interface to ParserFlags
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	904
6537 a7066e1e79f3 * empty log message * Claus Gittinger <cg@exept.de> parents: 6536 diff changeset	905	ParserFlags warnings:self warnings value.
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	906	ParserFlags warnSTXSpecials:self warnSTXSpecials value.
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	907	ParserFlags warnOldStyleAssignment:self warnOldStyleAssignment value.
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	908	ParserFlags warnUnderscoreInIdentifier:self warnUnderscoreInIdentifier value.
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	909	ParserFlags warnDollarInIdentifier:self warnDollarInIdentifier value.
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	910	ParserFlags warnCommonMistakes:self warnCommonMistakes value.
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	911	ParserFlags warnPossibleIncompatibilities:self warnPossibleIncompatibilities value.
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	912	ParserFlags warnUnusedVars:self warnUnusedVars value.
6497 a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	913	ParserFlags warnAboutWrongVariableNames:self warnAboutWrongVariableNames value.
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	914	ParserFlags warnAboutBadComments:self warnAboutBadComments value.
6580 db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	915	ParserFlags warnInconsistentReturnValues:self warnInconsistentReturnValues value.
6769 4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	916	ParserFlags warnAboutLowercaseLocalVariableNames:self warnAboutLowercaseLocalVariableNames value.
6473 d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	917
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	918	ParserFlags allowUnderscoreInIdentifier:self allowUnderscoreInIdentifier value.
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	919	ParserFlags allowDollarInIdentifier:self allowDollarInIdentifier value.
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	920	ParserFlags allowSqueakExtensions:self allowSqueakExtensions value.
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	921	ParserFlags allowDolphinExtensions:self allowDolphinExtensions value.
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	922	ParserFlags allowQualifiedNames:self allowQualifiedNames value.
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	923	ParserFlags allowOldStyleAssignment:self allowOldStyleAssignment value.
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	924	ParserFlags allowReservedWordsAsSelectors:self allowReservedWordsAsSelectors value.
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	925	ParserFlags allowVisualAgeESSymbolLiterals:self allowVisualAgeESSymbolLiterals value.
6578 560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	926	ParserFlags allowFixedPointLiterals:self allowFixedPointLiterals value.
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	927
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	928	ParserFlags arraysAreImmutable:self arraysAreImmutable value.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	929	self fullDebugSupport value ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	930	Compiler lineNumberInfo:#full.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	931	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	932	Compiler lineNumberInfo:true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	933	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	934
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	935	Compiler foldConstants:(self class constantFoldingOptions at:self constantFoldingSelection value).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	936
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	937	self supportsJustInTimeCompilation ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	938	\| justInTime \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	939	justInTime := self justInTimeCompilation value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	940	justInTime ifTrue:[
6662 3deee4183f1d code cleanup: use new Smalltalk>>allMethodsDo: Claus Gittinger <cg@exept.de> parents: 6638 diff changeset	941	Smalltalk allMethodsDo:[:m \| m checked:false].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	942	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	943	ObjectMemory justInTimeCompilation:justInTime.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	944	ObjectMemory fullSingleStepSupport:self fullDebugSupport value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	945	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	946	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	947
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	948	helpFilename
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	949	^ 'Launcher/compilerSettings.html'
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	950	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	951
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	952	readSettings
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	953	self allowDollarInIdentifier value:(ParserFlags allowDollarInIdentifier ? false).
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	954	self allowDolphinExtensions value:(ParserFlags allowDolphinExtensions ? false).
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	955	self allowOldStyleAssignment value:(ParserFlags allowOldStyleAssignment ? false).
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	956	self allowQualifiedNames value:(ParserFlags allowQualifiedNames ? false).
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	957	self allowReservedWordsAsSelectors value:(ParserFlags allowReservedWordsAsSelectors ? false).
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	958	self allowSqueakExtensions value:(ParserFlags allowSqueakExtensions ? false).
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	959	self allowUnderscoreInIdentifier value:(ParserFlags allowUnderscoreInIdentifier ? false).
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	960	self allowVisualAgeESSymbolLiterals value:(ParserFlags allowVisualAgeESSymbolLiterals ? false).
6578 560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	961	self allowFixedPointLiterals value:(ParserFlags allowFixedPointLiterals ? false).
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	962
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	963	self constantFoldingSelection
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	964	value:(self class constantFoldingOptions indexOf:Compiler foldConstants
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	965	ifAbsent:3).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	966	self supportsJustInTimeCompilation ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	967	self fullDebugSupport value:(ObjectMemory fullSingleStepSupport ? false)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	968	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	969	self fullDebugSupport value:(Compiler lineNumberInfo == #full)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	970	].
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	971	self arraysAreImmutable value:(Compiler arraysAreImmutable ? false).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	972	self supportsJustInTimeCompilation ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	973	self justInTimeCompilation
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	974	value:(ObjectMemory justInTimeCompilation ? false)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	975	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	976	self justInTimeCompilation value:false
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	977	].
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	978
6537 a7066e1e79f3 * empty log message * Claus Gittinger <cg@exept.de> parents: 6536 diff changeset	979	self warnings value:(ParserFlags warnings ? false).
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	980	self warnCommonMistakes value:(ParserFlags warnCommonMistakes ? false).
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	981	self warnPossibleIncompatibilities value:(ParserFlags warnPossibleIncompatibilities ? false).
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	982	self warnDollarInIdentifier value:(ParserFlags warnDollarInIdentifier ? false).
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	983	self warnOldStyleAssignment value:(ParserFlags warnOldStyleAssignment ? false).
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	984	self warnSTXSpecials value:(ParserFlags warnSTXSpecials ? false).
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	985	self warnUnderscoreInIdentifier value:(ParserFlags warnUnderscoreInIdentifier ? false).
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	986	self warnUnusedVars value:(ParserFlags warnUnusedVars ? false).
6497 a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	987	self warnAboutWrongVariableNames value:(ParserFlags warnAboutWrongVariableNames ? false).
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	988	self warnAboutBadComments value:(ParserFlags warnAboutBadComments ? false).
6580 db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	989	self warnInconsistentReturnValues value:(ParserFlags warnInconsistentReturnValues ? false).
6769 4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	990	self warnAboutLowercaseLocalVariableNames value:(ParserFlags warnAboutLowercaseLocalVariableNames ? false).
6580 db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	991
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	992	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	993	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	994
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	995	stcCompilerSettings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	996
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	997	AbstractLauncherApplication::LauncherDialogs stcCompilerSettings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	998	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	999
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1000	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'aspects'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1001
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1002	allowDollarInIdentifier
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1003
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1004	allowDollar isNil ifTrue:[
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1005	allowDollar := Compiler allowDollarInIdentifier asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1006	allowDollar onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1007	allowDollar addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1008	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1009	^ allowDollar.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1010	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1011
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1012	allowDolphinExtensions
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1013
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1014	allowDolphinExtensions isNil ifTrue:[
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1015	allowDolphinExtensions := Compiler allowDolphinExtensions asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1016	allowDolphinExtensions onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1017	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1018	^ allowDolphinExtensions.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1019	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1020
6578 560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	1021	allowFixedPointLiterals
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	1022
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	1023	allowFixedPointLiterals isNil ifTrue:[
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	1024	allowFixedPointLiterals := (ParserFlags allowFixedPointLiterals ? false) asValue.
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	1025	allowFixedPointLiterals onChangeSend:#updateModifiedChannel to:self.
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	1026	].
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	1027	^ allowFixedPointLiterals.
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	1028	!
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	1029
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1030	allowOldStyleAssignment
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1031
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1032	allowOldStyleAssignment isNil ifTrue:[
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1033	allowOldStyleAssignment := Compiler allowOldStyleAssignment asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1034	allowOldStyleAssignment onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1035	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1036	^ allowOldStyleAssignment.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1037	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1038
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1039	allowQualifiedNames
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1040
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1041	allowQualifiedNames isNil ifTrue:[
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1042	allowQualifiedNames := Compiler allowQualifiedNames asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1043	allowQualifiedNames onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1044	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1045	^ allowQualifiedNames.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1046	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1047
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1048	allowReservedWordsAsSelectors
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1049
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1050	allowReservedWordsAsSelectors isNil ifTrue:[
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1051	allowReservedWordsAsSelectors := Compiler allowReservedWordsAsSelectors asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1052	allowReservedWordsAsSelectors onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1053	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1054	^ allowReservedWordsAsSelectors.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1055	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1056
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1057	allowSqueakExtensions
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1058
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1059	allowSqueakExtensions isNil ifTrue:[
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1060	allowSqueakExtensions := Compiler allowSqueakExtensions asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1061	allowSqueakExtensions onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1062	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1063	^ allowSqueakExtensions.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1064	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1065
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1066	allowUnderscoreInIdentifier
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1067
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1068	allowUnderscore isNil ifTrue:[
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1069	allowUnderscore := Compiler allowUnderscoreInIdentifier asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1070	allowUnderscore onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1071	allowUnderscore addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1072	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1073	^ allowUnderscore.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1074	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1075
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1076	allowVisualAgeESSymbolLiterals
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1077
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1078	allowVisualAgeESSymbolLiterals isNil ifTrue:[
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1079	allowVisualAgeESSymbolLiterals := ParserFlags allowVisualAgeESSymbolLiterals asValue.
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1080	allowVisualAgeESSymbolLiterals onChangeSend:#updateModifiedChannel to:self.
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1081	].
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1082	^ allowVisualAgeESSymbolLiterals.
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1083	!
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1084
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1085	arraysAreImmutable
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1086
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1087	immutableArrays isNil ifTrue:[
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1088	immutableArrays := Compiler arraysAreImmutable asValue.
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1089	immutableArrays onChangeSend:#updateModifiedChannel to:self.
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1090	].
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1091	^ immutableArrays.
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1092	!
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1093
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1094	constantFolding
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1095
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1096	constantFolding isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1097	constantFolding := (resources array:(self class constantFoldingStrings)) asList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1098	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1099	^ constantFolding.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1100	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1101
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1102	constantFoldingOptions
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1103
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1104	constantFoldingOptions isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1105	constantFoldingOptions := self class constantFoldingOptions.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1106	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1107	^ constantFoldingOptions.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1108	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1109
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1110	constantFoldingSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1111
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1112	constantFoldingSelection isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1113	\| index \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1114	index := self class constantFoldingOptions indexOf:Compiler foldConstants ifAbsent:3.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1115	constantFoldingSelection := index asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1116	constantFoldingSelection onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1117	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1118	^ constantFoldingSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1119	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1120
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1121	enableDollar
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1122
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1123	enableDollar isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1124	enableDollar := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1125	enableDollar addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1126	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1127	^ enableDollar.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1128	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1129
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1130	enableUnderscore
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1131	"automatically generated by UIPainter ..."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1132
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1133	"*** the code below creates a default model when invoked."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1134	"*** (which may not be the one you wanted)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1135	"*** Please change as required and accept it in the browser."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1136	"*** (and replace this comment by something more useful ;-)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1137
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1138	enableUnderscore isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1139	enableUnderscore := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1140	"/ if your app needs to be notified of changes, uncomment one of the lines below:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1141	"/ enableUnderscore addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1142	"/ enableUnderscore onChangeSend:#enableUnderscoreChanged to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1143	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1144	^ enableUnderscore.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1145	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1146
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1147	fullDebugSupport
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1148
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1149	fullDebugSupport isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1150	self supportsJustInTimeCompilation ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1151	fullDebugSupport := (ObjectMemory fullSingleStepSupport ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1152	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1153	fullDebugSupport := (Compiler lineNumberInfo == #full) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1154	].
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1155	fullDebugSupport onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1156	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1157	^ fullDebugSupport.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1158	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1159
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1160	justInTimeCompilation
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1161
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1162	justInTimeCompilation isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1163	self supportsJustInTimeCompilation ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1164	justInTimeCompilation := (ObjectMemory justInTimeCompilation ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1165	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1166	justInTimeCompilation := false asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1167	].
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1168	justInTimeCompilation onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1169	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1170	^ justInTimeCompilation.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1171	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1172
6497 a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1173	warnAboutBadComments
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1174	warnAboutBadComments isNil ifTrue:[
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1175	warnAboutBadComments := ParserFlags warnAboutBadComments asValue.
6497 a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1176	warnAboutBadComments onChangeSend:#updateModifiedChannel to:self.
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1177	].
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1178	^ warnAboutBadComments.
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1179	!
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1180
6769 4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	1181	warnAboutLowercaseLocalVariableNames
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	1182	warnAboutLowercaseLocalVariableNames isNil ifTrue:[
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1183	warnAboutLowercaseLocalVariableNames := ParserFlags warnAboutLowercaseLocalVariableNames asValue.
6769 4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	1184	warnAboutLowercaseLocalVariableNames onChangeSend:#updateModifiedChannel to:self.
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	1185	].
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	1186	^ warnAboutLowercaseLocalVariableNames.
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	1187	!
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	1188
6473 d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	1189	warnAboutWrongVariableNames
d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	1190	warnAboutWrongVariableNames isNil ifTrue:[
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1191	warnAboutWrongVariableNames := ParserFlags warnAboutWrongVariableNames asValue.
6473 d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	1192	warnAboutWrongVariableNames onChangeSend:#updateModifiedChannel to:self.
d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	1193	].
d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	1194	^ warnAboutWrongVariableNames.
d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	1195	!
d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	1196
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1197	warnCommonMistakes
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1198
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1199	warnCommonMistakes isNil ifTrue:[
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1200	warnCommonMistakes := ParserFlags warnCommonMistakes asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1201	warnCommonMistakes onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1202	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1203	^ warnCommonMistakes.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1204	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1205
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1206	warnDollarInIdentifier
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1207
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1208	warnDollar isNil ifTrue:[
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1209	warnDollar := ParserFlags warnDollarInIdentifier asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1210	warnDollar onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1211	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1212	^ warnDollar.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1213	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1214
6580 db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	1215	warnInconsistentReturnValues
db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	1216	warnInconsistentReturnValues isNil ifTrue:[
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1217	warnInconsistentReturnValues := ParserFlags warnInconsistentReturnValues asValue.
6580 db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	1218	warnInconsistentReturnValues onChangeSend:#updateModifiedChannel to:self.
db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	1219	].
db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	1220	^ warnInconsistentReturnValues.
db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	1221	!
db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	1222
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1223	warnOldStyleAssignment
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1224
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1225	warnOldStyle isNil ifTrue:[
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1226	warnOldStyle := ParserFlags warnOldStyleAssignment asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1227	warnOldStyle onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1228	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1229	^ warnOldStyle.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1230	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1231
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1232	warnPossibleIncompatibilities
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1233
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1234	warnCompatibility isNil ifTrue:[
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1235	warnCompatibility := ParserFlags warnPossibleIncompatibilities asValue.
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1236	warnCompatibility onChangeSend:#updateModifiedChannel to:self.
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1237	].
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1238	^ warnCompatibility.
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1239	!
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1240
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1241	warnSTXSpecials
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1242
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1243	warnSTX isNil ifTrue:[
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1244	warnSTX := ParserFlags warnSTXSpecials asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1245	warnSTX onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1246	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1247	^ warnSTX.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1248	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1249
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1250	warnUnderscoreInIdentifier
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1251
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1252	warnUnderscore isNil ifTrue:[
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1253	warnUnderscore := ParserFlags warnUnderscoreInIdentifier asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1254	warnUnderscore onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1255	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1256	^ warnUnderscore.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1257	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1258
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1259	warnUnusedVars
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1260
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1261	warnUnusedVars isNil ifTrue:[
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1262	warnUnusedVars := Compiler warnUnusedVars asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1263	warnUnusedVars onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1264	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1265	^ warnUnusedVars.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1266	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1267
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1268	warnings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1269
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1270	warnings isNil ifTrue:[
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1271	warnings := ParserFlags warnings asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1272	warnings addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1273	warnings changed.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1274	warnings onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1275	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1276	^ warnings.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1277	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1278
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1279	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'change & update'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1280
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1281	update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1282	changedObject == self warnings ifTrue:[
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	1283	changedObject value ifTrue:[
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1284	self enableUnderscore value:self allowUnderscoreInIdentifier value.
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1285	self enableDollar value:self allowDollarInIdentifier value.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1286	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1287	self enableUnderscore value:false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1288	self enableDollar value:false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1289	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1290	^ self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1291	].
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1292	(changedObject == self allowDollarInIdentifier or:[changedObject == self allowUnderscoreInIdentifier]) ifTrue:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1293	self warnings changed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1294	^ self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1295	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1296
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1297	super update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1298	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1299
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1300	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'queries'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1301
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1302	hasUnsavedChanges
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1303	#(
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1304	warnings
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1305	warnCommonMistakes
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1306	warnUnusedVars
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1307	warnAboutWrongVariableNames
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1308	warnAboutBadComments
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1309	warnInconsistentReturnValues
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1310	warnAboutLowercaseLocalVariableNames
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1311	warnSTXSpecials
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1312	warnOldStyleAssignment
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1313	warnUnderscoreInIdentifier
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1314	warnDollarInIdentifier
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1315	warnPossibleIncompatibilities
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1316
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1317	allowVisualAgeESSymbolLiterals
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1318	allowSqueakExtensions
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1319	allowDolphinExtensions
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1320	allowQualifiedNames
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1321	allowOldStyleAssignment
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1322	allowReservedWordsAsSelectors
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1323	allowUnderscoreInIdentifier
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1324	allowDollarInIdentifier
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1325	allowFixedPointLiterals
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1326	arraysAreImmutable
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1327	)
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1328	do:[:aspect \|
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1329	(self perform:aspect) value ~= (ParserFlags perform:aspect) ifTrue:[^ true].
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1330	].
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1331
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	1332	((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	1333	((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	1334	((ObjectMemory justInTimeCompilation ? false) ~= self justInTimeCompilation value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	1335	^ false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1336	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1337
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1338	supportsJustInTimeCompilation
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1339
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1340	^ ObjectMemory supportsJustInTimeCompilation
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1341	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1342
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1343	!AbstractSettingsApplication::DebuggerSettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1344
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1345	defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1346	<resource: #programImage>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1347
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1348	^ ToolbarIconLibrary bugReporter24x24Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1349	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1350
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1351	!AbstractSettingsApplication::DebuggerSettingsAppl class methodsFor:'interface specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1352
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1353	windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1354	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1355	by the UIPainter of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1356
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1357	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1358	the UIPainter may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1359
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1360	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1361	UIPainter new openOnClass:AbstractSettingsApplication::DebuggerSettingsAppl andSelector:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1362	AbstractSettingsApplication::DebuggerSettingsAppl new openInterface:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1363	AbstractSettingsApplication::DebuggerSettingsAppl open
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1364	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1365
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1366	<resource: #canvas>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1367
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1368	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1369	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1370	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1371	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1372	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1373	label: 'Debugger Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1374	name: 'Debugger Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1375	min: (Point 10 10)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1376	bounds: (Rectangle 14 46 614 366)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1377	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1378	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1379	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1380	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1381	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1382	name: 'VerticalPanel2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1383	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	1384	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1385	verticalLayout: top
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1386	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1387	verticalSpace: 5
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1388	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1389	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1390	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1391	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1392	name: 'VerticalPanel5'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1393	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1394	verticalLayout: topSpace
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1395	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1396	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1397	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1398	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1399	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1400	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1401	name: 'Box10'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1402	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1403	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1404	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1405	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1406	label: 'Show Error Notifier before Opening Debugger'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1407	name: 'ShowErrorNotifierCheckBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1408	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	1409	model: showErrorNotifier
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1410	translateLabel: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1411	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1412	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1413
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1414	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1415	extent: (Point 600 30)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1416	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1417	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1418	name: 'Box11'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1419	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1420	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1421	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1422	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1423	label: 'Verbose Backtrace by Default in Debugger'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1424	name: 'ShowVerboseStackCheckBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1425	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	1426	model: showVerboseStack
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1427	translateLabel: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1428	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1429	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1430
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1431	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1432	extent: (Point 600 30)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1433	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1434	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1435	name: 'Box12'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1436	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1437	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1438	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1439	(CheckBoxSpec
6018 4f403b3bd8ea * empty log message * Claus Gittinger <cg@exept.de> parents: 6017 diff changeset	1440	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	1441	name: 'CheckBox6'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1442	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	1443	model: allowSendMailFromDebugger
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1444	translateLabel: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1445	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1446	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1447
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1448	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1449	extent: (Point 600 30)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1450	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1451	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1452
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1453	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1454	extent: (Point 600 320)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1455	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1456	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1457
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1458	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1459	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1460	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1461
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1462	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1463	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1464	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1465
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1466	!AbstractSettingsApplication::DebuggerSettingsAppl methodsFor:'actions'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1467
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1468	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1469	currentUserPrefs allowSendMailFromDebugger:self allowSendMailFromDebugger value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1470	self showErrorNotifier value ifFalse:[
6165 2bd97fffdf95 EmergencyHandlers have been relocated to NoHandlerError long ago Stefan Vogel <sv@exept.de> parents: 6163 diff changeset	1471	NoHandlerError emergencyHandler:nil
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1472	] ifTrue:[
6165 2bd97fffdf95 EmergencyHandlers have been relocated to NoHandlerError long ago Stefan Vogel <sv@exept.de> parents: 6163 diff changeset	1473	NoHandlerError emergencyHandler:(AbstractLauncherApplication notifyingEmergencyHandler)
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1474	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1475	DebugView defaultVerboseBacktrace:self showVerboseStack value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1476	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1477
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	1478	helpFilename
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	1479	^ 'Launcher/debuggerSettings.html'
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1480	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1481
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1482	readSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1483	self allowSendMailFromDebugger
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1484	value:currentUserPrefs allowSendMailFromDebugger.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1485	self showErrorNotifier value:(NoHandlerError emergencyHandler
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1486	== AbstractLauncherApplication notifyingEmergencyHandler).
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1487	self showVerboseStack value:(DebugView defaultVerboseBacktrace ? false).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1488	self modifiedChannel value:false
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1489	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1490
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1491	!AbstractSettingsApplication::DebuggerSettingsAppl methodsFor:'aspects'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1492
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1493	allowSendMailFromDebugger
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1494
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1495	allowSendMailFromDebugger isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1496	allowSendMailFromDebugger := currentUserPrefs allowSendMailFromDebugger asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1497	allowSendMailFromDebugger onChangeSend:#updateModifiedChannel to:self
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1498	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1499	^ allowSendMailFromDebugger.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1500	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1501
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1502	showErrorNotifier
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1503
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1504	showErrorNotifier isNil ifTrue:[
4566 af369740e2bc Replace referneces to Exception. Stefan Vogel <sv@exept.de> parents: 4563 diff changeset	1505	showErrorNotifier := (NoHandlerError emergencyHandler == AbstractLauncherApplication notifyingEmergencyHandler) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1506	showErrorNotifier onChangeSend:#updateModifiedChannel to:self
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1507	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1508	^ showErrorNotifier.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1509	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1510
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1511	showVerboseStack
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1512
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1513	showVerboseStack isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1514	showVerboseStack := (DebugView defaultVerboseBacktrace ? false) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1515	showVerboseStack onChangeSend:#updateModifiedChannel to:self
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1516	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1517	^ showVerboseStack.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1518	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1519
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1520	!AbstractSettingsApplication::DebuggerSettingsAppl methodsFor:'queries'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1521
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1522	hasUnsavedChanges
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	1523	self showErrorNotifier value ~= (NoHandlerError emergencyHandler == AbstractLauncherApplication notifyingEmergencyHandler) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	1524	DebugView defaultVerboseBacktrace ? false ~= self showVerboseStack value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	1525	(UserPreferences current at:#allowSendMailFromDebugger ifAbsent:true) ~= self allowSendMailFromDebugger value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	1526	^ false
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1527	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1528
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1529	!AbstractSettingsApplication::DisplaySettingsAppl class methodsFor:'defaults'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1530
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1531	clipEncodingStrings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1532
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1533	^ #('untranslated' 'iso8859' 'jis' 'jis7' 'shift-JIS' 'EUC' 'big5')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1534	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1535
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1536	clipEncodingSyms
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1537
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1538	^ #(nil #iso8859 #jis #jis7 #sjis #euc #big5)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1539	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1540
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1541	staticGrayOrGrayScaleDitherStrings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1542
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1543	^ #('threshold' 'ordered dither' 'error diffusion')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1544	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1545
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1546	staticGrayOrGrayScaleDitherSyms
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1547
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1548	^ #(threshold ordered floydSteinberg)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1549	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1550
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1551	trueColorDitherStrings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1552
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1553	^ #('nearest color' 'error diffusion')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1554	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1555
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1556	trueColorDitherSyms
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1557
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1558	^ #(ordered floydSteinberg)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1559	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1560
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1561	!AbstractSettingsApplication::DisplaySettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1562
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1563	defaultIcon
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	1564	<resource: #programImage>
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	1565
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	1566	^ ToolbarIconLibrary displayScreenIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1567	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1568
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1569	!AbstractSettingsApplication::DisplaySettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1570
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1571	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1572	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1573	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1574
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1575	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1576	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1577
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1578	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	1579	UIPainter new openOnClass:AbstractSettingsApplication::DisplaySettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	1580	AbstractSettingsApplication::DisplaySettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	1581	AbstractSettingsApplication::DisplaySettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1582	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1583
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1584	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1585
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1586	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1587	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1588	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1589	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1590	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1591	label: 'Display Screen Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1592	name: 'Display Screen Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1593	min: (Point 10 10)
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	1594	bounds: (Rectangle 0 0 600 378)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1595	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1596	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1597	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1598	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1599	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1600	label: 'Actual Visible Screen Area:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1601	name: 'ActualVisibleScreenAreaLabel'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1602	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	1603	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1604	adjust: left
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1605	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1606	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1607	label: 'Common Sizes:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1608	name: 'CommonSizesLabel'
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	1609	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	1610	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1611	adjust: right
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1612	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1613	(PopUpListSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1614	label: 'monitor size'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1615	name: 'MonitorSelectionPopUpList'
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	1616	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	1617	tabable: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1618	model: monitorSelection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1619	menu: monitorList
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1620	useIndex: true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1621	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1622	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1623	label: 'Screen Size:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1624	name: 'ScreenSizeLabel'
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	1625	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	1626	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1627	adjust: right
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1628	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1629	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1630	name: 'SizeXEntryField'
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	1631	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	1632	model: sizeX
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1633	type: number
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1634	immediateAccept: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1635	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1636	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1637	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1638	acceptOnPointerLeave: true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1639	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1640	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1641	label: ' x '
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1642	name: 'xLabel'
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	1643	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	1644	translateLabel: true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1645	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1646	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1647	name: 'SizeYEntryField'
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	1648	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	1649	model: sizeY
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1650	type: number
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1651	immediateAccept: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1652	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1653	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1654	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1655	acceptOnPointerLeave: true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1656	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1657	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1658	label: '(mm)'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1659	name: 'mmLabel'
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	1660	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	1661	translateLabel: true
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	1662	adjust: left
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1663	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1664	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1665	name: 'Separator1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1666	layout: (LayoutFrame 0 0.0 105 0 0 1.0 109 0)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1667	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1668	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1669	name: 'ScreenDepthVisualLabel'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1670	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	1671	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1672	labelChannel: screenDepthVisualLabelHolder
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1673	adjust: left
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1674	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1675	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1676	name: 'Separator2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1677	layout: (LayoutFrame 0 0.0 139 0 0 1.0 143 0)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1678	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1679	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1680	label: 'Color Monitor'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1681	name: 'ColorMonitorCheckBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1682	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	1683	model: isColorMonitor
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1684	translateLabel: true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1685	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1686	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1687	label: 'Use Fix Color Palette'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1688	name: 'FixColorPaletteCheckBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1689	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	1690	enableChannel: visualIsPseudoColor
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1691	model: useFixPalette
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1692	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1693	labelChannel: useFixPaletteLabel
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1694	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1695	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1696	label: 'Use Fix Gray Color Palette'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1697	name: 'UseFixGrayPaletteCheckBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1698	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	1699	enableChannel: visualIsPseudoColor
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1700	model: useFixGrayPalette
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1701	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1702	labelChannel: useFixGrayPaletteLabel
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1703	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1704	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1705	label: 'Image Display:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1706	name: 'ImageDisplayLabel'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1707	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	1708	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1709	adjust: right
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1710	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1711	(PopUpListSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1712	label: 'image display'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1713	name: 'DitherListPopUpList'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1714	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	1715	tabable: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1716	model: ditherListSelection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1717	enableChannel: ditherSymsNotNil
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1718	menu: ditherList
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1719	useIndex: true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1720	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1721	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1722	label: 'Allow Colored/Grayscale Icons'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1723	name: 'AllowColoredGrayscaleIconsCheckBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1724	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	1725	model: deepIcons
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1726	translateLabel: true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1727	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1728	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1729	name: 'Separator3'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1730	layout: (LayoutFrame 0 0.0 288 0 0 1.0 292 0)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1731	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1732	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1733	label: 'ClipBoard Encoding:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1734	name: 'ClipBoardEncodingLabel'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1735	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	1736	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1737	adjust: right
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1738	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1739	(PopUpListSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1740	label: 'image display'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1741	name: 'ClipEncodingListPopUpList'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1742	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	1743	tabable: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1744	model: clipEncodingListSelection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1745	menu: clipEncodingList
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1746	useIndex: true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1747	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1748	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1749	name: 'Separator4'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1750	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	1751	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1752	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1753	label: 'Max. CopyBuffer Size:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1754	name: 'MaxCopyBufferSizeLabel'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1755	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	1756	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1757	adjust: right
5086 b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	1758	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1759	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1760	name: 'MaxCopyBufferEntryField'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1761	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	1762	model: maxCopyBufferSize
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1763	type: fileSize
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1764	immediateAccept: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1765	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1766	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1767	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1768	acceptOnPointerLeave: true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1769	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1770	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1771
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1772	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1773	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1774	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1775
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1776	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1777
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1778	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1779
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1780	Image flushDeviceImages.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1781
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1782	screen visualType == #PseudoColor ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1783	self useFixPalette value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1784	Color colorAllocationFailSignal handle:[:ex \|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1785	self warn:'Could not allocate colors.'.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1786	] do:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1787	Color getColorsRed:4 green:8 blue:4 on:screen
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1788	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1789	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1790	screen releaseFixColors
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1791	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1792
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1793	self useFixGrayPalette value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1794	Color colorAllocationFailSignal handle:[:ex \|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1795	self warn:'Could not allocate colors.'.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1796	] do:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1797	Color getGrayColors:32 on:screen
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1798	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1799	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1800	screen releaseFixGrayColors
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1801	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1802	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1803	screen hasColors:self isColorMonitor value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1804	screen widthInMillimeter:self sizeX value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1805	screen heightInMillimeter:self sizeY value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1806
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1807	screen supportsDeepIcons:self deepIcons value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1808	ditherSyms notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1809	Image ditherAlgorithm:(ditherSyms at:self ditherListSelection value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1810	].
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	WindowGroup activeGroup withWaitCursorDo:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1813	View defaultStyle:(View defaultStyle).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1814	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1815
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1816	screen clipBoardEncoding:(self class clipEncodingSyms at:self clipEncodingListSelection value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1817	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1818
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	1819	helpFilename
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	1820	^ 'Launcher/screenSettings.html'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1821	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1822
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1823	readSettings
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1824	self useFixPalette value:screen fixColors notNil.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1825	self useFixGrayPalette value:screen fixGrayColors notNil.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1826	self isColorMonitor value:screen hasColors.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1827	self sizeX value:screen widthInMillimeter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1828	self sizeY value:screen heightInMillimeter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1829	self deepIcons value:screen supportsDeepIcons.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1830	ditherSyms notNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1831	self ditherListSelection
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1832	value:(ditherSyms indexOf:(Image ditherAlgorithm) ifAbsent:#threshold)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1833	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1834	self clipEncodingListSelection
6037 4ee47a9ce56a Unify naming: clipBoard->clipboard Stefan Vogel <sv@exept.de> parents: 6030 diff changeset	1835	value:(self class clipEncodingSyms indexOf:screen clipboardEncoding
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1836	ifAbsent:1).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1837	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1838	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1839
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1840	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1841
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1842	clipEncodingList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1843
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1844	clipEncodingList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1845	clipEncodingList := (resources array:self class clipEncodingStrings) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1846	"/ if your app needs to be notified of changes, uncomment one of the lines below:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1847	"/ clipEncodingList addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1848	"/ clipEncodingList onChangeSend:#clipEncodingListChanged to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1849	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1850	^ clipEncodingList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1851	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1852
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1853	clipEncodingListSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1854
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1855	clipEncodingListSelection isNil ifTrue:[
6037 4ee47a9ce56a Unify naming: clipBoard->clipboard Stefan Vogel <sv@exept.de> parents: 6030 diff changeset	1856	clipEncodingListSelection := (self class clipEncodingSyms indexOf:screen clipboardEncoding ifAbsent:1) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1857	clipEncodingListSelection onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1858	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1859	^ clipEncodingListSelection.
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	deepIcons
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1863
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1864	deepIcons isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1865	deepIcons := screen supportsDeepIcons asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1866	deepIcons onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1867	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1868	^ deepIcons.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1869	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1870
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1871	ditherList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1872
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1873	ditherList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1874	ditherList := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1875	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1876	^ ditherList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1877	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1878
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1879	ditherListSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1880
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1881	ditherListSelection isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1882	ditherSyms notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1883	ditherListSelection := (ditherSyms indexOf:(Image ditherAlgorithm) ifAbsent:#threshold) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1884	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1885	ditherListSelection := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1886	].
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1887	ditherListSelection onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1888	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1889	^ ditherListSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1890	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1891
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1892	ditherSymsNotNil
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1893
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1894	ditherSymsNotNil isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1895	ditherSymsNotNil := ditherSyms notNil asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1896	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1897	^ ditherSymsNotNil.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1898	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1899
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1900	isColorMonitor
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1901
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1902	isColorMonitor isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1903	isColorMonitor := screen hasColors asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1904	isColorMonitor onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1905	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1906	^ isColorMonitor.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1907	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1908
5086 b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	1909	maxCopyBufferSize
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	1910
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	1911	maxCopyBufferSize isNil ifTrue:[
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	1912	maxCopyBufferSize := (810241024) asValue.
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	1913	maxCopyBufferSize addDependent:self.
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	1914	maxCopyBufferSize changed.
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	1915	maxCopyBufferSize onChangeSend:#updateModifiedChannel to:self.
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	1916	].
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	1917	^ maxCopyBufferSize.
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	1918	!
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	1919
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1920	monitorList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1921
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1922	monitorList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1923	monitorList := (resources array:(sizeInfos collect:[:entry \| entry at:1])) asList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1924	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1925	^ monitorList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1926	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1927
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1928	monitorSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1929
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1930	monitorSelection isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1931	monitorSelection := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1932	monitorSelection addDependent:self.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1933	monitorSelection onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1934	monitorSelection changed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1935	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1936	^ monitorSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1937	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1938
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1939	screenDepthVisualLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1940
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1941	screenDepthVisualLabelHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1942	screenDepthVisualLabelHolder := (resources string:'Screen: Depth: %1 Visual: %2 (%3)'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1943	with:screen depth printString
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1944	with:screen visualType
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1945	with:screen serverVendor) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1946	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1947	^ screenDepthVisualLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1948	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1949
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1950	sizeX
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1951
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1952	sizeX isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1953	sizeX := screen widthInMillimeter asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1954	sizeX addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1955	sizeX changed.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1956	sizeX onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1957	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1958	^ sizeX.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1959	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1960
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1961	sizeY
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1962
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1963	sizeY isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1964	sizeY := screen heightInMillimeter asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1965	sizeY addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1966	sizeY changed.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1967	sizeY onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1968	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1969	^ sizeY.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1970	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1971
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1972	useFixGrayPalette
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1973
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1974	useFixGrayPalette isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1975	useFixGrayPalette := screen fixGrayColors notNil asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1976	useFixGrayPalette onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1977	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1978	^ useFixGrayPalette.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1979	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1980
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1981	useFixGrayPaletteLabel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1982
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1983	useFixGrayPaletteLabel isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1984	useFixGrayPaletteLabel := (resources string:'Use Fix Gray Color Palette %1' with:'(32)') asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1985	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1986	^ useFixGrayPaletteLabel.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1987	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1988
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1989	useFixPalette
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1990
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1991	useFixPalette isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1992	useFixPalette := screen fixColors notNil asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1993	useFixPalette onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1994	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1995	^ useFixPalette.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1996	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1997
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1998	useFixPaletteLabel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1999
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2000	useFixPaletteLabel isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2001	useFixPaletteLabel := (resources string:'Use Fix Color Palette %1' with:'(4x8x4)') asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2002	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2003	^ useFixPaletteLabel.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2004	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2005
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2006	visualIsPseudoColor
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2007
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2008	visualIsPseudoColor isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2009	visualIsPseudoColor := (screen visualType == #PseudoColor) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	2010	visualIsPseudoColor onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2011	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2012	^ visualIsPseudoColor.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2013	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2014
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2015	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2016
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2017	monitorSelectionChanged
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2018
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2019	\| sel sizeInfoEntry sizes\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2020
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2021	sel := self monitorSelection value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2022	(sel notNil and:[sel ~~ 0]) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2023	sizeInfoEntry := sizeInfos at:sel.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2024	sizes := sizeInfoEntry at:2.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2025	self sizeX value:(sizes at:1).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2026	self sizeY value:(sizes at:2).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2027	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2028	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2029
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2030	sizeXorYChanged
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2031	\| sizes idx\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2032
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2033	sizes := sizeInfos collect:[:entry \| entry at:2].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2034	idx := sizes findFirst:[:entry \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2035	((entry at:1) = sizeX value)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2036	and:[((entry at:2) = sizeY value)]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2037	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2038	idx ~~ 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2039	self monitorSelection value:idx
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2040	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2041	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2042
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2043	update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2044	changedObject == self monitorSelection ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2045	self monitorSelectionChanged.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2046	^ self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2047	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2048	(changedObject == self sizeX or:[self sizeY]) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2049	self sizeXorYChanged.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2050	^ self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2051	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2052
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2053	super update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2054	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2055
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2056	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2057
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2058	initialize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2059
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2060	\| listOfSizes visual\|
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2061
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2062	screen := Screen current.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2063
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2064	listOfSizes := self class classResources at:'LIST_OF_OFFERED_SCREEN_SIZES' default:#default.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2065	listOfSizes == #default ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2066	"/ nothing in resource file; offer at least some.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2067	sizeInfos := #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2068	( '11.3'' (235mm x 175mm) LCD' (235 175) )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2069	( '17'' (325mm x 245mm)' (325 245) )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2070	( '19'' (340mm x 270mm)' (340 270) )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2071	( '20'' (350mm x 280mm)' (350 280) )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2072	( '21'' (365mm x 285mm)' (365 285) )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2073	).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2074	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2075	sizeInfos := resources array:listOfSizes.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2076	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2077	visual := screen visualType.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2078	(visual == #StaticGray or:[visual == #GrayScale]) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2079	ditherStyles := self class staticGrayOrGrayScaleDitherStrings.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2080	ditherSyms := self class staticGrayOrGrayScaleDitherSyms.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2081	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2082	visual ~~ #TrueColor ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2083	ditherStyles := self class trueColorDitherStrings.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2084	ditherSyms := self class trueColorDitherSyms.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2085	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2086	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2087	super initialize.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2088
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2089	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2090
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2091	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2092
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2093	hasUnsavedChanges
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	2094	self useFixPalette value ~= screen fixColors notNil ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	2095	self useFixGrayPalette value ~= screen fixGrayColors notNil ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	2096	self isColorMonitor value ~= screen hasColors ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	2097	self sizeX value ~= screen widthInMillimeter ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	2098	self sizeY value ~= screen heightInMillimeter ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	2099
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	2100	self deepIcons value ~= screen supportsDeepIcons ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	2101	ditherSyms notNil ifTrue:[
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	2102	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	2103	].
6037 4ee47a9ce56a Unify naming: clipBoard->clipboard Stefan Vogel <sv@exept.de> parents: 6030 diff changeset	2104	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	2105	^ false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2106	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2107
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2108	!AbstractSettingsApplication::EditSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2109
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2110	defaultIcon
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	2111	<resource: #programImage>
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	2112
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	2113	^ ToolbarIconLibrary editorIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2114	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2115
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2116	!AbstractSettingsApplication::EditSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2117
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2118	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2119	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2120	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2121
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2122	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2123	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2124
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2125	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2126	UIPainter new openOnClass:AbstractSettingsApplication::EditSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2127	AbstractSettingsApplication::EditSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2128	AbstractSettingsApplication::EditSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2129	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2130
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2131	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2132
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2133	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2134	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2135	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2136	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2137	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2138	label: 'Editor Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2139	name: 'Editor Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2140	min: (Point 10 10)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2141	bounds: (Rectangle 14 46 614 366)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2142	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2143	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2144	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2145	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2146	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2147	name: 'VerticalPanel2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2148	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	2149	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2150	verticalLayout: top
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2151	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2152	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2153	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2154	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2155	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2156	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2157	name: 'VerticalPanel1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2158	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2159	verticalLayout: top
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2160	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2161	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2162	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2163	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2164	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2165	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2166	label: 'CTRL-Key to Start TextDrag'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2167	name: 'CTRLKeyStTextDragCheckBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2168	model: startTextDragWithControl
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2169	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2170	extent: (Point 600 23)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2171	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2172	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2173	label: 'SearchBox is Modal'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2174	name: 'SearchBoxModalCheckBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2175	model: searchDialogIsModal
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2176	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2177	extent: (Point 600 23)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2178	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2179	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2180	label: 'Tab Stops in Multiples of 4'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2181	name: 'TabStopsMultiples4CheckBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2182	model: tabsIs4
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2183	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2184	extent: (Point 600 23)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2185	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2186	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2187	label: 'Double Click Select Behavior as in ST80'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2188	name: 'DoubleClickSelectBehaviorST80CheckBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2189	model: st80DoubleClickSelectMode
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2190	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2191	extent: (Point 600 23)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2192	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2193	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2194	label: 'Cursor has ST80 Line-end Behavior'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2195	name: 'CursorST80LineEndBehaviorCheckBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2196	model: st80EditingMode
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2197	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2198	extent: (Point 600 23)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2199	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2200	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2201
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2202	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2203	extent: (Point 600 127)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2204	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2205	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2206
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2207	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2208	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2209	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2210
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2211	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2212	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2213	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2214
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2215	!AbstractSettingsApplication::EditSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2216
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2217	basicSaveSettings
5291 695fffec14ef * empty log message * Claus Gittinger <cg@exept.de> parents: 5289 diff changeset	2218	\|prefs\|
695fffec14ef * empty log message * Claus Gittinger <cg@exept.de> parents: 5289 diff changeset	2219
695fffec14ef * empty log message * Claus Gittinger <cg@exept.de> parents: 5289 diff changeset	2220	prefs := UserPreferences current.
695fffec14ef * empty log message * Claus Gittinger <cg@exept.de> parents: 5289 diff changeset	2221
695fffec14ef * empty log message * Claus Gittinger <cg@exept.de> parents: 5289 diff changeset	2222	prefs st80EditMode:(self st80EditingMode value).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2223	TextView st80SelectMode:(self st80DoubleClickSelectMode value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2224	tabsIs4 value ~~ (ListView userDefaultTabPositions = ListView tab4Positions) ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2225	ListView userDefaultTabPositions:(self tabsIs4 value ifTrue:[ListView tab4Positions] ifFalse:[ListView tab8Positions]).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2226	ListView allSubInstancesDo:[:eachKindOfListView \|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2227	self tabsIs4 value ifTrue:[eachKindOfListView setTab4] ifFalse:[eachKindOfListView setTab8]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2228	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2229	].
5291 695fffec14ef * empty log message * Claus Gittinger <cg@exept.de> parents: 5289 diff changeset	2230	prefs searchDialogIsModal:self searchDialogIsModal value.
695fffec14ef * empty log message * Claus Gittinger <cg@exept.de> parents: 5289 diff changeset	2231	prefs startTextDragWithControl:self startTextDragWithControl value.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2232	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2233
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	2234	helpFilename
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	2235	^ 'Launcher/editSettings.html'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2236	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2237
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2238	readSettings
5915 d7d685d60d82 * empty log message * Claus Gittinger <cg@exept.de> parents: 5912 diff changeset	2239	\|prefs\|
d7d685d60d82 * empty log message * Claus Gittinger <cg@exept.de> parents: 5912 diff changeset	2240
d7d685d60d82 * empty log message * Claus Gittinger <cg@exept.de> parents: 5912 diff changeset	2241	prefs := UserPreferences current.
d7d685d60d82 * empty log message * Claus Gittinger <cg@exept.de> parents: 5912 diff changeset	2242
d7d685d60d82 * empty log message * Claus Gittinger <cg@exept.de> parents: 5912 diff changeset	2243	self st80EditingMode value:prefs st80EditMode.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2244	self st80DoubleClickSelectMode value:TextView st80SelectMode.
5915 d7d685d60d82 * empty log message * Claus Gittinger <cg@exept.de> parents: 5912 diff changeset	2245	self tabsIs4 value:(ListView userDefaultTabPositions = ListView tab4Positions).
d7d685d60d82 * empty log message * Claus Gittinger <cg@exept.de> parents: 5912 diff changeset	2246	self searchDialogIsModal value:prefs searchDialogIsModal.
d7d685d60d82 * empty log message * Claus Gittinger <cg@exept.de> parents: 5912 diff changeset	2247	self startTextDragWithControl value:prefs startTextDragWithControl.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2248	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2249	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2250
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2251	!AbstractSettingsApplication::EditSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2252
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2253	searchDialogIsModal
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2254
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2255	searchDialogIsModal isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2256	searchDialogIsModal := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	2257	searchDialogIsModal onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2258	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2259	^ searchDialogIsModal.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2260	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2261
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2262	st80DoubleClickSelectMode
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2263
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2264	st80DoubleClickSelectMode isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2265	st80DoubleClickSelectMode := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	2266	st80DoubleClickSelectMode onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2267	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2268	^ st80DoubleClickSelectMode.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2269	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2270
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2271	st80EditingMode
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2272
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2273	st80EditingMode isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2274	st80EditingMode := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	2275	st80EditingMode onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2276	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2277	^ st80EditingMode.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2278	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2279
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2280	startTextDragWithControl
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2281
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2282	startTextDragWithControl isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2283	startTextDragWithControl := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	2284	startTextDragWithControl onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2285	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2286	^ startTextDragWithControl.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2287	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2288
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2289	tabsIs4
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2290
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2291	tabsIs4 isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2292	tabsIs4 := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	2293	tabsIs4 onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2294	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2295	^ tabsIs4.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2296	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2297
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2298	!AbstractSettingsApplication::EditSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2299
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2300	hasUnsavedChanges
5915 d7d685d60d82 * empty log message * Claus Gittinger <cg@exept.de> parents: 5912 diff changeset	2301	currentUserPrefs st80EditMode ~= (self st80EditingMode value) ifTrue:[^ true].
d7d685d60d82 * empty log message * Claus Gittinger <cg@exept.de> parents: 5912 diff changeset	2302	TextView st80SelectMode ~= (self st80DoubleClickSelectMode value) ifTrue:[^ true].
d7d685d60d82 * empty log message * Claus Gittinger <cg@exept.de> parents: 5912 diff changeset	2303	tabsIs4 value ~~ (ListView userDefaultTabPositions = ListView tab4Positions) ifTrue:[
d7d685d60d82 * empty log message * Claus Gittinger <cg@exept.de> parents: 5912 diff changeset	2304	ListView userDefaultTabPositions ~= (self tabsIs4 value
d7d685d60d82 * empty log message * Claus Gittinger <cg@exept.de> parents: 5912 diff changeset	2305	ifTrue:[ListView tab4Positions]
d7d685d60d82 * empty log message * Claus Gittinger <cg@exept.de> parents: 5912 diff changeset	2306	ifFalse:[ListView tab8Positions]) ifTrue:[^ true].
d7d685d60d82 * empty log message * Claus Gittinger <cg@exept.de> parents: 5912 diff changeset	2307	].
d7d685d60d82 * empty log message * Claus Gittinger <cg@exept.de> parents: 5912 diff changeset	2308	currentUserPrefs searchDialogIsModal ~= self searchDialogIsModal value ifTrue:[^ true].
d7d685d60d82 * empty log message * Claus Gittinger <cg@exept.de> parents: 5912 diff changeset	2309	currentUserPrefs startTextDragWithControl ~= self startTextDragWithControl value ifTrue:[^ true].
d7d685d60d82 * empty log message * Claus Gittinger <cg@exept.de> parents: 5912 diff changeset	2310	^ false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2311	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2312
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2313	!AbstractSettingsApplication::FontSettingsAppl class methodsFor:'defaults'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2314
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2315	widgetList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2316
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2317	^ #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2318	'All'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2319	'Labels'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2320	'Buttons'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2321	'Lists'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2322	'Menus'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2323	'Edited Text'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2324	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2325	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2326
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2327	!AbstractSettingsApplication::FontSettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2328
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2329	defaultIcon
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	2330	<resource: #programImage>
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	2331
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	2332	^ ToolbarIconLibrary fontIcon
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2333	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2334
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2335	defaultIcon2
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2336	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2337	by the ImageEditor of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2338
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2339	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2340	the ImageEditor may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2341
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2342	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2343	self defaultIcon2 inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2344	ImageEditor openOnClass:self andSelector:#defaultIcon2
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2345	Icon flushCachedIcons
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2346	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2347
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2348	<resource: #image>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2349
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2350	^Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2351	constantNamed:#'AbstractSettingsApplication::FontSettingsAppl class defaultIcon2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2352	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	2353	@@@@@@@@@@@@@@@@@@@@@!!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	2354	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	2355	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	2356	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2357
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2358	!AbstractSettingsApplication::FontSettingsAppl class methodsFor:'instance creation'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2359
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2360	fontForEncoding:encodingMatch
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2361
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2362	\| inst \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2363
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2364	inst := self new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2365	inst encodingMatch:encodingMatch.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2366	self initialize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2367	self open.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2368	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2369
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2370	!AbstractSettingsApplication::FontSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2371
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2372	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2373	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2374	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2375
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2376	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2377	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2378
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2379	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2380	UIPainter new openOnClass:AbstractSettingsApplication::FontSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2381	AbstractSettingsApplication::FontSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2382	AbstractSettingsApplication::FontSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2383	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2384
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2385	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2386
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2387	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2388	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2389	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2390	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2391	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2392	label: 'Font Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2393	name: 'Font Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2394	min: (Point 10 10)
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	2395	bounds: (Rectangle 0 0 512 657)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2396	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2397	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2398	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2399	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2400	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2401	name: 'VerticalPanel1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2402	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	2403	horizontalLayout: fitSpace
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2404	verticalLayout: center
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2405	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2406	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2407	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2408	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2409	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2410	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2411	name: 'AllBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2412	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2413	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2414	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2415	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2416	label: 'All (Others)'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2417	name: 'All'
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	2418	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	2419	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2420	adjust: left
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2421	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2422	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2423	label: 'Label'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2424	name: 'AllFont'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2425	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	2426	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2427	labelChannel: allFontLabelHolder
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2428	adjust: left
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2429	postBuildCallback: postBuildAllFontLabel:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2430	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2431	(ActionButtonSpec
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	2432	label: 'Change...'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2433	name: 'ChangeAll'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2434	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	2435	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2436	model: changeAllFont
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2437	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2438	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2439	name: 'Separator1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2440	layout: (LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2441	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2442	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2443
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2444	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2445	extent: (Point 490 50)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2446	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2447	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2448	name: 'LabelsBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2449	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2450	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2451	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2452	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2453	label: 'Labels'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2454	name: 'Labels'
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	2455	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	2456	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2457	adjust: left
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2458	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2459	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2460	label: 'Labels'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2461	name: 'LabelsFont'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2462	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	2463	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2464	labelChannel: labelsFontLabelHolder
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2465	adjust: left
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2466	postBuildCallback: postBuildLabelsFontLabel:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2467	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2468	(ActionButtonSpec
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	2469	label: 'Change...'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2470	name: 'ChangeLabels'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2471	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	2472	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2473	model: changeLabelsFont
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2474	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2475	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2476	name: 'Separator6'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2477	layout: (LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2478	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2479	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2480
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2481	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2482	extent: (Point 490 50)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2483	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2484	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2485	name: 'ButtonsBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2486	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2487	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2488	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2489	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2490	label: 'Buttons'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2491	name: 'Buttons'
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	2492	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	2493	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2494	adjust: left
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2495	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2496	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2497	label: 'Buttons Font'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2498	name: 'ButtonsFont'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2499	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	2500	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2501	labelChannel: buttonsFontLabelHolder
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2502	adjust: left
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2503	postBuildCallback: postBuildButtonsFontLabel:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2504	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2505	(ActionButtonSpec
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	2506	label: 'Change...'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2507	name: 'Change Buttons'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2508	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	2509	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2510	model: changeButtonsFont
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2511	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2512	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2513	name: 'Separator7'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2514	layout: (LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2515	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2516	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2517
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2518	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2519	extent: (Point 490 50)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2520	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2521	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2522	name: 'ListsBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2523	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2524	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2525	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2526	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2527	label: 'Lists'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2528	name: 'Lists'
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	2529	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	2530	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2531	adjust: left
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2532	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2533	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2534	label: 'Lists Font'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2535	name: 'ListsFont'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2536	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	2537	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2538	labelChannel: listsFontLabelHolder
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2539	adjust: left
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2540	postBuildCallback: postBuildListsFontLabel:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2541	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2542	(ActionButtonSpec
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	2543	label: 'Change...'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2544	name: 'ChangeLists'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2545	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	2546	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2547	model: changeListsFont
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2548	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2549	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2550	name: 'Separator8'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2551	layout: (LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2552	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2553	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2554
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2555	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2556	extent: (Point 490 50)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2557	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2558	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2559	name: 'MenusBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2560	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2561	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2562	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2563	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2564	label: 'Menus'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2565	name: 'Menus'
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	2566	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	2567	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2568	adjust: left
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2569	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2570	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2571	label: 'Menus Font'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2572	name: 'MenusFont'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2573	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	2574	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2575	labelChannel: menusFontLabelHolder
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2576	adjust: left
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2577	postBuildCallback: postBuildMenuesFontLabel:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2578	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2579	(ActionButtonSpec
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	2580	label: 'Change...'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2581	name: 'ChangeMenus'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2582	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	2583	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2584	model: changeMenusFont
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2585	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2586	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2587	name: 'Separator9'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2588	layout: (LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2589	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2590	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2591
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2592	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2593	extent: (Point 490 50)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2594	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2595	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2596	name: 'TextBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2597	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2598	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2599	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2600	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2601	label: 'Text'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2602	name: 'Text'
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	2603	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	2604	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2605	adjust: left
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2606	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2607	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2608	label: 'Text Font'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2609	name: 'TextFont'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2610	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	2611	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2612	labelChannel: textFontLabelHolder
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2613	adjust: left
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2614	postBuildCallback: postBuildTextFontLabel:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2615	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2616	(ActionButtonSpec
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	2617	label: 'Change...'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2618	name: 'ChangeText'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2619	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	2620	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2621	model: changeTextFont
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2622	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2623	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2624	name: 'Separator10'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2625	layout: (LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2626	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2627	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2628
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2629	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2630	extent: (Point 490 50)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2631	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2632	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2633
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2634	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2635	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2636	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2637
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2638	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2639	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2640	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2641
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2642	!AbstractSettingsApplication::FontSettingsAppl methodsFor:'accessing'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2643
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2644	encodingMatch:aEncodingMatch
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2645
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2646	aEncodingMatch notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2647	filter := [:f \| f encoding notNil
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2648	and:[aEncodingMatch match:f encoding]].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2649	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2650	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2651
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2652	!AbstractSettingsApplication::FontSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2653
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2654	basicSaveSettings
5464 4f59a3bc9fb2 * empty log message * ca parents: 5448 diff changeset	2655	\|fn\|
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2656
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2657	Label defaultFont:self labelDef value.
5551 24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	2658
24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	2659	fn := self buttonDef value.
24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	2660	Button defaultFont:fn.
24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	2661	Toggle defaultFont:fn.
24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	2662
24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	2663	fn := self textDef value.
24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	2664	TextView withAllSubclasses do:[:cls \| cls defaultFont:fn].
24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	2665
24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	2666	fn := self listDef value.
24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	2667	SelectionInListView withAllSubclasses do:[:cls \| cls defaultFont:fn].
24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	2668
5464 4f59a3bc9fb2 * empty log message * ca parents: 5448 diff changeset	2669	fn := self menuDef value.
5551 24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	2670	ListView defaultFont:fn.
5464 4f59a3bc9fb2 * empty log message * ca parents: 5448 diff changeset	2671	MenuView defaultFont:fn.
4f59a3bc9fb2 * empty log message * ca parents: 5448 diff changeset	2672	MenuPanel defaultFont:fn.
4f59a3bc9fb2 * empty log message * ca parents: 5448 diff changeset	2673	NoteBookView defaultFont:fn.
5551 24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	2674	PullDownMenu defaultFont:fn.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2675	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2676
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2677	changeAllFont
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2678	\|f\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2679
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2680	f := FontPanel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2681	fontFromUserInitial:(self allOfThem value)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2682	title:(resources string:'Font for %1' with:'All')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2683	filter:filter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2684	f notNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2685	self allOfThem value:(f onDevice:allLabel device).
6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2686	self labelDef value:(f onDevice:labelLabel device).
6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2687	self buttonDef value:(f onDevice:buttonsLabel device).
6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2688	self listDef value:(f onDevice:listsLabel device).
6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2689	self menuDef value:(f onDevice:menuLabel device).
6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2690	self textDef value:(f onDevice:textLabel device).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2691	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2692	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2693
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2694	changeButtonsFont
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2695
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2696	\|f\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2697
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2698	f := FontPanel
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2699	fontFromUserInitial:(self buttonDef value)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2700	title:(resources string:'Font for %1' with:'All')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2701	filter:filter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2702	f notNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2703	self buttonDef value:(f onDevice:buttonsLabel device).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2704	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2705	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2706
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2707	changeLabelsFont
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2708	\|f \|
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2709
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2710	f := FontPanel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2711	fontFromUserInitial:(self labelDef value)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2712	title:(resources string:'Font for %1' with:'Labels')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2713	filter:filter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2714	f notNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2715	self labelDef value:(f onDevice:labelLabel device).
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2716	].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2717	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2718
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2719	changeListsFont
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2720	\|f\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2721
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2722	f := FontPanel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2723	fontFromUserInitial:(self listDef value)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2724	title:(resources string:'Font for %1' with:'Lists')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2725	filter:filter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2726	f notNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2727	self listDef value:(f onDevice:listsLabel device).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2728	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2729	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2730
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2731	changeMenusFont
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2732	\|f\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2733
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2734	f := FontPanel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2735	fontFromUserInitial:(self menuDef value)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2736	title:(resources string:'Font for %1' with:'Menus')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2737	filter:filter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2738	f notNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2739	self menuDef value:(f onDevice:menuLabel device).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2740	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2741	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2742
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2743	changeTextFont
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2744	\|f\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2745
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2746	f := FontPanel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2747	fontFromUserInitial:(self textDef value)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2748	title:(resources string:'Font for %1' with:'Edited Text')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2749	filter:filter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2750	f notNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2751	self textDef value:(f onDevice:textLabel device).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2752	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2753	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2754
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	2755	helpFilename
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	2756	^ 'Launcher/fontSettings.html'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2757	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2758
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2759	readSettings
5448 93dda6ed83a2 readStyleSheetAndUpdateAllStyleCaches not for every read settings penk parents: 5441 diff changeset	2760	"/ View readStyleSheetAndUpdateAllStyleCaches.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2761	self labelDef value:Label defaultFont.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2762	self buttonDef value:Button defaultFont.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2763	self listDef value:SelectionInListView defaultFont.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2764	self menuDef value:MenuView defaultFont.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2765	self textDef value:TextView defaultFont.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2766	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2767	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2768
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2769	!AbstractSettingsApplication::FontSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2770
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2771	allFontLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2772
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2773	allFontLabelHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2774	allFontLabelHolder := '' asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2775	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2776	^ allFontLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2777	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2778
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2779	allOfThem
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2780	"return/create the 'allOfThem' value holder (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2781
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2782	allOfThem isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2783	allOfThem := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2784	allOfThem addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2785	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2786	^ allOfThem
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2787	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2788
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2789	buttonDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2790	"return/create the 'buttonDef' value holder (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2791
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2792	buttonDef isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2793	buttonDef := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2794	buttonDef addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2795	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2796	^ buttonDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2797	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2798
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2799	buttonsFontLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2800
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2801	buttonsFontLabelHolder isNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2802	buttonsFontLabelHolder := '' asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2803	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2804	^ buttonsFontLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2805	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2806
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2807	labelDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2808	"return/create the 'labelDef' value holder (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2809
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2810	labelDef isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2811	labelDef := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2812	labelDef addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2813	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2814	^ labelDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2815	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2816
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2817	labelsFontLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2818
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2819	labelsFontLabelHolder isNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2820	labelsFontLabelHolder := '' asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2821	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2822	^ labelsFontLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2823	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2824
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2825	listDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2826	"return/create the 'listDef' value holder (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2827
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2828	listDef isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2829	listDef := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2830	listDef addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2831	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2832	^ listDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2833	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2834
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2835	listsFontLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2836
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2837	listsFontLabelHolder isNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2838	listsFontLabelHolder := '' asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2839	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2840	^ listsFontLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2841	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2842
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2843	menuDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2844	"return/create the 'menuDef' value holder (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2845
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2846	menuDef isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2847	menuDef := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2848	menuDef addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2849	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2850	^ menuDef
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	menusFontLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2854
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2855	menusFontLabelHolder isNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2856	menusFontLabelHolder := '' asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2857	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2858	^ menusFontLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2859	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2860
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2861	textDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2862	"return/create the 'textDef' value holder (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2863
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2864	textDef isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2865	textDef := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2866	textDef addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2867	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2868	^ textDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2869	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2870
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2871	textFontLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2872
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2873	textFontLabelHolder isNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2874	textFontLabelHolder := '' asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2875	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2876	^ textFontLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2877	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2878
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2879	!AbstractSettingsApplication::FontSettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2880
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2881	update:something with:aParameter from:changedObject
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2882	builder notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2883	changedObject == self allOfThem ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2884	self updateFontOfLabel:allLabel andFontNameHolder:(self allFontLabelHolder) from:changedObject.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2885	^ self.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2886	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2887	changedObject == self labelDef ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2888	self updateFontOfLabel:labelLabel andFontNameHolder:(self labelsFontLabelHolder) from:changedObject.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2889	^ self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2890	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2891	changedObject == self buttonDef ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2892	self updateFontOfLabel:buttonsLabel andFontNameHolder:(self buttonsFontLabelHolder) from:changedObject.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2893	^ self.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2894	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2895	changedObject == self listDef ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2896	self updateFontOfLabel:listsLabel andFontNameHolder:(self listsFontLabelHolder) from:changedObject.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2897	^ self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2898	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2899	changedObject == self menuDef ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2900	self updateFontOfLabel:menuLabel andFontNameHolder:(self menusFontLabelHolder) from:changedObject.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2901	^ self.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2902	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2903	changedObject == self textDef ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2904	self updateFontOfLabel:textLabel andFontNameHolder:(self textFontLabelHolder) from:changedObject.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2905	^ self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2906	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2907	].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2908	super update:something with:aParameter from:changedObject
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2909	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2910
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2911	updateAllFontLabels
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2912	self update:#value with:nil from:self allOfThem.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2913	self update:#value with:nil from:self labelDef.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2914	self update:#value with:nil from:self buttonDef.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2915	self update:#value with:nil from:self listDef.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2916	self update:#value with:nil from:self menuDef.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2917	self update:#value with:nil from:self textDef.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2918	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2919
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2920	updateFontOfLabel:labelWidget andFontNameHolder:fontNameHolder from:changedObject
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	2921	\|f label\|
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2922
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2923	f := changedObject value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2924	labelWidget font:f.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2925	label := f isNil ifTrue:[
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	2926	''
c72e35116b13 instable state penk parents: 5040 diff changeset	2927	] ifFalse:[
c72e35116b13 instable state penk parents: 5040 diff changeset	2928	f userFriendlyName
c72e35116b13 instable state penk parents: 5040 diff changeset	2929	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2930	fontNameHolder value:label.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	2931	self updateModifiedChannel
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2932	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2933
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2934	!AbstractSettingsApplication::FontSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2935
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2936	postBuildAllFontLabel:aWidget
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2937
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2938	allLabel := aWidget.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2939	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2940
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2941	postBuildButtonsFontLabel:aWidget
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2942
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2943	buttonsLabel := aWidget.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2944	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2945
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2946	postBuildLabelsFontLabel:aWidget
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2947
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2948	labelLabel := aWidget.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2949	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2950
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2951	postBuildListsFontLabel:aWidget
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2952
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2953	listsLabel := aWidget.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2954	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2955
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2956	postBuildMenuesFontLabel:aWidget
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2957
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2958	menuLabel := aWidget.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2959	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2960
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2961	postBuildTextFontLabel:aWidget
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2962
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2963	textLabel := aWidget.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2964	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2965
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2966	postBuildWith:aBuilder
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2967	"/ self readSettings.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2968	self updateAllFontLabels.
4438 74e64acf5dd0 font settings loadrequest on postBuild now penk parents: 4434 diff changeset	2969	super postBuildWith:aBuilder
4286 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	!AbstractSettingsApplication::FontSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2973
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2974	hasUnsavedChanges
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	2975	self labelDef value ~= Label defaultFont ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	2976	self buttonDef value ~= Button defaultFont ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	2977	self listDef value ~= SelectionInListView defaultFont ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	2978	self menuDef value ~= MenuView defaultFont ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	2979	self textDef value ~= TextView defaultFont ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	2980	^ false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2981	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2982
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2983	!AbstractSettingsApplication::GeneralCompilerSettingsAppl class methodsFor:'defaults'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2984
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2985	keepSourceOptions
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2986
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2987	^ #( keep reference absReference sourceReference discard )
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2988	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2989
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2990	keepSourceStrings
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2991
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2992	^ #('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	2993	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2994
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2995	!AbstractSettingsApplication::GeneralCompilerSettingsAppl class methodsFor:'image specs'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2996
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2997	defaultIcon
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2998	^ self defaultIcon3
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2999	!
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	3000
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	3001	defaultIcon1
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3002	"This resource specification was automatically generated
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3003	by the ImageEditor of ST/X."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3004
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3005	"Do not manually edit this!! If it is corrupted,
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3006	the ImageEditor may not be able to read the specification."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3007
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3008	"
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	3009	self defaultIcon1 inspect
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	3010	ImageEditor openOnClass:self andSelector:#defaultIcon1
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3011	Icon flushCachedIcons
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3012	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3013
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3014	<resource: #image>
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3015
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3016	^Icon
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	3017	constantNamed:#'AbstractSettingsApplication::GeneralCompilerSettingsAppl class defaultIcon1'
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	3018	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	3019	@@@@@@@@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	3020	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	3021	!
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	3022
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	3023	defaultIcon3
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	3024	"This resource specification was automatically generated
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	3025	by the ImageEditor of ST/X."
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	3026
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	3027	"Do not manually edit this!! If it is corrupted,
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	3028	the ImageEditor may not be able to read the specification."
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	3029
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	3030	"
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	3031	self defaultIcon3 inspect
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	3032	ImageEditor openOnClass:self andSelector:#defaultIcon3
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	3033	Icon flushCachedIcons
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	3034	"
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	3035
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	3036	<resource: #image>
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	3037
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	3038	^Icon
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	3039	constantNamed:#'AbstractSettingsApplication::GeneralCompilerSettingsAppl class defaultIcon3'
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	3040	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	3041	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	3042	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	3043	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	3044	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	3045	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	3046	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	3047	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	3048	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3049
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3050	!AbstractSettingsApplication::GeneralCompilerSettingsAppl class methodsFor:'interface specs'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3051
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3052	windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3053	"This resource specification was automatically generated
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3054	by the UIPainter of ST/X."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3055
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3056	"Do not manually edit this!! If it is corrupted,
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3057	the UIPainter may not be able to read the specification."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3058
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3059	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3060	UIPainter new openOnClass:AbstractSettingsApplication::GeneralCompilerSettingsAppl andSelector:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3061	AbstractSettingsApplication::GeneralCompilerSettingsAppl new openInterface:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3062	AbstractSettingsApplication::GeneralCompilerSettingsAppl open
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3063	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3064
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3065	<resource: #canvas>
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3066
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3067	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3068	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3069	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3070	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3071	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3072	label: 'General Compiler Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3073	name: 'General Compiler Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3074	min: (Point 10 10)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3075	max: (Point 1024 768)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3076	bounds: (Rectangle 14 46 614 366)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3077	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3078	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3079	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3080	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3081	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3082	name: 'VerticalPanel2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3083	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	3084	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3085	verticalLayout: top
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3086	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3087	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3088	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3089	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3090	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3091	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3092	label: 'Catch Method Redefinitions'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3093	name: 'CatchMethodRedefinitions'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3094	model: catchMethodRedefs
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3095	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3096	extent: (Point 600 25)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3097	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3098	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3099	label: 'Catch Class Redefinitions'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3100	name: 'CatchClassRedefinitions'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3101	model: catchClassRedefs
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3102	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3103	extent: (Point 600 25)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3104	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3105	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3106	label: 'Keep History Line in Methods'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3107	name: 'KeepHistoryLineinMethods'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3108	model: historyLines
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3109	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3110	extent: (Point 600 25)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3111	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3112	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3113	label: 'Keep Full Class History'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3114	name: 'KeepFullClassHistory'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3115	enableChannel: hasHistoryManager
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3116	model: fullHistoryUpdate
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3117	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3118	extent: (Point 600 25)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3119	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3120	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3121	name: 'Box1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3122	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3123	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3124	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3125	(PopUpListSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3126	label: 'PopUp List'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3127	name: 'KeepSourceSelection'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3128	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	3129	tabable: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3130	model: keepSourceSelection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3131	menu: keepSource
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3132	useIndex: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3133	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3134	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3135	label: 'FileIn Source Mode:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3136	name: 'FileInSourceModeLabel'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3137	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	3138	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3139	adjust: right
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3140	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3141	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3142
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3143	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3144	extent: (Point 600 30)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3145	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3146	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3147	name: 'Separator1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3148	extent: (Point 600 3)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3149	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3150	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3151	label: 'If Present, Load Binary Objects when Autoloading'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3152	name: 'LoadBinaryObjectsWhenAutoloading'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3153	enableChannel: canLoadBinaries
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3154	model: loadBinaries
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3155	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3156	extent: (Point 600 25)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3157	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3158	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3159
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3160	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3161	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3162	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3163
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3164	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3165	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3166	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3167
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3168	!AbstractSettingsApplication::GeneralCompilerSettingsAppl methodsFor:'actions'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3169
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3170	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3171
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3172	ClassCategoryReader sourceMode:(self class keepSourceOptions at:self keepSourceSelection value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3173	Class catchClassRedefinitions:self catchClassRedefs value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3174	Class catchMethodRedefinitions:self catchMethodRedefs value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3175	HistoryManager notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3176	HistoryManager fullHistoryUpdate:self fullHistoryUpdate value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3177	self historyLines value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3178	HistoryManager activate
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3179	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3180	HistoryManager deactivate
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3181	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3182	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3183	Smalltalk loadBinaries:self loadBinaries value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3184	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3185
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	3186	helpFilename
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	3187	^ 'Launcher/compilerSettings.html'
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3188	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3189
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3190	readSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3191	self keepSourceSelection value:(self class keepSourceOptions
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3192	indexOf:ClassCategoryReader sourceMode
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3193	ifAbsent:1).
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3194	self catchClassRedefs value:(Class catchClassRedefinitions ? false).
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3195	self catchMethodRedefs value:(Class catchMethodRedefinitions ? false).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3196	self canLoadBinaries ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3197	self loadBinaries value:Smalltalk loadBinaries
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3198	] ifFalse:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3199	self loadBinaries value:false
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3200	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3201	self hasHistoryManager ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3202	self fullHistoryUpdate value:(HistoryManager fullHistoryUpdate ? false)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3203	] ifFalse:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3204	self fullHistoryUpdate value:false
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3205	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3206	self historyLines value:self hasHistoryManager.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3207	self modifiedChannel value:false
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3208	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3209
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3210	!AbstractSettingsApplication::GeneralCompilerSettingsAppl methodsFor:'aspects'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3211
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3212	canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3213
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3214	canLoadBinaries isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3215	canLoadBinaries := (ObjectFileLoader notNil and:[ObjectFileLoader canLoadObjectFiles]) asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3216	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3217	^ canLoadBinaries.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3218	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3219
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3220	catchClassRedefs
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3221
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3222	catchClassRedefs isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3223	catchClassRedefs := (Class catchClassRedefinitions ? false) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	3224	catchClassRedefs onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3225	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3226	^ catchClassRedefs.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3227	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3228
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3229	catchMethodRedefs
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3230
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3231	catchMethodRedefs isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3232	catchMethodRedefs := (Class catchMethodRedefinitions ? false) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	3233	catchMethodRedefs onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3234	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3235	^ catchMethodRedefs.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3236	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3237
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3238	fullHistoryUpdate
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3239
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3240	fullHistoryUpdate isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3241	self hasHistoryManager ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3242	fullHistoryUpdate := (HistoryManager fullHistoryUpdate ? false) asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3243	] ifFalse:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3244	fullHistoryUpdate := false asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3245	].
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	3246	fullHistoryUpdate onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3247	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3248	^ fullHistoryUpdate.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3249	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3250
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3251	hasHistoryManager
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3252
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3253	^ HistoryManager notNil and:[HistoryManager isLoaded and:[HistoryManager isActive]]
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3254	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3255
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	3256	historyLines
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3257
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3258	historyLines isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3259	historyLines := self hasHistoryManager asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	3260	historyLines onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3261	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3262	^ historyLines.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3263	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3264
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3265	keepSource
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3266
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3267	keepSource isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3268	keepSource := (resources array:(self class keepSourceStrings)) asList.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3269	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3270	^ keepSource.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3271	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3272
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3273	keepSourceSelection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3274
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3275	keepSourceSelection isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3276	keepSourceSelection := (self class keepSourceOptions indexOf:ClassCategoryReader sourceMode ifAbsent:1) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	3277	keepSourceSelection onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3278	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3279	^ keepSourceSelection.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3280	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3281
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3282	loadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3283
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3284	loadBinaries isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3285	self canLoadBinaries ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3286	loadBinaries:= Smalltalk loadBinaries asValue
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3287	] ifFalse:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3288	loadBinaries:= false asValue
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3289	].
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	3290	loadBinaries onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3291	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3292	^ loadBinaries.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3293	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3294
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3295	!AbstractSettingsApplication::GeneralCompilerSettingsAppl methodsFor:'queries'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3296
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3297	hasUnsavedChanges
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	3298	((HistoryManager fullHistoryUpdate ? false) ~= self fullHistoryUpdate value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	3299	((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	3300	((Class catchMethodRedefinitions ? false) ~= self catchMethodRedefs value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	3301	((Class catchClassRedefinitions ? false) ~= self catchClassRedefs value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	3302	((Smalltalk loadBinaries ? false) ~= self loadBinaries value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	3303	((self hasHistoryManager) ~= self historyLines value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	3304	^ false.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3305	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3306
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3307	!AbstractSettingsApplication::HTTPStartServerSettingsApplication class methodsFor:'image specs'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3308
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3309	defaultIcon
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3310	"This resource specification was automatically generated
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3311	by the ImageEditor of ST/X."
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3312
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3313	"Do not manually edit this!! If it is corrupted,
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3314	the ImageEditor may not be able to read the specification."
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3315
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3316	"
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3317	self defaultIcon inspect
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3318	ImageEditor openOnClass:self andSelector:#defaultIcon
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3319	Icon flushCachedIcons
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3320	"
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3321
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3322	<resource: #image>
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3323
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3324	^Icon
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	3325	constantNamed:#'AbstractSettingsApplication::HTTPStartServerSettingsApplication class defaultIcon'
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3326	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	3327	@@@@@@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	3328	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	3329	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	3330	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	3331	K2</K2</KSXEL@@@@@@@@@@@@@@+K"<AJB (JB46AS@@@@@@@@@@@@@@J28/@@@@@@@/M T0@@@@@@@@@@@@@B,.R41LSD1LSSXEL@@@@@@@@@@@@@@+K#8(
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	3332	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	3333	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3334
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3335	!AbstractSettingsApplication::HTTPStartServerSettingsApplication class methodsFor:'interface specs'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3336
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3337	windowSpec
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3338	"This resource specification was automatically generated
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3339	by the UIPainter of ST/X."
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3340
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3341	"Do not manually edit this!! If it is corrupted,
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3342	the UIPainter may not be able to read the specification."
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3343
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3344	"
4726 8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3345	UIPainter new openOnClass:AbstractSettingsApplication::HTTPStartServerSettingsApplication andSelector:#windowSpec
8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3346	AbstractSettingsApplication::HTTPStartServerSettingsApplication new openInterface:#windowSpec
8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3347	AbstractSettingsApplication::HTTPStartServerSettingsApplication open
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3348	"
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3349
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3350	<resource: #canvas>
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3351
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3352	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3353	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3354	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3355	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3356	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3357	label: 'HTTP Server Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3358	name: 'HTTP Server Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3359	min: (Point 10 10)
6426 d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	3360	bounds: (Rectangle 0 0 539 630)
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3361	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3362	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3363	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3364	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3365	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3366	name: 'VerticalPanel1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3367	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	3368	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3369	verticalLayout: top
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3370	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3371	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3372	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3373	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3374	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3375	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3376	name: 'VerticalPanel4'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3377	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3378	verticalLayout: topSpace
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3379	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3380	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3381	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3382	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3383	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3384	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3385	name: 'Box19'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3386	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3387	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3388	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3389	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3390	label: 'Label'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3391	name: 'Label2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3392	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	3393	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3394	labelChannel: informationLabel
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3395	resizeForLabel: false
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3396	adjust: left
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3397	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3398	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3399
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3400	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3401	extent: (Point 539 200)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3402	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3403	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3404	name: 'Box18'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3405	extent: (Point 539 20)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3406	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3407	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3408	name: 'Box17'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3409	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3410	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3411	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3412	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3413	label: 'Port:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3414	name: 'Label1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3415	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	3416	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3417	adjust: right
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3418	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3419	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3420	name: 'EntryField1'
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3421	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	3422	model: portNumberChannel
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3423	type: number
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3424	immediateAccept: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3425	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3426	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3427	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3428	acceptOnPointerLeave: false
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3429	)
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3430	(VerticalPanelViewSpec
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3431	name: 'VerticalPanel5'
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3432	layout: (LayoutFrame 136 0 14 0 -12 1 132 0)
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3433	horizontalLayout: fit
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3434	verticalLayout: spreadSpace
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3435	horizontalSpace: 3
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3436	verticalSpace: 3
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3437	component:
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3438	(SpecCollection
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3439	collection: (
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3440	(ActionButtonSpec
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3441	label: 'Create new HTTP Server'
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3442	name: 'Button4'
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3443	translateLabel: true
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3444	model: createServer
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3445	useDefaultExtent: true
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3446	)
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3447	(ActionButtonSpec
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3448	label: 'Create new FastCGI Server'
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3449	name: 'Button7'
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3450	translateLabel: true
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3451	model: createFcgiServer
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3452	useDefaultExtent: true
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3453	)
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3454	(ActionButtonSpec
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3455	label: 'Create Server from Settings File...'
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3456	name: 'Button6'
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3457	translateLabel: true
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3458	model: createServerFromFile
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3459	useDefaultExtent: true
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3460	)
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3461	(ActionButtonSpec
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3462	label: 'Remove all Servers'
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3463	name: 'Button5'
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3464	translateLabel: true
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3465	model: removeAllServers
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3466	enableChannel: hasCreatedServerChannel
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3467	useDefaultExtent: true
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3468	)
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3469	)
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3470
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3471	)
6426 d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	3472	)
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3473	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3474
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3475	)
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3476	extent: (Point 539 142)
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3477	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3478	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3479
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3480	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3481	extent: (Point 539 620)
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3482	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3483	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3484
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3485	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3486	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3487	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3488
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3489	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3490	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3491	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3492
5346 7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3493	!AbstractSettingsApplication::HTTPStartServerSettingsApplication class methodsFor:'servers access'!
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3494
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3495	addCreatedServer:aServer
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3496	self createdServers add:aServer.
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3497	!
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3498
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3499	createdServers
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3500	CreatedServers isNil ifTrue:[
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3501	CreatedServers := Set new.
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3502	].
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3503	^ CreatedServers
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3504	!
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3505
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3506	removeAllCreatedServer
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3507	self createdServers removeAll.
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3508	!
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3509
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3510	removeCreatedServer:aServer
5355 aa7b1d44d7a8 remove server from createdServers penk parents: 5346 diff changeset	3511	self createdServers remove:aServer ifAbsent:nil.
5346 7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3512	! !
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3513
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3514	!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'actions'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3515
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3516	basicSaveSettings
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3517
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3518	^ self
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3519	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3520
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3521	createFcgiServer
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3522	"create a FastCGI server"
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3523
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3524	^ self createServerForClass:FCGIServer.
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3525	!
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3526
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3527	createServer
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3528	"create a default server - i.e. a HTTP server"
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3529
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3530	^ self createServerForClass:self serverClass.
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3531	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3532
4893 39dec723f6ad * empty log message * penk parents: 4886 diff changeset	3533	createServerApplicationFor:aServerInstance
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	3534	\|settingsApp itemPathName newItem openApps\|
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3535
6389 9f4010737320 code cleanup Claus Gittinger <cg@exept.de> parents: 6383 diff changeset	3536	openApps := settingsDialog getAllChildrenAppsForApplication:self childrenClass:HTTPServerSettingsAppl.
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	3537	(openApps contains:[:app \| app httpServerInstance == aServerInstance]) ifTrue:[
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3538	" already have an Item for this application "
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3539	^ self
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3540	].
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	3541
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3542	settingsApp := HTTPServerSettingsAppl basicNew.
5031 86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	3543	settingsApp settingsDialog:self settingsDialog.
4893 39dec723f6ad * empty log message * penk parents: 4886 diff changeset	3544	settingsApp httpServerInstance:aServerInstance.
5038 c605d7909165 * empty log message * penk parents: 5035 diff changeset	3545	settingsApp defaultSettingsApplication:false.
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3546	settingsApp basicInitialize.
5044 fea72184bd8e instable state penk parents: 5041 diff changeset	3547	itemPathName := self itemPathName , '/', settingsApp nameInSettingsDialog.
5038 c605d7909165 * empty log message * penk parents: 5035 diff changeset	3548	newItem := self settingsDialog addApplClass:#'HTTPServerSettingsAppl' withName:itemPathName.
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3549	newItem application:settingsApp.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3550	self createdServerChanged.
5038 c605d7909165 * empty log message * penk parents: 5035 diff changeset	3551	self settingsDialog expandItemForApplication:self.
5280 a68af81b7b2c readSettings after create penk parents: 5278 diff changeset	3552	settingsApp readSettings.
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3553	settingsApp initialize.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3554	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3555
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3556	createServerForClass:serverClass
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3557
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3558	\|newServer port runningServers\|
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3559
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3560	serverClass isNil ifTrue:[
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3561	self warn:'The server class is missing - cannot create server.'.
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3562	^ self.
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3563	].
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3564
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3565	self withWaitCursorDo:[
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3566	port := self portNumberChannel value.
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3567	runningServers := serverClass runningServers.
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3568	runningServers notEmpty ifTrue:[
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3569	runningServers do:[:aServer \|
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3570	aServer port = port asInteger ifTrue:[
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3571	Dialog warn:'There is already a server for port ', port asString.
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3572	^ self
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3573	]
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3574	]
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3575	].
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3576	runningServers addDependent:self.
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3577
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3578	(port = serverClass defaultPort) ifTrue:[
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3579	newServer := serverClass newServerWithDefaultServiceListOn:port.
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3580	] ifFalse:[
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3581	newServer := serverClass newServerOnPort:port.
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3582	].
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3583	self class addCreatedServer:newServer.
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3584	self createServerApplicationFor:newServer.
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3585	]
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3586	!
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3587
5049 3df132763949 instable state penk parents: 5044 diff changeset	3588	createServerFromFile
3df132763949 instable state penk parents: 5044 diff changeset	3589
5055 b3cba6441579 ready to use penk parents: 5049 diff changeset	3590	\| newServer fileName runningServers newServerPort answer\|
5049 3df132763949 instable state penk parents: 5044 diff changeset	3591
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3592	fileName := Dialog requestFileName:'Select a Server Settings File'
6426 d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	3593	default:(self serverClass settingsFilename)
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3594	pattern:'*.xml'.
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3595
5049 3df132763949 instable state penk parents: 5044 diff changeset	3596	fileName isEmptyOrNil ifTrue:[ ^ self].
5055 b3cba6441579 ready to use penk parents: 5049 diff changeset	3597	self withWaitCursorDo:[
6426 d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	3598	newServer := self serverClass serverFromSettingsFile:(fileName asFilename).
5055 b3cba6441579 ready to use penk parents: 5049 diff changeset	3599	newServer notNil ifTrue:[
b3cba6441579 ready to use penk parents: 5049 diff changeset	3600	newServerPort := newServer port.
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3601	runningServers := self serverClass runningServers.
5055 b3cba6441579 ready to use penk parents: 5049 diff changeset	3602	runningServers notEmpty ifTrue:[
b3cba6441579 ready to use penk parents: 5049 diff changeset	3603	[self hasServerForPort:newServerPort] whileTrue:[
b3cba6441579 ready to use penk parents: 5049 diff changeset	3604	answer := Dialog
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3605	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	3606	initialAnswer:self portNumberChannel value printString.
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3607	answer isEmptyOrNil ifTrue:[
5055 b3cba6441579 ready to use penk parents: 5049 diff changeset	3608	^ self
b3cba6441579 ready to use penk parents: 5049 diff changeset	3609	].
b3cba6441579 ready to use penk parents: 5049 diff changeset	3610	newServerPort := answer asNumber.
5049 3df132763949 instable state penk parents: 5044 diff changeset	3611	]
5055 b3cba6441579 ready to use penk parents: 5049 diff changeset	3612	].
b3cba6441579 ready to use penk parents: 5049 diff changeset	3613	newServer port:newServerPort.
b3cba6441579 ready to use penk parents: 5049 diff changeset	3614	runningServers addDependent:self.
5346 7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3615	self class addCreatedServer:newServer.
5055 b3cba6441579 ready to use penk parents: 5049 diff changeset	3616	self createServerApplicationFor:newServer.
5049 3df132763949 instable state penk parents: 5044 diff changeset	3617	].
3df132763949 instable state penk parents: 5044 diff changeset	3618	].
3df132763949 instable state penk parents: 5044 diff changeset	3619	!
3df132763949 instable state penk parents: 5044 diff changeset	3620
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	3621	createServerSubApplicationsForRunningServers
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3622
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3623	\|serverToStart\|
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3624
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3625	(self serverClass isNil or:[self serverClass isLoaded not]) ifTrue:[
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3626	^ self
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3627	].
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3628
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3629	serverToStart := self serverClass runningServers asSet.
5346 7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3630	serverToStart addAll:self class createdServers.
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3631	serverToStart isEmpty ifTrue:[
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3632	^ self
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3633	].
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3634	serverToStart := serverToStart asSortedCollection:[:a :b \| a port < b port].
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3635	serverToStart do:[:eachServerInstance \|
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3636	self createServerApplicationFor:eachServerInstance.
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3637	]
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3638	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3639
5055 b3cba6441579 ready to use penk parents: 5049 diff changeset	3640	hasServerForPort:newServerPort
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3641	^ self serverClass runningServers contains:[:eachServer\| eachServer port = newServerPort].
5055 b3cba6441579 ready to use penk parents: 5049 diff changeset	3642	!
b3cba6441579 ready to use penk parents: 5049 diff changeset	3643
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	3644	helpFilename
5362 12d488573309 helpFilename in httpStartServerSettings Claus Gittinger <cg@exept.de> parents: 5355 diff changeset	3645	^ 'HTTPServer/index.html'
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	3646	!
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	3647
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3648	readSettings
6426 d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	3649	(self serverClass notNil and:[HTTPServer isLoaded]) ifTrue:[
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3650	self serverClass runningServers
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3651	removeDependent:self;
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3652	addDependent:self.
4883 45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3653	].
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	3654	self createServerSubApplicationsForRunningServers.
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3655	self createdServerChanged.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3656	self modifiedChannel value:false.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3657	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3658
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3659	removeAllServerSubApplications
6389 9f4010737320 code cleanup Claus Gittinger <cg@exept.de> parents: 6383 diff changeset	3660	settingsDialog removeAllSubApplicationsFor:self
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3661	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3662
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3663	removeAllServers
6426 d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	3664	self serverClass isLoaded ifTrue:[
d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	3665	self serverClass terminateAllServers.
4883 45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3666	].
5346 7d92545574ea access all created server in class var penk parents: 5343 diff changeset	3667	self class removeAllCreatedServer.
4883 45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3668	self removeAllServerSubApplications.
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3669	self createdServerChanged.
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3670	!
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3671
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3672	setPortOnFreePort
6389 9f4010737320 code cleanup Claus Gittinger <cg@exept.de> parents: 6383 diff changeset	3673	\|highestUsedPortNr portToUse instances\|
4893 39dec723f6ad * empty log message * penk parents: 4886 diff changeset	3674
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3675	(self serverClass notNil and:[self serverClass isLoaded]) ifTrue:[
6426 d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	3676	instances := self serverClass runningServers asSet.
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3677	instances addAll:((settingsDialog getAllChildrenAppsForApplication:self)
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3678	collect:[:aApp\| aApp httpServerInstance]).
5040 1500f0fdf4dd instable state penk parents: 5038 diff changeset	3679	highestUsedPortNr := instances
6426 d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	3680	inject:(self serverClass defaultPort - 1)
4893 39dec723f6ad * empty log message * penk parents: 4886 diff changeset	3681	into:[:maxSoFar :thisServer \| thisServer port max:maxSoFar].
39dec723f6ad * empty log message * penk parents: 4886 diff changeset	3682
39dec723f6ad * empty log message * penk parents: 4886 diff changeset	3683	portToUse := highestUsedPortNr + 1
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3684	] ifFalse:[
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3685	portToUse := 8080
4893 39dec723f6ad * empty log message * penk parents: 4886 diff changeset	3686	].
39dec723f6ad * empty log message * penk parents: 4886 diff changeset	3687	self portNumberChannel value:portToUse.
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3688	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3689
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3690	!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'aspects'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3691
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3692	hasCreatedServerChannel
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3693	"automatically generated by UIPainter ..."
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3694
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3695	"*** the code below creates a default model when invoked."
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3696	"*** (which may not be the one you wanted)"
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3697	"*** Please change as required and accept it in the browser."
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3698	"*** (and replace this comment by something more useful ;-)"
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3699
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3700	hasCreatedServerChannel isNil ifTrue:[
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3701	hasCreatedServerChannel := true asValue.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3702	"/ 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	3703	"/ hasCreatedServerChannel addDependent:self.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3704	"/ hasCreatedServerChannel onChangeSend:#hasCreatedServerChannelChanged to:self.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3705	].
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3706	^ hasCreatedServerChannel.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3707	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3708
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3709	informationLabel
4726 8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3710	^ resources
8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3711	string:'HTTPSTARTINFO'
8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3712	default:
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	3713	'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	3714	(i.e. it is possible to serve multiple ports)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	3715
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	3716	Once created, select the individual server in the left tree,
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	3717	configure its services, and finally start it up.'
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3718	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3719
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3720	portNumberChannel
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3721
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3722	portNumberChannel isNil ifTrue:[
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3723	portNumberChannel := ValueHolder new.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3724	].
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3725	^ portNumberChannel.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3726	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3727
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3728	!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'change & update'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3729
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3730	createdServerChanged
4724 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	self hasCreatedServerChannel value:self hasCreatedServer.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3733	self setPortOnFreePort.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3734	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3735
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3736	runningServersChanged
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	3737	self createServerSubApplicationsForRunningServers.
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3738	self setPortOnFreePort.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3739	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3740
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3741	update:something with:aParameter from:changedObject
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3742	(self serverClass isLoaded and:[changedObject == self serverClass runningServers]) ifTrue:[
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3743	self runningServersChanged.
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3744	^ self.
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3745	].
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3746	super update:something with:aParameter from:changedObject
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3747	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3748
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3749	!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'initialization & release'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3750
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3751	release
6426 d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	3752	(self serverClass notNil and:[HTTPServer isLoaded]) ifTrue:[
d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	3753	self serverClass runningServers removeDependent:self.
4883 45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3754	]
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3755	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3756
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3757	!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'queries'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3758
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3759	hasCreatedServer
6389 9f4010737320 code cleanup Claus Gittinger <cg@exept.de> parents: 6383 diff changeset	3760	^ (settingsDialog getAllChildrenAppsForApplication:self childrenClass:HTTPServerSettingsAppl)
9f4010737320 code cleanup Claus Gittinger <cg@exept.de> parents: 6383 diff changeset	3761	notEmpty
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3762	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3763
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3764	hasUnsavedChanges
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3765
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3766	^ false
6426 d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	3767	!
d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	3768
d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	3769	serverClass
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3770	"answer the default class for instanciating servers.
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3771	Note that we may instanciate FCGIServer as well"
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	3772
6426 d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	3773	^ HTTPServer
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3774	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3775
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3776	!AbstractSettingsApplication::KbdMappingSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3777
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3778	defaultIcon
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	3779	<resource: #programImage>
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	3780
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	3781	^ ToolbarIconLibrary keyboardMappingIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3782	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3783
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3784	!AbstractSettingsApplication::KbdMappingSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3785
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3786	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3787	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3788	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3789
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3790	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3791	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3792
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3793	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	3794	UIPainter new openOnClass:AbstractSettingsApplication::KbdMappingSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3795	AbstractSettingsApplication::KbdMappingSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3796	AbstractSettingsApplication::KbdMappingSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3797	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3798
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3799	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3800
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3801	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3802	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3803	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3804	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3805	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3806	label: 'Keyboard Mapping Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3807	name: 'Keyboard Mapping Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3808	min: (Point 10 10)
5576 8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	3809	bounds: (Rectangle 0 0 491 653)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3810	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3811	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3812	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3813	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3814	(VariableVerticalPanelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3815	name: 'VariableVerticalPanel1'
5576 8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	3816	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	3817	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3818	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3819	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3820	(VariableHorizontalPanelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3821	name: 'VariableHorizontalPanel1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3822	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3823	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3824	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3825	(SequenceViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3826	name: 'RawKeyList'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3827	model: selectedRawKey
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3828	hasHorizontalScrollBar: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3829	hasVerticalScrollBar: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3830	useIndex: false
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3831	sequenceList: rawKeyList
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3832	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3833	(SequenceViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3834	name: 'FunctionKeyList'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3835	model: selectedFunctionKey
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3836	hasHorizontalScrollBar: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3837	hasVerticalScrollBar: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3838	useIndex: false
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3839	sequenceList: functionKeyList
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3840	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3841	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3842
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3843	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3844	handles: (Any 0.5 1.0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3845	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3846	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3847	name: 'Box1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3848	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3849	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3850	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3851	(TextEditorSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3852	name: 'MacroText'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3853	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	3854	model: macroTextHolder
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3855	hasHorizontalScrollBar: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3856	hasVerticalScrollBar: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3857	isReadOnly: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3858	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3859	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3860	label: 'Macro text (if any):'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3861	name: 'MacroTextLabel'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3862	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	3863	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3864	adjust: left
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3865	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3866	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3867
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3868	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3869	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3870	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3871
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3872	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3873	handles: (Any 0.5 1.0)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3874	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3875	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3876	label: 'NoticeText'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3877	name: 'Text'
5576 8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	3878	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	3879	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3880	labelChannel: labelTextHolder
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3881	resizeForLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3882	adjust: left
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3883	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3884	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3885
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3886	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3887	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3888	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3889
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3890	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3891
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3892	basicSaveSettings
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3893	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3894
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	3895	helpFilename
5741 28a546bab7e8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5734 diff changeset	3896	^ 'Launcher/keyboardSetting.html'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3897	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3898
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3899	readSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3900	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3901	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3902
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3903	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3904
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3905	functionKeyList
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3906	"automatically generated by UIPainter ..."
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3907
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3908	"*** the code below creates a default model when invoked."
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3909	"*** (which may not be the one you wanted)"
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3910	"*** Please change as required and accept it in the browser."
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3911	"*** (and replace this comment by something more useful ;-)"
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3912
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3913	functionKeyList isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3914	functionKeyList := ValueHolder new.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3915	"/ 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	3916	"/ functionKeyList addDependent:self.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3917	"/ functionKeyList onChangeSend:#functionKeyListChanged to:self.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3918	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3919	^ functionKeyList.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3920	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3921
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3922	labelTextHolder
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3923	"automatically generated by UIPainter ..."
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3924
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3925	"*** the code below creates a default model when invoked."
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3926	"*** (which may not be the one you wanted)"
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3927	"*** Please change as required and accept it in the browser."
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3928	"*** (and replace this comment by something more useful ;-)"
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3929
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3930	labelTextHolder isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3931	labelTextHolder := ValueHolder new.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3932	"/ 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	3933	"/ labelTextHolder addDependent:self.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3934	"/ labelTextHolder onChangeSend:#labelTextHolderChanged to:self.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3935	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3936	^ labelTextHolder.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3937	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3938
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3939	macroTextHolder
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3940	"automatically generated by UIPainter ..."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3941
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3942	"*** the code below creates a default model when invoked."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3943	"*** (which may not be the one you wanted)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3944	"*** Please change as required and accept it in the browser."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3945	"*** (and replace this comment by something more useful ;-)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3946
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3947	macroTextHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3948	macroTextHolder := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3949	"/ if your app needs to be notified of changes, uncomment one of the lines below:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3950	"/ macroTextHolder addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3951	"/ macroTextHolder onChangeSend:#macroTextHolderChanged to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3952	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3953	^ macroTextHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3954	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3955
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3956	rawKeyList
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3957
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3958	rawKeyList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3959	rawKeyList := List new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3960	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3961	^ rawKeyList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3962	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3963
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3964	selectedFunctionKey
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3965
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3966	selectedFunctionKey isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3967	selectedFunctionKey := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3968	selectedFunctionKey addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3969	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3970	^ selectedFunctionKey.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3971	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3972
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3973	selectedRawKey
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3974
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3975	selectedRawKey isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3976	selectedRawKey := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3977	selectedRawKey addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3978	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3979	^ selectedRawKey.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3980	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3981
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3982	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3983
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3984	changeFunctionKeySelection
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3985
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3986	\|raw\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3987	raw := self selectedRawKey value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3988	self selectedFunctionKey value:(mappings at:raw asSymbol) asString.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3989	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3990
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3991	changeMacroText
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3992
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3993	\|f macro indent\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3994
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3995	f := self selectedFunctionKey value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3996	(f startsWith:'Cmd') ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3997	f := f copyFrom:4
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3998	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3999	macro := UserPreferences current functionKeySequences
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4000	at:(f asSymbol) ifAbsent:nil.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4001	macro notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4002	macro := macro asStringCollection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4003	indent := macro
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4004	inject:99999 into:[:min :element \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4005	\|stripped\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4006
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4007	stripped := element withoutLeadingSeparators.
6264 039dc5c1710b slight code cleanup Claus Gittinger <cg@exept.de> parents: 6256 diff changeset	4008	stripped isEmpty ifTrue:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4009	min
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4010	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4011	min min:(element size - stripped size)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4012	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4013	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4014	indent ~~ 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4015	macro := macro collect:[:line \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4016	line size > indent ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4017	line copyFrom:indent+1
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4018	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4019	line
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4020	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4021	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4022	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4023	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4024	macroTextHolder value:macro.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4025	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4026
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4027	changeRawKeySelection
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4028	\|f raw\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4029
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4030	f := self selectedFunctionKey value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4031	raw := mappings keyAtValue:f asString.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4032	raw isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4033	raw := mappings keyAtValue:f first.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4034	raw isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4035	raw := mappings keyAtValue:f asSymbol.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4036	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4037	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4038	self selectedRawKey value:raw.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4039	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4040
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4041	update:something with:aParameter from:changedObject
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4042	changedObject == self selectedFunctionKey ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4043	self changeRawKeySelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4044	self changeMacroText.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4045	^ self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4046	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4047	changedObject == self selectedRawKey ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4048	self changeFunctionKeySelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4049	^ self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4050	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4051	super update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4052	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4053
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4054	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4055
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4056	initialize
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4057
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4058	super initialize.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4059
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4060	mappings := Screen current keyboardMap.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4061
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4062	rawKeyList := (mappings keys asArray collect:[:key \| key asString]) sort.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4063	functionKeyList := (mappings values asSet asArray collect:[:key \| key asString]) sort.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4064
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4065	self labelTextHolder value:(resources at:'KEY_MSG2' default:'keyboard mapping:') withCRs.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4066	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4067
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4068	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4069
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4070	hasUnsavedChanges
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4071
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4072	^ false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4073	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4074
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4075	!AbstractSettingsApplication::LanguageSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4076
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4077	defaultIcon
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	4078	<resource: #programImage>
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	4079
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	4080	^ ToolbarIconLibrary languagesIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4081	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4082
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4083	!AbstractSettingsApplication::LanguageSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4084
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4085	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4086	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4087	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4088
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4089	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4090	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4091
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4092	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4093	UIPainter new openOnClass:AbstractSettingsApplication::LanguageSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4094	AbstractSettingsApplication::LanguageSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4095	AbstractSettingsApplication::LanguageSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4096	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4097
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4098	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4099
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4100	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4101	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4102	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4103	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4104	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4105	label: 'Language Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4106	name: 'Language Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4107	min: (Point 10 10)
6058 d0add4dd0d80 * empty log message * Claus Gittinger <cg@exept.de> parents: 6037 diff changeset	4108	bounds: (Rectangle 0 0 571 939)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4109	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4110	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4111	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4112	collection: (
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	4113	(TextEditorSpec
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	4114	name: 'TextEditor1'
5556 f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	4115	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	4116	style: (FontDescription helvetica medium roman 10 #'iso10646-1')
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	4117	model: noticeLabelHolder
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	4118	hasHorizontalScrollBar: true
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	4119	hasVerticalScrollBar: true
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	4120	miniScrollerHorizontal: true
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	4121	autoHideScrollBars: true
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	4122	isReadOnly: true
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	4123	postBuildCallback: postBuildHelpLabel:
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4124	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4125	(LabelSpec
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4126	label: 'Current Language:'
5556 f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	4127	name: 'Label1'
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	4128	layout: (LayoutFrame 0 0 0 0 -233 1 20 0)
5556 f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	4129	translateLabel: true
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	4130	labelChannel: currentLanguageLabel
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	4131	adjust: right
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	4132	)
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	4133	(LabelSpec
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4134	label: 'Label'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4135	name: 'CurrentLang'
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4136	layout: (LayoutFrame -233 1 0 0 0 1 20 0)
6058 d0add4dd0d80 * empty log message * Claus Gittinger <cg@exept.de> parents: 6037 diff changeset	4137	style: (FontDescription arial bold roman 10 nil)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4138	translateLabel: true
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4139	labelChannel: currentFlagAndLanguageChannel
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4140	adjust: left
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4141	)
5556 f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	4142	(InputFieldSpec
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	4143	name: 'EntryField1'
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	4144	layout: (LayoutFrame 2 0.0 160 0 -2 1.0 184 0)
5556 f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	4145	model: languageHolder
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	4146	acceptOnReturn: true
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	4147	acceptOnTab: true
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	4148	acceptOnLostFocus: true
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	4149	acceptOnPointerLeave: true
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	4150	)
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	4151	(SequenceViewSpec
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	4152	name: 'List1'
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	4153	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	4154	model: languageIndexHolder
5556 f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	4155	hasHorizontalScrollBar: true
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	4156	hasVerticalScrollBar: true
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	4157	doubleClickSelector: doubleClick:
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4158	useIndex: true
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4159	sequenceList: languageListHolder
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4160	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4161	(HorizontalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4162	name: 'HorizontalPanel1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4163	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	4164	horizontalLayout: center
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4165	verticalLayout: center
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4166	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4167	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4168	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4169	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4170	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4171	(ActionButtonSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4172	label: 'Reread Language Resources'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4173	name: 'RereadResourcesButton'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4174	translateLabel: true
5556 f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	4175	resizeForLabel: true
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4176	model: rereadResourceFiles
5556 f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	4177	useDefaultExtent: true
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4178	)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4179	)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4180
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4181	)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4182	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4183	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4184
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4185	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4186	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4187	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4188
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4189	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'accessing'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4190
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4191	languageList
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4192	"return the value of the instance variable 'languageList' (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4193
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4194	^ languageList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4195	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4196
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4197	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4198
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4199	basicSaveSettings
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4200	\|fontPref fontPrefs language oldLanguage languageString territory enc
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4201	answer matchingFonts l screen switch dialog anyWrong\|
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4202
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4203	self withWaitCursorDo:[
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4204	languageString := translatedLanguages at:(self languageIndexHolder value).
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4205	language := self languageHolder value.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4206	(language includes:$-) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4207	l := language asCollectionOfSubstringsSeparatedBy:$-.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4208	language := l at:1.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4209	territory := l at:2.
5837 470e67fd9d0a * empty log message * Claus Gittinger <cg@exept.de> parents: 5825 diff changeset	4210	territory isNil ifTrue:[
470e67fd9d0a * empty log message * Claus Gittinger <cg@exept.de> parents: 5825 diff changeset	4211	territory := language string copyTo:2
470e67fd9d0a * empty log message * Claus Gittinger <cg@exept.de> parents: 5825 diff changeset	4212	].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4213	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4214
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4215	"/ check if the new language needs a differently encoded font;
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4216	"/ ask user to switch font and allow cancellation.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4217	"/ Otherwise, you are left with unreadable menu & button items ...
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4218
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4219	oldLanguage := Smalltalk language.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4220	Smalltalk language:language asSymbol.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4221	ResourcePack flushCachedResourcePacks.
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4222
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4223	"/ refetch resources ...
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4224	resources := AbstractLauncherApplication classResources.
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4225	fontPrefs := resources at:'PREFERRED_FONT_ENCODINGS' default:nil.
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4226	fontPrefs isNil ifTrue:[
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4227	fontPref := resources at:'PREFERRED_FONT_ENCODING' default:nil.
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4228	fontPref isNil ifTrue:[
5700 61de7f81a8fb * empty log message * Claus Gittinger <cg@exept.de> parents: 5627 diff changeset	4229	fontPrefs := #(#'iso10646-1')
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4230	] ifFalse:[
5700 61de7f81a8fb * empty log message * Claus Gittinger <cg@exept.de> parents: 5627 diff changeset	4231	fontPrefs := #(#'iso10646-1') , (Array with:fontPref).
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4232	]
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4233	].
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	4234
9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	4235	"/ 'normalize' names of encodings
5700 61de7f81a8fb * empty log message * Claus Gittinger <cg@exept.de> parents: 5627 diff changeset	4236	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	4237	fontPrefs := fontPrefs select:[:each \| each notNil] thenCollect:[:each \| each nameOfEncoding].
5700 61de7f81a8fb * empty log message * Claus Gittinger <cg@exept.de> parents: 5627 diff changeset	4238	fontPrefs isEmpty ifTrue:[
61de7f81a8fb * empty log message * Claus Gittinger <cg@exept.de> parents: 5627 diff changeset	4239	fontPrefs := #(#'iso10464-1')
61de7f81a8fb * empty log message * Claus Gittinger <cg@exept.de> parents: 5627 diff changeset	4240	].
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4241	fontPref := fontPrefs first.
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4242
5580 11cec5eb8c93 * empty log message * Claus Gittinger <cg@exept.de> parents: 5576 diff changeset	4243	Smalltalk setLanguage:#en.
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4244	ResourcePack flushCachedResourcePacks.
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4245	resources := AbstractLauncherApplication classResources.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4246
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4247	switch := true.
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4248	anyWrong := false.
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4249	(Array
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4250	with:MenuView defaultFont
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4251	"/ with:ListView defaultFont
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4252	with:EditTextView defaultFont
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4253	with:Button defaultFont)
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4254	do:[:fn \|
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4255	enc := fn encoding.
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4256	(fontPrefs contains:[:pref \| CharacterEncoder isEncoding:pref subSetOf:enc])
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4257	ifFalse:[
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4258	anyWrong := true
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4259	].
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4260	].
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4261	anyWrong ifTrue:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4262	"/ look if there is one at all.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4263	screen := Screen current.
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4264	matchingFonts := screen listOfAvailableFonts
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4265	select:[:f \| fontPrefs contains:[:pref \|
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4266	CharacterEncoder
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4267	isEncoding:pref subSetOf:(f encoding ? 'ascii')]].
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4268
6264 039dc5c1710b slight code cleanup Claus Gittinger <cg@exept.de> parents: 6256 diff changeset	4269	matchingFonts isEmpty ifTrue:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4270	"/ flush and try again - just in case, the font path has changed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4271	screen flushListOfAvailableFonts.
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4272	matchingFonts := screen listOfAvailableFonts
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4273	select:[:f \| fontPrefs contains:[:pref \|
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4274	CharacterEncoder
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4275	isEncoding:pref subSetOf:(f encoding ? 'ascii')]].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4276	].
6264 039dc5c1710b slight code cleanup Claus Gittinger <cg@exept.de> parents: 6256 diff changeset	4277	matchingFonts isEmpty ifTrue:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4278	(Dialog
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4279	confirm:(resources
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4280	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	4281	with:fontPref) withCRs)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4282	ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4283	switch := false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4284	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4285	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4286	answer := Dialog
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4287	confirmWithCancel:(resources
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4288	string:'Some font(s) is not %1-encoded.\\Change it ?'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4289	with:fontPref) withCRs
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4290	labels:(resources
5109 27daba118da2 * empty log message * Claus Gittinger <cg@exept.de> parents: 5101 diff changeset	4291	array:#('Cancel' 'No' 'Yes'))
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4292	default:3.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4293	answer isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4294	switch := false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4295	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4296	answer ifTrue:[
5495 61664e06a5d7 * empty log message * Claus Gittinger <cg@exept.de> parents: 5479 diff changeset	4297	switch := (AbstractLauncherApplication::LauncherDialogs fontBoxForEncoding:fontPref)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4298	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4299	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4300	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4301	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4302
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4303	switch ifTrue:[
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4304	Transcript showCR:'Changing language setting to ' , languageString string , ' (' , language , ')...'.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4305	Smalltalk language:language asSymbol.
5837 470e67fd9d0a * empty log message * Claus Gittinger <cg@exept.de> parents: 5825 diff changeset	4306	Smalltalk languageTerritory:(territory ? language) asSymbol.
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4307	ResourcePack flushCachedResourcePacks.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4308	"/ ResourcePack flushCachedResourcePacks - already done by language-change
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4309	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4310	].
4327 076dfc82d0ed * empty log message * penk parents: 4324 diff changeset	4311	switch ifTrue:[
6389 9f4010737320 code cleanup Claus Gittinger <cg@exept.de> parents: 6383 diff changeset	4312	(dialog := settingsDialog) notNil ifTrue:[
5212 5ddf75438c57 checkin from browser Claus Gittinger <cg@exept.de> parents: 5181 diff changeset	4313	dialog reopenLauncher.
4327 076dfc82d0ed * empty log message * penk parents: 4324 diff changeset	4314	] ifFalse:[
076dfc82d0ed * empty log message * penk parents: 4324 diff changeset	4315	NewLauncher current reopenLauncher.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4316	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4317	DebugView newDebugger.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4318	].
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4319	self updateForChangedLanguage.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4320	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4321
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4322	doubleClick:aEntry
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4323	self saveSettingsIfUnsavedChangesArePresent.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4324	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4325
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4326	helpFilename
5741 28a546bab7e8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5734 diff changeset	4327	^ 'Launcher/languageSetting.html'
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4328	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4329
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4330	readSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4331	self languageHolder value:self currentLanguage.
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4332	self currentFlagAndLanguageChannel value:self currentLanguage.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4333	self modifiedChannel value:false
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4334	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4335
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4336	rereadResourceFiles
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4337	ResourcePack flushCachedResourcePacks.
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4338	perLanguageResources := nil.
5576 8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	4339	self withWaitCursorDo:[
8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	4340	self updateForChangedLanguage.
8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	4341	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4342
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4343	"/ Smalltalk language:(Smalltalk language).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4344	"/ Smalltalk languageTerritory:(Smalltalk languageTerritory).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4345
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4346	Smalltalk changed:#Language.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4347	Smalltalk changed:#LanguageTerritory.
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4348	!
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4349
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4350	updateForChangedLanguage
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4351	self initializeLanguages.
5721 effab3aca7ff * empty log message * Claus Gittinger <cg@exept.de> parents: 5719 diff changeset	4352	languageListHolder value:languageList.
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4353	self languageListHolder value:languageList.
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4354	self currentFlagAndLanguageChannel value:self currentLanguage.
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4355	self setCurrentLanguageLabel.
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4356	self setNoticeLabel.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4357	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4358
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4359	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4360
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4361	currentFlagAndLanguageChannel
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4362	currentFlagAndLanguageChannel isNil ifTrue:[
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4363	currentFlagAndLanguageChannel := self currentLanguage asValue.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4364	].
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4365	^ currentFlagAndLanguageChannel.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4366	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4367
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4368	currentLanguageLabel
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4369	currentLanguageLabel isNil ifTrue:[
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4370	currentLanguageLabel := ValueHolder new.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4371	self setCurrentLanguageLabel.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4372	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4373	^ currentLanguageLabel.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4374	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4375
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4376	languageHolder
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4377	languageHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4378	languageHolder := self currentLanguage asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	4379	languageHolder onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4380	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4381	^ languageHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4382	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4383
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4384	languageIndexChanged
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4385	\|langIdx\|
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4386
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4387	langIdx := self languageIndexHolder value ? 1.
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4388	self languageHolder value:(listOfLanguages at:langIdx).
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4389	self updateModifiedChannel.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4390	!
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4391
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4392	languageIndexHolder
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4393	languageIndexHolder isNil ifTrue:[
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4394	languageIndexHolder := (self currentLanguageIndex) asValue.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4395	languageIndexHolder onChangeSend:#languageIndexChanged to:self.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4396	].
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4397	^ languageIndexHolder.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4398	!
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4399
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4400	languageListHolder
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4401	languageListHolder isNil ifTrue:[
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4402	languageListHolder := self languageList asValue.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4403	].
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4404	^ languageListHolder.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4405	!
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4406
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4407	noticeLabelHolder
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4408	noticeLabelHolder isNil ifTrue:[
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4409	noticeLabelHolder := ValueHolder new.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4410	self setNoticeLabel.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4411	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4412	^ noticeLabelHolder.
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4413	!
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4414
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4415	setCurrentLanguageLabel
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4416	currentLanguageLabel value: (resources string:'Current Language:')
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4417	!
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4418
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4419	setNoticeLabel
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	4420	noticeLabelHolder
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	4421	value: ((resources at:'LANG_MSG' default:'Select a Language') withCRs).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4422	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4423
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4424	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4425
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4426	initialize
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4427	self initializeLanguages.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4428	super initialize.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4429	!
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4430
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4431	initializeLanguages
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4432	\|flags enResources savedLanguage savedLanguageTerritory enLanguages nativeLanguages languages listOfLanguageKeys\|
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4433
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4434	resources := self class classResources.
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	4435	listOfLanguages := resources at:'LIST_OF_OFFERED_LANGUAGES' default:#('default' 'en' ).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4436	listOfLanguages := listOfLanguages asOrderedCollection.
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4437	listOfLanguageKeys := listOfLanguages collect:[:l \| l copyReplaceAll:$- with:$_ ].
5563 5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	4438
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	4439	(perLanguageResources notNil
4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	4440	and:[ (perLanguageResources includesKey:#en) not
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4441	and:[ (perLanguageResources includesKey:#'en_us') not ]])
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	4442	ifTrue:[
4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	4443	perLanguageResources := nil.
4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	4444	].
4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	4445
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4446	perLanguageResources isNil ifTrue:[
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4447	perLanguageResources := Dictionary new.
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4448
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4449	listOfLanguageKeys do:[:eachLang \|
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4450	savedLanguage := Language.
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4451	savedLanguageTerritory := LanguageTerritory.
5573 71a51c6df6a4 checkin from browser Claus Gittinger <cg@exept.de> parents: 5569 diff changeset	4452	ResourcePack flushCachedResourcePacks.
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4453	[
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4454	\|rsc lang terr\|
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4455
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4456	lang := terr := eachLang.
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4457	(lang includes:$_) ifTrue:[
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4458	terr := lang copyFrom:4.
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4459	lang := lang copyTo:2.
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4460	].
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4461	Language := lang asSymbol.
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4462	LanguageTerritory := terr asSymbol.
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4463	rsc := ResourcePack for:(self class) cached:false.
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4464	perLanguageResources at:eachLang asSymbol put:rsc.
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4465	] ensure:[
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4466	Language := savedLanguage.
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4467	LanguageTerritory := savedLanguageTerritory.
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4468	].
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4469	].
5573 71a51c6df6a4 checkin from browser Claus Gittinger <cg@exept.de> parents: 5569 diff changeset	4470	ResourcePack flushCachedResourcePacks.
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4471	].
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4472	enResources := perLanguageResources at:#en ifAbsent:[perLanguageResources at:#'en_us'].
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4473
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4474	enLanguages := listOfLanguageKeys
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4475	collect:[:lang \| \|item\|
5563 5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	4476	item := enResources at:('LANG_' , lang) default:nil.
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	4477	item isNil ifTrue:[
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	4478	lang
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4479	] ifFalse:[
5563 5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	4480	item isString ifTrue:[
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	4481	item
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	4482	] ifFalse:[
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	4483	item at:1
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	4484	]
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4485	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4486	].
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4487
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4488	nativeLanguages := listOfLanguageKeys
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4489	collect:[:lang \| \|item enLang\|
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4490	item := enResources at:('LANG_' , lang) default:nil.
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4491	item isNil ifTrue:[
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4492	enLang := lang
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4493	] ifFalse:[
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4494	item isString ifTrue:[
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4495	enLang := item
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4496	] ifFalse:[
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4497	enLang := item at:1
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4498	]
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4499	].
5583 2da80c3bc608 * empty log message * Claus Gittinger <cg@exept.de> parents: 5580 diff changeset	4500	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	4501	].
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4502
5563 5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	4503	languages := enLanguages
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	4504	collect:[:enLang \| \|item\|
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	4505	item := resources at:enLang default:enLang.
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	4506	].
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	4507
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4508	flags := listOfLanguageKeys collect:[:lang \| \|item coll\|
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4509	item := resources at:('FLAG_' , lang) default:nil.
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4510	item notNil ifTrue:[
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4511	item
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4512	] ifFalse:[
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4513	coll := lang asCollectionOfSubstringsSeparatedBy:$_.
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4514	(coll size > 1
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4515	and:[(item := resources at:('FLAG_' , coll last) default:nil) notNil])
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4516	ifTrue:[
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4517	item
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4518	] ifFalse:[
6638 74439c5aa6dd * empty log message * Claus Gittinger <cg@exept.de> parents: 6580 diff changeset	4519	item := resources string:('LANG_' , lang).
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4520	item isArray ifTrue:[
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4521	item at:2
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4522	] ifFalse:[
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4523	nil
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4524	]
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	4525	]
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4526	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4527	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4528	flags := flags collect:[:nm \| \|img d\| nm notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4529	img := Image fromFile:nm.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4530	img isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4531	d := Smalltalk getPackageDirectoryForPackage:'stx:goodies'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4532	img := Image fromFile:(d construct:nm).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4533	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4534	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4535	nil
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4536	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4537	].
5563 5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	4538
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4539
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4540	translatedLanguages := (1 to:languages size) collect:[:idx \|
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4541	\|l eL nL s\|
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4542
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4543	l := languages at:idx.
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4544	eL := enLanguages at:idx.
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4545	nL := nativeLanguages at:idx.
5734 67a9878b31bc * empty log message * Claus Gittinger <cg@exept.de> parents: 5721 diff changeset	4546
67a9878b31bc * empty log message * Claus Gittinger <cg@exept.de> parents: 5721 diff changeset	4547	s := nL.
67a9878b31bc * empty log message * Claus Gittinger <cg@exept.de> parents: 5721 diff changeset	4548	eL ~= nL ifTrue:[
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4549	s := s , ' / ' , eL
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4550	].
5734 67a9878b31bc * empty log message * Claus Gittinger <cg@exept.de> parents: 5721 diff changeset	4551	(l ~= nL and:[l ~= eL]) ifTrue:[
67a9878b31bc * empty log message * Claus Gittinger <cg@exept.de> parents: 5721 diff changeset	4552	s := s , ' / ' , l
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4553	].
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4554	s
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4555	].
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	4556
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4557	languageList := translatedLanguages
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	4558	with:flags
5563 5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	4559	collect:[:lang :flag \| LabelAndIcon icon:flag string:lang.].
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	4560	!
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	4561
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	4562	postBuildHelpLabel:aWidget
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	4563	aWidget level:0.
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	4564	aWidget scrolledView backgroundColor:self window viewBackground.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4565	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4566
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4567	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4568
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4569	currentLanguage
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4570	^ languageList at:(self currentLanguageIndex)
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4571	!
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4572
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4573	currentLanguageIndex
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4574	\| langIdx \|
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4575
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4576	(Language ~= LanguageTerritory) ifTrue:[
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4577	langIdx := listOfLanguages indexOf:(Language , '-' , LanguageTerritory) ifAbsent:nil.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4578	].
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4579	langIdx isNil ifTrue:[
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4580	langIdx := listOfLanguages indexOf:Language ifAbsent:nil.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4581	].
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4582	langIdx isNil ifTrue:[
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4583	langIdx := listOfLanguages indexOf:'en' ifAbsent:nil.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4584	langIdx isNil ifTrue:[
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4585	langIdx := listOfLanguages indexOf:'en-us' ifAbsent:nil.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4586
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4587	langIdx isNil ifTrue:[
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4588	langIdx := 1.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4589	]
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4590	]
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4591	].
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	4592	^ langIdx
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4593	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4594
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4595	hasUnsavedChanges
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4596	^ (self languageHolder value) ~= (self currentLanguage)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4597	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4598
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4599	!AbstractSettingsApplication::MemorySettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4600
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4601	defaultIcon
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	4602	<resource: #programImage>
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	4603
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	4604	^ ToolbarIconLibrary memoryIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4605	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4606
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4607	!AbstractSettingsApplication::MemorySettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4608
5433 f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4609	windowSpec
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4610	"This resource specification was automatically generated
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4611	by the UIPainter of ST/X."
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4612
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4613	"Do not manually edit this!! If it is corrupted,
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4614	the UIPainter may not be able to read the specification."
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4615
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4616	"
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4617	UIPainter new openOnClass:AbstractSettingsApplication::MemorySettingsAppl andSelector:#windowSpec
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4618	AbstractSettingsApplication::MemorySettingsAppl new openInterface:#windowSpec
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4619	AbstractSettingsApplication::MemorySettingsAppl open
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4620	"
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4621
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4622	<resource: #canvas>
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4623
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4624	^
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4625	#(FullSpec
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4626	name: windowSpec
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4627	window:
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4628	(WindowSpec
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4629	label: 'Memory Manager Settings'
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4630	name: 'Memory Manager Settings'
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4631	min: (Point 10 10)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4632	bounds: (Rectangle 13 23 465 745)
5433 f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4633	)
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4634	component:
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4635	(SpecCollection
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	4636	collection: (
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4637	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4638	label: 'Label'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4639	name: 'Label1'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4640	layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 50 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4641	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4642	labelChannel: warningLabelHolder
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4643	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4644	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4645	(VerticalPanelViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4646	name: 'VerticalPanel1'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4647	layout: (LayoutFrame 0 0.0 50 0 0 1.0 0 1.0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4648	horizontalLayout: fit
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4649	verticalLayout: top
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4650	horizontalSpace: 0
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4651	verticalSpace: 3
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4652	ignoreInvisibleComponents: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4653	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4654	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4655	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4656	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4657	name: 'NewSpaceSizeBox'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4658	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4659	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4660	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4661	(InputFieldSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4662	name: 'EntryField23'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4663	layout: (LayoutFrame -95 1 3 0 -5 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4664	model: newSpaceSize
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4665	type: fileSize
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4666	acceptOnReturn: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4667	acceptOnTab: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4668	acceptOnLostFocus: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4669	acceptOnPointerLeave: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4670	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4671	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4672	label: 'Size of NewSpace:'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4673	name: 'Label44'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4674	layout: (LayoutFrame 0 0 3 0 -95 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4675	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4676	adjust: right
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4677	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4678	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4679	label: 'Size of newSpace where objects are created'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4680	name: 'Label45'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4681	layout: (LayoutFrame 0 0.0 23 0 0 1.0 43 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4682	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4683	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4684	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4685	(DividerSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4686	name: 'Separator24'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4687	layout: (LayoutFrame 0 0.0 0 0 0 1.0 3 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4688	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4689	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4690
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4691	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4692	extent: (Point 452 43)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4693	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4694	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4695	name: 'MaximumMemoryLimitBox'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4696	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4697	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4698	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4699	(InputFieldSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4700	name: 'EntryField24'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4701	layout: (LayoutFrame -95 1 3 0 -5 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4702	model: maxOldSpace
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4703	type: fileSize
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4704	formatString: ''
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4705	acceptOnReturn: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4706	acceptOnTab: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4707	acceptOnLostFocus: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4708	acceptOnPointerLeave: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4709	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4710	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4711	label: 'Maximum Memory Limit:'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4712	name: 'Label46'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4713	layout: (LayoutFrame 0 0 3 0 -95 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4714	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4715	adjust: right
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4716	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4717	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4718	label: 'Never allocate more than this amount of memory'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4719	name: 'Label47'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4720	layout: (LayoutFrame 0 0.0 23 0 0 1.0 43 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4721	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4722	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4723	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4724	(DividerSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4725	name: 'Separator25'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4726	layout: (LayoutFrame 0 0.0 0 0 0 1.0 3 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4727	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4728	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4729
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4730	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4731	extent: (Point 452 43)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4732	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4733	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4734	name: 'QuickAllocationLimitBox'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4735	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4736	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4737	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4738	(InputFieldSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4739	name: 'EntryField14'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4740	layout: (LayoutFrame -95 1 3 0 -5 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4741	model: fastMoreLimit
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4742	type: fileSize
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4743	acceptOnReturn: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4744	acceptOnTab: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4745	acceptOnLostFocus: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4746	acceptOnPointerLeave: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4747	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4748	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4749	label: 'Quick Allocation Limit:'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4750	name: 'Label26'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4751	layout: (LayoutFrame 0 0 3 0 -95 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4752	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4753	adjust: right
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4754	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4755	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4756	label: 'Quickly allocate more memory (suppress GC) up to this limit'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4757	name: 'Label27'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4758	layout: (LayoutFrame 0 0.0 23 0 0 1.0 43 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4759	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4760	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4761	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4762	(DividerSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4763	name: 'Separator15'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4764	layout: (LayoutFrame 0 0.0 0 0 0 1.0 3 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4765	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4766	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4767
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4768	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4769	extent: (Point 452 43)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4770	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4771	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4772	name: 'IncrementalGCAllocationTriggerBox'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4773	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4774	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4775	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4776	(InputFieldSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4777	name: 'EntryField25'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4778	layout: (LayoutFrame -95 1 3 0 -5 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4779	model: igcLimit
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4780	type: fileSize
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4781	acceptOnReturn: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4782	acceptOnTab: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4783	acceptOnLostFocus: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4784	acceptOnPointerLeave: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4785	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4786	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4787	label: 'Incremental GC Allocation Trigger:'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4788	name: 'Label48'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4789	layout: (LayoutFrame 0 0 3 0 -95 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4790	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4791	adjust: right
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4792	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4793	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4794	label: 'Start IGC whenever this amount has been allocated'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4795	name: 'Label49'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4796	layout: (LayoutFrame 0 0.0 23 0 0 1.0 43 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4797	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4798	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4799	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4800	(DividerSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4801	name: 'Separator26'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4802	layout: (LayoutFrame 0 0.0 0 0 0 1.0 3 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4803	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4804	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4805
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4806	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4807	extent: (Point 452 43)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4808	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4809	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4810	name: 'IncrementalGCFreespaceTriggerBox'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4811	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4812	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4813	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4814	(InputFieldSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4815	name: 'EntryField26'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4816	layout: (LayoutFrame -95 1 3 0 -5 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4817	model: igcFreeLimit
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4818	type: fileSize
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4819	acceptOnReturn: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4820	acceptOnTab: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4821	acceptOnLostFocus: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4822	acceptOnPointerLeave: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4823	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4824	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4825	label: 'Incremental GC Freespace Trigger:'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4826	name: 'Label50'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4827	layout: (LayoutFrame 0 0 3 0 -95 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4828	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4829	adjust: right
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4830	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4831	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4832	label: 'Start IGC whenever freespace drops below this'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4833	name: 'Label51'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4834	layout: (LayoutFrame 0 0.0 23 0 0 1.0 43 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4835	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4836	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4837	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4838	(DividerSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4839	name: 'Separator27'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4840	layout: (LayoutFrame 0 0.0 0 0 0 1.0 3 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4841	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4842	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4843
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4844	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4845	extent: (Point 452 43)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4846	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4847	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4848	name: 'GCAmountBox'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4849	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4850	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4851	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4852	(InputFieldSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4853	name: 'EntryField17'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4854	layout: (LayoutFrame -95 1 3 0 -5 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4855	model: igcFreeAmount
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4856	type: fileSize
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4857	acceptOnReturn: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4858	acceptOnTab: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4859	acceptOnLostFocus: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4860	acceptOnPointerLeave: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4861	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4862	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4863	label: 'Incremental GC Amount:'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4864	name: 'Label32'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4865	layout: (LayoutFrame 0 0 3 0 -95 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4866	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4867	adjust: right
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4868	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4869	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4870	label: 'Try to keep this amount for peak requests'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4871	name: 'Label33'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4872	layout: (LayoutFrame 0 0.0 23 0 0 1.0 43 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4873	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4874	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4875	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4876	(DividerSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4877	name: 'Separator18'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4878	layout: (LayoutFrame 0 0.0 0 0 0 1.0 3 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4879	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4880	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4881
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4882	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4883	extent: (Point 452 43)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4884	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4885	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4886	name: 'OldspaceIncrementBox'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4887	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4888	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4889	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4890	(InputFieldSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4891	name: 'EntryField18'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4892	layout: (LayoutFrame -95 1 3 0 -5 1.0 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4893	model: oldIncr
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4894	type: fileSize
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4895	acceptOnReturn: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4896	acceptOnTab: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4897	acceptOnLostFocus: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4898	acceptOnPointerLeave: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4899	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4900	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4901	label: 'Oldspace Increment:'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4902	name: 'Label34'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4903	layout: (LayoutFrame 0 0 3 0 -95 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4904	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4905	adjust: right
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4906	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4907	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4908	label: 'Increase oldSpace in chunks of this size'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4909	name: 'Label35'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4910	layout: (LayoutFrame 0 0.0 23 0 0 1.0 43 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4911	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4912	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4913	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4914	(DividerSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4915	name: 'Separator19'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4916	layout: (LayoutFrame 0 0.0 0 0 0 1.0 3 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4917	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4918	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4919
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4920	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4921	extent: (Point 452 43)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4922	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4923	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4924	name: 'OldSpaceCompressLimitBox'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4925	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4926	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4927	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4928	(InputFieldSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4929	name: 'EntryField19'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4930	layout: (LayoutFrame -95 1 3 0 -5 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4931	model: compressLimit
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4932	type: fileSize
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4933	acceptOnReturn: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4934	acceptOnTab: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4935	acceptOnLostFocus: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4936	acceptOnPointerLeave: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4937	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4938	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4939	label: 'Oldspace Compress Limit:'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4940	name: 'Label36'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4941	layout: (LayoutFrame 0 0 3 0 -95 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4942	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4943	adjust: right
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4944	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4945	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4946	label: 'Use 2-pass compressing GC if > 0 and more memory is in use'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4947	name: 'Label37'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4948	layout: (LayoutFrame 0 0.0 23 0 0 1.0 43 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4949	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4950	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4951	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4952	(DividerSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4953	name: 'Separator20'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4954	layout: (LayoutFrame 0 0.0 0 0 0 1.0 3 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4955	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4956	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4957
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4958	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4959	extent: (Point 452 43)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4960	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4961	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4962	name: 'StackLimitBox'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4963	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4964	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4965	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4966	(InputFieldSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4967	name: 'EntryField20'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4968	layout: (LayoutFrame -95 1 3 0 -5 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4969	enableChannel: supportsJustInTimeCompilation
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4970	model: stackLimit
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4971	type: fileSize
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4972	acceptOnReturn: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4973	acceptOnTab: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4974	acceptOnLostFocus: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4975	acceptOnPointerLeave: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4976	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4977	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4978	label: 'Stack Limit:'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4979	name: 'Label38'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4980	layout: (LayoutFrame 0 0 3 0 -95 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4981	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4982	adjust: right
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4983	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4984	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4985	label: 'Trigger recursionInterrupt if more stack is used by a process'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4986	name: 'Label39'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4987	layout: (LayoutFrame 0 0.0 23 0 0 1.0 43 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4988	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4989	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4990	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4991	(DividerSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4992	name: 'Separator21'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4993	layout: (LayoutFrame 0 0.0 0 0 0 1.0 3 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4994	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4995	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4996
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4997	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4998	extent: (Point 452 43)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	4999	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5000	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5001	name: 'CodeLimitBox'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5002	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5003	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5004	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5005	(InputFieldSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5006	name: 'EntryField21'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5007	layout: (LayoutFrame -95 1 3 0 -5 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5008	enableChannel: supportsJustInTimeCompilation
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5009	model: codeLimit
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5010	type: fileSize
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5011	acceptOnReturn: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5012	acceptOnTab: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5013	acceptOnLostFocus: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5014	acceptOnPointerLeave: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5015	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5016	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5017	label: 'Dynamic code Limit:'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5018	name: 'Label40'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5019	layout: (LayoutFrame 0 0 3 0 -95 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5020	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5021	adjust: right
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5022	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5023	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5024	label: 'Flush dynamic compiled code to stay within this limit'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5025	name: 'Label41'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5026	layout: (LayoutFrame 0 0.0 23 0 0 1.0 43 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5027	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5028	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5029	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5030	(DividerSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5031	name: 'Separator22'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5032	layout: (LayoutFrame 0 0.0 0 0 0 1.0 3 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5033	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5034	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5035
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5036	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5037	extent: (Point 452 43)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5038	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5039	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5040	name: 'CodeTriggerBox'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5041	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5042	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5043	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5044	(InputFieldSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5045	name: 'EntryField22'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5046	layout: (LayoutFrame -95 1 3 0 -5 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5047	model: codeTrigger
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5048	type: fileSize
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5049	acceptOnReturn: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5050	acceptOnTab: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5051	acceptOnLostFocus: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5052	acceptOnPointerLeave: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5053	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5054	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5055	label: 'Dynamic code Limit:'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5056	name: 'Label42'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5057	layout: (LayoutFrame 0 0 3 0 -95 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5058	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5059	adjust: right
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5060	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5061	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5062	label: 'Start incremental GC whenever this amount of code has been allocated'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5063	name: 'Label43'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5064	layout: (LayoutFrame 0 0.0 23 0 0 1.0 43 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5065	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5066	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5067	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5068	(DividerSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5069	name: 'Separator23'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5070	layout: (LayoutFrame 0 0.0 0 0 0 1.0 3 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5071	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5072	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5073
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5074	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5075	extent: (Point 452 43)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5076	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5077	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5078
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5079	)
5433 f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	5080	)
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	5081	)
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	5082
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	5083	)
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	5084	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5085	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5086
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5087	!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5088
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5089	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5090
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5091	ObjectMemory freeSpaceGCAmount:self igcFreeAmount value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5092	ObjectMemory freeSpaceGCLimit:self igcFreeLimit value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5093	ObjectMemory incrementalGCLimit:self igcLimit value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5094	ObjectMemory newSpaceSize:self newSpaceSize value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5095	ObjectMemory oldSpaceIncrement:self oldIncr value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5096	Process defaultMaximumStackSize:self stackLimit value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5097	ObjectMemory fastMoreOldSpaceLimit:self fastMoreLimit value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5098	ObjectMemory maxOldSpace:self maxOldSpace value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5099	ObjectMemory oldSpaceCompressLimit:self compressLimit value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5100	ObjectMemory dynamicCodeLimit:self codeLimit value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5101	ObjectMemory dynamicCodeGCTrigger:self codeTrigger value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5102	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5103
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	5104	helpFilename
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	5105	^ 'Launcher/memorySettings.html'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5106	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5107
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5108	readSettings
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5109	self igcLimit value:ObjectMemory incrementalGCLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5110	self igcFreeLimit value:ObjectMemory freeSpaceGCLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5111	self igcFreeAmount value:ObjectMemory freeSpaceGCAmount.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5112	self newSpaceSize value:ObjectMemory newSpaceSize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5113	self oldIncr value:ObjectMemory oldSpaceIncrement.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5114	self compressLimit value:ObjectMemory oldSpaceCompressLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5115	self codeLimit value:ObjectMemory dynamicCodeLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5116	self codeTrigger value:ObjectMemory dynamicCodeGCTrigger.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5117	self stackLimit value:Process defaultMaximumStackSize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5118	self fastMoreLimit value:(ObjectMemory fastMoreOldSpaceLimit:-1).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5119	self maxOldSpace value:ObjectMemory maxOldSpace.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5120	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5121	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5122
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5123	!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5124
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5125	codeLimit
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5126
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5127	codeLimit isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5128	codeLimit := ObjectMemory dynamicCodeLimit asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5129	codeLimit onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5130	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5131	^ codeLimit.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5132	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5133
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5134	codeTrigger
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5135
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5136	codeTrigger isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5137	codeTrigger := ObjectMemory dynamicCodeGCTrigger asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5138	codeTrigger onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5139	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5140	^ codeTrigger.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5141	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5142
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5143	compressLimit
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5144
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5145	compressLimit isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5146	compressLimit := ObjectMemory oldSpaceCompressLimit asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5147	compressLimit onChangeSend:#updateModifiedChannel to:self
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5148	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5149	^ compressLimit.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5150	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5151
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5152	fastMoreLimit
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5153
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5154	fastMoreLimit isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5155	fastMoreLimit := (ObjectMemory fastMoreOldSpaceLimit:-1) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5156	fastMoreLimit onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5157	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5158	^ fastMoreLimit.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5159	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5160
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5161	igcFreeAmount
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5162
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5163	igcFreeAmount isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5164	igcFreeAmount := ObjectMemory freeSpaceGCAmount asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5165	igcFreeAmount onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5166	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5167	^ igcFreeAmount.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5168	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5169
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5170	igcFreeLimit
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5171
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5172	igcFreeLimit isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5173	igcFreeLimit := ObjectMemory freeSpaceGCLimit asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5174	igcFreeLimit onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5175	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5176	^ igcFreeLimit.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5177	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5178
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5179	igcLimit
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5180
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5181	igcLimit isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5182	igcLimit := ObjectMemory incrementalGCLimit asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5183	igcLimit onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5184	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5185	^ igcLimit.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5186	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5187
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5188	maxOldSpace
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5189
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5190	maxOldSpace isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5191	maxOldSpace := ObjectMemory maxOldSpace asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5192	maxOldSpace onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5193	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5194	^ maxOldSpace.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5195	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5196
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5197	newSpaceSize
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5198
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5199	newSpaceSize isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5200	newSpaceSize := ObjectMemory newSpaceSize asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5201	newSpaceSize onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5202	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5203	^ newSpaceSize.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5204	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5205
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5206	oldIncr
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5207
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5208	oldIncr isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5209	oldIncr := ObjectMemory oldSpaceIncrement asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5210	oldIncr onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5211	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5212	^ oldIncr.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5213	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5214
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5215	stackLimit
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5216
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5217	stackLimit isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5218	stackLimit := Process defaultMaximumStackSize asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5219	stackLimit onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5220	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5221	^ stackLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5222	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5223
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5224	supportsJustInTimeCompilation
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5225
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5226	^ ObjectMemory supportsJustInTimeCompilation.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5227	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5228
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5229	warningLabelHolder
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5230
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5231	warningLabelHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5232	warningLabelHolder := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5233	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5234	^ warningLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5235	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5236
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5237	!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5238
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5239	initialize
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5240	super initialize.
5576 8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	5241	self warningLabelHolder
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	5242	value:(StringCollection
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	5243	with:(resources string:'Warning - invalid settings may result in failures or poor performance.')
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	5244	with:(resources string:'You have been warned.') allBold
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	5245	).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5246	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5247
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5248	!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5249
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5250	hasUnsavedChanges
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	5251	ObjectMemory freeSpaceGCAmount ~= self igcFreeAmount value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	5252	ObjectMemory freeSpaceGCLimit ~= self igcFreeLimit value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	5253	ObjectMemory incrementalGCLimit ~= self igcLimit value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	5254	ObjectMemory newSpaceSize ~= self newSpaceSize value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	5255	ObjectMemory oldSpaceIncrement ~= self oldIncr value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	5256	Process defaultMaximumStackSize ~= self stackLimit value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	5257	(ObjectMemory fastMoreOldSpaceLimit:-1) ~= self fastMoreLimit value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	5258	ObjectMemory maxOldSpace ~= self maxOldSpace value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	5259	ObjectMemory oldSpaceCompressLimit ~= self compressLimit value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	5260	ObjectMemory dynamicCodeLimit ~= self codeLimit value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	5261	ObjectMemory dynamicCodeGCTrigger ~= self codeTrigger value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	5262	^ false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5263	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5264
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5265	!AbstractSettingsApplication::MiscCommunicationSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5266
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5267	defaultIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5268	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5269	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5270
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5271	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5272	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5273
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5274	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5275	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5276	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5277	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5278	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5279
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5280	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5281
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5282	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5283	constantNamed:#'AbstractSettingsApplication::MiscCommunicationSettingsAppl class defaultIcon'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	5284	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	5285	@@!!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	5286	]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	5287	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	5288	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5289
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5290	!AbstractSettingsApplication::MiscCommunicationSettingsAppl class methodsFor:'interface specs'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5291
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5292	windowSpec
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5293	"This resource specification was automatically generated
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5294	by the UIPainter of ST/X."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5295
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5296	"Do not manually edit this!! If it is corrupted,
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5297	the UIPainter may not be able to read the specification."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5298
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5299	"
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5300	UIPainter new openOnClass:AbstractSettingsApplication::MiscCommunicationSettingsAppl andSelector:#windowSpec
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5301	AbstractSettingsApplication::MiscCommunicationSettingsAppl new openInterface:#windowSpec
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5302	AbstractSettingsApplication::MiscCommunicationSettingsAppl open
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5303	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5304
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5305	<resource: #canvas>
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5306
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5307	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5308	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5309	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5310	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5311	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5312	label: 'Communication Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5313	name: 'Communication Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5314	min: (Point 10 10)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5315	bounds: (Rectangle 14 46 614 560)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5316	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5317	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5318	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5319	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5320	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5321	name: 'VerticalPanel1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5322	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	5323	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5324	verticalLayout: top
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5325	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5326	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5327	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5328	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5329	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5330	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5331	label: 'Remote browsing'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5332	name: 'Label1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5333	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5334	extent: (Point 600 22)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5335	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5336	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5337	name: 'Box1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5338	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5339	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5340	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5341	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5342	label: 'Remote browsing enabled'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5343	name: 'CheckBox1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5344	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	5345	enableChannel: hasRemoteBrowsingSupport
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5346	model: remoteBrowsingEnabled
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5347	translateLabel: true
5086 b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	5348	)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	5349	)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	5350
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	5351	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5352	extent: (Point 600 23)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5353	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5354	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5355	name: 'Separator1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5356	extent: (Point 600 4)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5357	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5358	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5359	label: 'Window migration'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5360	name: 'Label2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5361	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5362	extent: (Point 600 22)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5363	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5364	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5365	name: 'Box2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5366	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5367	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5368	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5369	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5370	label: 'Window migration enabled'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5371	name: 'CheckBox2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5372	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	5373	enableChannel: hasWindowMigrationServer
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5374	model: windowMigrationEnabled
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5375	translateLabel: true
5086 b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	5376	)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	5377	)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	5378
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	5379	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5380	extent: (Point 600 23)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5381	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5382	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5383	name: 'Box3'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5384	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5385	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5386	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5387	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5388	label: 'Password check'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5389	name: 'CheckBox3'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5390	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	5391	enableChannel: enablePasswordCheck
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5392	model: windowMigrationAuthenticate
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5393	translateLabel: true
5086 b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	5394	)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	5395	)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	5396
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	5397	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5398	extent: (Point 600 22)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5399	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5400	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5401	name: 'Box4'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5402	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5403	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5404	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5405	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5406	label: 'Password:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5407	name: 'Label3'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5408	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	5409	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5410	adjust: right
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5411	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5412	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5413	name: 'EntryField1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5414	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	5415	enableChannel: windowMigrationAuthenticate
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5416	model: windowMigrationPassword
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5417	type: password
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5418	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5419	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5420	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5421	acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5422	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5423	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5424
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5425	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5426	extent: (Point 600 22)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5427	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5428	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5429
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5430	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5431	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5432	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5433
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5434	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5435	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5436	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5437
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5438	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'actions'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5439
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5440	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5441
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5442	self hasRemoteBrowsingSupport ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5443	self remoteBrowsingEnabled value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5444	SmalltalkShareServer serverRunning ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5445	SmalltalkShareServer killAll
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5446	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5447	] ifFalse:[
6250 5b0673ccff1c refactored intention revealing code: Claus Gittinger <cg@exept.de> parents: 6202 diff changeset	5448	SmalltalkShareServer serverRunning ifFalse:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5449	SmalltalkShareServer start.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5450	"/ must wait a bit; give it a chance to
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5451	"/ really start (before checking)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5452	Delay waitForSeconds:0.5.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5453	SmalltalkShareServer serverRunning ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5454	self warn:'SmalltalkShareServer startup failed (see stderr).'
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5455	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5456	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5457	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5458	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5459	self hasWindowMigrationServer ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5460	self windowMigrationAuthenticate value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5461	WindowMigrationServer password:self windowMigrationPassword value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5462	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5463	WindowMigrationServer password:nil
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5464	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5465	self windowMigrationEnabled value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5466	WindowMigrationServer serverRunning ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5467	WindowMigrationServer stop
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5468	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5469	] ifFalse:[
6250 5b0673ccff1c refactored intention revealing code: Claus Gittinger <cg@exept.de> parents: 6202 diff changeset	5470	WindowMigrationServer serverRunning ifFalse:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5471	WindowMigrationServer start.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5472	"/ must wait a bit; give it a chance to
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5473	"/ really start (before checking)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5474	Delay waitForSeconds:0.5.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5475	WindowMigrationServer serverRunning ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5476	self warn:'WindowMigrationServer startup failed (see stderr).'
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5477	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5478	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5479	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5480	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5481	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5482
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	5483	helpFilename
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	5484	^ 'Launcher/communicationsSettings.html'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5485	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5486
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5487	readSettings
5020 85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	5488	self remoteBrowsingEnabled
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	5489	value:(self hasRemoteBrowsingSupport
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	5490	and:[SmalltalkShareServer isLoaded and:[SmalltalkShareServer serverRunning]]).
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	5491	self windowMigrationEnabled
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	5492	value:(self hasWindowMigrationServer
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	5493	and:[ WindowMigrationServer isLoaded
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	5494	and:[WindowMigrationServer serverRunning]
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5495	]).
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5496	(self hasWindowMigrationServer and:[WindowMigrationServer isLoaded]) ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5497	self windowMigrationPassword value:WindowMigrationServer password.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5498	self windowMigrationAuthenticate
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5499	value:self windowMigrationPassword value notNil
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5500	] ifFalse:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5501	self windowMigrationPassword value:nil.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5502	self windowMigrationAuthenticate value:false
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5503	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5504	self modifiedChannel value:false
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5505	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5506
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5507	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'aspects'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5508
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5509	enablePasswordCheck
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5510
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5511	enablePasswordCheck isNil ifTrue:[
6251 de1297cac10e refadctored intention revealing code: Claus Gittinger <cg@exept.de> parents: 6250 diff changeset	5512	self hasWindowMigrationServer ifFalse:[
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5513	enablePasswordCheck := false asValue.
6251 de1297cac10e refadctored intention revealing code: Claus Gittinger <cg@exept.de> parents: 6250 diff changeset	5514	] ifTrue:[
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5515	enablePasswordCheck := self windowMigrationEnabled.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5516	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5517	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5518	^ enablePasswordCheck.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5519	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5520
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5521	remoteBrowsingEnabled
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5522
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5523	remoteBrowsingEnabled isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5524	remoteBrowsingEnabled := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5525	remoteBrowsingEnabled onChangeSend:#updateModifiedChannel to:self.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5526	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5527	^ remoteBrowsingEnabled.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5528	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5529
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5530	windowMigrationAuthenticate
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5531
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5532	windowMigrationAuthenticate isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5533	windowMigrationAuthenticate := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5534	windowMigrationAuthenticate onChangeSend:#updateModifiedChannel to:self.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5535	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5536	^ windowMigrationAuthenticate.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5537	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5538
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5539	windowMigrationEnabled
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5540
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5541	windowMigrationEnabled isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5542	windowMigrationEnabled := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5543	windowMigrationEnabled onChangeSend:#updateModifiedChannel to:self.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5544	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5545	^ windowMigrationEnabled.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5546	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5547
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5548	windowMigrationPassword
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5549
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5550	windowMigrationPassword isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5551	windowMigrationPassword := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5552	windowMigrationPassword onChangeSend:#updateModifiedChannel to:self.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5553	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5554	^ windowMigrationPassword.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5555	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5556
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5557	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'initialization & release'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5558
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5559	initialize
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5560	super initialize.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5561	self readSettings.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5562	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5563
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5564	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'queries'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5565
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5566	hasRemoteBrowsingSupport
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5567
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5568	^ SmalltalkShareServer notNil
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5569	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5570
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5571	hasUnsavedChanges
5020 85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	5572	(self hasRemoteBrowsingSupport and:[SmalltalkShareServer isLoaded]) ifTrue:[
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	5573	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	5574	].
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	5575	self hasWindowMigrationServer ifTrue:[
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	5576	WindowMigrationServer isLoaded ifFalse:[
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	5577	self windowMigrationEnabled value ifTrue:[
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	5578	WindowMigrationServer autoload.
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	5579	].
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	5580	].
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	5581	(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	5582	(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	5583	(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	5584	].
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	5585	^ false
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5586	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5587
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5588	hasWindowMigrationServer
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5589
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5590	^ WindowMigrationServer notNil
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5591	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5592
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5593	!AbstractSettingsApplication::MiscDisplaySettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5594
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5595	defaultIcon
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5596	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5597	by the ImageEditor of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5598
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5599	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5600	the ImageEditor may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5601
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5602	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5603	self defaultIcon inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5604	ImageEditor openOnClass:self andSelector:#defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5605	Icon flushCachedIcons
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5606	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5607
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5608	<resource: #image>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5609
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5610	^Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5611	constantNamed:#'AbstractSettingsApplication::MiscDisplaySettingsAppl class defaultIcon'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5612	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	5613	@@@@@@@@@@@@@@DA@@@@@@@@@@@@@@@@@@@@@@@@@@DB@0D@@@@@@@@@@@@@@@@@@@@@@@DB@0LD@P@@@@@@@@@@@@@@@@@@@@DB@0LDA@DA@@@@@@@@@@@@
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	5614	@@@@@@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	5615	@ 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	5616	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	5617	@ 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	5618	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	5619	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5620
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5621	!AbstractSettingsApplication::MiscDisplaySettingsAppl class methodsFor:'interface specs'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5622
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5623	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5624	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5625	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5626
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5627	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5628	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5629
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5630	"
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5631	UIPainter new openOnClass:AbstractSettingsApplication::MiscDisplaySettingsAppl andSelector:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5632	AbstractSettingsApplication::MiscDisplaySettingsAppl new openInterface:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5633	AbstractSettingsApplication::MiscDisplaySettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5634	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5635
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5636	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5637
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5638	^
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	5639	#(FullSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	5640	name: windowSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	5641	window:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	5642	(WindowSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	5643	label: 'Display settings'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	5644	name: 'Display settings'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	5645	min: (Point 10 10)
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	5646	bounds: (Rectangle 0 0 445 483)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5647	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	5648	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	5649	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	5650	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	5651	(VerticalPanelViewSpec
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5652	name: 'VerticalPanel1'
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	5653	layout: (LayoutFrame 0 0 0 0 0 1 434 0)
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5654	horizontalLayout: fitSpace
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5655	verticalLayout: topSpace
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5656	horizontalSpace: 5
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	5657	verticalSpace: 3
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	5658	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	5659	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	5660	collection: (
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5661	(CheckBoxSpec
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	5662	label: 'Use Native Widgets (Experimental & Unfinished Feature)'
6014 5ec12867ba18 * empty log message * ca parents: 6013 diff changeset	5663	name: 'NativeWidgets'
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5664	enableChannel: displaySupportsNativeWidgets
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5665	model: nativeWidgets
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5666	translateLabel: true
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	5667	extent: (Point 435 22)
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5668	)
6014 5ec12867ba18 * empty log message * ca parents: 6013 diff changeset	5669	(CheckBoxSpec
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	5670	label: 'Use Native Dialogs (Experimental & Unfinished Feature)'
6014 5ec12867ba18 * empty log message * ca parents: 6013 diff changeset	5671	name: 'NativeDialogs'
5ec12867ba18 * empty log message * ca parents: 6013 diff changeset	5672	enableChannel: displaySupportsNativeDialogs
5ec12867ba18 * empty log message * ca parents: 6013 diff changeset	5673	model: nativeDialogs
5ec12867ba18 * empty log message * ca parents: 6013 diff changeset	5674	translateLabel: true
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	5675	extent: (Point 435 22)
6014 5ec12867ba18 * empty log message * ca parents: 6013 diff changeset	5676	)
6012 6736ffa4ba2f * empty log message * ca parents: 6008 diff changeset	5677	(ViewSpec
6736ffa4ba2f * empty log message * ca parents: 6008 diff changeset	5678	name: 'SeparatingSpace1'
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	5679	extent: (Point 435 5)
6012 6736ffa4ba2f * empty log message * ca parents: 6008 diff changeset	5680	)
6736ffa4ba2f * empty log message * ca parents: 6008 diff changeset	5681	(DividerSpec
6736ffa4ba2f * empty log message * ca parents: 6008 diff changeset	5682	name: 'Separator1'
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	5683	extent: (Point 435 4)
6012 6736ffa4ba2f * empty log message * ca parents: 6008 diff changeset	5684	)
6736ffa4ba2f * empty log message * ca parents: 6008 diff changeset	5685	(ViewSpec
6736ffa4ba2f * empty log message * ca parents: 6008 diff changeset	5686	name: 'SeparatingSpace2'
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	5687	extent: (Point 435 5)
6012 6736ffa4ba2f * empty log message * ca parents: 6008 diff changeset	5688	)
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5689	(CheckBoxSpec
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5690	label: 'Shadows under PopUp Views'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5691	name: 'shadows'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5692	model: shadows
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5693	translateLabel: true
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	5694	extent: (Point 435 22)
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5695	)
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5696	(CheckBoxSpec
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5697	label: 'Beeper enabled'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5698	name: 'beepEnabled'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5699	model: beepEnabled
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5700	translateLabel: true
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	5701	extent: (Point 435 22)
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5702	)
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5703	(CheckBoxSpec
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5704	label: 'Boxes Return Focus to Previously Active View'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5705	name: 'returnFocus'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5706	model: returnFocus
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5707	translateLabel: true
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	5708	extent: (Point 435 22)
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5709	)
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5710	(CheckBoxSpec
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5711	label: 'Views Catch Focus when Mapped'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5712	name: 'takeFocus'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5713	model: takeFocus
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5714	translateLabel: true
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	5715	extent: (Point 435 22)
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5716	)
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5717	(CheckBoxSpec
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5718	label: 'Show Accelerator Keys in Menus'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5719	name: 'showAccelerators'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5720	model: showAccelerators
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5721	translateLabel: true
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	5722	extent: (Point 435 22)
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5723	)
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5724	(CheckBoxSpec
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5725	label: 'Raise & Activate Windows on Click'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5726	name: 'activateOnClick'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5727	model: activateOnClick
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5728	translateLabel: true
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	5729	extent: (Point 435 22)
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5730	)
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5731	(CheckBoxSpec
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5732	label: 'Focus Follows Mouse'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5733	name: 'focusFollowsMouse'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5734	model: focusFollowsMouse
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5735	translateLabel: true
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	5736	extent: (Point 435 22)
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5737	)
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5738	(CheckBoxSpec
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5739	label: 'Opaque Variable Panel Resizing'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5740	name: 'opaqueVariablePanelResize'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5741	model: opaqueVariablePanelResize
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5742	translateLabel: true
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	5743	extent: (Point 435 22)
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5744	)
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5745	(CheckBoxSpec
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5746	label: 'Opaque Table Column Resizing'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5747	name: 'opaqueTableColumnResize'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5748	model: opaqueTableColumnResize
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5749	translateLabel: true
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	5750	extent: (Point 435 22)
6013 7e8dd712b45f * empty log message * ca parents: 6012 diff changeset	5751	)
7e8dd712b45f * empty log message * ca parents: 6012 diff changeset	5752	(ViewSpec
7e8dd712b45f * empty log message * ca parents: 6012 diff changeset	5753	name: 'SeparatingSpace3'
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	5754	extent: (Point 435 4)
6013 7e8dd712b45f * empty log message * ca parents: 6012 diff changeset	5755	)
7e8dd712b45f * empty log message * ca parents: 6012 diff changeset	5756	(DividerSpec
7e8dd712b45f * empty log message * ca parents: 6012 diff changeset	5757	name: 'Separator2'
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	5758	extent: (Point 435 4)
6013 7e8dd712b45f * empty log message * ca parents: 6012 diff changeset	5759	)
7e8dd712b45f * empty log message * ca parents: 6012 diff changeset	5760	(ViewSpec
7e8dd712b45f * empty log message * ca parents: 6012 diff changeset	5761	name: 'SeparatingSpace4'
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	5762	extent: (Point 435 3)
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5763	)
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5764	(LabelSpec
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5765	label: 'Label'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5766	name: 'Label1'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5767	translateLabel: true
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5768	labelChannel: formatHostNameWindowLabel
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5769	adjust: right
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5770	useDefaultExtent: true
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5771	)
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5772	(ViewSpec
6012 6736ffa4ba2f * empty log message * ca parents: 6008 diff changeset	5773	name: 'WindowLabelBox'
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	5774	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	5775	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	5776	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	5777	(CheckBoxSpec
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5778	label: 'Window Label Format'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5779	name: 'hostNameInLabelHolder'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5780	layout: (LayoutFrame 0 0 -22 1 216 0 0 1)
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5781	model: hostNameInLabelHolder
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5782	translateLabel: true
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5783	)
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5784	(InputFieldSpec
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5785	name: 'hostNameInLabelEntryField'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5786	layout: (LayoutFrame 218 0 -22 1 -5 1 0 1)
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5787	enableChannel: hostNameInLabelHolder
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5788	model: newWindowLabelFormat
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5789	immediateAccept: true
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5790	acceptOnReturn: true
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5791	acceptOnTab: true
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5792	acceptOnLostFocus: true
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5793	acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5794	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5795	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5796
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5797	)
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	5798	extent: (Point 435 30)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5799	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5800	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5801
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5802	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5803	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5804	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5805
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5806	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5807	)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5808	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5809
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5810	!AbstractSettingsApplication::MiscDisplaySettingsAppl methodsFor:'actions'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5811
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5812	basicSaveSettings
6030 94eba9f547a2 * empty log message * ca parents: 6029 diff changeset	5813	\|currentScreen mustReopenTools\|
94eba9f547a2 * empty log message * ca parents: 6029 diff changeset	5814
94eba9f547a2 * empty log message * ca parents: 6029 diff changeset	5815	currentScreen := Screen current.
94eba9f547a2 * empty log message * ca parents: 6029 diff changeset	5816
6025 70cd59f93dbb * empty log message * Claus Gittinger <cg@exept.de> parents: 6023 diff changeset	5817	self displaySupportsNativeWidgets ifTrue:[
6030 94eba9f547a2 * empty log message * ca parents: 6029 diff changeset	5818	currentScreen nativeWidgets ~= self nativeWidgets value ifTrue:[
94eba9f547a2 * empty log message * ca parents: 6029 diff changeset	5819	mustReopenTools := true.
94eba9f547a2 * empty log message * ca parents: 6029 diff changeset	5820	currentScreen nativeWidgets:self nativeWidgets value.
94eba9f547a2 * empty log message * ca parents: 6029 diff changeset	5821	].
6025 70cd59f93dbb * empty log message * Claus Gittinger <cg@exept.de> parents: 6023 diff changeset	5822	].
70cd59f93dbb * empty log message * Claus Gittinger <cg@exept.de> parents: 6023 diff changeset	5823	self displaySupportsNativeDialogs ifTrue:[
6030 94eba9f547a2 * empty log message * ca parents: 6029 diff changeset	5824	currentScreen nativeDialogs:self nativeDialogs value.
6025 70cd59f93dbb * empty log message * Claus Gittinger <cg@exept.de> parents: 6023 diff changeset	5825	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5826	PopUpView shadows:self shadows value.
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5827
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5828	(self hostNameInLabelHolder value ~= StandardSystemView includeHostNameInLabel
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5829	or:[self newWindowLabelFormat value ~= StandardSystemView windowLabelFormat]) ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5830	StandardSystemView includeHostNameInLabel:self hostNameInLabelHolder value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5831	self newWindowLabelFormat value notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5832	StandardSystemView windowLabelFormat:self newWindowLabelFormat value
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5833	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5834
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5835	Screen allScreens do:[:aDisplay \|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5836	aDisplay allViewsDo:[:aView \|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5837	\|l\|
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	aView isTopView ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5840	l := aView label.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5841	l notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5842	aView label:(l , ' '); label:l. "/ force a change
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5843	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5844	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5845	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5846	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5847	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5848
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5849	currentUserPrefs opaqueVariablePanelResizing:self opaqueVariablePanelResize value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5850	currentUserPrefs opaqueTableColumnResizing:self opaqueTableColumnResize value.
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	currentUserPrefs beepEnabled:self beepEnabled value.
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	StandardSystemView returnFocusWhenClosingModalBoxes:self returnFocus value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5855	StandardSystemView takeFocusWhenMapped:self takeFocus value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5856	currentUserPrefs focusFollowsMouse:self focusFollowsMouse value.
6030 94eba9f547a2 * empty log message * ca parents: 6029 diff changeset	5857	currentScreen activateOnClick:self activateOnClick value.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5858
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5859	MenuView showAcceleratorKeys:self showAccelerators value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5860
6030 94eba9f547a2 * empty log message * ca parents: 6029 diff changeset	5861	mustReopenTools ifTrue:[
94eba9f547a2 * empty log message * ca parents: 6029 diff changeset	5862	self reopenToolsAfterChangedViewStyleSetting.
94eba9f547a2 * empty log message * ca parents: 6029 diff changeset	5863	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5864	"Modified: / 16.12.2002 / 18:06:31 / penk"
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5865	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5866
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5867	formatHostNameinWindowLabels
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5868	\|newFormat\|
c72e35116b13 instable state penk parents: 5040 diff changeset	5869
c72e35116b13 instable state penk parents: 5040 diff changeset	5870	newFormat := Dialog
c72e35116b13 instable state penk parents: 5040 diff changeset	5871	request:'Define the Format of Window Labels:\\ %1 - Label\ %2 - Hostname\ %3 - Username\ %4 - ProcessId\'
c72e35116b13 instable state penk parents: 5040 diff changeset	5872	withCRs
c72e35116b13 instable state penk parents: 5040 diff changeset	5873	initialAnswer:newWindowLabelFormat.
c72e35116b13 instable state penk parents: 5040 diff changeset	5874	newFormat size > 0 ifTrue:[
c72e35116b13 instable state penk parents: 5040 diff changeset	5875	newWindowLabelFormat := newFormat.
c72e35116b13 instable state penk parents: 5040 diff changeset	5876	self updateModifiedChannel
c72e35116b13 instable state penk parents: 5040 diff changeset	5877	]
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5878	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5879
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	5880	helpFilename
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	5881	^ 'Launcher/miscSettings.html'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5882	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5883
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5884	readSettings
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5885	self shadows value:PopUpView shadows.
6025 70cd59f93dbb * empty log message * Claus Gittinger <cg@exept.de> parents: 6023 diff changeset	5886	self nativeWidgets value:Screen current nativeWidgets.
6014 5ec12867ba18 * empty log message * ca parents: 6013 diff changeset	5887	self nativeDialogs value:Screen current nativeDialogs.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5888	self beepEnabled value:currentUserPrefs beepEnabled.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5889	self newWindowLabelFormat value:StandardSystemView windowLabelFormat.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5890	self hostNameInLabelHolder
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5891	value:StandardSystemView includeHostNameInLabel.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5892	self returnFocus
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5893	value:StandardSystemView returnFocusWhenClosingModalBoxes.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5894	self takeFocus value:StandardSystemView takeFocusWhenMapped.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5895	self focusFollowsMouse value:(currentUserPrefs focusFollowsMouse ? true).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5896	self activateOnClick value:(Display activateOnClick:nil).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5897	self opaqueVariablePanelResize
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5898	value:currentUserPrefs opaqueVariablePanelResizing.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5899	self opaqueTableColumnResize
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5900	value:currentUserPrefs opaqueTableColumnResizing.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5901	self showAccelerators value:MenuView showAcceleratorKeys.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5902	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5903	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5904
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5905	!AbstractSettingsApplication::MiscDisplaySettingsAppl methodsFor:'aspects'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5906
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5907	activateOnClick
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5908	activateOnClick isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5909	activateOnClick := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5910	activateOnClick onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5911	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5912	^ activateOnClick.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5913	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5914
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5915	beepEnabled
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5916	beepEnabled isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5917	beepEnabled := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5918	beepEnabled onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5919	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5920	^ beepEnabled.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5921	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5922
6025 70cd59f93dbb * empty log message * Claus Gittinger <cg@exept.de> parents: 6023 diff changeset	5923	displaySupportsNativeDialogs
70cd59f93dbb * empty log message * Claus Gittinger <cg@exept.de> parents: 6023 diff changeset	5924	^ Screen current supportsNativeDialogs
70cd59f93dbb * empty log message * Claus Gittinger <cg@exept.de> parents: 6023 diff changeset	5925	!
70cd59f93dbb * empty log message * Claus Gittinger <cg@exept.de> parents: 6023 diff changeset	5926
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5927	displaySupportsNativeWidgets
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5928	^ Screen current supportsNativeWidgets
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5929	!
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5930
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5931	focusFollowsMouse
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5932	focusFollowsMouse isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5933	focusFollowsMouse := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5934	focusFollowsMouse onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5935	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5936	^ focusFollowsMouse.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5937	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5938
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5939	formatHostNameWindowLabel
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5940	formatHostNameWindowLabel isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5941	formatHostNameWindowLabel :=
5713 3d9769f61870 * empty log message * ca parents: 5700 diff changeset	5942	(resources string:'Window Label Format:\ %1 - Label\ %2 - Hostname\ %3 - Username\ %4 - ProcessId') withCRs.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5943	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5944	^ formatHostNameWindowLabel.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5945
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5946	"Created: / 16.12.2002 / 17:50:49 / penk"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5947	"Modified: / 16.12.2002 / 17:55:18 / penk"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5948	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5949
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5950	hostNameInLabelHolder
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5951	hostNameInLabelHolder isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5952	hostNameInLabelHolder := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5953	hostNameInLabelHolder onChangeSend:#updateModifiedChannel to:self
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5954	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5955	^ hostNameInLabelHolder.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5956	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5957
6014 5ec12867ba18 * empty log message * ca parents: 6013 diff changeset	5958	nativeDialogs
5ec12867ba18 * empty log message * ca parents: 6013 diff changeset	5959	nativeDialogs isNil ifTrue:[
5ec12867ba18 * empty log message * ca parents: 6013 diff changeset	5960	nativeDialogs := Screen current nativeDialogs asValue.
5ec12867ba18 * empty log message * ca parents: 6013 diff changeset	5961	nativeDialogs onChangeSend:#updateModifiedChannel to:self
5ec12867ba18 * empty log message * ca parents: 6013 diff changeset	5962	].
5ec12867ba18 * empty log message * ca parents: 6013 diff changeset	5963	^ nativeDialogs.
5ec12867ba18 * empty log message * ca parents: 6013 diff changeset	5964	!
5ec12867ba18 * empty log message * ca parents: 6013 diff changeset	5965
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5966	nativeWidgets
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5967	nativeWidgets isNil ifTrue:[
6025 70cd59f93dbb * empty log message * Claus Gittinger <cg@exept.de> parents: 6023 diff changeset	5968	nativeWidgets := Screen current nativeWidgets asValue.
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5969	nativeWidgets onChangeSend:#updateModifiedChannel to:self
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5970	].
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5971	^ nativeWidgets.
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5972	!
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	5973
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5974	newWindowLabelFormat
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5975	newWindowLabelFormat isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5976	newWindowLabelFormat := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5977	newWindowLabelFormat onChangeSend:#updateModifiedChannel to:self
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5978	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5979	^ newWindowLabelFormat.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5980
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5981	"Created: / 16.12.2002 / 17:50:49 / penk"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5982	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5983
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5984	opaqueTableColumnResize
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5985	opaqueTableColumnResize isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5986	opaqueTableColumnResize := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5987	opaqueTableColumnResize onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5988	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5989	^ opaqueTableColumnResize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5990	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5991
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5992	opaqueVariablePanelResize
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5993	opaqueVariablePanelResize isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5994	opaqueVariablePanelResize := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5995	opaqueVariablePanelResize onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5996	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5997	^ opaqueVariablePanelResize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5998	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5999
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6000	returnFocus
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6001	returnFocus isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6002	returnFocus := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6003	returnFocus onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6004	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6005	^ returnFocus.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6006	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6007
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6008	shadows
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6009	shadows isNil ifTrue:[
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	6010	shadows := PopUpView shadows asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6011	shadows onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6012	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6013	^ shadows.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6014	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6015
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6016	showAccelerators
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6017	showAccelerators isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6018	showAccelerators := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6019	showAccelerators onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6020	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6021	^ showAccelerators.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6022	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6023
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6024	takeFocus
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6025	takeFocus isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6026	takeFocus := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6027	takeFocus onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6028	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6029	^ takeFocus.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6030	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6031
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6032	!AbstractSettingsApplication::MiscDisplaySettingsAppl methodsFor:'queries'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6033
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6034	hasUnsavedChanges
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6035	self newWindowLabelFormat value ~= StandardSystemView windowLabelFormat ifTrue:[^ true].
6025 70cd59f93dbb * empty log message * Claus Gittinger <cg@exept.de> parents: 6023 diff changeset	6036	self nativeWidgets value ~= Screen current nativeWidgets ifTrue:[^ true].
6014 5ec12867ba18 * empty log message * ca parents: 6013 diff changeset	6037	self nativeDialogs value ~= Screen current nativeDialogs ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6038	self shadows value ~= PopUpView shadows ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6039	self beepEnabled value ~= currentUserPrefs beepEnabled ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6040	self hostNameInLabelHolder value ~= StandardSystemView includeHostNameInLabel ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6041	self returnFocus value ~= StandardSystemView returnFocusWhenClosingModalBoxes ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6042	self takeFocus value ~= StandardSystemView takeFocusWhenMapped ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6043	self focusFollowsMouse value ~= (currentUserPrefs focusFollowsMouse ? true) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6044	self activateOnClick value ~= (Display activateOnClick:nil) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6045	self opaqueVariablePanelResize value ~= currentUserPrefs opaqueVariablePanelResizing ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6046	self opaqueTableColumnResize value ~= currentUserPrefs opaqueTableColumnResizing ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6047	self showAccelerators value ~= MenuView showAcceleratorKeys ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6048	^ false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6049	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6050
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6051	!AbstractSettingsApplication::OsiSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6052
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6053	defaultIcon
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	6054	<resource: #programImage>
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	6055
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	6056	^ AbstractSettingsApplication::MiscCommunicationSettingsAppl defaultIcon.
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6057	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6058
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6059	!AbstractSettingsApplication::OsiSettingsAppl class methodsFor:'interface specs'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6060
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6061	windowSpec
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6062	"This resource specification was automatically generated
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6063	by the UIPainter of ST/X."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6064
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6065	"Do not manually edit this!! If it is corrupted,
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6066	the UIPainter may not be able to read the specification."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6067
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6068	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6069	UIPainter new openOnClass:AbstractSettingsApplication::OsiSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6070	AbstractSettingsApplication::OsiSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6071	AbstractSettingsApplication::OsiSettingsAppl open
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6072	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6073
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6074	<resource: #canvas>
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6075
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6076	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6077	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6078	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6079	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6080	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6081	label: 'OSI Protocols Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6082	name: 'OSI Protocols Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6083	min: (Point 10 10)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6084	bounds: (Rectangle 14 46 614 596)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6085	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6086	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6087	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6088	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6089	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6090	name: 'VerticalPanel2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6091	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	6092	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6093	verticalLayout: top
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6094	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6095	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6096	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6097	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6098	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6099	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6100	label: 'ACSE'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6101	name: 'Label1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6102	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6103	extent: (Point 600 22)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6104	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6105	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6106	name: 'Box1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6107	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6108	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6109	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6110	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6111	label: 'Log Errors'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6112	name: 'CheckBox1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6113	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	6114	enableChannel: osiACSEPresent
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6115	model: osiACSEErrorLogging
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6116	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6117	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6118	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6119	label: 'Log Connections'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6120	name: 'CheckBox2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6121	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	6122	enableChannel: osiACSEPresent
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6123	model: osiACSEConnectionLogging
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6124	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6125	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6126	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6127	label: 'Log Data Xfer'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6128	name: 'CheckBox3'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6129	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	6130	enableChannel: osiACSEPresent
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6131	model: osiACSEDataLogging
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6132	translateLabel: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6133	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6134	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6135
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6136	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6137	extent: (Point 600 27)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6138	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6139	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6140	name: 'Box9'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6141	extent: (Point 600 22)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6142	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6143	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6144	label: 'ROSE'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6145	name: 'Label2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6146	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6147	extent: (Point 600 22)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6148	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6149	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6150	name: 'Box4'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6151	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6152	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6153	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6154	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6155	label: 'Log Errors'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6156	name: 'CheckBox4'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6157	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	6158	enableChannel: osiROSEPresent
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6159	model: osiROSEErrorLogging
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6160	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6161	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6162	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6163	label: 'Log Invoactions'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6164	name: 'CheckBox5'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6165	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	6166	enableChannel: osiROSEPresent
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6167	model: osiROSEInvokationLogging
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6168	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6169	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6170	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6171	label: 'Log Responses'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6172	name: 'CheckBox6'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6173	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	6174	enableChannel: osiROSEPresent
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6175	model: osiROSEResponseLogging
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6176	translateLabel: true
5086 b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	6177	)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	6178	)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	6179
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	6180	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6181	extent: (Point 600 25)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6182	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6183	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6184	name: 'Box6'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6185	extent: (Point 600 23)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6186	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6187	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6188	label: 'CMISE'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6189	name: 'Label3'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6190	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6191	extent: (Point 600 22)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6192	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6193	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6194	name: 'Box7'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6195	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6196	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6197	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6198	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6199	label: 'Log Errors'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6200	name: 'CheckBox7'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6201	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	6202	enableChannel: osiCMISEPresent
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6203	model: osiCMISEErrorLogging
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6204	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6205	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6206	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6207	label: 'Log Messages'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6208	name: 'CheckBox8'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6209	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	6210	enableChannel: osiCMISEPresent
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6211	model: osiCMISEMessageLogging
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6212	translateLabel: true
5086 b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	6213	)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	6214	)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	6215
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	6216	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6217	extent: (Point 600 22)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6218	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6219	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6220
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6221	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6222	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6223	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6224
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6225	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6226	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6227	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6228
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6229	!AbstractSettingsApplication::OsiSettingsAppl methodsFor:'actions'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6230
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6231	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6232
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6233	self osiACSEPresent value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6234	OSI::ACSE errorLogging:self osiACSEErrorLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6235	OSI::ACSE connectionLogging:self osiACSEConnectionLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6236	OSI::ACSE dataLogging:self osiACSEDataLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6237	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6238	self osiROSEPresent value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6239	OSI::ROSE errorLogging:self osiROSEErrorLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6240	OSI::ROSE invocationLogging:self osiROSEInvokationLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6241	OSI::ROSE responseLogging:self osiROSEResponseLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6242	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6243	self osiCMISEPresent value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6244	OSI::CMISE errorLogging:self osiCMISEErrorLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6245	OSI::CMISE messageLogging:self osiCMISEMessageLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6246	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6247	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6248
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	6249	helpFilename
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	6250	^ 'Launcher/communicationsSettings.html'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6251	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6252
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6253	readSettings
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6254	self osiACSEPresent value:(OSI::ACSE notNil and:[OSI::ACSE isLoaded]).
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6255	self osiROSEPresent value:(OSI::ROSE notNil and:[OSI::ROSE isLoaded]).
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6256	self osiCMISEPresent value:(OSI::CMISE notNil and:[OSI::CMISE isLoaded]).
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6257	self osiACSEPresent value ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6258	self osiACSEErrorLogging value:OSI::ACSE errorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6259	self osiACSEConnectionLogging value:OSI::ACSE connectionLogging.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6260	self osiACSEDataLogging value:OSI::ACSE dataLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6261	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6262	self osiROSEPresent value ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6263	self osiROSEErrorLogging value:OSI::ROSE errorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6264	self osiROSEInvokationLogging value:OSI::ROSE invocationLogging.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6265	self osiROSEResponseLogging value:OSI::ROSE responseLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6266	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6267	self osiCMISEPresent value ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6268	self osiCMISEErrorLogging value:OSI::CMISE errorLogging.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6269	self osiCMISEMessageLogging value:OSI::CMISE messageLogging
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6270	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6271	self modifiedChannel value:false
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6272	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6273
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6274	!AbstractSettingsApplication::OsiSettingsAppl methodsFor:'aspects'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6275
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6276	osiACSEConnectionLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6277	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6278
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6279	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6280	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6281	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6282	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6283
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6284	osiACSEConnectionLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6285	osiACSEConnectionLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6286	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6287	"/ osiACSEConnectionLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6288	"/ osiACSEConnectionLogging onChangeSend:#osiACSEConnectionLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6289	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6290	^ osiACSEConnectionLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6291	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6292
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6293	osiACSEDataLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6294	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6295
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6296	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6297	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6298	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6299	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6300
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6301	osiACSEDataLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6302	osiACSEDataLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6303	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6304	"/ osiACSEDataLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6305	"/ osiACSEDataLogging onChangeSend:#osiACSEDataLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6306	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6307	^ osiACSEDataLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6308	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6309
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6310	osiACSEErrorLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6311	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6312
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6313	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6314	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6315	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6316	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6317
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6318	osiACSEErrorLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6319	osiACSEErrorLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6320	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6321	"/ osiACSEErrorLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6322	"/ osiACSEErrorLogging onChangeSend:#osiACSEErrorLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6323	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6324	^ osiACSEErrorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6325	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6326
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6327	osiACSEPresent
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6328	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6329
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6330	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6331	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6332	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6333	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6334
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6335	osiACSEPresent isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6336	osiACSEPresent := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6337	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6338	"/ osiACSEPresent addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6339	"/ osiACSEPresent onChangeSend:#osiACSEPresentChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6340	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6341	^ osiACSEPresent.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6342	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6343
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6344	osiCMISEErrorLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6345	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6346
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6347	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6348	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6349	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6350	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6351
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6352	osiCMISEErrorLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6353	osiCMISEErrorLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6354	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6355	"/ osiCMISEErrorLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6356	"/ osiCMISEErrorLogging onChangeSend:#osiCMISEErrorLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6357	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6358	^ osiCMISEErrorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6359	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6360
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6361	osiCMISEMessageLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6362	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6363
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6364	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6365	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6366	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6367	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6368
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6369	osiCMISEMessageLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6370	osiCMISEMessageLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6371	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6372	"/ osiCMISEMessageLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6373	"/ osiCMISEMessageLogging onChangeSend:#osiCMISEMessageLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6374	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6375	^ osiCMISEMessageLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6376	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6377
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6378	osiCMISEPresent
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6379	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6380
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6381	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6382	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6383	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6384	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6385
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6386	osiCMISEPresent isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6387	osiCMISEPresent := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6388	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6389	"/ osiCMISEPresent addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6390	"/ osiCMISEPresent onChangeSend:#osiCMISEPresentChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6391	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6392	^ osiCMISEPresent.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6393	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6394
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6395	osiROSEErrorLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6396	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6397
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6398	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6399	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6400	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6401	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6402
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6403	osiROSEErrorLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6404	osiROSEErrorLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6405	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6406	"/ osiROSEErrorLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6407	"/ osiROSEErrorLogging onChangeSend:#osiROSEErrorLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6408	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6409	^ osiROSEErrorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6410	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6411
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6412	osiROSEInvokationLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6413	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6414
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6415	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6416	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6417	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6418	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6419
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6420	osiROSEInvokationLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6421	osiROSEInvokationLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6422	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6423	"/ osiROSEInvokationLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6424	"/ osiROSEInvokationLogging onChangeSend:#osiROSEInvokationLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6425	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6426	^ osiROSEInvokationLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6427	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6428
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6429	osiROSEPresent
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6430	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6431
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6432	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6433	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6434	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6435	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6436
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6437	osiROSEPresent isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6438	osiROSEPresent := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6439	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6440	"/ osiROSEPresent addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6441	"/ osiROSEPresent onChangeSend:#osiROSEPresentChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6442	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6443	^ osiROSEPresent.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6444	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6445
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6446	osiROSEResponseLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6447	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6448
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6449	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6450	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6451	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6452	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6453
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6454	osiROSEResponseLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6455	osiROSEResponseLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6456	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6457	"/ osiROSEResponseLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6458	"/ osiROSEResponseLogging onChangeSend:#osiROSEResponseLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6459	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6460	^ osiROSEResponseLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6461	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6462
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6463	!AbstractSettingsApplication::OsiSettingsAppl methodsFor:'queries'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6464
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6465	hasUnsavedChanges
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6466
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6467	^ ((
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6468	(self osiACSEPresent value and:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6469	self osiACSEErrorLogging value ~= OSI::ACSE errorLogging or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6470	self osiACSEConnectionLogging value ~= OSI::ACSE connectionLogging or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6471	self osiACSEDataLogging value ~= OSI::ACSE dataLogging]]]) or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6472	self osiROSEPresent value and:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6473	self osiROSEErrorLogging value ~= OSI::ROSE errorLogging or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6474	self osiROSEInvokationLogging value ~= OSI::ROSE invocationLogging or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6475	self osiROSEResponseLogging value ~= OSI::ROSE responseLogging]]]]) or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6476	(self osiCMISEPresent value) and:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6477	self osiCMISEErrorLogging value ~= OSI::CMISE errorLogging or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6478	self osiCMISEMessageLogging value ~= OSI::CMISE messageLogging]]])
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6479	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6480
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6481	!AbstractSettingsApplication::PrinterSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6482
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6483	defaultIcon
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	6484	<resource: #programImage>
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	6485
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	6486	^ ToolbarIconLibrary printerIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6487	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6488
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6489	!AbstractSettingsApplication::PrinterSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6490
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6491	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6492	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6493	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6494
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6495	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6496	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6497
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6498	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6499	UIPainter new openOnClass:AbstractSettingsApplication::PrinterSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6500	AbstractSettingsApplication::PrinterSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6501	AbstractSettingsApplication::PrinterSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6502	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6503
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6504	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6505
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6506	^
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6507	#(FullSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6508	name: windowSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6509	window:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6510	(WindowSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6511	label: 'Printer Settings'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6512	name: 'Printer Settings'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6513	min: (Point 10 10)
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	6514	bounds: (Rectangle 0 0 616 385)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6515	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6516	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6517	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6518	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6519	(VerticalPanelViewSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6520	name: 'VerticalPanel1'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6521	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	6522	horizontalLayout: fit
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6523	verticalLayout: top
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6524	horizontalSpace: 3
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6525	verticalSpace: 3
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6526	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6527	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6528	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6529	(ViewSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6530	name: 'PrinterSelectBox'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6531	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6532	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6533	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6534	(LabelSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6535	label: 'Printer Type:'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6536	name: 'PrinterTypeLabel'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	6537	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	6538	translateLabel: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6539	adjust: right
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6540	)
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6541	(ComboListSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6542	name: 'PrinterTypeComboList'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	6543	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	6544	model: printerTypeSelection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6545	comboList: printerType
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6546	useIndex: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6547	)
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6548	(LabelSpec
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	6549	label: 'Print Command:'
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6550	name: 'PrinterCommandLabel'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	6551	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	6552	translateLabel: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6553	adjust: right
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6554	)
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6555	(ComboBoxSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6556	name: 'CommandComboBox'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	6557	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	6558	enableChannel: printCommandEnabled
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6559	model: printCommand
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6560	acceptOnLostFocus: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6561	acceptOnPointerLeave: false
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6562	comboList: printCommandList
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6563	useIndex: false
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6564	)
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6565	(LabelSpec
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6566	label: 'Print to File:'
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6567	name: 'PrinterFileLabel'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	6568	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	6569	translateLabel: true
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6570	adjust: right
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6571	)
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6572	(FilenameInputFieldSpec
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6573	name: 'PrinterFileEntryField'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	6574	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	6575	model: printFilename
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	6576	formatString: ''
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6577	immediateAccept: true
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6578	acceptOnLeave: true
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6579	acceptOnLostFocus: true
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6580	acceptOnPointerLeave: false
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6581	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6582	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6583
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6584	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6585	extent: (Point 600 84)
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6586	)
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6587	(DividerSpec
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6588	name: 'Separator1'
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6589	extent: (Point 600 3)
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6590	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6591	(ViewSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6592	name: 'FormatBox'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6593	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6594	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6595	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6596	(LabelSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6597	label: 'Page Format:'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6598	name: 'PageFormatLabel'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	6599	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	6600	translateLabel: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6601	adjust: right
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6602	)
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6603	(PopUpListSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6604	label: 'PopUp List'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6605	name: 'PageFormatPopUpList'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	6606	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	6607	tabable: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6608	model: pageFormat
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6609	enableChannel: enableFormat
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6610	menu: pageFormatList
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6611	)
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6612	(CheckBoxSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6613	label: 'Landscape'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6614	name: 'LandscapeCheckBox'
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6615	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	6616	enableChannel: enablelandscape
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6617	model: landscape
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6618	translateLabel: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6619	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6620	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6621
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6622	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6623	extent: (Point 600 30)
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6624	)
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6625	(DividerSpec
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6626	name: 'Separator5'
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6627	extent: (Point 600 3)
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6628	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6629	(ViewSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6630	name: 'MarginBox'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6631	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6632	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6633	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6634	(VerticalPanelViewSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6635	name: 'VerticalPanel2'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6636	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	6637	horizontalLayout: fit
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6638	verticalLayout: center
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6639	horizontalSpace: 3
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6640	verticalSpace: 3
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6641	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6642	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6643	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6644	(ViewSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6645	name: 'Box1'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6646	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6647	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6648	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6649	(LabelSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6650	label: 'Top Margin:'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6651	name: 'TopMarginLabel'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	6652	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	6653	translateLabel: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6654	adjust: right
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6655	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6656	(InputFieldSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6657	name: 'TopMarginEntryField'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	6658	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	6659	enableChannel: enableMargins
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6660	model: topMargin
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6661	type: numberOrNil
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6662	acceptOnReturn: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6663	acceptOnTab: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6664	acceptOnLostFocus: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6665	acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6666	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6667	(PopUpListSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6668	label: 'PopUp List'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6669	name: 'PopUpList2'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6670	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	6671	tabable: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6672	model: selectedUnit
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6673	menu: unitList
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6674	useIndex: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6675	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6676	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6677
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6678	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6679	extent: (Point 600 24)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6680	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6681	(ViewSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6682	name: 'Box2'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6683	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6684	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6685	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6686	(LabelSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6687	label: 'Left Margin:'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6688	name: 'LeftMarginLabel'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	6689	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	6690	translateLabel: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6691	adjust: right
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6692	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6693	(InputFieldSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6694	name: 'LeftMarginEntryField'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	6695	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	6696	enableChannel: enableMargins
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6697	model: leftMargin
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6698	type: numberOrNil
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6699	acceptOnReturn: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6700	acceptOnTab: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6701	acceptOnLostFocus: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6702	acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6703	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6704	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6705
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6706	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6707	extent: (Point 600 24)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6708	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6709	(ViewSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6710	name: 'Box3'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6711	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6712	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6713	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6714	(LabelSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6715	label: 'Right Margin:'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6716	name: 'RightMarginLabel'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	6717	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	6718	translateLabel: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6719	adjust: right
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6720	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6721	(InputFieldSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6722	name: 'RightMarginEntryField'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	6723	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	6724	enableChannel: enableMargins
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6725	model: rightMargin
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6726	type: numberOrNil
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6727	acceptOnReturn: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6728	acceptOnTab: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6729	acceptOnLostFocus: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6730	acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6731	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6732	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6733
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6734	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6735	extent: (Point 600 24)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6736	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6737	(ViewSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6738	name: 'Box4'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6739	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6740	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6741	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6742	(LabelSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6743	label: 'Bottom Margin:'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6744	name: 'BottomMarginLabel'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	6745	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	6746	translateLabel: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6747	adjust: right
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6748	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6749	(InputFieldSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6750	name: 'BottomMarginEntryField'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	6751	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	6752	enableChannel: enableMargins
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6753	model: bottomMargin
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6754	type: numberOrNil
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6755	acceptOnReturn: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6756	acceptOnTab: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6757	acceptOnLostFocus: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6758	acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6759	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6760	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6761
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6762	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6763	extent: (Point 600 24)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6764	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6765	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6766
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6767	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6768	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6769	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6770
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6771	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6772	extent: (Point 600 100)
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6773	)
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6774	(DividerSpec
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6775	name: 'Separator6'
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6776	extent: (Point 600 3)
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6777	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6778	(ViewSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6779	name: 'Box5'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6780	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6781	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6782	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6783	(CheckBoxSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6784	label: 'Color Printer'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6785	name: 'ColorPrinterCheckBox'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	6786	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	6787	enableChannel: enableColorBox
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6788	model: supportsColor
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6789	translateLabel: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6790	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6791	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6792
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6793	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	6794	extent: (Point 600 27)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6795	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6796	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6797
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6798	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6799	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6800	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6801
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6802	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6803	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6804	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6805
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6806	!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6807
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6808	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6809
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6810	Printer := self possiblePrinters at:(self printerTypeSelection value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6811	Printer printCommand:self printCommand value.
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6812	Printer printFilename:(printFilename value isEmptyOrNil ifTrue:[nil] ifFalse:[printFilename value]).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6813
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6814	Printer supportsPageSizes ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6815	Printer pageFormat:(self pageFormat value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6816	Printer landscape:(self landscape value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6817	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6818	Printer supportsMargins ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6819	\| unit \|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6820	self selectedUnit value == 2 ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6821	unit := #mm
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6822	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6823	unit := #inch
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6824	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6825	Printer topMargin:(UnitConverter convert:(self topMargin value) from:unit to:#inch).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6826	Printer leftMargin:(UnitConverter convert:(self leftMargin value) from:unit to:#inch).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6827	Printer rightMargin:(UnitConverter convert:(self rightMargin value) from:unit to:#inch).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6828	Printer bottomMargin:(UnitConverter convert:(self bottomMargin value) from:unit to:#inch).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6829	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6830	Printer supportsPostscript ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6831	Printer supportsColor:self supportsColor value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6832	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6833	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6834
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	6835	helpFilename
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	6836	^ 'Launcher/printerSettings.html'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6837	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6838
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6839	readSettings
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6840	self bottomMargin value:Printer bottomMargin.
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6841	self landscape value:Printer landscape.
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6842	self leftMargin value:Printer leftMargin.
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6843	self rightMargin value:Printer rightMargin.
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6844	self topMargin value:Printer topMargin.
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6845	self printCommand value:Printer printCommand.
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6846	self printFilename value:Printer printFilename.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6847	self printerTypeSelection
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6848	value:(self possiblePrinters identityIndexOf:Printer).
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6849	self supportsColor value:Printer supportsColor.
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6850	self pageFormatList notEmpty ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6851	self pageFormat value:Printer pageFormat
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6852	].
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6853	self printerTypeSelectionOrUnitListChanged.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6854	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6855	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6856
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6857	!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6858
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6859	bottomMargin
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6860
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6861	bottomMargin isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6862	bottomMargin := Printer bottomMargin asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6863	bottomMargin onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6864	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6865	^ bottomMargin.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6866	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6867
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6868	enableColorBox
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6869
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6870	enableColorBox isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6871	enableColorBox := true asValue.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6872	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6873	^ enableColorBox.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6874	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6875
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6876	enableFormat
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6877
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6878	enableFormat isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6879	enableFormat := true asValue.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6880	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6881	^ enableFormat.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6882	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6883
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6884	enableMargins
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6885
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6886	enableMargins isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6887	enableMargins := true asValue.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6888	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6889	^ enableMargins.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6890	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6891
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6892	enablelandscape
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6893
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6894	enablelandscape isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6895	enablelandscape := true asValue.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6896	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6897	^ enablelandscape.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6898	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6899
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6900	landscape
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6901
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6902	landscape isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6903	landscape := Printer landscape asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6904	landscape onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6905	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6906	^ landscape.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6907	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6908
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6909	leftMargin
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6910
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6911	leftMargin isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6912	leftMargin := Printer leftMargin asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6913	leftMargin onChangeSend:#updateModifiedChannel to:self
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6914	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6915	^ leftMargin.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6916	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6917
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6918	pageFormat
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6919
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6920	pageFormat isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6921	self pageFormatList notEmpty ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6922	\| index \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6923	(index := self pageFormatList indexOf:#a4) ~~ 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6924	pageFormat := index asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6925	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6926	pageFormat := 1 asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6927	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6928	].
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6929	pageFormat onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6930	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6931	^ pageFormat.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6932	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6933
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6934	pageFormatList
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6935
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6936	pageFormatList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6937	pageFormatList := Printer defaultPageFormats asList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6938	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6939	^ pageFormatList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6940	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6941
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6942	printCommand
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6943
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6944	printCommand isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6945	printCommand := Printer printCommand asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6946	printCommand onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6947	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6948	^ printCommand.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6949	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6950
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6951	printCommandEnabled
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6952	^ BlockValue
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6953	with:[:m \| m value isEmptyOrNil]
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6954	argument:(self printFilename).
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6955	!
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6956
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6957	printCommandList
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6958
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6959	printCommandList isNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6960	printCommandList := self commandList asList.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6961	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6962	^ printCommandList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6963	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6964
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6965	printFilename
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6966	printFilename isNil ifTrue:[
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6967	printFilename := (Printer printFilename ? '') asValue.
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6968	printFilename onChangeSend:#updateModifiedChannel to:self
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6969	].
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6970	^ printFilename.
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6971	!
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	6972
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6973	printerType
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6974
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6975	printerType isNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6976	printerType := (self possiblePrinters collect:[:cls \| cls printerTypeName]) asList.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6977	printerType onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6978	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6979	^ printerType.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6980	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6981
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6982	printerTypeSelection
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6983
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6984	printerTypeSelection isNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6985	printerTypeSelection := (self possiblePrinters identityIndexOf:Printer) asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6986	"/ printerTypeSelection onChangeSend:#printerTypeSelectionChanged to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6987	printerTypeSelection addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6988	printerTypeSelection changed.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6989	printerTypeSelection onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6990	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6991	^ printerTypeSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6992	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6993
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6994	rightMargin
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6995
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6996	rightMargin isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6997	rightMargin := Printer rightMargin asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6998	rightMargin onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6999	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7000	^ rightMargin.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7001	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7002
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7003	selectedUnit
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7004
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7005	selectedUnit isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7006	selectedUnit := 1 asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7007	selectedUnit addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7008	selectedUnit changed.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7009	selectedUnit onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7010	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7011	^ selectedUnit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7012	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7013
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7014	supportsColor
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7015
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7016	supportsColor isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7017	supportsColor := Printer supportsColor asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7018	supportsColor onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7019	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7020	^ supportsColor.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7021	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7022
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7023	topMargin
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7024
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7025	topMargin isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7026	topMargin := Printer topMargin asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7027	topMargin onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7028	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7029	^ topMargin.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7030	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7031
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7032	unitList
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7033
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7034	unitList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7035	unitList := #('inch' 'mm') asList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7036	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7037	^ unitList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7038	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7039
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7040	!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7041
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7042	printerTypeSelectionChanged
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7043	\| p hasPageSize hasMargins\|
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	7044
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	7045	self printerType selectionIndex ~~ 0 ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7046	p := self possiblePrinters at:(self printerType selectionIndex).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7047	hasPageSize := p supportsPageSizes.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7048	hasMargins := p supportsMargins.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7049	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7050	hasPageSize := false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7051	hasMargins := false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7052	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7053	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7054
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7055	printerTypeSelectionOrUnitListChanged
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7056	\| p hasPageSize hasMargins unit\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7057
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7058	self printerTypeSelection value ~~ 0 ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7059	p := self possiblePrinters at:(self printerTypeSelection value).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7060	hasPageSize := p supportsPageSizes.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7061	hasMargins := p supportsMargins.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7062	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7063	hasPageSize := false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7064	hasMargins := false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7065	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7066	self enablelandscape value:hasPageSize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7067	self enableFormat value:hasPageSize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7068	hasPageSize ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7069	self pageFormat value:(p pageFormat).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7070	self landscape value:(p landscape).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7071	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7072	self landscape value:false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7073	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7074	hasMargins ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7075	self selectedUnit value == 2 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7076	unit := #mm
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7077	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7078	unit := #inch
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7079	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7080
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	7081	self topMargin value:(UnitConverter convert:p topMargin from:#inch to:unit).
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	7082	self leftMargin value:(UnitConverter convert:p leftMargin from:#inch to:unit).
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	7083	self rightMargin value:(UnitConverter convert:p rightMargin from:#inch to:unit).
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	7084	self bottomMargin value:(UnitConverter convert:p bottomMargin from:#inch to:unit).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7085
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7086	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7087	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7088	self enableMargins value:hasMargins.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7089
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7090	p notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7091	\| newCommandList \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7092	newCommandList := p defaultCommands.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7093	newCommandList notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7094	self printCommandList contents:(newCommandList asList).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7095	self printCommandList changed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7096	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7097	self printCommand value:(p printCommand).
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	7098	self printFilename value:(p printFilename ? '').
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7099	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7100	self enableColorBox value:p supportsPostscript.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7101	p supportsPostscript ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7102	self supportsColor value:false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7103	] ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7104	self supportsColor value:(Printer supportsColor).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7105	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7106	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7107
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7108	unitListChanged
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7109	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7110
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7111	update:something with:aParameter from:changedObject
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7112	(changedObject == self selectedUnit or:[changedObject == self printerTypeSelection]) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7113	self printerTypeSelectionOrUnitListChanged.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7114	^ self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7115	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7116
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7117	super update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7118	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7119
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7120	!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7121
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7122	commandList
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7123	commandList isNil ifTrue:[
6638 74439c5aa6dd * empty log message * Claus Gittinger <cg@exept.de> parents: 6580 diff changeset	7124	commandList := resources string:'PRINT_COMMANDS' default:nil.
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7125	commandList isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7126	commandList := PrinterStream defaultCommands.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7127	commandList isNil ifTrue:[
5151 53c19d72ff59 Avoid warning about slow grow operation Stefan Vogel <sv@exept.de> parents: 5149 diff changeset	7128	commandList := #('lpr' 'lp').
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7129	].
5151 53c19d72ff59 Avoid warning about slow grow operation Stefan Vogel <sv@exept.de> parents: 5149 diff changeset	7130	(commandList includes:self printCommand value) ifFalse:[
53c19d72ff59 Avoid warning about slow grow operation Stefan Vogel <sv@exept.de> parents: 5149 diff changeset	7131	commandList := commandList copyWith:self printCommand value.
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7132	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7133	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7134	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7135	^ commandList
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7136	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7137
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7138	hasUnsavedChanges
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7139	\| printer unit\|
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	7140
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7141	self selectedUnit value == 2 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7142	unit := #mm
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7143	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7144	unit := #inch
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7145	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7146	printer := self possiblePrinters at:(self printerTypeSelection value).
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	7147
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	7148	printer ~= Printer ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	7149
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	7150	Printer printCommand ~= self printCommand value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	7151	(Printer printFilename ? '') ~= (self printFilename value ? '') ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	7152
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	7153	Printer supportsPageSizes ifTrue:[
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	7154	Printer pageFormat ~= self pageFormat value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	7155	Printer landscape ~= (self landscape value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	7156	].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	7157	Printer supportsMargins ifTrue:[
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	7158	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	7159	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	7160	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	7161	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	7162	].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	7163	Printer supportsPostscript ifTrue:[
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	7164	Printer supportsColor ~= self supportsColor value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	7165	].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	7166	^ false
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7167	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7168
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7169	possiblePrinters
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7170	possiblePrinters isNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7171	possiblePrinters := PrinterStream withAllSubclasses asArray.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7172	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7173	^ possiblePrinters
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7174	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7175
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7176	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7177
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7178	defaultIcon
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7179	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7180	by the ImageEditor of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7181
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7182	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7183	the ImageEditor may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7184
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7185	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7186	self defaultIcon inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7187	ImageEditor openOnClass:self andSelector:#defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7188	Icon flushCachedIcons
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7189	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7190
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7191	<resource: #image>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7192
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7193	^Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7194	constantNamed:#'AbstractSettingsApplication::ProcessorSchedulerSettingsAppl class defaultIcon'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	7195	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	7196	@@@@@@@@@@@@@@@@@@@@ADQ@@@@@@@@@@DQBL2QD@@@@@@@DH"D3D"I@@@@@@DHQDSLQDRP@@@@DHQDQDQDQD$@@@DHQDQDQDQDQI@@@P!!DQDQDQDQD$@@AB
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	7197	DQDQDQLQDRP@ABDQDQDQLQDQD$@DHQDQDSLQDQDRP@P!!DQDQL1DQDQI@ABDQDQDQLQDQD$@@P!!DQDQDSDQD$@@ABDQDQDQD1DRP@@DHQDQDQDQLQI@@@ABDQ
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	7198	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	7199	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7200
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7201	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl class methodsFor:'interface specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7202
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7203	windowSpec
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7204	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7205	by the UIPainter of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7206
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7207	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7208	the UIPainter may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7209
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7210	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7211	UIPainter new openOnClass:AbstractSettingsApplication::ProcessorSchedulerSettingsAppl andSelector:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7212	AbstractSettingsApplication::ProcessorSchedulerSettingsAppl new openInterface:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7213	AbstractSettingsApplication::ProcessorSchedulerSettingsAppl open
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7214	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7215
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7216	<resource: #canvas>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7217
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7218	^
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7219	#(FullSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7220	name: windowSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7221	window:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7222	(WindowSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7223	label: 'Processor and Scheduler Settings'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7224	name: 'Processor and Scheduler Settings'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7225	min: (Point 10 10)
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7226	bounds: (Rectangle 14 46 614 366)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7227	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7228	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7229	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7230	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7231	(VerticalPanelViewSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7232	name: 'VerticalPanel2'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7233	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	7234	horizontalLayout: fit
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7235	verticalLayout: topSpace
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7236	horizontalSpace: 3
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7237	verticalSpace: 5
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7238	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7239	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7240	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7241	(CheckBoxSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7242	label: 'Preemptive Scheduling'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7243	name: 'CheckBox11'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7244	model: preemptive
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7245	translateLabel: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7246	extent: (Point 600 22)
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7247	)
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7248	(ViewSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7249	name: 'Box2'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7250	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7251	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7252	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7253	(CheckBoxSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7254	label: 'Dynamic Priorities'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7255	name: 'CheckBox12'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7256	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	7257	enableChannel: preemptive
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7258	model: dynamicPrios
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7259	translateLabel: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7260	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7261	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7262
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7263	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7264	extent: (Point 600 23)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7265	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7266	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7267
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7268	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7269	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7270	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7271
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7272	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7273	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7274	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7275
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7276	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl methodsFor:'actions'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7277
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7278	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7279
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7280	Processor isTimeSlicing ~~ self preemptive value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7281	self preemptive value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7282	Processor startTimeSlicing
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7283	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7284	Processor stopTimeSlicing
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7285	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7286	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7287	Processor supportDynamicPriorities ~~ self dynamicPrios value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7288	Processor supportDynamicPriorities:self dynamicPrios value
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7289	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7290	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7291
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	7292	helpFilename
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	7293	^ 'Launcher/miscSettings.html'
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7294	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7295
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7296	readSettings
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7297	self preemptive value:Processor isTimeSlicing.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7298	self dynamicPrios value:Processor supportDynamicPriorities.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7299	self modifiedChannel value:false
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7300	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7301
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7302	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl methodsFor:'aspects'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7303
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7304	dynamicPrios
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7305	dynamicPrios isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7306	dynamicPrios := true asValue.
5085 e22e91773cf9 have no save button enabled on timeSlicing changes penk parents: 5083 diff changeset	7307	dynamicPrios onChangeSend:#updateModifiedChannel to:self.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7308	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7309	^ dynamicPrios.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7310	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7311
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7312	preemptive
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7313	preemptive isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7314	preemptive := true asValue.
5085 e22e91773cf9 have no save button enabled on timeSlicing changes penk parents: 5083 diff changeset	7315	preemptive onChangeSend:#updateModifiedChannel to:self.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7316	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7317	^ preemptive.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7318	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7319
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7320	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl methodsFor:'queries'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7321
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7322	hasUnsavedChanges
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	7323	self preemptive value ~= Processor isTimeSlicing ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	7324	self dynamicPrios value ~= Processor supportDynamicPriorities ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	7325	^ false
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7326	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7327
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7328	!AbstractSettingsApplication::RDoItServerSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7329
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7330	defaultIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7331	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7332	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7333
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7334	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7335	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7336
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7337	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7338	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7339	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7340	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7341	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7342
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7343	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7344
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7345	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7346	constantNamed:#'AbstractSettingsApplication::RDoItServerSettingsAppl class defaultIcon'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	7347	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	7348	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@&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	7349	''#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	7350	!!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	7351	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7352
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7353	!AbstractSettingsApplication::RDoItServerSettingsAppl class methodsFor:'interface specs'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7354
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7355	windowSpec
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7356	"This resource specification was automatically generated
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7357	by the UIPainter of ST/X."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7358
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7359	"Do not manually edit this!! If it is corrupted,
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7360	the UIPainter may not be able to read the specification."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7361
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7362	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7363	UIPainter new openOnClass:AbstractSettingsApplication::RDoItServerSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7364	AbstractSettingsApplication::RDoItServerSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7365	AbstractSettingsApplication::RDoItServerSettingsAppl open
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7366	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7367
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7368	<resource: #canvas>
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7369
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7370	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7371	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7372	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7373	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7374	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7375	label: 'RDoIt Server Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7376	name: 'RDoIt Server Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7377	min: (Point 10 10)
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7378	bounds: (Rectangle 0 0 600 550)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7379	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7380	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7381	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7382	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7383	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7384	name: 'VerticalPanel2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7385	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	7386	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7387	verticalLayout: top
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7388	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7389	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7390	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7391	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7392	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7393	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7394	name: 'Box1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7395	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7396	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7397	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7398	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7399	label: 'Remote doits enabled'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7400	name: 'CheckBox1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7401	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	7402	enableChannel: hasRDoitServerClass
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7403	model: rDoitsEnabled
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7404	translateLabel: true
5086 b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	7405	)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	7406	)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	7407
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	7408	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7409	extent: (Point 600 25)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7410	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7411	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7412	name: 'Box2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7413	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7414	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7415	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7416	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7417	label: 'Port/Path:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7418	name: 'Label2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7419	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	7420	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7421	adjust: right
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7422	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7423	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7424	name: 'EntryField1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7425	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	7426	enableChannel: rDoitsEnabled
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7427	model: rDoitServerPortOrPath
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7428	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7429	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7430	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7431	acceptOnPointerLeave: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7432	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7433	(LabelSpec
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7434	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	7435	name: 'Label3'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7436	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	7437	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7438	adjust: left
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7439	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7440	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7441
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7442	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7443	extent: (Point 600 72)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7444	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7445	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7446	name: 'Box3'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7447	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7448	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7449	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7450	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7451	label: 'Log errors'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7452	name: 'CheckBox2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7453	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	7454	enableChannel: rDoitsEnabled
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7455	model: rDoitErrorLogging
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7456	translateLabel: true
5086 b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	7457	)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	7458	)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	7459
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	7460	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7461	extent: (Point 600 25)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7462	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7463	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7464	name: 'Box4'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7465	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7466	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7467	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7468	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7469	label: 'Log requests'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7470	name: 'CheckBox3'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7471	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	7472	enableChannel: rDoitsEnabled
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7473	model: rDoitLogging
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7474	translateLabel: true
5086 b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	7475	)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	7476	)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	7477
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	7478	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7479	extent: (Point 600 24)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7480	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7481	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7482	name: 'Box5'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7483	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7484	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7485	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7486	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7487	label: 'Debug errors'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7488	name: 'CheckBox4'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7489	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	7490	enableChannel: rDoitsEnabled
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7491	model: rDoitErrorDebugging
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7492	translateLabel: true
5086 b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	7493	)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	7494	)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	7495
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	7496	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7497	extent: (Point 600 23)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7498	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7499	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7500
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7501	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7502	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7503	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7504
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7505	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7506	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7507	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7508
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7509	!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'actions'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7510
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7511	basicSaveSettings
5991 1f8b715b9c06 Fix rdoit settings: allow to specify a port number Stefan Vogel <sv@exept.de> parents: 5943 diff changeset	7512	\|shouldRun portOrPath\|
1f8b715b9c06 Fix rdoit settings: allow to specify a port number Stefan Vogel <sv@exept.de> parents: 5943 diff changeset	7513
1f8b715b9c06 Fix rdoit settings: allow to specify a port number Stefan Vogel <sv@exept.de> parents: 5943 diff changeset	7514	portOrPath := self rDoitServerPortOrPath value.
6064 94d7e5b3471d * empty log message * penk parents: 6058 diff changeset	7515	portOrPath isNumber ifFalse:[
5991 1f8b715b9c06 Fix rdoit settings: allow to specify a port number Stefan Vogel <sv@exept.de> parents: 5943 diff changeset	7516	"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	7517	portOrPath := portOrPath asInteger.
1f8b715b9c06 Fix rdoit settings: allow to specify a port number Stefan Vogel <sv@exept.de> parents: 5943 diff changeset	7518	].
1f8b715b9c06 Fix rdoit settings: allow to specify a port number Stefan Vogel <sv@exept.de> parents: 5943 diff changeset	7519
1f8b715b9c06 Fix rdoit settings: allow to specify a port number Stefan Vogel <sv@exept.de> parents: 5943 diff changeset	7520	RDoItServer defaultPortNumberOrPath:portOrPath.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7521	RDoItServer logging:self rDoitLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7522	RDoItServer errorLogging:self rDoitErrorLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7523	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	7524	shouldRun := self rDoitsEnabled value.
1f8b715b9c06 Fix rdoit settings: allow to specify a port number Stefan Vogel <sv@exept.de> parents: 5943 diff changeset	7525	shouldRun ~~ RDoItServer serverRunning ifTrue:[
1f8b715b9c06 Fix rdoit settings: allow to specify a port number Stefan Vogel <sv@exept.de> parents: 5943 diff changeset	7526	shouldRun ifFalse:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7527	RDoItServer stop
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7528	] ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7529	RDoItServer start.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7530	"/ must wait a bit; give it a chance to
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7531	"/ really start (before checking)
5991 1f8b715b9c06 Fix rdoit settings: allow to specify a port number Stefan Vogel <sv@exept.de> parents: 5943 diff changeset	7532	Delay waitForSeconds:1.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7533	RDoItServer serverRunning ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7534	self warn:'RDoit startup failed (see stderr).'
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7535	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7536	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7537	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7538	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7539
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	7540	helpFilename
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	7541	^ 'Launcher/communicationsSettings.html'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7542	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7543
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7544	readSettings
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7545	(self hasRDoitServer and:[RDoItServer isLoaded]) ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7546	self rDoitsEnabled value:RDoItServer serverRunning.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7547	self rDoitLogging value:RDoItServer isLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7548	self rDoitErrorLogging value:RDoItServer isErrorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7549	self rDoitErrorDebugging value:RDoItServer isErrorCatching not.
5032 2a26da89dada allow for rdoitPort to be a string (for ud sockets) Claus Gittinger <cg@exept.de> parents: 5031 diff changeset	7550	self rDoitServerPortOrPath value:RDoItServer defaultPortNumberOrPath
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7551	] ifFalse:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7552	self rDoitsEnabled value:false.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7553	self rDoitLogging value:false.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7554	self rDoitErrorLogging value:false.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7555	self rDoitErrorDebugging value:false.
5032 2a26da89dada allow for rdoitPort to be a string (for ud sockets) Claus Gittinger <cg@exept.de> parents: 5031 diff changeset	7556	self rDoitServerPortOrPath value:nil
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7557	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7558	self modifiedChannel value:false
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7559	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7560
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7561	!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'aspects'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7562
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7563	rDoitErrorDebugging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7564	rDoitErrorDebugging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7565	rDoitErrorDebugging := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7566	rDoitErrorDebugging onChangeSend:#updateModifiedChannel to:self
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7567	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7568	^ rDoitErrorDebugging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7569	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7570
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7571	rDoitErrorLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7572	rDoitErrorLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7573	rDoitErrorLogging := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7574	rDoitErrorLogging onChangeSend:#updateModifiedChannel to:self
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7575	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7576	^ rDoitErrorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7577	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7578
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7579	rDoitLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7580	rDoitLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7581	rDoitLogging := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7582	rDoitLogging onChangeSend:#updateModifiedChannel to:self
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7583	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7584	^ rDoitLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7585	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7586
5032 2a26da89dada allow for rdoitPort to be a string (for ud sockets) Claus Gittinger <cg@exept.de> parents: 5031 diff changeset	7587	rDoitServerPortOrPath
2a26da89dada allow for rdoitPort to be a string (for ud sockets) Claus Gittinger <cg@exept.de> parents: 5031 diff changeset	7588	rDoitServerPortOrPath isNil ifTrue:[
2a26da89dada allow for rdoitPort to be a string (for ud sockets) Claus Gittinger <cg@exept.de> parents: 5031 diff changeset	7589	rDoitServerPortOrPath := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7590	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	7591	].
2a26da89dada allow for rdoitPort to be a string (for ud sockets) Claus Gittinger <cg@exept.de> parents: 5031 diff changeset	7592	^ rDoitServerPortOrPath.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7593	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7594
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7595	rDoitsEnabled
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7596	rDoitsEnabled isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7597	rDoitsEnabled := true asValue.
4675 40c7fa2ca3e5 rDoit - enablement fixed. Claus Gittinger <cg@exept.de> parents: 4658 diff changeset	7598	rDoitsEnabled onChangeSend:#rDoitsEnabledChanged to:self
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7599	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7600	^ rDoitsEnabled.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7601	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7602
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7603	!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'change & update'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7604
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7605	rDoitsEnabledChanged
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7606	self updateModifiedChannel.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7607	self rDoitsEnabled value ifTrue:[
5991 1f8b715b9c06 Fix rdoit settings: allow to specify a port number Stefan Vogel <sv@exept.de> parents: 5943 diff changeset	7608	rDoitServerPortOrPath value isEmptyOrNil ifTrue:[
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7609	rDoitServerPortOrPath value:(RDoItServer defaultPortNumberOrPath)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7610	]
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7611	]
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7612	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7613
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7614	!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'queries'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7615
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7616	hasRDoitServer
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7617	^ RDoItServer notNil and:[RDoItServer isLoaded]
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7618	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7619
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7620	hasRDoitServerClass
4675 40c7fa2ca3e5 rDoit - enablement fixed. Claus Gittinger <cg@exept.de> parents: 4658 diff changeset	7621	^ RDoItServer notNil
40c7fa2ca3e5 rDoit - enablement fixed. Claus Gittinger <cg@exept.de> parents: 4658 diff changeset	7622	!
40c7fa2ca3e5 rDoit - enablement fixed. Claus Gittinger <cg@exept.de> parents: 4658 diff changeset	7623
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7624	hasUnsavedChanges
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7625	(self hasRDoitServer and:[RDoItServer isLoaded]) ifTrue:[
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	7626	self rDoitsEnabled value ~= RDoItServer serverRunning ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	7627	RDoItServer serverRunning ifTrue:[
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	7628	self rDoitLogging value ~= RDoItServer isLogging ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	7629	self rDoitErrorLogging value ~= RDoItServer isErrorLogging ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	7630	self rDoitErrorDebugging value ~= RDoItServer isErrorCatching not ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	7631	self rDoitServerPortOrPath value ~= RDoItServer defaultPortNumberOrPath ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	7632	]
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7633	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7634	^ false
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7635	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7636
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7637	!AbstractSettingsApplication::SQLServerSettingsAppl class methodsFor:'image specs'!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7638
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7639	defaultIcon
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7640	"This resource specification was automatically generated
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7641	by the ImageEditor of ST/X."
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7642
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7643	"Do not manually edit this!! If it is corrupted,
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7644	the ImageEditor may not be able to read the specification."
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7645
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7646	"
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7647	self defaultIcon inspect
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7648	ImageEditor openOnClass:self andSelector:#defaultIcon
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7649	Icon flushCachedIcons
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7650	"
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7651
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7652	<resource: #image>
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7653
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7654	^Icon
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7655	constantNamed:#'Expecco::ExpeccoIconLibrary class defaultIcon'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7656	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	7657	H"H"H @@@@@@@@@@@@@@@@@@@@@"H"H"@@@@@@@@@@@@@@@@@@@@@@@@@@@"H"H"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BH"@@@@@@@@@@@@J"(J"(@@@@
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7658	@@@@@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	7659	@@@@@@@@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	7660	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	7661	@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	7662	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	7663	@@@@@@@@@@@@@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	7664	! !
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7665
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7666	!AbstractSettingsApplication::SQLServerSettingsAppl class methodsFor:'interface specs'!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7667
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7668	windowSpec
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7669	"This resource specification was automatically generated
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7670	by the UIPainter of ST/X."
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7671
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7672	"Do not manually edit this!! If it is corrupted,
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7673	the UIPainter may not be able to read the specification."
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7674
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7675	"
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7676	UIPainter new openOnClass:AbstractSettingsApplication::SQLServerSettingsAppl andSelector:#windowSpec
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7677	AbstractSettingsApplication::SQLServerSettingsAppl new openInterface:#windowSpec
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7678	AbstractSettingsApplication::SQLServerSettingsAppl open
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7679	"
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7680
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7681	<resource: #canvas>
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7682
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7683	^
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7684	#(FullSpec
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7685	name: windowSpec
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7686	window:
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7687	(WindowSpec
6428 76dfcf8cb841 * empty log message * Claus Gittinger <cg@exept.de> parents: 6427 diff changeset	7688	label: 'SQL Server Settings'
76dfcf8cb841 * empty log message * Claus Gittinger <cg@exept.de> parents: 6427 diff changeset	7689	name: 'SQL Server Settings'
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7690	min: (Point 10 10)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7691	bounds: (Rectangle 0 0 600 550)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7692	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7693	component:
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7694	(SpecCollection
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7695	collection: (
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7696	(VerticalPanelViewSpec
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7697	name: 'VerticalPanel2'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7698	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	7699	horizontalLayout: fit
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7700	verticalLayout: top
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7701	horizontalSpace: 3
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7702	verticalSpace: 3
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7703	component:
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7704	(SpecCollection
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7705	collection: (
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7706	(ViewSpec
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7707	name: 'EnableBox'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7708	component:
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7709	(SpecCollection
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7710	collection: (
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7711	(CheckBoxSpec
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7712	label: 'SQL Server Enabled'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7713	name: 'EnableCheckBox'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7714	layout: (LayoutFrame 5 0 0 0 -5 1 22 0)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7715	enableChannel: hasRDoitServerClass
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7716	model: sqlServerEnabled
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7717	translateLabel: true
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7718	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7719	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7720
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7721	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7722	extent: (Point 600 25)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7723	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7724	(ViewSpec
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7725	name: 'PortBox'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7726	component:
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7727	(SpecCollection
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7728	collection: (
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7729	(LabelSpec
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7730	label: 'MySQL Port:'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7731	name: 'Label2'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7732	layout: (LayoutFrame 5 0 0 0 150 0 22 0)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7733	translateLabel: true
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7734	adjust: right
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7735	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7736	(InputFieldSpec
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7737	name: 'EntryField1'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7738	layout: (LayoutFrame 150 0 0 0 -5 1 22 0)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7739	enableChannel: rDoitsEnabled
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7740	model: sqlServerPort
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7741	acceptOnReturn: true
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7742	acceptOnTab: true
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7743	acceptOnLostFocus: true
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7744	acceptOnPointerLeave: true
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7745	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7746	(LabelSpec
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7747	label: 'MySQL Port-Number (ODBC)'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7748	name: 'Label3'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7749	layout: (LayoutFrame 150 0 28 0 596 0 50 0)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7750	translateLabel: true
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7751	adjust: left
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7752	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7753	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7754
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7755	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7756	extent: (Point 600 72)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7757	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7758	(ViewSpec
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7759	name: 'LogErrorsBox'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7760	component:
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7761	(SpecCollection
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7762	collection: (
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7763	(CheckBoxSpec
6431 6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	7764	label: 'Log Errors'
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7765	name: 'ErrorLoggingCheckBox'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7766	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7767	enableChannel: rDoitsEnabled
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7768	model: sqlErrorLogging
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7769	translateLabel: true
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7770	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7771	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7772
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7773	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7774	extent: (Point 600 25)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7775	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7776	(ViewSpec
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7777	name: 'LogRequestsBox'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7778	component:
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7779	(SpecCollection
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7780	collection: (
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7781	(CheckBoxSpec
6431 6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	7782	label: 'Log Requests'
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7783	name: 'LogRequestsCheckBox'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7784	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7785	enableChannel: rDoitsEnabled
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7786	model: sqlLogging
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7787	translateLabel: true
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7788	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7789	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7790
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7791	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7792	extent: (Point 600 24)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7793	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7794	(ViewSpec
6431 6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	7795	name: 'LogDataBox'
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	7796	component:
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	7797	(SpecCollection
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	7798	collection: (
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	7799	(CheckBoxSpec
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	7800	label: 'Log Data'
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	7801	name: 'LogDataCheckBox'
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	7802	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	7803	enableChannel: rDoitsEnabled
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	7804	model: sqlDataLogging
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	7805	translateLabel: true
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	7806	)
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	7807	)
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	7808
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	7809	)
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	7810	extent: (Point 600 23)
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	7811	)
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	7812	(ViewSpec
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7813	name: 'DebugErrorsBox'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7814	component:
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7815	(SpecCollection
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7816	collection: (
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7817	(CheckBoxSpec
6431 6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	7818	label: 'Debug Errors'
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7819	name: 'DebugErrorsCheckBox'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7820	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7821	enableChannel: rDoitsEnabled
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7822	model: sqlErrorDebugging
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7823	translateLabel: true
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7824	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7825	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7826
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7827	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7828	extent: (Point 600 23)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7829	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7830	(ViewSpec
6431 6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	7831	name: 'Box1'
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	7832	extent: (Point 600 10)
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	7833	)
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	7834	(ViewSpec
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7835	name: 'EnableSmalltalkBox'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7836	component:
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7837	(SpecCollection
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7838	collection: (
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7839	(CheckBoxSpec
6431 6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	7840	label: 'Virtual Smalltalk Tables Enabled'
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7841	name: 'EnableSmalltalkCheckBox'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7842	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7843	enableChannel: rDoitsEnabled
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7844	model: sqlSmalltalkServerEnabled
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7845	translateLabel: true
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7846	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7847	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7848
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7849	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7850	extent: (Point 600 24)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7851	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7852	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7853
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7854	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7855	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7856	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7857
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7858	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7859	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7860	! !
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7861
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7862	!AbstractSettingsApplication::SQLServerSettingsAppl methodsFor:'actions'!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7863
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7864	basicSaveSettings
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7865	\|shouldRun port\|
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7866
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7867	port := self sqlServerPort value.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7868	port isNumber ifFalse:[
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7869	port := port asInteger.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7870	].
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7871
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7872	SQLServer::SQLServer defaultPort:port.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7873	SQLServer::SQLServer logging:self sqlLogging value.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7874	SQLServer::SQLServer errorLogging:self sqlErrorLogging value.
6431 6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	7875	SQLServer::SQLServer dataLogging:self sqlDataLogging value.
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7876	SQLServer::SQLServer errorCatching:(self sqlErrorDebugging value not).
6429 5d2d51c0c393 * empty log message * Claus Gittinger <cg@exept.de> parents: 6428 diff changeset	7877	SQLServer::SQLServer smalltalkServerEnabled:(self sqlSmalltalkServerEnabled value).
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7878
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7879	shouldRun := self sqlServerEnabled value.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7880	shouldRun ~~ SQLServer::SQLServer serverRunning ifTrue:[
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7881	shouldRun ifFalse:[
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7882	SQLServer::SQLServer stop
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7883	] ifTrue:[
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7884	SQLServer::SQLServer start.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7885	"/ must wait a bit; give it a chance to
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7886	"/ really start (before checking)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7887	Delay waitForSeconds:1.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7888	SQLServer::SQLServer serverRunning ifFalse:[
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7889	self warn:'SQLServer startup failed (see stderr).'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7890	]
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7891	]
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7892	].
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7893	!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7894
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7895	helpFilename
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7896	^ 'Launcher/communicationsSettings.html'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7897	!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7898
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7899	readSettings
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7900	(self hasSQLServer and:[SQLServer::SQLServer isLoaded]) ifTrue:[
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7901	self sqlServerEnabled value:SQLServer::SQLServer serverRunning.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7902	self sqlSmalltalkServerEnabled value:SQLServer::SQLServer isSmalltalkServerEnabled.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7903	self sqlLogging value:SQLServer::SQLServer isLogging.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7904	self sqlErrorLogging value:SQLServer::SQLServer isErrorLogging.
6431 6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	7905	self sqlDataLogging value:SQLServer::SQLServer isDataLogging.
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7906	self sqlErrorDebugging value:SQLServer::SQLServer isErrorCatching not.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7907	self sqlServerPort value:SQLServer::SQLServer defaultPort
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7908	] ifFalse:[
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7909	self sqlServerEnabled value:false.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7910	self sqlSmalltalkServerEnabled value:false.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7911	self sqlLogging value:false.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7912	self sqlErrorLogging value:false.
6431 6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	7913	self sqlDataLogging value:false.
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7914	self sqlErrorDebugging value:false.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7915	self sqlServerPort value:nil
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7916	].
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7917	self modifiedChannel value:false
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7918	! !
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7919
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7920	!AbstractSettingsApplication::SQLServerSettingsAppl methodsFor:'aspects'!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7921
6431 6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	7922	sqlDataLogging
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	7923	sqlDataLogging isNil ifTrue:[
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	7924	sqlDataLogging := true asValue.
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	7925	sqlDataLogging onChangeSend:#updateModifiedChannel to:self
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	7926	].
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	7927	^ sqlDataLogging.
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	7928	!
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	7929
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7930	sqlErrorDebugging
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7931	sqlErrorDebugging isNil ifTrue:[
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7932	sqlErrorDebugging := true asValue.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7933	sqlErrorDebugging onChangeSend:#updateModifiedChannel to:self
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7934	].
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7935	^ sqlErrorDebugging.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7936	!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7937
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7938	sqlErrorLogging
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7939	sqlErrorLogging isNil ifTrue:[
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7940	sqlErrorLogging := true asValue.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7941	sqlErrorLogging onChangeSend:#updateModifiedChannel to:self
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7942	].
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7943	^ sqlErrorLogging.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7944	!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7945
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7946	sqlLogging
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7947	sqlLogging isNil ifTrue:[
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7948	sqlLogging := true asValue.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7949	sqlLogging onChangeSend:#updateModifiedChannel to:self
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7950	].
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7951	^ sqlLogging.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7952	!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7953
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7954	sqlServerEnabled
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7955	sqlServerEnabled isNil ifTrue:[
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7956	sqlServerEnabled := true asValue.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7957	sqlServerEnabled onChangeSend:#sqlServerEnabledChanged to:self
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7958	].
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7959	^ sqlServerEnabled.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7960	!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7961
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7962	sqlServerPort
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7963	sqlServerPort isNil ifTrue:[
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7964	sqlServerPort := ValueHolder new.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7965	sqlServerPort onChangeSend:#updateModifiedChannel to:self
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7966	].
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7967	^ sqlServerPort.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7968	!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7969
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7970	sqlSmalltalkServerEnabled
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7971	sqlSmalltalkServerEnabled isNil ifTrue:[
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7972	sqlSmalltalkServerEnabled := true asValue.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7973	sqlSmalltalkServerEnabled onChangeSend:#sqlSmalltalkServerEnabledChanged to:self
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7974	].
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7975	^ sqlSmalltalkServerEnabled.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7976	! !
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7977
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7978	!AbstractSettingsApplication::SQLServerSettingsAppl methodsFor:'change & update'!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7979
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7980	sqlServerEnabledChanged
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7981	self updateModifiedChannel.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7982	self sqlServerEnabled value ifTrue:[
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7983	sqlServerPort value isEmptyOrNil ifTrue:[
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7984	sqlServerPort value:(SQLServer::SQLServer defaultPort)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7985	]
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7986	]
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7987	!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7988
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7989	sqlSmalltalkServerEnabledChanged
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7990	self updateModifiedChannel.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7991	self sqlSmalltalkServerEnabled value ifTrue:[
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7992	sqlServerPort value isEmptyOrNil ifTrue:[
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7993	sqlServerPort value:(SQLServer::SQLServer defaultPort)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7994	]
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7995	]
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7996	! !
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7997
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7998	!AbstractSettingsApplication::SQLServerSettingsAppl methodsFor:'queries'!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	7999
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8000	hasSQLServer
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8001	^ SQLServer::SQLServer notNil and:[SQLServer::SQLServer isLoaded]
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8002	!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8003
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8004	hasSQLServerClass
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8005	^ SQLServer::SQLServer notNil
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8006	!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8007
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8008	hasUnsavedChanges
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8009	(self hasSQLServer and:[SQLServer::SQLServer isLoaded]) ifTrue:[
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8010	self sqlServerEnabled value ~= SQLServer::SQLServer serverRunning ifTrue:[^ true].
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8011	SQLServer::SQLServer serverRunning ifTrue:[
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8012	self sqlSmalltalkServerEnabled value ~= SQLServer::SQLServer isSmalltalkServerEnabled ifTrue:[^ true].
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8013	self sqlLogging value ~= SQLServer::SQLServer isLogging ifTrue:[^ true].
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8014	self sqlErrorLogging value ~= SQLServer::SQLServer isErrorLogging ifTrue:[^ true].
6431 6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	8015	self sqlDataLogging value ~= SQLServer::SQLServer isDataLogging ifTrue:[^ true].
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8016	self sqlErrorDebugging value ~= SQLServer::SQLServer isErrorCatching not ifTrue:[^ true].
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8017	self sqlServerPort value ~= SQLServer::SQLServer defaultPort ifTrue:[^ true].
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8018	]
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8019	].
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8020	^ false
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8021	! !
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	8022
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8023	!AbstractSettingsApplication::STCCompilerSettingsAppl class methodsFor:'defaults'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8024
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8025	stcCompilationOptions
5278 67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	8026	^ #(default never)
67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	8027	!
67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	8028
67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	8029	stcCompilationStrings
67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	8030
67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	8031	^ #('primitive code only' 'never')
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8032	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8033
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8034	!AbstractSettingsApplication::STCCompilerSettingsAppl class methodsFor:'image specs'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8035
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8036	defaultIcon
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8037	^ self defaultIcon3
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8038	!
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8039
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8040	defaultIcon1
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8041	"This resource specification was automatically generated
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8042	by the ImageEditor of ST/X."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8043
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8044	"Do not manually edit this!! If it is corrupted,
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8045	the ImageEditor may not be able to read the specification."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8046
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8047	"
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8048	self defaultIcon1 inspect
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8049	ImageEditor openOnClass:self andSelector:#defaultIcon1
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8050	Icon flushCachedIcons
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8051	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8052
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8053	<resource: #image>
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8054
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8055	^Icon
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8056	constantNamed:#'AbstractSettingsApplication::STCCompilerSettingsAppl class defaultIcon1'
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	8057	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	8058	@@@@@@@@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	8059	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	8060	!
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8061
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8062	defaultIcon2
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8063	"This resource specification was automatically generated
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8064	by the ImageEditor of ST/X."
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8065
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8066	"Do not manually edit this!! If it is corrupted,
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8067	the ImageEditor may not be able to read the specification."
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8068
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8069	"
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8070	self defaultIcon2 inspect
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8071	ImageEditor openOnClass:self andSelector:#defaultIcon2
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8072	Icon flushCachedIcons
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8073	"
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8074
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8075	<resource: #image>
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8076
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8077	^Icon
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8078	constantNamed:#'AbstractSettingsApplication::STCCompilerSettingsAppl class defaultIcon2'
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8079	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	8080	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	8081	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	8082	@@@@@@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	8083	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	8084	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	8085	@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	8086	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	8087	!
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8088
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8089	defaultIcon3
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8090	"This resource specification was automatically generated
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8091	by the ImageEditor of ST/X."
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8092
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8093	"Do not manually edit this!! If it is corrupted,
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8094	the ImageEditor may not be able to read the specification."
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8095
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8096	"
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8097	self defaultIcon3 inspect
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8098	ImageEditor openOnClass:self andSelector:#defaultIcon3
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8099	Icon flushCachedIcons
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8100	"
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8101
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8102	<resource: #image>
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8103
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8104	^Icon
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8105	constantNamed:#'AbstractSettingsApplication::STCCompilerSettingsAppl class defaultIcon3'
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	8106	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	8107	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	8108	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	8109	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	8110	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	8111	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	8112	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	8113	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	8114	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8115
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8116	!AbstractSettingsApplication::STCCompilerSettingsAppl class methodsFor:'interface specs'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8117
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8118	windowSpec
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8119	"This resource specification was automatically generated
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8120	by the UIPainter of ST/X."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8121
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8122	"Do not manually edit this!! If it is corrupted,
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8123	the UIPainter may not be able to read the specification."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8124
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8125	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8126	UIPainter new openOnClass:AbstractSettingsApplication::STCCompilerSettingsAppl andSelector:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8127	AbstractSettingsApplication::STCCompilerSettingsAppl new openInterface:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8128	AbstractSettingsApplication::STCCompilerSettingsAppl open
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8129	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8130
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8131	<resource: #canvas>
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8132
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8133	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8134	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8135	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8136	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8137	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8138	label: 'STC Compiler Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8139	name: 'STC Compiler Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8140	min: (Point 10 10)
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	8141	bounds: (Rectangle 0 0 600 407)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8142	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8143	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8144	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8145	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8146	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8147	name: 'VerticalPanel2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8148	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	8149	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8150	verticalLayout: top
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8151	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8152	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8153	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8154	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8155	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8156	(ViewSpec
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8157	name: 'SeparatingBox12'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	8158	extent: (Point 600 4)
a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	8159	)
a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	8160	(ViewSpec
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8161	name: 'STCCompilationBox11'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8162	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8163	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8164	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8165	(LabelSpec
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	8166	label: 'STC Compilation to Machine Code:'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8167	name: 'Label11'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8168	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	8169	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8170	adjust: right
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8171	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8172	(PopUpListSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8173	label: 'PopUp List'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8174	name: 'StcCompilation'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8175	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	8176	tabable: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8177	model: stcCompilationSelection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8178	enableChannel: canLoadBinaries
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8179	menu: stcCompilationList
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8180	useIndex: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8181	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8182	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8183
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8184	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8185	extent: (Point 600 29)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8186	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8187	(ViewSpec
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8188	name: 'STCCommandBox1'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8189	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8190	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8191	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8192	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8193	label: 'STC Command:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8194	name: 'Label1'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	8195	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	8196	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8197	adjust: right
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8198	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8199	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8200	name: 'EntryField1'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	8201	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	8202	enableChannel: canLoadBinaries
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8203	model: stc
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8204	acceptOnLeave: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8205	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8206	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8207	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8208	acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8209	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8210	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8211
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8212	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8213	extent: (Point 600 35)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8214	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8215	(ViewSpec
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8216	name: 'STCOptionsBox2'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8217	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8218	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8219	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8220	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8221	label: 'STC Options:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8222	name: 'Label2'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	8223	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	8224	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8225	adjust: right
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8226	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8227	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8228	name: 'EntryField2'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	8229	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	8230	enableChannel: canLoadBinaries
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8231	model: stcOptions
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8232	acceptOnLeave: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8233	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8234	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8235	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8236	acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8237	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8238	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8239
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8240	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8241	extent: (Point 600 35)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8242	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8243	(ViewSpec
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8244	name: 'CCCommandBox3'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8245	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8246	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8247	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8248	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8249	label: 'CC Command:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8250	name: 'Label3'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	8251	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	8252	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8253	adjust: right
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8254	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8255	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8256	name: 'EntryField3'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	8257	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	8258	enableChannel: canLoadBinaries
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8259	model: cc
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8260	acceptOnLeave: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8261	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8262	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8263	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8264	acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8265	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8266	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8267
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8268	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8269	extent: (Point 600 35)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8270	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8271	(ViewSpec
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8272	name: 'CCOptionsBox4'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8273	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8274	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8275	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8276	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8277	label: 'CC Options:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8278	name: 'Label4'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	8279	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	8280	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8281	adjust: right
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8282	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8283	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8284	name: 'EntryField4'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	8285	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	8286	enableChannel: canLoadBinaries
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8287	model: ccOptions
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8288	acceptOnLeave: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8289	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8290	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8291	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8292	acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8293	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8294	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8295
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8296	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8297	extent: (Point 600 35)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8298	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8299	(ViewSpec
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8300	name: 'IncludeDirectoriesBox5'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8301	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8302	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8303	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8304	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8305	label: 'Include Directories:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8306	name: 'Label5'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	8307	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	8308	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8309	adjust: right
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8310	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8311	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8312	name: 'EntryField5'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	8313	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	8314	enableChannel: canLoadBinaries
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8315	model: stcIncludes
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8316	acceptOnLeave: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8317	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8318	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8319	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8320	acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8321	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8322	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8323
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8324	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8325	extent: (Point 600 35)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8326	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8327	(ViewSpec
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8328	name: 'STCDefinesBox6'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8329	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8330	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8331	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8332	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8333	label: 'Defines:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8334	name: 'Label6'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	8335	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	8336	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8337	adjust: right
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8338	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8339	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8340	name: 'EntryField6'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	8341	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	8342	enableChannel: canLoadBinaries
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8343	model: stcDefines
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8344	acceptOnLeave: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8345	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8346	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8347	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8348	acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8349	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8350	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8351
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8352	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8353	extent: (Point 600 34)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8354	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8355	(ViewSpec
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8356	name: 'LinkCommandBox7'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8357	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8358	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8359	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8360	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8361	label: 'Link Command:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8362	name: 'Label7'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	8363	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	8364	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8365	adjust: right
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8366	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8367	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8368	name: 'EntryField7'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	8369	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	8370	enableChannel: canLoadBinaries
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8371	model: linkCommand
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8372	acceptOnLeave: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8373	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8374	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8375	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8376	acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8377	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8378	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8379
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8380	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8381	extent: (Point 600 33)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8382	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8383	(ViewSpec
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8384	name: 'LinkArgumentsBox8'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8385	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8386	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8387	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8388	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8389	label: 'Link Arguments:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8390	name: 'Label8'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	8391	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	8392	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8393	adjust: right
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8394	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8395	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8396	name: 'EntryField8'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	8397	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	8398	enableChannel: canLoadBinaries
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8399	model: linkArgs
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8400	acceptOnLeave: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8401	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8402	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8403	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8404	acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8405	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8406	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8407
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8408	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8409	extent: (Point 600 32)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8410	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8411	(ViewSpec
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8412	name: 'LinkSharedArgumentsBox1'
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8413	component:
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8414	(SpecCollection
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8415	collection: (
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8416	(LabelSpec
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8417	label: 'Link Shared Arguments:'
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8418	name: 'Label12'
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8419	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	8420	translateLabel: true
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8421	adjust: right
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8422	)
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8423	(InputFieldSpec
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8424	name: 'EntryField11'
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8425	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	8426	enableChannel: canLoadBinaries
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8427	model: linkSharedArgs
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8428	acceptOnLeave: true
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8429	acceptOnReturn: true
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8430	acceptOnTab: true
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8431	acceptOnLostFocus: true
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8432	acceptOnPointerLeave: true
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8433	)
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8434	)
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8435
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8436	)
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8437	extent: (Point 600 31)
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8438	)
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8439	(ViewSpec
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8440	name: 'CLibrariesBox9'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8441	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8442	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8443	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8444	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8445	label: 'C-Libraries:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8446	name: 'Label9'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	8447	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	8448	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8449	adjust: right
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8450	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8451	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8452	name: 'EntryField9'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	8453	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	8454	enableChannel: canLoadBinaries
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8455	model: stcLibraries
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8456	acceptOnLeave: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8457	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8458	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8459	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8460	acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8461	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8462	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8463
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8464	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8465	extent: (Point 600 31)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8466	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8467	(ViewSpec
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8468	name: 'STCLibraryPathBox10'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8469	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8470	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8471	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8472	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8473	label: 'STC Library Path:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8474	name: 'Label10'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	8475	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	8476	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8477	adjust: right
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8478	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8479	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8480	name: 'EntryField10'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	8481	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	8482	enableChannel: enableStcLibraryPath
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8483	model: stcLibraryPath
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8484	acceptOnLeave: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8485	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8486	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8487	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8488	acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8489	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8490	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8491
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8492	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8493	extent: (Point 600 30)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8494	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8495	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8496
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8497	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8498	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8499	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8500
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8501	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8502	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8503	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8504
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8505	!AbstractSettingsApplication::STCCompilerSettingsAppl methodsFor:'actions'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8506
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8507	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8508
6536 aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	8509	ParserFlags stcCompilation:(self class stcCompilationOptions at:self stcCompilationSelection value).
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	8510	ParserFlags stcCompilationIncludes:self stcIncludes value.
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	8511	ParserFlags stcCompilationDefines:self stcDefines value.
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	8512	ParserFlags stcCompilationOptions:self stcOptions value.
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	8513	ParserFlags ccCompilationOptions:self ccOptions value.
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	8514	ParserFlags ccPath:self cc value.
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	8515	self stc value ~= ParserFlags stcPath ifTrue:[
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	8516	ParserFlags stcPath:self stc value
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	8517	].
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	8518	ParserFlags linkCommand:self linkCommand value.
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	8519	ParserFlags linkArgs:self linkArgs value.
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8520	ObjectFileLoader linkSharedArgs:self linkSharedArgs value.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8521	ObjectFileLoader notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8522	self stcLibraries value notNil ifTrue:[
6536 aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	8523	ParserFlags searchedLibraries:(self stcLibraries value asCollectionOfWords).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8524	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8525	stcLibraryPath notNil ifTrue:[
6536 aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	8526	ParserFlags libPath:(self stcLibraryPath value).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8527	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8528	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8529	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8530
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	8531	helpFilename
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	8532	^ 'Launcher/compilerSettings.html'
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8533	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8534
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8535	readSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8536	self canLoadBinaries
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8537	value:(ObjectFileLoader notNil and:[ObjectFileLoader canLoadObjectFiles]).
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8538
6536 aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	8539	self stcIncludes value:ParserFlags stcCompilationIncludes.
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	8540	self stcDefines value:ParserFlags stcCompilationDefines.
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	8541	self stcOptions value:ParserFlags stcCompilationOptions.
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	8542	self ccOptions value:ParserFlags ccCompilationOptions.
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	8543	self cc value:ParserFlags ccPath.
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	8544	self stc value:ParserFlags stcPath.
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8545
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8546	ObjectFileLoader notNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8547	\|t\|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8548
6536 aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	8549	self linkCommand value:ParserFlags linkCommand.
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	8550	self linkArgs value:ParserFlags linkArgs.
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8551	self linkSharedArgs value:ObjectFileLoader linkSharedArgs.
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8552
6536 aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	8553	(t := ParserFlags searchedLibraries) notNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8554	self stcLibraries value:(String fromStringCollection:t separatedBy:' ')
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8555	].
6536 aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	8556	(t := ParserFlags libPath) notNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8557	self stcLibraryPath value:t
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8558	]
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8559	].
5278 67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	8560
67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	8561	self stcCompilationSelection value:(self class stcCompilationOptions
6536 aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	8562	indexOf:(ParserFlags stcCompilation)
5278 67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	8563	ifAbsent:1).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8564	self modifiedChannel value:false
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8565	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8566
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8567	!AbstractSettingsApplication::STCCompilerSettingsAppl methodsFor:'aspects'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8568
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8569	canLoadBinaries
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8570
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8571	canLoadBinaries isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8572	canLoadBinaries := (ObjectFileLoader notNil and:[ObjectFileLoader canLoadObjectFiles]) asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8573	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8574	^ canLoadBinaries.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8575	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8576
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8577	cc
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8578
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8579	cc isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8580	cc := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	8581	cc onChangeSend:#updateModifiedChannel to:self.
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8582	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8583	^ cc.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8584	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8585
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8586	ccOptions
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	ccOptions isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8589	ccOptions := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	8590	ccOptions onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8591	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8592	^ ccOptions.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8593	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8594
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8595	enableStcLibraryPath
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8596
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8597	^ (ObjectFileLoader libPath notNil and:[self canLoadBinaries])
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8598	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8599
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8600	linkArgs
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8601
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8602	linkArgs isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8603	linkArgs := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	8604	linkArgs onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8605	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8606	^ linkArgs.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8607	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8608
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8609	linkCommand
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8610
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8611	linkCommand isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8612	linkCommand := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	8613	linkCommand onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8614	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8615	^ linkCommand.
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
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8618	linkSharedArgs
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8619
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8620	linkSharedArgs isNil ifTrue:[
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8621	linkSharedArgs := ValueHolder new.
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8622	linkSharedArgs onChangeSend:#updateModifiedChannel to:self.
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8623	].
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8624	^ linkSharedArgs.
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8625	!
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	8626
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8627	stc
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8628
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8629	stc isNil ifTrue:[
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8630	stc := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	8631	stc onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8632	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8633	^ stc.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8634	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8635
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8636	stcCompilationList
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8637
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8638	stcCompilationList isNil ifTrue:[
5278 67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	8639	stcCompilationList := (resources array:(self class stcCompilationStrings)) asList.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8640	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8641	^ stcCompilationList.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8642	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8643
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8644	stcCompilationSelection
4387 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	stcCompilationSelection isNil ifTrue:[
6536 aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	8647	stcCompilationSelection := (self class stcCompilationOptions indexOf:(ParserFlags stcCompilation) ifAbsent:1) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	8648	stcCompilationSelection onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8649	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8650	^ stcCompilationSelection.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8651	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8652
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8653	stcDefines
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8654
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8655	stcDefines isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8656	stcDefines := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	8657	stcDefines onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8658	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8659	^ stcDefines.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8660	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8661
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8662	stcIncludes
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8663
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8664	stcIncludes isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8665	stcIncludes := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	8666	stcIncludes onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8667	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8668	^ stcIncludes.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8669	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8670
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8671	stcLibraries
4387 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	stcLibraries isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8674	stcLibraries := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	8675	stcLibraries onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8676	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8677	^ stcLibraries.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8678	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8679
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8680	stcLibraryPath
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8681
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8682	stcLibraryPath isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8683	stcLibraryPath := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	8684	stcLibraryPath onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8685	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8686	^ stcLibraryPath.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8687	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8688
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8689	stcOptions
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8690
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8691	stcOptions isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8692	stcOptions := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	8693	stcOptions onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8694	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8695	^ stcOptions.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8696	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8697
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8698	!AbstractSettingsApplication::STCCompilerSettingsAppl methodsFor:'queries'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8699
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8700	hasUnsavedChanges
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8701	\| searchedLibs \|
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8702
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8703	searchedLibs := ObjectFileLoader searchedLibraries.
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8704
6536 aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	8705	((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	8706	((ObjectFileLoader notNil and:[ObjectFileLoader canLoadObjectFiles]) ~= self canLoadBinaries value ) ifTrue:[^ true].
6536 aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	8707	((ParserFlags stcCompilationIncludes) ~= self stcIncludes value) ifTrue:[^ true].
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	8708	((ParserFlags stcCompilationDefines) ~= self stcDefines value) ifTrue:[^ true].
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	8709	((ParserFlags stcCompilationOptions) ~= self stcOptions value) ifTrue:[^ true].
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	8710	((ParserFlags ccCompilationOptions) ~= self ccOptions value) ifTrue:[^ true].
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	8711	((ParserFlags ccPath) ~= self cc value) ifTrue:[^ true].
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	8712	((ParserFlags stcPath) ~= self stc value) ifTrue:[^ true].
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	8713	((ParserFlags linkCommand) ~= self linkCommand value) ifTrue:[^ true].
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	8714	((ParserFlags linkArgs) ~= self linkArgs value) ifTrue:[^ true].
6345 9dc72d1766af * empty log message * Claus Gittinger <cg@exept.de> parents: 6343 diff changeset	8715	((ObjectFileLoader linkSharedArgs) ~= self linkSharedArgs value) ifTrue:[^ true].
6536 aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	8716	(ParserFlags libPath ~= self stcLibraryPath value) ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8717
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8718	ObjectFileLoader notNil ifTrue:[
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8719	searchedLibs notNil ifTrue:[
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8720	(String fromStringCollection:searchedLibs separatedBy:' ') ~= self stcLibraries value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8721	].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8722	].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8723	^ false.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8724	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8725
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8726	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl class methodsFor:'defaults'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8727
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8728	exampleText
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8729
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8730	^ 'methodSelector:methodArg
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8731	"method comment:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8732	some stupid code to show the current settings"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8733
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8734	\|index\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8735
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8736	"/ another comment ...
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8737	self at:index+1. "/ a message
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8738	self at:index put:methodArg. "/ a two arg message
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8739	self from:1 to:index put:methodArg. "/ a three arg message
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8740	methodArg ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8741	Transcript showCR:''hello''. "/ condition
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8742	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8743	methodArg ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8744	Transcript showCR:''hello''. "/ condition
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8745	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8746	Transcript showCR:''world''.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8747	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8748	[methodArg] whileTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8749	Transcript showCR:''hello''. "/ looping
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8750	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8751	[self aVeryLongConditionBlock and:[self toMakeBlockLonger]] whileTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8752	Transcript showCR:''hello''. "/ long blocks
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8753	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8754	methodArg do:[:element \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8755	Transcript showCR:''hello''. "/ looping
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8756	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8757	1 to:methodArg size do:[:index \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8758	Transcript showCR:''hello''. "/ looping
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8759	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8760	methodArg keysAndValuesDo:[:index \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8761	Transcript showCR:''hello''. "/ looping
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8762	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8763	Object errorSignal handle:[:ex \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8764	ex return
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8765	] do:[ "/ exception handling
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8766	self someAction "/ blocks
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8767	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8768	^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8769	'.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8770	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8771
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8772	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl class methodsFor:'image specs'!
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8773
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8774	defaultIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8775	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8776	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8777
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8778	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8779	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8780
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8781	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8782	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8783	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8784	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8785	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8786
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8787	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8788
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8789	^Icon
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	8790	constantNamed:#'AbstractSettingsApplication::SourceCodeFormatSettingsAppl class defaultIcon'
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	8791	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	8792	*****************************("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	8793	!!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	8794	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	8795	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8796
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8797	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl class methodsFor:'interface specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8798
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8799	windowSpec
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8800	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8801	by the UIPainter of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8802
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8803	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8804	the UIPainter may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8805
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8806	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8807	UIPainter new openOnClass:AbstractSettingsApplication::SourceCodeFormatSettingsAppl andSelector:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8808	AbstractSettingsApplication::SourceCodeFormatSettingsAppl new openInterface:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8809	AbstractSettingsApplication::SourceCodeFormatSettingsAppl open
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8810	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8811
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8812	<resource: #canvas>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8813
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8814	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8815	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8816	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8817	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8818	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8819	label: 'Code Format Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8820	name: 'Code Format Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8821	min: (Point 10 10)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8822	bounds: (Rectangle 0 0 604 676)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8823	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8824	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8825	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8826	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8827	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8828	name: 'VerticalPanel3'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8829	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	8830	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8831	verticalLayout: topSpace
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8832	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8833	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8834	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8835	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8836	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8837	(VerticalPanelViewSpec
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8838	name: 'VerticalPanel1'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8839	horizontalLayout: fit
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8840	verticalLayout: bottom
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8841	horizontalSpace: 3
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8842	verticalSpace: 3
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8843	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8844	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8845	collection: (
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8846	(ViewSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8847	name: 'Box1'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8848	component:
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8849	(SpecCollection
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8850	collection: (
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8851	(CheckBoxSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8852	label: 'Space around Temporaries'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8853	name: 'CheckBox3'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8854	layout: (LayoutFrame 0 0 0 0 250 0 22 0)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8855	model: spaceAroundTemporaries
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8856	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8857	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8858	(CheckBoxSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8859	label: 'Blank line after local Var Declaration'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8860	name: 'CheckBox4'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8861	layout: (LayoutFrame 250 0 0 0 0 1 22 0)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8862	model: emptyLineAfterTemporaries
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8863	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8864	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8865	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8866
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8867	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8868	extent: (Point 604 22)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8869	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8870	(ViewSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8871	name: 'Box11'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8872	component:
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8873	(SpecCollection
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8874	collection: (
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8875	(CheckBoxSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8876	label: 'Space after ''^'''
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8877	name: 'CheckBox5'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8878	layout: (LayoutFrame 0 0 0 0 250 0 22 0)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8879	model: spaceAfterReturnToken
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8880	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8881	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8882	(CheckBoxSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8883	label: 'Space after '':'' in Keywords'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8884	name: 'CheckBox6'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8885	layout: (LayoutFrame 250 0 0 0 -5 1 22 0)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8886	model: spaceAfterKeywordSelector
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8887	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8888	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8889	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8890
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8891	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8892	extent: (Point 604 22)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8893	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8894	(ViewSpec
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8895	name: 'Box15'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8896	component:
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8897	(SpecCollection
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8898	collection: (
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8899	(CheckBoxSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8900	label: 'Space after ''['''
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8901	name: 'CheckBox9'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8902	layout: (LayoutFrame 0 0 0 0 250 0 22 0)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8903	model: spaceAfterBlockStart
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8904	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8905	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8906	(CheckBoxSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8907	label: 'Space before '']'''
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8908	name: 'CheckBox10'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8909	layout: (LayoutFrame 250 0 0 0 -5 1 22 0)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8910	model: spaceBeforeBlockEnd
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8911	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8912	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8913	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8914
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8915	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8916	extent: (Point 604 22)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8917	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8918	(ViewSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8919	name: 'Box12'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8920	component:
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8921	(SpecCollection
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8922	collection: (
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8923	(CheckBoxSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8924	label: 'Block Args on new Line'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8925	name: 'CheckBox7'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8926	layout: (LayoutFrame 250 0 0 0 -5 1 22 0)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8927	model: blockArgumentsOnNewLine
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8928	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8929	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8930	(CheckBoxSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8931	label: 'C-Style Blocks'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8932	name: 'CheckBox8'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8933	layout: (LayoutFrame 0 0 0 0 250 0 22 0)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8934	model: cStyleBlocks
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8935	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8936	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8937	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8938
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8939	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8940	extent: (Point 604 22)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8941	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8942	(ViewSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8943	name: 'Box13'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8944	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8945	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8946	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8947	(LabelSpec
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8948	label: 'Indent:'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8949	name: 'Label1'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8950	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	8951	translateLabel: true
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8952	adjust: right
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8953	)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8954	(InputFieldSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8955	name: 'EntryField1'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8956	layout: (LayoutFrame 253 0 0 0 300 0 22 0)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8957	model: tabIndent
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8958	type: number
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8959	acceptOnReturn: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8960	acceptOnTab: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8961	acceptOnLostFocus: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8962	acceptOnPointerLeave: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8963	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8964	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8965
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8966	)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8967	extent: (Point 604 30)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8968	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8969	(ViewSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8970	name: 'Box16'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8971	component:
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8972	(SpecCollection
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8973	collection: (
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8974	(LabelSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8975	label: 'Max Length for Single Line Blocks:'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8976	name: 'Label5'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8977	layout: (LayoutFrame 0 0 0 0 250 0 22 0)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8978	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8979	adjust: right
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8980	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8981	(InputFieldSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8982	name: 'EntryField4'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8983	layout: (LayoutFrame 253 0 0 0 300 0 22 0)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8984	model: maxLengthForSingleLineBlocks
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8985	type: number
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8986	acceptOnReturn: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8987	acceptOnTab: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8988	acceptOnLostFocus: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8989	acceptOnPointerLeave: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8990	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8991	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8992
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8993	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8994	extent: (Point 604 29)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8995	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8996	(HorizontalPanelViewSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8997	name: 'HorizontalPanel1'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	8998	horizontalLayout: fitSpace
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8999	verticalLayout: bottom
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9000	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9001	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9002	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9003	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9004	collection: (
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9005	(ActionButtonSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9006	label: 'Reset to ST/X Default'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9007	name: 'Button1'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9008	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9009	model: resetToStxDefault
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9010	extent: (Point 297 22)
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9011	)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9012	(ActionButtonSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9013	label: 'Reset to RefactoryBrowser Default'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9014	name: 'Button2'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9015	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9016	model: resetToRBDefault
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9017	extent: (Point 298 22)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9018	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9019	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9020
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9021	)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9022	extent: (Point 604 30)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9023	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9024	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9025
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9026	)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9027	extent: (Point 604 180)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9028	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9029	(ViewSpec
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	9030	name: 'SpacingBox1'
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	9031	extent: (Point 604 10)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9032	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9033	(ViewSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9034	name: 'Box14'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9035	component:
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9036	(SpecCollection
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9037	collection: (
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9038	(LabelSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9039	label: 'Sample Output:'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9040	name: 'Label3'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9041	layout: (LayoutFrame 0 0 0 0 0 1 22 0)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9042	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9043	adjust: left
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9044	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9045	(TextEditorSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9046	name: 'TextEditor3'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9047	layout: (LayoutFrame 0 0 22 0 0 1 300 0)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9048	model: editorText
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9049	hasHorizontalScrollBar: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9050	hasVerticalScrollBar: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9051	isReadOnly: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9052	postBuildCallback: postBuildTextEditor:
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9053	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9054	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9055
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9056	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9057	extent: (Point 604 300)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9058	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9059	(ViewSpec
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	9060	name: 'SpacingBox2'
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	9061	extent: (Point 604 10)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9062	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9063	(CheckBoxSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9064	label: 'Auto Format'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9065	name: 'CheckBox2'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9066	model: autoFormat
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9067	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9068	extent: (Point 604 22)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9069	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9070	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9071
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9072	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9073	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9074	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9075
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9076	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9077	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9078	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9079
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9080	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'actions'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9081
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9082	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9083
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9084	currentUserPrefs autoFormatting:self autoFormat value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9085	currentUserPrefs at:#'formatter.tabIndent' put:self tabIndent value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9086	currentUserPrefs at:#'formatter.spaceAroundTemporaries' put:self spaceAroundTemporaries value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9087	currentUserPrefs at:#'formatter.emptyLineAfterTemporaries' put:self emptyLineAfterTemporaries value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9088	currentUserPrefs at:#'formatter.spaceAfterReturnToken' put:self spaceAfterReturnToken value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9089	currentUserPrefs at:#'formatter.spaceAfterKeywordSelector' put:self spaceAfterKeywordSelector value.
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9090	currentUserPrefs at:#'formatter.spaceAfterBlockStart' put:self spaceAfterBlockStart value.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9091	currentUserPrefs at:#'formatter.spaceBeforeBlockEnd' put:self spaceBeforeBlockEnd value.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9092	currentUserPrefs at:#'formatter.cStyleBlocks' put:self cStyleBlocks value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9093	currentUserPrefs at:#'formatter.blockArgumentsOnNewLine' put:self blockArgumentsOnNewLine value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9094	currentUserPrefs at:#'formatter.maxLengthForSingleLineBlocks' put:self maxLengthForSingleLineBlocks value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9095	RBFormatter
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9096	tabIndent:self tabIndent value;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9097	spaceAroundTemporaries:self spaceAroundTemporaries value;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9098	emptyLineAfterTemporaries:self emptyLineAfterTemporaries value;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9099	spaceAfterReturnToken:self spaceAfterReturnToken value;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9100	spaceAfterKeywordSelector:self spaceAfterKeywordSelector value;
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9101	spaceAfterBlockStart:self spaceAfterBlockStart value;
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9102	spaceBeforeBlockEnd:self spaceBeforeBlockEnd value;
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9103	cStyleBlocks:self cStyleBlocks value;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9104	blockArgumentsOnNewLine:self blockArgumentsOnNewLine value;
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	9105	maxLengthForSingleLineBlocks:self maxLengthForSingleLineBlocks value asInteger.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9106	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9107
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	9108	helpFilename
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	9109	^ 'Launcher/sourceFormatSettings.html'
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9110	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9111
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9112	readSettings
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9113	reformatLocked := true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9114	self autoFormat value:currentUserPrefs autoFormatting.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9115	self tabIndent value:RBFormatter tabIndent.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9116	self spaceAroundTemporaries value:RBFormatter spaceAroundTemporaries.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9117	self emptyLineAfterTemporaries
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	9118	value:RBFormatter emptyLineAfterTemporaries.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9119	self spaceAfterReturnToken value:RBFormatter spaceAfterReturnToken.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9120	self spaceAfterKeywordSelector
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	9121	value:RBFormatter spaceAfterKeywordSelector.
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9122	self spaceAfterBlockStart value:RBFormatter spaceAfterBlockStart.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9123	self spaceBeforeBlockEnd value:RBFormatter spaceBeforeBlockEnd.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9124	self cStyleBlocks value:RBFormatter cStyleBlocks.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9125	self blockArgumentsOnNewLine value:RBFormatter blockArgumentsOnNewLine.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9126	self maxLengthForSingleLineBlocks
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	9127	value:RBFormatter maxLengthForSingleLineBlocks.
c72e35116b13 instable state penk parents: 5040 diff changeset	9128	self updateModifiedChannel.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9129	reformatLocked := false.
4581 d61fec7a9e4f * empty log message * penk parents: 4574 diff changeset	9130	self reformat.
d61fec7a9e4f * empty log message * penk parents: 4574 diff changeset	9131	self modifiedChannel value:false
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9132	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9133
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9134	reformat
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9135
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9136	\|tree s_tabIndent s_spaceAroundTemporaries s_emptyLineAfterTemporaries
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9137	s_spaceAfterReturnToken s_spaceAfterKeywordSelector s_cStyleBlocks
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9138	s_maxLengthForSingleLineBlocks s_blockArgumentsOnNewLine
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9139	s_spaceAfterBlockStart s_spaceBeforeBlockEnd\|
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9140
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9141	reformatLocked ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9142	"/
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9143	"/ temporary change the RBFormatters settings ...
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9144	"/
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9145	s_tabIndent := RBFormatter tabIndent.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9146	s_spaceAroundTemporaries := RBFormatter spaceAroundTemporaries.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9147	s_emptyLineAfterTemporaries := RBFormatter emptyLineAfterTemporaries.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9148	s_spaceAfterReturnToken := RBFormatter spaceAfterReturnToken.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9149	s_spaceAfterKeywordSelector := RBFormatter spaceAfterKeywordSelector.
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9150	s_spaceAfterBlockStart := RBFormatter spaceAfterBlockStart.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9151	s_spaceBeforeBlockEnd := RBFormatter spaceBeforeBlockEnd.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9152	s_cStyleBlocks := RBFormatter cStyleBlocks.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9153	s_blockArgumentsOnNewLine := RBFormatter blockArgumentsOnNewLine.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9154	s_maxLengthForSingleLineBlocks := RBFormatter maxLengthForSingleLineBlocks.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9155
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9156	RBFormatter
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9157	tabIndent:self tabIndent value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9158	spaceAroundTemporaries:self spaceAroundTemporaries value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9159	emptyLineAfterTemporaries:self emptyLineAfterTemporaries value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9160	spaceAfterReturnToken:self spaceAfterReturnToken value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9161	spaceAfterKeywordSelector:self spaceAfterKeywordSelector value;
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9162	spaceAfterBlockStart:self spaceAfterBlockStart value;
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9163	spaceBeforeBlockEnd:self spaceBeforeBlockEnd value;
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9164	cStyleBlocks:self cStyleBlocks value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9165	blockArgumentsOnNewLine:self blockArgumentsOnNewLine value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9166	maxLengthForSingleLineBlocks:self maxLengthForSingleLineBlocks value.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9167
5076 c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	9168	"/ tree := RBParser
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	9169	"/ parseMethod:self class exampleText
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	9170	"/ onError: [:aString :position \| nil].
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	9171	"/ tree do:[:node \|
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	9172	"/ (node ~~ tree and:[node parent isNil]) ifTrue:[
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	9173	"/ self error:'No parent for node'.
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	9174	"/ ]
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	9175	"/ ].
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	9176	"/ self editorText value:tree printString.
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	9177	self editorText value:(RBFormatter format:(self class exampleText)).
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9178
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9179	RBFormatter
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9180	tabIndent:s_tabIndent;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9181	spaceAroundTemporaries:s_spaceAroundTemporaries;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9182	emptyLineAfterTemporaries:s_emptyLineAfterTemporaries;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9183	spaceAfterReturnToken:s_spaceAfterReturnToken;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9184	spaceAfterKeywordSelector:s_spaceAfterKeywordSelector;
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9185	spaceAfterBlockStart:s_spaceAfterBlockStart;
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9186	spaceBeforeBlockEnd:s_spaceBeforeBlockEnd;
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9187	cStyleBlocks:s_cStyleBlocks;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9188	blockArgumentsOnNewLine:s_blockArgumentsOnNewLine;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9189	maxLengthForSingleLineBlocks:s_maxLengthForSingleLineBlocks.
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	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9192
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9193	resetToRBDefault
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9194
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9195	reformatLocked := true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9196	self tabIndent value: 8.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9197	self spaceAfterReturnToken value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9198	self spaceAfterKeywordSelector value:true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9199	self spaceAroundTemporaries value:true.
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9200	self spaceAfterBlockStart value:true.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9201	self spaceBeforeBlockEnd value:true.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9202	self emptyLineAfterTemporaries value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9203	self cStyleBlocks value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9204	self blockArgumentsOnNewLine value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9205	self maxLengthForSingleLineBlocks value: 20.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9206	reformatLocked := false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9207	self reformat.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9208	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9209
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9210	resetToStxDefault
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9211
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9212	reformatLocked := true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9213	self tabIndent value: 4.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9214	self spaceAfterReturnToken value: true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9215	self spaceAfterKeywordSelector value: false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9216	self spaceAroundTemporaries value: false.
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9217	self spaceAfterBlockStart value:false.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9218	self spaceBeforeBlockEnd value:false.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9219	self emptyLineAfterTemporaries value: true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9220	self cStyleBlocks value: true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9221	self blockArgumentsOnNewLine value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9222	self maxLengthForSingleLineBlocks value: 20.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9223	reformatLocked := false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9224	self reformat.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9225	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9226
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9227	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'aspects'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9228
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9229	autoFormat
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9230
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9231	autoFormat isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9232	autoFormat := currentUserPrefs autoFormatting asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	9233	autoFormat onChangeSend:#updateModifiedChannel to:self
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9234	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9235	^ autoFormat.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9236	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9237
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9238	blockArgumentsOnNewLine
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9239
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9240	blockArgumentsOnNewLine isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9241	blockArgumentsOnNewLine := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9242	blockArgumentsOnNewLine addDependent:self.
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	^ blockArgumentsOnNewLine.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9245	!
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	cStyleBlocks
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9248
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9249	cStyleBlocks isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9250	cStyleBlocks := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9251	cStyleBlocks addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9252	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9253	^ cStyleBlocks.
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
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9256	editorText
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9257
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9258	editorText isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9259	editorText := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9260	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9261	^ editorText.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9262	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9263
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9264	emptyLineAfterTemporaries
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9265
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9266	emptyLineAfterTemporaries isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9267	emptyLineAfterTemporaries := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9268	emptyLineAfterTemporaries addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9269	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9270	^ emptyLineAfterTemporaries.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9271	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9272
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9273	maxLengthForSingleLineBlocks
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9274
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9275	maxLengthForSingleLineBlocks isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9276	maxLengthForSingleLineBlocks := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9277	maxLengthForSingleLineBlocks addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9278	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9279	^ maxLengthForSingleLineBlocks.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9280	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9281
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9282	spaceAfterBlockStart
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9283
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9284	spaceAfterBlockStart isNil ifTrue:[
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9285	spaceAfterBlockStart := true asValue.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9286	spaceAfterBlockStart addDependent:self.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9287	].
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9288	^ spaceAfterBlockStart.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9289	!
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9290
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9291	spaceAfterKeywordSelector
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9292
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9293	spaceAfterKeywordSelector isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9294	spaceAfterKeywordSelector := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9295	spaceAfterKeywordSelector addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9296	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9297	^ spaceAfterKeywordSelector.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9298	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9299
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9300	spaceAfterReturnToken
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9301
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9302	spaceAfterReturnToken isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9303	spaceAfterReturnToken := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9304	spaceAfterReturnToken addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9305	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9306	^ spaceAfterReturnToken.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9307	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9308
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9309	spaceAroundTemporaries
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9310
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9311	spaceAroundTemporaries isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9312	spaceAroundTemporaries := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9313	spaceAroundTemporaries addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9314	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9315	^ spaceAroundTemporaries.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9316	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9317
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9318	spaceBeforeBlockEnd
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9319
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9320	spaceBeforeBlockEnd isNil ifTrue:[
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9321	spaceBeforeBlockEnd := true asValue.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9322	spaceBeforeBlockEnd addDependent:self.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9323	].
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9324	^ spaceBeforeBlockEnd.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9325	!
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9326
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9327	tabIndent
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9328
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9329	tabIndent isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9330	tabIndent := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9331	tabIndent addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9332	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9333	^ tabIndent.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9334	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9335
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9336	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'change & update'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9337
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	9338	update:something with:aParameter from:changedObject
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9339	(changedObject == self blockArgumentsOnNewLine or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9340	changedObject == self cStyleBlocks or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9341	changedObject == self emptyLineAfterTemporaries or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9342	changedObject == self maxLengthForSingleLineBlocks or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9343	changedObject == self spaceAfterKeywordSelector or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9344	changedObject == self spaceAfterReturnToken or:[
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9345	changedObject == self spaceAfterBlockStart or:[
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9346	changedObject == self spaceBeforeBlockEnd or:[
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9347	changedObject == self spaceAroundTemporaries or:[
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	9348	changedObject == self tabIndent]]]]]]]]]) ifTrue:[
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	9349	self updateModifiedChannel.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9350	self reformat.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	9351	^ self
c72e35116b13 instable state penk parents: 5040 diff changeset	9352	].
c72e35116b13 instable state penk parents: 5040 diff changeset	9353	super
c72e35116b13 instable state penk parents: 5040 diff changeset	9354	update:something
c72e35116b13 instable state penk parents: 5040 diff changeset	9355	with:aParameter
c72e35116b13 instable state penk parents: 5040 diff changeset	9356	from:changedObject
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9357	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9358
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9359	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'initialization & release'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9360
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9361	initialize
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9362	super initialize.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9363	RBFormatter isNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9364	^ self warn:'Sorry, no RBFormatter class'
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9365	].
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9366	RBFormatter isLoaded ifFalse:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9367	WindowGroup activeGroup withWaitCursorDo:[RBFormatter autoload]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9368	].
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9369	reformatLocked := false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9370	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9371
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9372	postBuildTextEditor:aWidget
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9373
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9374	aWidget cursorMovementWhenUpdating:nil;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9375	scrollWhenUpdating:nil.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9376	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9377
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9378	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'queries'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9379
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9380	hasUnsavedChanges
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	9381	self autoFormat value ~= currentUserPrefs autoFormatting ? false ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	9382	self tabIndent value ~= RBFormatter tabIndent ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	9383	self spaceAroundTemporaries value ~= RBFormatter spaceAroundTemporaries ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	9384	self emptyLineAfterTemporaries value ~= RBFormatter emptyLineAfterTemporaries ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	9385	self spaceAfterReturnToken value ~= RBFormatter spaceAfterReturnToken ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	9386	self spaceAfterKeywordSelector value ~= RBFormatter spaceAfterKeywordSelector ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	9387	self spaceAfterBlockStart value ~= RBFormatter spaceAfterBlockStart ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	9388	self spaceBeforeBlockEnd value ~= RBFormatter spaceBeforeBlockEnd ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	9389	self cStyleBlocks value ~= RBFormatter cStyleBlocks ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	9390	self blockArgumentsOnNewLine value ~= RBFormatter blockArgumentsOnNewLine ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	9391	self maxLengthForSingleLineBlocks value ~= RBFormatter maxLengthForSingleLineBlocks ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	9392	^ false
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9393	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9394
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9395	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9396
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9397	defaultIcon
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9398	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9399	by the ImageEditor of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9400
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9401	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9402	the ImageEditor may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9403
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9404	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9405	self defaultIcon inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9406	ImageEditor openOnClass:self andSelector:#defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9407	Icon flushCachedIcons
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9408	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9409
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9410	<resource: #image>
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	^Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9413	constantNamed:#'AbstractSettingsApplication::SourceCodeManagementSettingsAppl class defaultIcon'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9414	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	9415	@@@@@@@@@@@A@PHB@0P@@@@@@@@@@@@@@@@@@@HEA \HA $JB0HD@@@@@@@@@@@@@@HLA04NC0HD@@L@@ P@@@@@@@@@@@@ED@ NDP@@@@@@@@@D@@@@@@@@
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	9416	@@@BA \FAPP@@@@@@@@@@@P@@@@@@@@@AQ@RC0@@@@@@@@@@@@@@@@@@@@@@@@TGA!!DD@@@@@@@@@@@@@@@@@@@D@PDIA08OA@@@@@@@@@@@@@@@@@@@AP S
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	9417	A0XIBPXGC0P@@@@@@@@@@@@@@@@ECAPLBPXOAP@@@@@@EQX@@@@@@@@@@@TIE@XOAP@@@@@@EQ\XE @@@@@@@@@@AP$OAP@@@@@@FQ\ZE!! V@@@@@@@@@@@E
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	9418	F0@@@@@@EQ\ZF!!(VFAX@@@@@@@@@@@@@@@@ZEQ\VE!!(ZF!!XWF @@@@@@@@@@@@@@@@@@@A\ZE!!(@@@@@@@@@@@@@@@@@@@@@@@@XE!!XZ@@@@@@@@@@@@@@@@
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	9419	@@@@@@@@EQ(V@@@@@@@@@@@@@@@@@@@@@@@@EQ\VE @@@@@@@@@@@@@@@@@@@@@@EQ VE @@@@@@@@@@@@@@F @@@@@WEQ VE!!(@@@@@@@@@@@@@@@@@E!!\W
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	9420	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	9421	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9422
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9423	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl class methodsFor:'interface specs'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9424
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9425	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9426	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9427	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9428
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9429	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9430	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9431
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9432	"
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9433	UIPainter new openOnClass:AbstractSettingsApplication::SourceCodeManagementSettingsAppl andSelector:#windowSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9434	AbstractSettingsApplication::SourceCodeManagementSettingsAppl new openInterface:#windowSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9435	AbstractSettingsApplication::SourceCodeManagementSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9436	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9437
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9438	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9439
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9440	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9441	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9442	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9443	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9444	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9445	label: 'Source Code Manager Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9446	name: 'Source Code Manager Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9447	min: (Point 10 10)
6103 d8147b126f9d * empty log message * penk parents: 6086 diff changeset	9448	bounds: (Rectangle 0 0 659 551)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9449	)
5149 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: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9453	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9454	name: 'VerticalPanel2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9455	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	9456	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9457	verticalLayout: topSpace
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9458	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9459	verticalSpace: 20
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9460	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9461	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9462	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9463	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9464	name: 'VerticalPanel3'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9465	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9466	verticalLayout: top
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9467	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9468	verticalSpace: 10
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9469	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9470	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9471	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9472	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9473	name: 'Box3'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9474	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9475	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9476	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9477	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9478	label: 'Sourcecode Management'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9479	name: 'SourcecodeManagementCheckBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9480	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	9481	enableChannel: cvsIsSetup
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9482	model: useManager
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9483	translateLabel: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9484	)
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9485	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9486
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9487	)
6103 d8147b126f9d * empty log message * penk parents: 6086 diff changeset	9488	extent: (Point 659 30)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9489	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9490	(FramedBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9491	label: 'Source Code Manager Setup'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9492	name: 'FramedBox1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9493	labelPosition: topLeft
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9494	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9495	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9496	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9497	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9498	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9499	name: 'Box1'
6103 d8147b126f9d * empty log message * penk parents: 6086 diff changeset	9500	layout: (LayoutFrame 0 0 0 0 0 1 25 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9501	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9502	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9503	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9504	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9505	label: 'CVS BinDirectory:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9506	name: 'Label1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9507	layout: (LayoutFrame 0 0.0 0 0 40 0.25 22 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9508	level: 0
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9509	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9510	adjust: right
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9511	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9512	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9513	name: 'BinDirectoryField'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9514	layout: (LayoutFrame 44 0.25 0 0 -5 1 22 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9515	enableChannel: useManager
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9516	tabable: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9517	model: cvsBinDirectoryHolder
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9518	acceptChannel: acceptChannel
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9519	acceptOnPointerLeave: true
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9520	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9521	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9522
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9523	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9524	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9525	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9526	name: 'Box7'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9527	layout: (LayoutFrame 0 0.0 27 0 0 1 52 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9528	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9529	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9530	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9531	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9532	label: 'CVSRoot default:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9533	name: 'defaultCvsRootLabel'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9534	layout: (LayoutFrame 0 0.0 0 0 40 0.25 22 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9535	level: 0
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9536	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9537	adjust: right
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9538	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9539	(ComboBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9540	name: 'cvsRootComboBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9541	layout: (LayoutFrame 44 0.25 0 0 -5 1 22 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9542	enableChannel: useManager
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9543	tabable: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9544	model: cvsRootHolder
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9545	immediateAccept: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9546	acceptOnLeave: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9547	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9548	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9549	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9550	acceptChannel: acceptChannel
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9551	acceptOnPointerLeave: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9552	comboList: cvsRootPrototypeList
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9553	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9554	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9555
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9556	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9557	)
5343 eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9558	(HorizontalPanelViewSpec
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9559	name: 'HorizontalPanel3'
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9560	layout: (LayoutFrame 44 0.25 51 0 -1 1 82 0)
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9561	horizontalLayout: fitSpace
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9562	verticalLayout: center
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9563	horizontalSpace: 3
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9564	verticalSpace: 3
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9565	component:
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9566	(SpecCollection
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9567	collection: (
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9568	(ViewSpec
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9569	name: 'Box8'
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9570	extent: (Point 103 10)
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9571	)
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9572	(ViewSpec
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9573	name: 'Box9'
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9574	extent: (Point 103 10)
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9575	)
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9576	(ViewSpec
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9577	name: 'Box10'
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9578	extent: (Point 103 10)
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9579	)
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9580	(ActionButtonSpec
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9581	label: 'CVS-Login'
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9582	name: 'loginButton1'
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9583	translateLabel: true
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9584	tabable: true
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9585	model: loginCVSRoot
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9586	enableChannel: cvsLoginEnabled
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9587	extent: (Point 103 22)
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9588	)
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9589	)
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9590
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9591	)
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9592	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9593	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9594	label: 'CVSRoot per Module:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9595	name: 'knownModulesLabel'
5343 eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9596	layout: (LayoutFrame 0 0.0 82 0 40 0.25 104 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9597	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9598	adjust: right
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9599	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9600	(SequenceViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9601	name: 'List1'
5343 eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9602	layout: (LayoutFrame 44 0.25 82 0 -5 1 201 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9603	enableChannel: useManager
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9604	tabable: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9605	model: selectedPerModuleRoot
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9606	hasHorizontalScrollBar: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9607	hasVerticalScrollBar: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9608	miniScrollerHorizontal: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9609	useIndex: false
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9610	sequenceList: listOfModules
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9611	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9612	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9613	label: 'Module:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9614	name: 'moduleLabel'
5343 eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9615	layout: (LayoutFrame 0 0.0 211 0 40 0.25 228 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9616	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9617	adjust: right
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9618	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9619	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9620	name: 'perModuleRootModuleEntryField'
5343 eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9621	layout: (LayoutFrame 44 0.25 207 0 -5 1 229 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9622	enableChannel: useManager
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9623	tabable: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9624	model: perModuleRootModule
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9625	acceptChannel: acceptChannel
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9626	acceptOnPointerLeave: true
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9627	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9628	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9629	label: 'CVSRoot:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9630	name: 'cvsRootLabel'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9631	layout: (LayoutFrame 0 0.0 236 0 40 0.25 253 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9632	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9633	adjust: right
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9634	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9635	(ComboBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9636	name: 'perModuleRootComboBox'
5343 eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9637	layout: (LayoutFrame 44 0.25 232 0 -5 1.0 254 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9638	enableChannel: useManager
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9639	tabable: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9640	model: perModuleRoot
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9641	immediateAccept: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9642	acceptOnLeave: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9643	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9644	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9645	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9646	acceptChannel: acceptChannel
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9647	acceptOnPointerLeave: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9648	comboList: cvsRootPrototypeList
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9649	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9650	(HorizontalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9651	name: 'HorizontalPanel2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9652	layout: (LayoutFrame 44 0.25 258 0 -1 1 289 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9653	horizontalLayout: fitSpace
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9654	verticalLayout: center
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9655	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9656	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9657	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9658	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9659	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9660	(ActionButtonSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9661	label: 'Add/Apply'
5343 eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9662	name: 'addButton'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9663	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9664	tabable: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9665	model: addPerModuleRoot
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9666	enableChannel: useManager
5343 eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9667	extent: (Point 103 22)
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9668	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9669	(ActionButtonSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9670	label: 'Remove'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9671	name: 'removeButton'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9672	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9673	tabable: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9674	model: removePerModuleRoot
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9675	enableChannel: removeEnabled
5343 eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9676	extent: (Point 103 22)
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9677	)
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9678	(ViewSpec
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9679	name: 'Box11'
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9680	extent: (Point 103 10)
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9681	)
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9682	(ActionButtonSpec
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9683	label: 'CVS-Login'
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9684	name: 'loginButton2'
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9685	translateLabel: true
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9686	tabable: true
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9687	model: loginPerModuleRoot
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9688	enableChannel: cvsLoginInModuleEnabled
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9689	extent: (Point 103 22)
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9690	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9691	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9692
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9693	)
4398 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	)
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	)
6103 d8147b126f9d * empty log message * penk parents: 6086 diff changeset	9698	extent: (Point 659 327)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9699	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9700	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9701	name: 'Box4'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9702	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9703	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9704	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9705	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9706	label: 'Source Cache Dir:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9707	name: 'SourceCacheDirLabel'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9708	layout: (LayoutFrame 0 0.0 0 0 40 0.25 22 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9709	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9710	adjust: right
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9711	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9712	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9713	name: 'SourceCacheDirEntryField'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9714	layout: (LayoutFrame 44 0.25 0 0 -5 1 22 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9715	enableChannel: useManager
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9716	model: sourceCacheDir
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9717	immediateAccept: false
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9718	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9719	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9720	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9721	acceptOnPointerLeave: true
4398 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	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9724
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9725	)
6103 d8147b126f9d * empty log message * penk parents: 6086 diff changeset	9726	extent: (Point 659 30)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9727	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9728	(HorizontalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9729	name: 'HorizontalPanel1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9730	horizontalLayout: fitSpace
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9731	verticalLayout: center
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9732	horizontalSpace: 30
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9733	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9734	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9735	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9736	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9737	(ActionButtonSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9738	label: 'Flush Cache now'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9739	name: 'FlushCacheNowButton'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9740	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9741	model: flushSourceCache
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9742	enableChannel: useManager
6103 d8147b126f9d * empty log message * penk parents: 6086 diff changeset	9743	extent: (Point 284 22)
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9744	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9745	(ActionButtonSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9746	label: 'Condense Cache now'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9747	name: 'CondenseCacheNowButton'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9748	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9749	model: condenseSourceCache
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9750	enableChannel: useManager
6103 d8147b126f9d * empty log message * penk parents: 6086 diff changeset	9751	extent: (Point 285 22)
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	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9754
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9755	)
6103 d8147b126f9d * empty log message * penk parents: 6086 diff changeset	9756	extent: (Point 659 40)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9757	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9758	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9759	name: 'Box5'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9760	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9761	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9762	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9763	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9764	label: 'If Present, Use Local Source (Suppress Checkout)'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9765	name: 'CheckBox4'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9766	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	9767	enableChannel: useManager
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9768	model: localSourceFirst
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9769	translateLabel: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9770	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9771	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9772
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9773	)
6103 d8147b126f9d * empty log message * penk parents: 6086 diff changeset	9774	extent: (Point 659 25)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9775	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9776	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9777	name: 'Box6'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9778	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9779	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9780	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9781	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9782	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	9783	name: 'CheckBox5'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9784	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	9785	enableChannel: useManager
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9786	model: checkClassesWhenCheckingIn
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9787	translateLabel: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9788	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9789	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9790
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9791	)
6103 d8147b126f9d * empty log message * penk parents: 6086 diff changeset	9792	extent: (Point 659 25)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9793	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9794	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9795
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9796	)
6103 d8147b126f9d * empty log message * penk parents: 6086 diff changeset	9797	extent: (Point 659 768)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9798	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9799	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9800
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9801	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9802	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9803	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9804
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9805	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9806	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9807	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9808
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9809	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'accessing'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9810
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9811	manager
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9812
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9813	^ Smalltalk at:#SourceCodeManager
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9814	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9815
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9816	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'actions'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9817
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9818	addPerModuleRoot
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9819
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9820	\|module cvsRoot\|
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9821
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9822	acceptChannel value:true.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9823	module := self perModuleRootModule value.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9824	cvsRoot := self perModuleRoot value.
5174 bfd29db1a419 source code management per module get apply for changes Michael Beyl <mb@exept.de> parents: 5172 diff changeset	9825	(self listOfModules includes:module) ifFalse:[
bfd29db1a419 source code management per module get apply for changes Michael Beyl <mb@exept.de> parents: 5172 diff changeset	9826	self listOfModules add:module.
bfd29db1a419 source code management per module get apply for changes Michael Beyl <mb@exept.de> parents: 5172 diff changeset	9827	self listOfModules sort.
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9828	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9829	cvsRoot size > 0 ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9830	rootsPerModule at:module put:cvsRoot.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9831	].
5174 bfd29db1a419 source code management per module get apply for changes Michael Beyl <mb@exept.de> parents: 5172 diff changeset	9832	self updateModifiedChannel.
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9833	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9834
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9835	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9836
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9837	(self hasManager and:[self useManager value]) ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9838	manager isNil ifTrue:[
6103 d8147b126f9d * empty log message * penk parents: 6086 diff changeset	9839	Smalltalk at:#SourceCodeManager put:(CVSSourceCodeManager).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9840	manager := Smalltalk at:#SourceCodeManager.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9841	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9842	Class tryLocalSourceFirst:self localSourceFirst value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9843
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9844	manager notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9845	\| nm fn\|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9846	nm := self sourceCacheDir value.
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9847	nm notEmptyOrNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9848	(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	9849	(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	9850	fn makeDirectory;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9851	makeReadableForAll;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9852	makeWritableForAll;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9853	makeExecutableForAll.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9854	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9855	].
5318 02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	9856	(fn isDirectory
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9857	and:[fn isReadable
5318 02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	9858	and:[fn isWritable]]) ifTrue:[
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9859	AbstractSourceCodeManager cacheDirectoryName:nm.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9860	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9861	self warn:'Invalid sourceCache directory.'
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9862	]
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9863	"/ ] ifFalse:[
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9864	"/ AbstractSourceCodeManager cacheDirectoryName:nil.
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	9865	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9866	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9867
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9868	repositoryHolder notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9869	repositoryHolder value size > 0 ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9870	manager notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9871	manager initializeForRepository:repositoryHolder value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9872	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9873	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9874	].
5912 c276be9276dd Strip trailing/leading blanks from CVS-Path. Stefan Vogel <sv@exept.de> parents: 5902 diff changeset	9875	CVSSourceCodeManager cvsBinDirectory:self cvsBinDirectoryHolder value withoutSeparators.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9876	CVSSourceCodeManager initializeForRepository:self cvsRootHolder value.
4760 206a67dba8a8 repository changes after initialize will now reloaded penk parents: 4737 diff changeset	9877	self cvsBinDirectoryHolder value:CVSSourceCodeManager cvsBinDirectory.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9878	CVSSourceCodeManager repositoryNamesPerModule:rootsPerModule.
4650 c358bcfef403 source code management have no unsaved changes after enable anymore penk parents: 4635 diff changeset	9879	self sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9880	DebugView newDebugger.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9881	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9882	Smalltalk at:#SourceCodeManager put:nil
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9883	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9884
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9885	UserPreferences current at:#checkClassesWhenCheckingIn put:self checkClassesWhenCheckingIn value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9886	self acceptChannel value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9887	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9888
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9889	condenseSourceCache
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9890
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9891	self withWaitCursorDo:[ AbstractSourceCodeManager condenseSourceCache ]
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9892	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9893
5343 eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9894	cvsLogin:cvsRoot
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9895	\|cmd term\|
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9896
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9897	cmd := 'cvs -d ' , cvsRoot , ' login ; exit'.
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9898	term := VT100TerminalView open.
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9899	term topView label:'CVS Login for ' , cvsRoot.
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9900	term topView waitUntilVisible.
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9901	term shellTerminateAction:[
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9902	"/ term topView destroy
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9903	].
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9904
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9905	term showCR:(('Please enter the CVS-password then close this terminal window.') asText allBold colorizeAllWith:Color red).
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9906	term showCR:''.
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9907	term endEntry.
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9908	Delay waitForSeconds:1.
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9909	term sendLine:cmd.
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9910
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9911	"
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9912	self basicNew cvsLogin:':pserver:stx@exept.eu.org:/stx'
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9913	"
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9914	!
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9915
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9916	flushSourceCache
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9917
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9918	self withWaitCursorDo:[ AbstractSourceCodeManager flushSourceCache ]
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9919	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9920
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	9921	helpFilename
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	9922	^ 'Launcher/cvsSetup.html'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9923	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9924
5343 eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9925	loginCVSRoot
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9926	self cvsLogin:cvsRootHolder value.
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9927	!
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9928
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9929	loginPerModuleRoot
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9930	self cvsLogin:perModuleRoot value.
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9931	!
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	9932
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9933	readSettings
5174 bfd29db1a419 source code management per module get apply for changes Michael Beyl <mb@exept.de> parents: 5172 diff changeset	9934	self initialize.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9935	self hasManager ifTrue:[
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9936	self useManager value:(manager := Smalltalk at:#SourceCodeManager) notNil.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9937	self localSourceFirst value:Class tryLocalSourceFirst.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9938	self sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9939	manager notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9940	manager forgetDisabledModules.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9941	repository := manager repositoryName.
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9942	repositoryHolder := (repository ? '') asValue
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9943	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9944	self cvsIsSetup value:true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9945	] ifFalse:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9946	self useManager value:false.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9947	self localSourceFirst value:false.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9948	self cvsIsSetup value:false
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9949	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9950	self checkClassesWhenCheckingIn
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9951	value:(currentUserPrefs at:#checkClassesWhenCheckingIn ifAbsent:true).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9952	self cvsRootHolder
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9953	value:CVSSourceCodeManager repositoryName ? '/cvs/stx'.
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9954	self cvsBinDirectoryHolder value:CVSSourceCodeManager cvsBinDirectory.
4812 f4d7501fd235 checkin from browser penk parents: 4805 diff changeset	9955	rootsPerModule notNil ifTrue:[
5175 8fd9af3eee73 source code management per module get apply for changes Michael Beyl <mb@exept.de> parents: 5174 diff changeset	9956	self listOfModules removeAll.
5174 bfd29db1a419 source code management per module get apply for changes Michael Beyl <mb@exept.de> parents: 5172 diff changeset	9957	listOfModules addAll:rootsPerModule keys asList.
4812 f4d7501fd235 checkin from browser penk parents: 4805 diff changeset	9958	].
4779 98f77618ef6f root per module reading fixed penk parents: 4767 diff changeset	9959	self selectedPerModuleRootChanged.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9960	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9961	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9962
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9963	removePerModuleRoot
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9964
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9965	\|module\|
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9966
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9967	acceptChannel value:true.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9968	module := self perModuleRootModule value.
5174 bfd29db1a419 source code management per module get apply for changes Michael Beyl <mb@exept.de> parents: 5172 diff changeset	9969	self listOfModules remove:module ifAbsent:nil.
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9970	rootsPerModule removeKey:module ifAbsent:nil.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9971	self perModuleRootModule value:nil.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9972	self perModuleRoot value:nil.
5174 bfd29db1a419 source code management per module get apply for changes Michael Beyl <mb@exept.de> parents: 5172 diff changeset	9973	self updateModifiedChannel.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9974	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9975
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9976	setupSourceCodeManager
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9977
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9978	AbstractLauncherApplication::LauncherDialogs cvsConfigurationDialog.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9979	manager := (Smalltalk at:#SourceCodeManager).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9980	cvsIsSetup value:manager notNil.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9981	manager notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9982	repositoryHolder value: manager repositoryName.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9983	sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9984	].
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9985	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9986
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9987	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'aspects'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9988
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9989	acceptChannel
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9990
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9991	acceptChannel isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9992	acceptChannel := TriggerValue new.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9993	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9994	^ acceptChannel.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9995	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9996
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9997	checkClassesWhenCheckingIn
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9998
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9999	checkClassesWhenCheckingIn isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10000	checkClassesWhenCheckingIn := (currentUserPrefs at:#checkClassesWhenCheckingIn ifAbsent:true) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10001	checkClassesWhenCheckingIn onChangeSend:#updateModifiedChannel to:self
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10002	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10003	^ checkClassesWhenCheckingIn.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10004	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10005
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10006	cvsBinDirectoryHolder
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10007	cvsBinDirectoryHolder isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10008	cvsBinDirectoryHolder := ValueHolder new.
5286 ab068226973e has unsaved changes penk parents: 5283 diff changeset	10009	cvsBinDirectoryHolder onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10010	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10011	^ cvsBinDirectoryHolder.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10012	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10013
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10014	cvsIsSetup
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10015	cvsIsSetup isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10016	cvsIsSetup := true asValue.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10017	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10018	^ cvsIsSetup.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10019	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10020
5343 eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	10021	cvsLoginEnabled
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	10022	cvsLoginEnabled isNil ifTrue:[
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	10023	cvsLoginEnabled := false asValue.
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	10024	].
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	10025	^ cvsLoginEnabled.
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	10026	!
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	10027
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	10028	cvsLoginInModuleEnabled
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	10029	cvsLoginInModuleEnabled isNil ifTrue:[
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	10030	cvsLoginInModuleEnabled := false asValue.
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	10031	].
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	10032	^ cvsLoginInModuleEnabled.
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	10033	!
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	10034
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10035	cvsRootHolder
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10036
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10037	cvsRootHolder isNil ifTrue:[
5318 02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	10038	cvsRootHolder := self cvsRootFromCVSRootFileOrNil asValue.
5343 eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	10039	cvsRootHolder addDependent:self.
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10040	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10041	^ cvsRootHolder.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10042	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10043
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10044	cvsRootPrototypeList
6743 fed3ac14df0f New loaction of public cvs pserver Stefan Vogel <sv@exept.de> parents: 6742 diff changeset	10045	\|cvsRoot prototypeList\|
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10046
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10047	cvsRootPrototypeList isNil ifTrue:[
6743 fed3ac14df0f New loaction of public cvs pserver Stefan Vogel <sv@exept.de> parents: 6742 diff changeset	10048	prototypeList := OrderedSet new.
5343 eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	10049
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	10050	cvsRoot := self cvsRootFromCVSRootFileOrNil.
6743 fed3ac14df0f New loaction of public cvs pserver Stefan Vogel <sv@exept.de> parents: 6742 diff changeset	10051	cvsRoot notNil ifTrue:[
fed3ac14df0f New loaction of public cvs pserver Stefan Vogel <sv@exept.de> parents: 6742 diff changeset	10052	prototypeList add:cvsRoot
5343 eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	10053	].
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	10054
6743 fed3ac14df0f New loaction of public cvs pserver Stefan Vogel <sv@exept.de> parents: 6742 diff changeset	10055	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	10056
fed3ac14df0f New loaction of public cvs pserver Stefan Vogel <sv@exept.de> parents: 6742 diff changeset	10057	OperatingSystem getDomainName = 'exept.de' ifTrue:[
fed3ac14df0f New loaction of public cvs pserver Stefan Vogel <sv@exept.de> parents: 6742 diff changeset	10058	prototypeList add:(':pserver:' , OperatingSystem getLoginName , '@cvs.exept.de:/cvs/stx')
5318 02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	10059	] ifFalse:[
6743 fed3ac14df0f New loaction of public cvs pserver Stefan Vogel <sv@exept.de> parents: 6742 diff changeset	10060	prototypeList add:(':pserver:' , OperatingSystem getLoginName , '@CVSHOST:/cvs/stx').
4767 389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	10061	].
389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	10062
389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	10063	OperatingSystem isUNIXlike ifTrue:[
6743 fed3ac14df0f New loaction of public cvs pserver Stefan Vogel <sv@exept.de> parents: 6742 diff changeset	10064	prototypeList add:'/cvs/stx'.
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10065	] ifFalse:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10066	OperatingSystem isMSDOSlike ifTrue:[
6743 fed3ac14df0f New loaction of public cvs pserver Stefan Vogel <sv@exept.de> parents: 6742 diff changeset	10067	prototypeList addFirst:':local:c:\cvs\stx'.
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10068	] ifFalse:[
4767 389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	10069	"there might be more here in the future"
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10070	]
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10071	].
5318 02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	10072
6743 fed3ac14df0f New loaction of public cvs pserver Stefan Vogel <sv@exept.de> parents: 6742 diff changeset	10073	cvsRootPrototypeList := prototypeList asOrderedCollection.
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10074	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10075	^ cvsRootPrototypeList.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10076	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10077
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10078	listOfModules
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10079
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10080	listOfModules isNil ifTrue:[
5174 bfd29db1a419 source code management per module get apply for changes Michael Beyl <mb@exept.de> parents: 5172 diff changeset	10081	rootsPerModule notNil ifTrue:[
bfd29db1a419 source code management per module get apply for changes Michael Beyl <mb@exept.de> parents: 5172 diff changeset	10082	listOfModules := rootsPerModule keys asList.
bfd29db1a419 source code management per module get apply for changes Michael Beyl <mb@exept.de> parents: 5172 diff changeset	10083	].
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10084	listOfModules sort.
5174 bfd29db1a419 source code management per module get apply for changes Michael Beyl <mb@exept.de> parents: 5172 diff changeset	10085	listOfModules onChangeSend:#updateModifiedChannel to:self
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10086	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10087	^ listOfModules.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10088	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10089
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10090	localSourceFirst
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10091
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10092	localSourceFirst isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10093	localSourceFirst := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10094	localSourceFirst onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10095	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10096	^ localSourceFirst.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10097	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10098
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10099	perModuleRoot
5332 d02586ccaa63 value holder for roots per module penk parents: 5318 diff changeset	10100	perModuleRoot isNil ifTrue:[
d02586ccaa63 value holder for roots per module penk parents: 5318 diff changeset	10101	perModuleRoot := ValueHolder new.
5343 eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	10102	perModuleRoot addDependent:self.
5332 d02586ccaa63 value holder for roots per module penk parents: 5318 diff changeset	10103	].
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10104	^ perModuleRoot.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10105	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10106
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10107	perModuleRootModule
5332 d02586ccaa63 value holder for roots per module penk parents: 5318 diff changeset	10108	perModuleRootModule isNil ifTrue:[
d02586ccaa63 value holder for roots per module penk parents: 5318 diff changeset	10109	perModuleRootModule := ValueHolder new.
d02586ccaa63 value holder for roots per module penk parents: 5318 diff changeset	10110	].
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10111	^ perModuleRootModule.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10112	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10113
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10114	removeEnabled
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10115
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10116	removeEnabled isNil ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10117	removeEnabled := false asValue.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10118	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10119	^ removeEnabled.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10120	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10121
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10122	selectedPerModuleRoot
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10123	selectedPerModuleRoot isNil ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10124	selectedPerModuleRoot := ValueHolder new.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10125	selectedPerModuleRoot addDependent:self.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10126	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10127	^ selectedPerModuleRoot.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10128	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10129
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10130	sourceCacheDir
5286 ab068226973e has unsaved changes penk parents: 5283 diff changeset	10131	sourceCacheDir isNil ifTrue:[
ab068226973e has unsaved changes penk parents: 5283 diff changeset	10132	sourceCacheDir := ValueHolder new.
ab068226973e has unsaved changes penk parents: 5283 diff changeset	10133	sourceCacheDir onChangeSend:#updateModifiedChannel to:self
ab068226973e has unsaved changes penk parents: 5283 diff changeset	10134	].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10135	^ sourceCacheDir.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10136	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10137
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10138	useManager
5286 ab068226973e has unsaved changes penk parents: 5283 diff changeset	10139	useManager isNil ifTrue:[
ab068226973e has unsaved changes penk parents: 5283 diff changeset	10140	useManager := ValueHolder new.
ab068226973e has unsaved changes penk parents: 5283 diff changeset	10141	useManager onChangeSend:#updateModifiedChannel to:self
ab068226973e has unsaved changes penk parents: 5283 diff changeset	10142	].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10143	^ useManager.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10144	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10145
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10146	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'change & update'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10147
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10148	selectedPerModuleRootChanged
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10149	\|module cvsRoot\|
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10150
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10151	self acceptChannel value:true.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10152	module := self selectedPerModuleRoot value.
4812 f4d7501fd235 checkin from browser penk parents: 4805 diff changeset	10153	module isNil ifTrue:[ ^ self].
5343 eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	10154
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10155	self removeEnabled value:true.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10156	cvsRoot := rootsPerModule at:module ifAbsent:''.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10157	self perModuleRootModule value:module.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10158	self perModuleRoot value:cvsRoot.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10159	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10160
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10161	sourceDirChanged
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	10162	\| nm fn\|
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	10163
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	10164	manager isNil ifTrue:[^ self].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	10165
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	10166	nm := self sourceCacheDir value.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	10167	nm isEmptyOrNil ifTrue:[^ self].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	10168
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	10169	(fn := nm asFilename) exists ifFalse:[
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	10170	(self confirm:('SourceCache directory ''' , nm , ''' does not exist.\Create ?' withCRs)) ifTrue:[
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	10171	fn makeDirectory;
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	10172	makeReadableForAll;
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	10173	makeWritableForAll;
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	10174	makeExecutableForAll.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	10175	] ifFalse:[
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	10176	self sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName).
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	10177	^ self.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	10178	].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	10179	].
5318 02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	10180	(fn isDirectory
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	10181	and:[fn isReadable
5318 02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	10182	and:[fn isWritable]]) ifTrue:[
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	10183	AbstractSourceCodeManager cacheDirectoryName:nm.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	10184	] ifFalse:[
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	10185	self warn:'Invalid sourceCache directory.'.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	10186	self sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10187	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10188	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10189
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10190	update:something with:aParameter from:changedObject
5343 eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	10191	changedObject == cvsRootHolder ifTrue:[
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	10192	self updateModifiedChannel.
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	10193	self updateLoginEnableHolders.
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	10194	^ self
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	10195	].
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	10196	changedObject == perModuleRoot ifTrue:[
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	10197	self updateLoginEnableHolders.
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	10198	^ self
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	10199	].
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	10200	changedObject == sourceCacheDir ifTrue:[
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10201	self sourceDirChanged.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10202	self updateModifiedChannel.
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10203	^ self
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10204	].
5343 eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	10205	changedObject == selectedPerModuleRoot ifTrue:[
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10206	self selectedPerModuleRootChanged.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10207	^ self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10208	].
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10209	super
c72e35116b13 instable state penk parents: 5040 diff changeset	10210	update:something
c72e35116b13 instable state penk parents: 5040 diff changeset	10211	with:aParameter
c72e35116b13 instable state penk parents: 5040 diff changeset	10212	from:changedObject
5343 eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	10213	!
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	10214
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	10215	updateLoginEnableHolders
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	10216	self cvsLoginEnabled value:((cvsRootHolder value ? '') startsWith:':pserver:').
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	10217	self cvsLoginInModuleEnabled value:((perModuleRoot value ? '') startsWith:':pserver:').
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10218	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10219
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10220	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'initialization & release'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10221
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10222	initialize
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	10223	(AbstractSourceCodeManager notNil) ifTrue:[AbstractSourceCodeManager autoload].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	10224
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	10225	useManager := false asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10226	useManager onChangeSend:#updateModifiedChannel to:self.
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	10227
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	10228	sourceCacheDir := nil asValue.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	10229	sourceCacheDir addDependent:self.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	10230
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	10231	repositoryHolder := '' asValue.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	10232	rootsPerModule := Dictionary new.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	10233
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	10234	SourceCodeManager == CVSSourceCodeManager ifTrue:[
5943 df089099d96d Use #addAll: instead of #declareAllFrom:, since #declareAllFrom: Stefan Vogel <sv@exept.de> parents: 5920 diff changeset	10235	rootsPerModule addAll:(SourceCodeManager repositoryNamesPerModule).
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	10236	].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	10237
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10238	super initialize.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10239	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10240
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10241	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'queries'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10242
5318 02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	10243	cvsRootFromCVSRootFileOrNil
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	10244	\|cvsDir cvsRootFile cvsRoot\|
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	10245
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	10246	cvsDir := 'CVS' asFilename.
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	10247	cvsDir isDirectory ifTrue:[
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	10248	cvsRootFile := cvsDir construct:'Root'.
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	10249	cvsRootFile isReadable ifTrue:[
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	10250	cvsRoot := cvsRootFile contents firstIfEmpty:nil.
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	10251	].
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	10252	].
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	10253	^ cvsRoot
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	10254	!
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	10255
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10256	hasManager
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10257	^ AbstractSourceCodeManager notNil
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10258	and:[AbstractSourceCodeManager isLoaded]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10259	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10260
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10261	hasUnsavedChanges
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	10262	(self useManager value ~= ((Smalltalk at:#SourceCodeManager) notNil)) ifTrue:[^ true].
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	10263
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	10264	((self hasManager and:[self useManager value])
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	10265	and:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10266	Class tryLocalSourceFirst ~= self localSourceFirst value or:[
6201 0ada373c203c * empty log message * penk parents: 6166 diff changeset	10267	(AbstractSourceCodeManager cacheDirectoryName ? '') ~= (self sourceCacheDir value ? '')]
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	10268	])
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	10269	ifTrue:[^ true].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	10270
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	10271	(self hasManager and:[self useManager value]) ifFalse:[^ false].
5286 ab068226973e has unsaved changes penk parents: 5283 diff changeset	10272
ab068226973e has unsaved changes penk parents: 5283 diff changeset	10273	((UserPreferences current at:#checkClassesWhenCheckingIn ifAbsent:true) ~= self checkClassesWhenCheckingIn value)
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	10274	ifTrue:[^ true].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	10275
5919 0d11395cb5a4 care for nil withoutSeparators Claus Gittinger <cg@exept.de> parents: 5918 diff changeset	10276	((CVSSourceCodeManager cvsBinDirectory ? '') ~= (self cvsBinDirectoryHolder value ? '') withoutSeparators)
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	10277	ifTrue:[^ true].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	10278
5286 ab068226973e has unsaved changes penk parents: 5283 diff changeset	10279	(CVSSourceCodeManager repositoryName ? '/files/CVS' ~= self cvsRootHolder value)
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	10280	ifTrue:[^ true].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	10281
5943 df089099d96d Use #addAll: instead of #declareAllFrom:, since #declareAllFrom: Stefan Vogel <sv@exept.de> parents: 5920 diff changeset	10282	((Dictionary new addAll:(CVSSourceCodeManager repositoryNamesPerModule); yourself) ~= rootsPerModule)
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	10283	ifTrue:[^ true].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	10284
6201 0ada373c203c * empty log message * penk parents: 6166 diff changeset	10285	((self sourceCacheDir value ? '') ~= (AbstractSourceCodeManager cacheDirectoryName ? '')) ifTrue:[^ true].
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	10286
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	10287	^ false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10288	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10289
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10290	!AbstractSettingsApplication::StyleSettingsAppl class methodsFor:'defaults'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10291
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10292	standardStyles
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10293
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10294	^ #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10295	'decWindows'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10296	'iris'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10297	'motif'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10298	'mswindows95'
6073 09b4a678793a more xp style Claus Gittinger <cg@exept.de> parents: 6072 diff changeset	10299	'mswindowsxp'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10300	'next'
6108 7e6d327225fa * empty log message * Claus Gittinger <cg@exept.de> parents: 6103 diff changeset	10301	"/ 'normal'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10302	'os2'
6003 668703f77d2c * empty log message * Claus Gittinger <cg@exept.de> parents: 5991 diff changeset	10303	'sgmotif'
6073 09b4a678793a more xp style Claus Gittinger <cg@exept.de> parents: 6072 diff changeset	10304	"/ 'st80'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10305	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10306	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10307
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10308	!AbstractSettingsApplication::StyleSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10309
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10310	defaultIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10311	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10312	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10313
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10314	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10315	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10316
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10317	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10318	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10319	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10320	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10321	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10322
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10323	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10324
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10325	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10326	constantNamed:#'AbstractSettingsApplication::StyleSettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10327	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	10328	@@@@@@@@@@@@@@DA@@@@@@@@@@@@@@@@@@@@@@@@@@DB@0D@@@@@@@@@@@@@@@@@@@@@@@DB@0LD@P@@@@@@@@@@@@@@@@@@@@DB@0LDA@DA@@@@@@@@@@@@
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	10329	@@@@@@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	10330	@ 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	10331	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	10332	@ 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	10333	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	10334	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10335
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10336	!AbstractSettingsApplication::StyleSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10337
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10338	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10339	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10340	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10341
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10342	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10343	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10344
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10345	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10346	UIPainter new openOnClass:AbstractSettingsApplication::StyleSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10347	AbstractSettingsApplication::StyleSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10348	AbstractSettingsApplication::StyleSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10349	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10350
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10351	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10352
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10353	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10354	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10355	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10356	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10357	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10358	label: 'ViewStyle Selection'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10359	name: 'ViewStyle Selection'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10360	min: (Point 10 10)
5576 8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	10361	bounds: (Rectangle 0 0 562 661)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10362	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10363	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10364	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10365	collection: (
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	10366	(VariableVerticalPanelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	10367	name: 'VariableVerticalPanel1'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	10368	layout: (LayoutFrame 0 0.0 0 0 0 1.0 -35 1)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	10369	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	10370	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	10371	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	10372	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	10373	name: 'Box1'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	10374	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	10375	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	10376	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	10377	(TextEditorSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	10378	name: 'TextEditor1'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	10379	layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	10380	style: (FontDescription arial medium roman 9)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	10381	model: noticeLabelHolder
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	10382	hasHorizontalScrollBar: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	10383	hasVerticalScrollBar: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	10384	isReadOnly: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	10385	postBuildCallback: postBuildHelpLabel:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	10386	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	10387	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	10388
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	10389	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	10390	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	10391	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	10392	name: 'Box2'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	10393	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	10394	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	10395	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	10396	(VerticalPanelViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	10397	name: 'VerticalPanel1'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	10398	layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	10399	horizontalLayout: fit
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	10400	verticalLayout: topFit
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	10401	horizontalSpace: 3
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	10402	verticalSpace: 3
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	10403	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	10404	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	10405	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	10406	(CheckBoxSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	10407	label: 'standard styles only'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	10408	name: 'CheckBox1'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	10409	model: showStandardStylesOnly
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	10410	translateLabel: true
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	10411	extent: (Point 562 35)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	10412	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	10413	(SequenceViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	10414	name: 'StyleList'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	10415	model: selectedStyle
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	10416	hasHorizontalScrollBar: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	10417	hasVerticalScrollBar: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	10418	doubleClickSelector: doubleClickAt:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	10419	useIndex: false
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	10420	sequenceList: styleList
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	10421	extent: (Point 562 353)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	10422	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	10423	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	10424
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	10425	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	10426	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	10427	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	10428
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	10429	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	10430	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	10431	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	10432
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	10433	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	10434	handles: (Any 0.37 1.0)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10435	)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	10436	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	10437	name: 'Box3'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	10438	layout: (LayoutFrame 0 0 -35 1 0 1 0 1)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	10439	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	10440	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	10441	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	10442	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	10443	label: 'Label'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	10444	name: 'Label1'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	10445	layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	10446	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	10447	labelChannel: infoLabelHolder
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	10448	resizeForLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	10449	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	10450	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	10451	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	10452
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	10453	)
5378 4054d8298e68 windowspec for view style penk parents: 5362 diff changeset	10454	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10455	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10456
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10457	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10458	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10459	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10460
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10461	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10462
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10463	basicSaveSettings
6029 40b96dc2621d * empty log message * ca parents: 6025 diff changeset	10464	\|newStyle\|
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10465
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10466	newStyle := self selectedStyle value.
4705 16cfb945d591 * empty log message * penk parents: 4675 diff changeset	10467
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10468	self withWaitCursorDo:[
6081 74df33ee24b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 6073 diff changeset	10469	Transcript showCR:'Change style to ' , newStyle , ' ...'.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10470	View defaultStyle:newStyle asSymbol.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10471	].
6029 40b96dc2621d * empty log message * ca parents: 6025 diff changeset	10472	self reopenToolsAfterChangedViewStyleSetting.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10473	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10474
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10475	doubleClickAt:aLine
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10476
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10477	self saveSettings.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10478	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10479
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	10480	helpFilename
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	10481	^ 'Launcher/styleSettings.html'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10482	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10483
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10484	readSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10485	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10486	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10487
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10488	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10489
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10490	infoLabelHolder
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10491
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10492	infoLabelHolder isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10493	infoLabelHolder := '' asValue.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10494	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10495	^ infoLabelHolder.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10496	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10497
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10498	noticeLabelHolder
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10499
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10500	noticeLabelHolder isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10501	noticeLabelHolder := '' asValue.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10502	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10503	^ noticeLabelHolder.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10504	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10505
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10506	selectedStyle
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10507
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10508	selectedStyle isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10509	selectedStyle := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10510	selectedStyle addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10511	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10512	^ selectedStyle.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10513	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10514
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10515	showStandardStylesOnly
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10516
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10517	showStandardStylesOnly isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10518	showStandardStylesOnly := true asValue.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10519	showStandardStylesOnly addDependent:self.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10520	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10521	^ showStandardStylesOnly.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10522	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10523
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10524	styleList
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10525
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10526	styleList isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10527	styleList := List new.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10528	styleList addDependent:self.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10529	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10530	^ styleList.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10531	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10532
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10533	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10534
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10535	changeInfoLabel
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10536
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10537	\|nm sheet comment\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10538
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10539	comment := ''.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10540	nm := self selectedStyle value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10541	nm notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10542	sheet := ViewStyle fromFile:(nm , '.style').
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10543	comment := (sheet at:#comment ifAbsent:'') withoutSeparators.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10544	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10545	comment := comment withCRs asStringCollection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10546	comment size == 1 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10547	comment := comment first
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10548	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10549	self infoLabelHolder value:comment
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10550	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10551
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10552	update:something with:aParameter from:changedObject
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10553	changedObject == self showStandardStylesOnly ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10554	self updateList.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10555	^ self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10556	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10557	changedObject == self selectedStyle ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10558	self changeInfoLabel.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10559	self updateModifiedChannel.
c72e35116b13 instable state penk parents: 5040 diff changeset	10560	^ self
c72e35116b13 instable state penk parents: 5040 diff changeset	10561	].
c72e35116b13 instable state penk parents: 5040 diff changeset	10562	super
c72e35116b13 instable state penk parents: 5040 diff changeset	10563	update:something
c72e35116b13 instable state penk parents: 5040 diff changeset	10564	with:aParameter
c72e35116b13 instable state penk parents: 5040 diff changeset	10565	from:changedObject
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10566	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10567
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10568	updateList
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10569
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10570	\|listOfStyles lastSelection\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10571
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10572	lastSelection := self selectedStyle value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10573	listOfStyles := styleDirectoryContents select:[:aFileName \| aFileName asFilename hasSuffix:'style'].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10574	listOfStyles := listOfStyles collect:[:aFileName \| aFileName asFilename withoutSuffix name].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10575	Filename isCaseSensitive ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10576	listOfStyles := listOfStyles collect:[:aStyleName \| aStyleName asLowercase].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10577	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10578	listOfStyles remove:'generic' ifAbsent:nil; remove:'mswindows3' ifAbsent:nil.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10579	self showStandardStylesOnly value ifTrue:[
6086 1d3d8652e87d * empty log message * Claus Gittinger <cg@exept.de> parents: 6081 diff changeset	10580	listOfStyles := listOfStyles select:[:aStyleName \| self class standardStyles includes:aStyleName asLowercase].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10581	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10582
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10583	listOfStyles sort.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10584	self styleList contents:listOfStyles.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10585	self selectedStyle value:lastSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10586	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10587
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10588	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10589
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10590	initialize
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10591
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10592	\|someRsrcFile resourceDir\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10593
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10594	super initialize.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10595
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10596	someRsrcFile := Smalltalk getSystemFileName:('resources' asFilename constructString:'normal.style').
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10597	someRsrcFile isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10598	someRsrcFile := Smalltalk getResourceFileName:'normal.style' forPackage:'stx:libview'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10599	someRsrcFile isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10600	someRsrcFile := Smalltalk getResourceFileName:'styles/normal.style' forPackage:'stx:libview'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10601	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10602	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10603	someRsrcFile notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10604	resourceDir := someRsrcFile asFilename directoryName
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10605	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10606	resourceDir := Smalltalk getSystemFileName:'resources'.
4635 6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	10607	resourceDir isNil ifTrue:[
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	10608	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	10609	^ self
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	10610	].
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	10611	].
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	10612
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	10613	[
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	10614	styleDirectoryContents := resourceDir asFilename directoryContents.
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	10615	] on:FileStream openErrorSignal do:[:ex\|
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	10616	self warn:'no styles found (unaccessable ''resources'' directory)'.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10617	^ self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10618	].
4635 6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	10619
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10620	self updateList.
6086 1d3d8652e87d * empty log message * Claus Gittinger <cg@exept.de> parents: 6081 diff changeset	10621	(self class standardStyles includes:View defaultStyle asLowercase) ifFalse:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10622	self showStandardStylesOnly value:false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10623	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10624	self selectedStyle value:(View defaultStyle).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10625	self noticeLabelHolder value:(resources at:'STYLE_MSG' default:'Select a Style') withCRs.
5378 4054d8298e68 windowspec for view style penk parents: 5362 diff changeset	10626	!
4054d8298e68 windowspec for view style penk parents: 5362 diff changeset	10627
4054d8298e68 windowspec for view style penk parents: 5362 diff changeset	10628	postBuildHelpLabel:aWidget
4054d8298e68 windowspec for view style penk parents: 5362 diff changeset	10629	aWidget level:0.
4054d8298e68 windowspec for view style penk parents: 5362 diff changeset	10630	aWidget scrolledView backgroundColor:self window viewBackground.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10631	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10632
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10633	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10634
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10635	hasUnsavedChanges
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10636
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10637	^ (self selectedStyle value ~= View defaultStyle)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10638	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10639
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10640	!AbstractSettingsApplication::SyntaxColorSettingsAppl class methodsFor:'defaults'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10641
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10642	emphasisList
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10643
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10644	^ #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10645	#normal
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10646	#underline
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10647	#'red underline'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10648	#underwave
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10649	#'red underwave'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10650	#bold
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10651	#boldUnderline
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10652	#'bold+red underline'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10653	#boldUnderwave
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10654	#'bold+red underwave'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10655	#italic
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10656	#italicUnderline
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10657	#'italic+red underline'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10658	#italicUnderwave
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10659	#'italic+red underwave'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10660	#reverse
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10661	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10662	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10663
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10664	exampleText
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10665
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10666	^ 'methodSelector:methodArg
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10667	"method comment:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10668	some stupid code to show the current settings"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10669
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10670	\|methodVar\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10671
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10672	"/ another comment ...
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10673	self at:methodArg. "/ a message
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10674	self fooBarBaz:methodVar. "/ a bad message
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10675	methodVar := Array new:1.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10676	unknonVar := 1. "/ a bad variable
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10677	UnknonVar := 1. "/ another bad variable
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10678	"self bar:methodVar. detect commented code easily"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10679	1 to:5 do:[:i \| self at:i + 1].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10680	Transcript showCR:''some string'' , #someSymbol.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10681	^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10682	'.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10683	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10684
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10685	fontList
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10686
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10687	^ #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10688	normal
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10689	underline
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10690	#'red underline'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10691	underwave
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10692	#'red underwave'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10693	bold
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10694	boldUnderline
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10695	#'bold+red underline'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10696	boldUnderwave
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10697	#'bold+red underwave'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10698	italic
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10699	italicUnderline
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10700	#'italic+red underline'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10701	italicUnderwave
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10702	#'italic+red underwave'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10703	reverse
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10704	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10705	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10706
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10707	!AbstractSettingsApplication::SyntaxColorSettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10708
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10709	defaultIcon
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10710	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10711	by the ImageEditor of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10712
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10713	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10714	the ImageEditor may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10715
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10716	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10717	self defaultIcon inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10718	ImageEditor openOnClass:self andSelector:#defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10719	Icon flushCachedIcons
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10720	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10721
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10722	<resource: #image>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10723
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10724	^Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10725	constantNamed:#'AbstractSettingsApplication::SyntaxColorSettingsAppl class defaultIcon'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	10726	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	10727	DQDQDQDQDQDQDQDTQDQDQDQDQDQDPQQ@QDADQBP$QDP!!E@QDQ@QDIBQDP$DTADQDADQDQDQBPQPDQDPDQDQDQBQAE@QDQ@QDQDQDIDDTADQDADQDQDIDPQPD
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	10728	QDPDQDQDP$QAEDADPDQDQDP$QDDTQDQDQDQDQDQDPQQDADQDQDQDQDQAEDADQDQDQDQDQDDTPDQ@QDADQDQDPQP@A@PDA@Q@QDQAEDADA@PDADQDQDDTPDPD
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	10729	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	10730	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10731
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10732	!AbstractSettingsApplication::SyntaxColorSettingsAppl class methodsFor:'interface specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10733
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10734	windowSpec
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10735	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10736	by the UIPainter of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10737
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10738	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10739	the UIPainter may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10740
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10741	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10742	UIPainter new openOnClass:AbstractSettingsApplication::SyntaxColorSettingsAppl andSelector:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10743	AbstractSettingsApplication::SyntaxColorSettingsAppl new openInterface:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10744	AbstractSettingsApplication::SyntaxColorSettingsAppl open
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10745	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10746
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10747	<resource: #canvas>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10748
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10749	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10750	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10751	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10752	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10753	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10754	label: 'Syntax Color Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10755	name: 'Syntax Color Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10756	min: (Point 10 10)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10757	bounds: (Rectangle 0 0 695 609)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10758	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10759	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10760	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10761	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10762	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10763	name: 'VerticalPanel2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10764	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	10765	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10766	verticalLayout: topSpace
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10767	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10768	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10769	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10770	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10771	collection: (
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10772	(ViewSpec
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10773	name: 'ElementSelectionBox'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10774	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10775	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10776	collection: (
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10777	(LabelSpec
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10778	label: 'Element:'
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10779	name: 'Label4'
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10780	layout: (LayoutFrame 0 0 0 0 100 0 22 0)
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10781	translateLabel: true
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10782	adjust: right
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10783	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10784	(ComboListSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10785	name: 'ComboList3'
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10786	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	10787	enableChannel: syntaxColoring
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10788	model: syntaxElementSelection
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10789	comboList: syntaxElementList
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10790	useIndex: false
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10791	hidePullDownMenuButton: false
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10792	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10793	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10794
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10795	)
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10796	extent: (Point 695 25)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10797	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10798	(ViewSpec
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10799	name: 'ColorBox'
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10800	component:
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10801	(SpecCollection
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10802	collection: (
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10803	(LabelSpec
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10804	label: 'Color:'
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10805	name: 'Label2'
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10806	layout: (LayoutFrame 40 0 0 0 140 0 22 0)
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10807	translateLabel: true
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10808	adjust: right
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10809	)
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10810	(ColorMenuSpec
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10811	name: 'ColorMenu2'
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10812	layout: (LayoutFrame 140 0 0 0 0 1 22 0)
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10813	enableChannel: syntaxColoring
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10814	model: syntaxColor
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10815	labelsAreColored: true
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10816	)
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10817	)
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10818
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10819	)
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10820	extent: (Point 695 25)
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10821	)
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10822	(ViewSpec
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10823	name: 'EmphasisBox'
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10824	component:
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10825	(SpecCollection
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10826	collection: (
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10827	(LabelSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10828	label: 'Emphasis:'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10829	name: 'Label1'
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10830	layout: (LayoutFrame 40 0 0 0 140 0 22 0)
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10831	translateLabel: true
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10832	adjust: right
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10833	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10834	(ComboListSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10835	name: 'ComboList5'
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10836	layout: (LayoutFrame 140 0 0 0 0 1 22 0)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10837	enableChannel: syntaxColoring
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10838	model: syntaxEmphasisSelection
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10839	comboList: syntaxEmphasisList
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10840	useIndex: false
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10841	hidePullDownMenuButton: false
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10842	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10843	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10844
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10845	)
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10846	extent: (Point 695 25)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10847	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10848	(ViewSpec
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10849	name: 'ResetBox'
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10850	component:
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10851	(SpecCollection
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10852	collection: (
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10853	(ActionButtonSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10854	label: 'Reset To:'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10855	name: 'Button2'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10856	layout: (LayoutFrame 0 0 -22 1 150 0 0 1)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10857	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10858	model: resetToColorScheme
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10859	enableChannel: syntaxColoring
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10860	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10861	(ComboListSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10862	name: 'ComboList4'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10863	layout: (LayoutFrame 150 0 -22 1 0 1 0 1)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10864	enableChannel: syntaxColoring
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10865	model: resetListSelection
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10866	comboList: resetList
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10867	useIndex: false
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10868	hidePullDownMenuButton: false
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10869	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10870	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10871
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10872	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10873	extent: (Point 695 35)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10874	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10875	(ViewSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10876	name: 'SpacingBox1'
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10877	extent: (Point 695 10)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10878	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10879	(LabelSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10880	label: 'Sample Output:'
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10881	name: 'SampleLabel3'
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10882	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10883	adjust: left
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10884	extent: (Point 695 22)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10885	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10886	(TextEditorSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10887	name: 'TextEditor2'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10888	enableChannel: syntaxColoring
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10889	model: coloredText
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10890	hasHorizontalScrollBar: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10891	hasVerticalScrollBar: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10892	isReadOnly: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10893	extent: (Point 695 280)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10894	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10895	(ViewSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10896	name: 'SpacingBox2'
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	10897	extent: (Point 695 10)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10898	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10899	(CheckBoxSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10900	label: 'Syntax Coloring'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10901	name: 'CheckBox1'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10902	model: syntaxColoring
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10903	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10904	extent: (Point 695 22)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10905	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10906	(CheckBoxSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10907	label: 'Immediate Selector Check'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10908	name: 'ImmediateSelectorCheckBox'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10909	enableChannel: syntaxColoring
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10910	model: fullSelectorCheck
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10911	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10912	extent: (Point 695 22)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10913	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10914	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10915
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10916	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10917	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10918	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10919
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10920	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10921	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10922	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10923
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10924	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'actions'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10925
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10926	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10927
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10928	oldUserPreferences := currentUserPrefs copy.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10929	currentUserPrefs syntaxColoring:self syntaxColoring value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10930	currentUserPrefs at:#fullSelectorCheck put:self fullSelectorCheck value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10931	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10932
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10933	formattingConfiguration
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10934	"automatically generated by UIPainter ..."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10935
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10936	"*** the code below performs no action"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10937	"*** (except for some feedback on the Transcript)"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10938	"*** Please change as required and accept in the browser."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10939
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10940	"action to be added ..."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10941
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10942	Transcript showCR:self class name, ': action for formattingConfiguration ...'.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10943	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10944
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	10945	helpFilename
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	10946	^ 'Launcher/sourceSettings.html'
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10947	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10948
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10949	readSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10950	\|colorList resetListLoc\|
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10951
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10952	oldUserPreferences notNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10953	(UserPreferences
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10954	reset;
5943 df089099d96d Use #addAll: instead of #declareAllFrom:, since #declareAllFrom: Stefan Vogel <sv@exept.de> parents: 5920 diff changeset	10955	current) addAll:oldUserPreferences
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10956	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10957	self syntaxColoring value:currentUserPrefs syntaxColoring.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10958	self fullSelectorCheck value:currentUserPrefs fullSelectorCheck.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10959	oldUserPreferences := currentUserPrefs copy.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10960	colorList := UserPreferences syntaxColorNames.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10961	resetListLoc := currentUserPrefs listOfPredefinedSyntaxColoringSchemes
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10962	collect:[:entry \| entry second].
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10963	self resetList value:resetListLoc.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10964	self resetListSelection value:resetListLoc first.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10965	self syntaxEmphasisList value:self class emphasisList.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10966	self syntaxElementList value:colorList.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10967	self syntaxElementSelection value:(colorList at:1).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10968	self modifiedChannel value:false
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10969	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10970
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10971	recolor
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10972	\|text\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10973
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10974	self syntaxColoring value ifTrue:[
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10975	text := SyntaxHighlighter
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10976	formatMethod:self class exampleText
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10977	in:nil
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	10978	using:currentUserPrefs.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10979	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10980	text := self class exampleText.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10981	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10982	self coloredText value:text
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10983	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10984
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10985	resetToColorScheme
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10986	\|resetSelector\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10987
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10988	resetSelector := resetListDictionary
c72e35116b13 instable state penk parents: 5040 diff changeset	10989	keyAtValue:(self resetListSelection value).
c72e35116b13 instable state penk parents: 5040 diff changeset	10990	currentUserPrefs perform:resetSelector.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10991	self recolor.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10992	self updateModifiedChannel
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10993	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10994
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10995	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'aspects'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10996
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10997	coloredText
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10998
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10999	coloredText isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11000	coloredText := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11001	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11002	^ coloredText.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11003	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11004
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11005	fullSelectorCheck
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11006
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11007	fullSelectorCheck isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11008	fullSelectorCheck := currentUserPrefs fullSelectorCheck asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	11009	fullSelectorCheck onChangeSend:#updateModifiedChannel to:self
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11010	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11011	^ fullSelectorCheck.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11012	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11013
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11014	resetList
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11015
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11016	resetList isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11017	resetList := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11018	"/ if your app needs to be notified of changes, uncomment one of the lines below:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11019	"/ resetList addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11020	"/ resetList onChangeSend:#resetListChanged to:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11021	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11022	^ resetList.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11023	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11024
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11025	resetListSelection
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11026
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11027	resetListSelection isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11028	resetListSelection := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11029	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11030	^ resetListSelection.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11031	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11032
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11033	syntaxColor
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11034
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11035	syntaxColor isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11036	syntaxColor := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11037	syntaxColor addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11038	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11039	^ syntaxColor.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11040	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11041
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11042	syntaxColoring
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11043
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11044	syntaxColoring isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11045	syntaxColoring := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11046	syntaxColoring addDependent:self.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	11047	syntaxColoring onChangeSend:#updateModifiedChannel to:self.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11048	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11049	^ syntaxColoring.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11050	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11051
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11052	syntaxElementList
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11053	"automatically generated by UIPainter ..."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11054
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11055	"*** the code below creates a default model when invoked."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11056	"*** (which may not be the one you wanted)"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11057	"*** Please change as required and accept it in the browser."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11058	"*** (and replace this comment by something more useful ;-)"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11059
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11060	syntaxElementList isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11061	syntaxElementList := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11062	"/ if your app needs to be notified of changes, uncomment one of the lines below:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11063	"/ syntaxElementList addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11064	"/ syntaxElementList onChangeSend:#syntaxElementListChanged to:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11065	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11066	^ syntaxElementList.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11067	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11068
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11069	syntaxElementSelection
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11070
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11071	syntaxElementSelection isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11072	syntaxElementSelection := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11073	syntaxElementSelection addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11074	"/ syntaxElementSelection onChangeSend:#syntaxElementSelectionChanged to:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11075	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11076	^ syntaxElementSelection.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11077	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11078
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11079	syntaxEmphasisList
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11080	"automatically generated by UIPainter ..."
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11081
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11082	"*** the code below creates a default model when invoked."
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11083	"*** (which may not be the one you wanted)"
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11084	"*** Please change as required and accept it in the browser."
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11085	"*** (and replace this comment by something more useful ;-)"
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11086
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11087	syntaxEmphasisList isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11088	syntaxEmphasisList := ValueHolder new.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11089	"/ 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	11090	"/ syntaxEmphasisList addDependent:self.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11091	"/ syntaxEmphasisList onChangeSend:#syntaxEmphasisListChanged to:self.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11092	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11093	^ syntaxEmphasisList.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11094	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11095
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11096	syntaxEmphasisSelection
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11097
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11098	syntaxEmphasisSelection isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11099	syntaxEmphasisSelection := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11100	syntaxEmphasisSelection addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11101	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11102	^ syntaxEmphasisSelection.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11103	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11104
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11105	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'change & update'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11106
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11107	getEmphasis:anEmphasisOrSymbol
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11108	" return emphasis Symbol for emphasis or emphasis for emphasis symbol "
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11109
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11110	^ emphasisDictionary at:anEmphasisOrSymbol ifAbsent:[nil]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11111	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11112
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11113	syntaxColorChanged
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11114	currentUserPrefs at:(self syntaxColorSelector) put:(self syntaxColor value).
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11115	self recolor.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	11116	self updateModifiedChannel
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11117	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11118
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11119	syntaxElementSelectionChanged
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11120
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11121	\| syntaxEmphasisValue \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11122
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11123	self syntaxColor value:(currentUserPrefs perform:(self syntaxColorSelector)).
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11124	syntaxEmphasisValue := (currentUserPrefs perform:(self syntaxEmphasisSelector)).
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11125	self syntaxEmphasisSelection value:(self getEmphasis:syntaxEmphasisValue).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11126	self recolor.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11127	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11128
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11129	syntaxEmphasisSelectionChanged
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11130	\|em\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11131
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11132	em := self getEmphasis:self syntaxEmphasisSelection value.
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11133	currentUserPrefs at:(self syntaxEmphasisSelector) put:em.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11134	self recolor.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	11135	self updateModifiedChannel
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11136	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11137
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11138	update:something with:aParameter from:changedObject
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11139	changedObject == self syntaxElementSelection ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11140	self syntaxElementSelectionChanged.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11141	^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11142	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11143	changedObject == self syntaxColor ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11144	self syntaxColorChanged.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11145	^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11146	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11147	changedObject == self syntaxEmphasisSelection ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11148	self syntaxEmphasisSelectionChanged.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11149	^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11150	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11151	changedObject == self syntaxColoring ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11152	self recolor.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11153	^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11154	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11155
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11156	super update:something with:aParameter from:changedObject
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11157	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11158
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11159	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'initialization & release'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11160
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11161	initialize
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11162	self initializeEmphasisDictionary.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11163	super initialize.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11164
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11165	resetListDictionary := Dictionary new.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11166	currentUserPrefs listOfPredefinedSyntaxColoringSchemes do:[:entry \|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11167	resetListDictionary at:(entry at:1) put:(entry at:2)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11168	].
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11169	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11170
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11171	initializeEmphasisDictionary
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11172
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11173	emphasisDictionary := Dictionary new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11174	self class emphasisList do:[ : entry \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11175	entry == #'red underline' ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11176	emphasisDictionary at:entry put:(Array with:#underline with:(#underlineColor->Color red)).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11177	emphasisDictionary at:(Array with:#underline with:(#underlineColor->Color red)) put:entry.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11178	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11179	entry == #'red underwave' ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11180	emphasisDictionary at:entry put:(Array with:#underwave with:(#underlineColor->Color red)).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11181	emphasisDictionary at:(Array with:#underwave with:(#underlineColor->Color red)) put:entry.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11182	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11183	entry == #'bold+red underline' ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11184	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	11185	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	11186	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11187	entry == #'bold+red underwave' ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11188	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	11189	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	11190	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11191	entry == #'italic+red underline' ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11192	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	11193	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	11194	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11195	entry == #'italic+red underwave' ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11196	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	11197	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	11198	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11199	emphasisDictionary at:entry put:entry
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11200	]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11201	]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11202	]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11203	]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11204	]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11205	]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11206	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11207	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11208
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11209	release
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11210
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11211	oldUserPreferences notNil ifTrue:[
5943 df089099d96d Use #addAll: instead of #declareAllFrom:, since #declareAllFrom: Stefan Vogel <sv@exept.de> parents: 5920 diff changeset	11212	(UserPreferences reset; current) addAll:oldUserPreferences
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11213	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11214	super release
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11215	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11216
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11217	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'queries'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11218
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11219	hasUnsavedChanges
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11220	\|colorList colorPerformer emphasisPerformer\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11221
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11222	colorList := UserPreferences syntaxColorNames.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11223	colorList do:[:syntaxElement \|
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11224	colorPerformer := (self syntaxColorSelectorForElement:syntaxElement).
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11225	emphasisPerformer := (self syntaxEmphasisSelectorForElement:syntaxElement).
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11226	((oldUserPreferences perform:colorPerformer) ~= (currentUserPrefs perform:colorPerformer)) ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11227	^ true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11228	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11229	((oldUserPreferences perform:emphasisPerformer) ~= (currentUserPrefs perform:emphasisPerformer)) ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11230	^ true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11231	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11232	syntaxElement
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11233	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11234	currentUserPrefs syntaxColoring ~= self syntaxColoring value ifTrue:[^ true].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11235	currentUserPrefs fullSelectorCheck ~= self fullSelectorCheck value ifTrue:[^ true].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11236	^ false
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11237	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11238
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11239	syntaxColorSelector
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11240	^ (self syntaxColorSelectorForElement:self syntaxElementSelection value)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11241	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11242
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11243	syntaxColorSelectorForElement:aSyntaxElement
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11244	^ (aSyntaxElement replChar:$ withString: '') asLowercaseFirst asSymbol
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11245	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11246
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11247	syntaxEmphasisSelector
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11248
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11249	^ self syntaxEmphasisSelectorForElement:(self syntaxElementSelection value)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11250	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11251
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11252	syntaxEmphasisSelectorForElement:anEmElement
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11253	^ (((self syntaxColorSelectorForElement:anEmElement) readStream upToAll: 'Color'), 'Emphasis')
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11254	asLowercaseFirst asSymbol
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11255	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11256
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11257	!AbstractSettingsApplication::SystemMessageSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11258
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11259	defaultIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11260	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11261	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11262
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11263	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11264	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11265
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11266	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11267	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11268	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11269	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11270	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11271
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11272	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11273
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11274	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11275	constantNamed:#'AbstractSettingsApplication::SystemMessageSettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11276	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	11277	@@@@@@@@@@@@@PDA@P@@@@@@@@@@@@@@@@@@@@@@@PHB@0D@@@@@@@@@@@@@@@@@@@@@@PHDAPLC@P@@@@@@@@@@@@@@@@@@@@DBA PGA0 @@@@@@@@@@@@@
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	11278	@@@@@@@A@ XDA0\H@@@@@@@@@@@@@@@@@@@@@PHIA@(J@@@@@@@@@@@@@@@@@@@@@@DAB00MCP@@@@@@@@@@@@@@@@@@@@@@@@DN@@@@@@@@@@@@@@@@@@@@
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	11279	@@@@@@@AC @@@@@@@@@@@@@@@@@@@@@@@@@@@P8@@@@@@@@@@@@@@@@@@@@@@@<OC0PNDA@@DQD@@@@@@@@@@@@@@@<RD1LTEQXVE1 XDP@@@@@@@@@@@@@O
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	11280	D!!LSEATVE!!\XFAD@@@@@@@@@@@@@C1HSD1$UEAPZF1,\@@@@@@@@@@@@@@<RGQ4YF!!PTEAXVG@@@@@@@@@@@@@@OD!!4]FQ(TEAPVE!!0@@@@@@@@@@@@@C1H]
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	11281	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	11282	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	11283	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11284
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11285	!AbstractSettingsApplication::SystemMessageSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11286
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11287	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11288	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11289	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11290
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11291	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11292	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11293
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11294	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11295	UIPainter new openOnClass:AbstractSettingsApplication::SystemMessageSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11296	AbstractSettingsApplication::SystemMessageSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11297	AbstractSettingsApplication::SystemMessageSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11298	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11299
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11300	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11301
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11302	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11303	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11304	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11305	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11306	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11307	label: 'Messages Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11308	name: 'Messages Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11309	min: (Point 10 10)
6166 92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11310	bounds: (Rectangle 0 0 561 435)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11311	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11312	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11313	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11314	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11315	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11316	name: 'VerticalPanel2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11317	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	11318	horizontalLayout: fitSpace
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11319	verticalLayout: topSpace
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11320	horizontalSpace: 5
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11321	verticalSpace: 5
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11322	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11323	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11324	collection: (
6166 92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11325	(FramedBoxSpec
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11326	label: 'Info & Error Messages'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11327	name: 'FramedBox1'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11328	labelPosition: topLeft
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11329	translateLabel: true
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11330	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11331	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11332	collection: (
6166 92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11333	(CheckBoxSpec
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11334	label: 'VM Info Messages'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11335	name: 'VMInfoMessages'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11336	layout: (LayoutFrame 5 0 5 0 -5 1 27 0)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11337	model: vmInfo
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11338	translateLabel: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11339	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11340	(CheckBoxSpec
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11341	label: 'VM Error Messages'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11342	name: 'VMErrorMessages'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11343	layout: (LayoutFrame 5 0 30 0 -5 1 52 0)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11344	model: vmErrors
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11345	translateLabel: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11346	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11347	(CheckBoxSpec
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11348	label: 'Display Error Messages (Xlib, Xtlib, WinAPI ...)'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11349	name: 'DisplayErrorMessages'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11350	layout: (LayoutFrame 5 0 55 0 -5 1 77 0)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11351	model: displayErrors
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11352	translateLabel: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11353	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11354	(CheckBoxSpec
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11355	label: 'Other Info Messages'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11356	name: 'OtherInfoMessages'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11357	layout: (LayoutFrame 5 0 80 0 -5 1 102 0)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11358	model: classInfos
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11359	translateLabel: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11360	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11361	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11362
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11363	)
6166 92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11364	extent: (Point 551 133)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11365	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11366	(FramedBoxSpec
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11367	label: 'Change File'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11368	name: 'FramedBox2'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11369	labelPosition: topLeft
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11370	translateLabel: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11371	component:
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11372	(SpecCollection
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11373	collection: (
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11374	(CheckBoxSpec
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11375	label: 'Log compiles in Changefile'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11376	name: 'CheckBox1'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11377	layout: (LayoutFrame 5 0 5 0 -5 1 27 0)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11378	model: updChanges
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11379	translateLabel: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11380	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11381	(CheckBoxSpec
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11382	label: 'Log doIts in Changefile'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11383	name: 'CheckBox2'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11384	layout: (LayoutFrame 5 0 30 0 -5 1 52 0)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11385	model: logDoits
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11386	translateLabel: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11387	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11388	(LabelSpec
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11389	label: 'Changefile Name:'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11390	name: 'ChangefileNameLabel'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11391	layout: (LayoutFrame 5 0 55 0 200 0 77 0)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11392	translateLabel: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11393	adjust: right
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11394	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11395	(InputFieldSpec
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11396	name: 'ChangeFileNameEntryField'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11397	layout: (LayoutFrame 200 0 55 0 -5 1 77 0)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11398	model: changeFileName
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11399	immediateAccept: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11400	acceptOnReturn: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11401	acceptOnTab: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11402	acceptOnLostFocus: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11403	acceptOnPointerLeave: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11404	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11405	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11406
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11407	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11408	extent: (Point 551 110)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11409	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11410	(FramedBoxSpec
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11411	label: 'Audible Bell'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11412	name: 'FramedBox3'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11413	labelPosition: topLeft
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11414	translateLabel: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11415	component:
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11416	(SpecCollection
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11417	collection: (
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11418	(CheckBoxSpec
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11419	label: 'Beep for Info Dialogs'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11420	name: 'CheckBox3'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11421	layout: (LayoutFrame 5 0 5 0 -5 1 27 0)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11422	model: beepForInfoDialog
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11423	translateLabel: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11424	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11425	(CheckBoxSpec
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11426	label: 'Beep for Warning Dialogs'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11427	name: 'CheckBox4'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11428	layout: (LayoutFrame 5 0 30 0 -5 1 52 0)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11429	model: beepForWarningDialog
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11430	translateLabel: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11431	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11432	(CheckBoxSpec
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11433	label: 'Beep for Error Dialogs'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11434	name: 'CheckBox5'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11435	layout: (LayoutFrame 5 0 55 0 -5 1 77 0)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11436	model: beepForErrorDialog
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11437	translateLabel: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11438	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11439	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11440
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11441	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11442	extent: (Point 551 107)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11443	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11444	(FramedBoxSpec
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11445	label: 'Help'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11446	name: 'FramedBox4'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11447	labelPosition: topLeft
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11448	translateLabel: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11449	component:
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11450	(SpecCollection
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11451	collection: (
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11452	(CheckBoxSpec
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11453	label: 'Fly By Help'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11454	name: 'CheckBox6'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11455	layout: (LayoutFrame 5 0 5 0 -5 1 27 0)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11456	model: flyByHelp
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11457	translateLabel: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11458	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11459	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11460
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11461	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11462	extent: (Point 551 58)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11463	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11464	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11465
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11466	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11467	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11468	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11469
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11470	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11471	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11472	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11473
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11474	!AbstractSettingsApplication::SystemMessageSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11475
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11476	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11477
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11478	ObjectMemory infoPrinting:self vmInfo value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11479	ObjectMemory debugPrinting:self vmErrors value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11480	Object infoPrinting:self classInfos value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11481	DeviceWorkstation errorPrinting:self displayErrors value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11482	ObjectMemory nameForChanges:self changeFileName value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11483	Smalltalk logDoits:self logDoits value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11484	Class updateChanges:self updChanges value.
6163 00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	11485
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	11486	UserPreferences current beepForInfoDialog:self beepForInfoDialog value.
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	11487	UserPreferences current beepForWarningDialog:self beepForWarningDialog value.
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	11488	UserPreferences current beepForErrorDialog:self beepForErrorDialog value.
6166 92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11489	UserPreferences current flyByHelpActive:self flyByHelp value.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11490	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11491
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	11492	helpFilename
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	11493	^ 'Launcher/messageSettings.html'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11494	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11495
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11496	readSettings
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11497	self vmInfo value:ObjectMemory infoPrinting.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11498	self vmErrors value:ObjectMemory debugPrinting.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11499	self classInfos value:Object infoPrinting.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11500	self displayErrors value:DeviceWorkstation errorPrinting.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11501	self changeFileName value:ObjectMemory nameForChanges.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11502	self logDoits value:Smalltalk logDoits.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11503	self updChanges value:Class updatingChanges.
6163 00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	11504	self modifiedChannel value:false.
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	11505	self beepForInfoDialog value:UserPreferences current beepForInfoDialog.
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	11506	self beepForWarningDialog value:UserPreferences current beepForWarningDialog.
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	11507	self beepForErrorDialog value:UserPreferences current beepForErrorDialog.
6166 92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11508	self flyByHelp value:UserPreferences current flyByHelpActive.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11509	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11510
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11511	!AbstractSettingsApplication::SystemMessageSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11512
6163 00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	11513	beepForErrorDialog
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	11514	beepForErrorDialog isNil ifTrue:[
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	11515	beepForErrorDialog := UserPreferences current beepForErrorDialog asValue.
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	11516	beepForErrorDialog onChangeSend:#updateModifiedChannel to:self
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	11517	].
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	11518	^ beepForErrorDialog.
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	11519	!
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	11520
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	11521	beepForInfoDialog
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	11522	beepForInfoDialog isNil ifTrue:[
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	11523	beepForInfoDialog := UserPreferences current beepForInfoDialog asValue.
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	11524	beepForInfoDialog onChangeSend:#updateModifiedChannel to:self
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	11525	].
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	11526	^ beepForInfoDialog.
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	11527	!
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	11528
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	11529	beepForWarningDialog
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	11530	beepForWarningDialog isNil ifTrue:[
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	11531	beepForWarningDialog := UserPreferences current beepForWarningDialog asValue.
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	11532	beepForWarningDialog onChangeSend:#updateModifiedChannel to:self
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	11533	].
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	11534	^ beepForWarningDialog.
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	11535	!
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	11536
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11537	changeFileName
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11538
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11539	changeFileName isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11540	changeFileName := ObjectMemory nameForChanges asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	11541	changeFileName onChangeSend:#updateModifiedChannel to:self
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11542	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11543	^ changeFileName.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11544	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11545
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11546	classInfos
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11547
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11548	classInfos isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11549	classInfos := Object infoPrinting asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	11550	classInfos onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11551	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11552	^ classInfos.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11553	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11554
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11555	displayErrors
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11556
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11557	displayErrors isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11558	displayErrors := DeviceWorkstation errorPrinting asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	11559	displayErrors onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11560	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11561	^ displayErrors.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11562	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11563
6166 92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11564	flyByHelp
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11565	flyByHelp isNil ifTrue:[
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11566	flyByHelp := UserPreferences current flyByHelp asValue.
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11567	flyByHelp onChangeSend:#updateModifiedChannel to:self
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11568	].
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11569	^ flyByHelp.
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11570	!
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11571
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11572	logDoits
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11573
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11574	logDoits isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11575	logDoits := Smalltalk logDoits asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	11576	logDoits onChangeSend:#updateModifiedChannel to:self
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11577	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11578	^ logDoits.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11579	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11580
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11581	updChanges
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11582
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11583	updChanges isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11584	updChanges := Class updatingChanges asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	11585	updChanges onChangeSend:#updateModifiedChannel to:self
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11586	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11587	^ updChanges.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11588	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11589
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11590	vmErrors
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11591
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11592	vmErrors isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11593	vmErrors := ObjectMemory debugPrinting asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	11594	vmErrors onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11595	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11596	^ vmErrors.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11597	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11598
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11599	vmInfo
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11600
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11601	vmInfo isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11602	vmInfo := ObjectMemory infoPrinting asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	11603	vmInfo onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11604	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11605	^ vmInfo.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11606	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11607
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11608	!AbstractSettingsApplication::SystemMessageSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11609
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11610	hasUnsavedChanges
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	11611	self vmInfo value ~= ObjectMemory infoPrinting ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	11612	self vmErrors value ~= ObjectMemory debugPrinting ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	11613	self classInfos value ~= Object infoPrinting ifTrue:[^ true].
6163 00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	11614	self logDoits value ~= Smalltalk logDoits ifTrue:[^ true].
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	11615	self updChanges value ~= Class updatingChanges ifTrue:[^ true].
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	11616	self changeFileName value ~= ObjectMemory nameForChanges ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	11617	self displayErrors value ~= DeviceWorkstation errorPrinting ifTrue:[^ true].
6163 00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	11618	self beepForInfoDialog value ~= UserPreferences current beepForInfoDialog ifTrue:[^ true].
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	11619	self beepForWarningDialog value ~= UserPreferences current beepForWarningDialog ifTrue:[^ true].
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	11620	self beepForErrorDialog value ~= UserPreferences current beepForErrorDialog ifTrue:[^ true].
6166 92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	11621	self flyByHelp value ~= UserPreferences current flyByHelpActive ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	11622	^ false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11623	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11624
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11625	!AbstractSettingsApplication::ToolsSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11626
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11627	defaultIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11628	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11629	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11630
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11631	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11632	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11633
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11634	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11635	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11636	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11637	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11638	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11639
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11640	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11641
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11642	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11643	constantNamed:#'AbstractSettingsApplication::ToolsSettingsAppl class defaultIcon'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	11644	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	11645	*****************************@@@@@@@@@@@@@J(@@@@@@@@@@@@@ @@@F(QD@@@@@B@@@@B((QD@@@@J(@@@@@@JLQ@@@@ @B$@@@)CD@@@B*@@
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	11646	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	11647	@@@@@@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	11648	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11649
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11650	!AbstractSettingsApplication::ToolsSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11651
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11652	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11653	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11654	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11655
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11656	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11657	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11658
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11659	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11660	UIPainter new openOnClass:AbstractSettingsApplication::ToolsSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11661	AbstractSettingsApplication::ToolsSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11662	AbstractSettingsApplication::ToolsSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11663	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11664
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11665	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11666
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11667	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11668	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11669	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11670	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11671	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11672	label: 'Tool Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11673	name: 'Tool Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11674	min: (Point 10 10)
5576 8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	11675	bounds: (Rectangle 0 0 607 786)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11676	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11677	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11678	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11679	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11680	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11681	name: 'VerticalPanel2'
5576 8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	11682	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	11683	horizontalLayout: fit
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11684	verticalLayout: top
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11685	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11686	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11687	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11688	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11689	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11690	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11691	label: 'Use the New System Browser'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11692	name: 'NewSystemBrowser'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11693	model: useNewSystemBrowser
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11694	translateLabel: true
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	11695	extent: (Point 607 25)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11696	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11697	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11698	label: 'Use the New File Browser'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11699	name: 'NewFileBrowser'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11700	model: useNewFileBrowser
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11701	translateLabel: true
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	11702	extent: (Point 607 25)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11703	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11704	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11705	label: 'Use the New VersionDiff Browser'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11706	name: 'VersionDiffBrowser'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11707	model: useNewVersionDiffBrowser
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11708	translateLabel: true
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	11709	extent: (Point 607 25)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11710	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11711	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11712	label: 'Use the New FileTree File Dialog'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11713	name: 'UseNewFileDialogCheckBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11714	model: useNewFileDialog
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11715	translateLabel: true
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	11716	extent: (Point 607 25)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11717	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11718	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11719	label: 'Use the New Settings Dialog'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11720	name: 'UseNewSettinsApplicationCheckBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11721	model: useNewSettingsApplication
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11722	translateLabel: true
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	11723	extent: (Point 607 25)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11724	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11725	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11726	label: 'Use the New Process Monitor'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11727	name: 'UseNewProcessMonitor'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11728	model: useProcessMonitorV2
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11729	translateLabel: true
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	11730	extent: (Point 607 25)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11731	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11732	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11733	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	11734	name: 'ChangesBrowser'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11735	model: useNewChangesBrowser
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11736	translateLabel: true
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	11737	extent: (Point 607 25)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11738	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11739	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11740	label: 'Use Hierarchical Inspector (not yet recommended)'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11741	name: 'HierarchicalInspector'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11742	model: useNewInspector
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11743	translateLabel: true
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	11744	extent: (Point 607 25)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11745	)
6742 62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	11746	(CheckBoxSpec
62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	11747	label: 'Use the Smalltalk Document Viewer'
62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	11748	name: 'UseSmalltalkDocumentViewer'
62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	11749	model: useSmalltalkDocumentViewer
62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	11750	translateLabel: true
62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	11751	extent: (Point 607 25)
62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	11752	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11753	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11754	name: 'Box2'
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	11755	extent: (Point 607 20)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11756	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11757	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11758	label: 'Show Clock in Launcher'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11759	name: 'Clock'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11760	model: showClockInLauncher
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11761	translateLabel: true
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	11762	extent: (Point 607 25)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11763	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11764	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11765	name: 'Box3'
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	11766	extent: (Point 607 19)
5576 8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	11767	)
8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	11768	(HorizontalPanelViewSpec
8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	11769	name: 'HorizontalPanel1'
8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	11770	horizontalLayout: leftSpaceFit
8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	11771	verticalLayout: center
8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	11772	horizontalSpace: 3
8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	11773	verticalSpace: 3
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11774	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11775	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11776	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11777	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11778	label: 'Transcripts Buffer Size:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11779	name: 'Label1'
5576 8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	11780	translateLabel: true
8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	11781	resizeForLabel: true
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11782	adjust: right
6072 470d0fb1c937 * empty log message * Claus Gittinger <cg@exept.de> parents: 6064 diff changeset	11783	extent: (Point 190 19)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11784	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11785	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11786	name: 'Transcripts Buffer Size'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11787	model: transcriptBufferSize
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11788	type: number
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11789	immediateAccept: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11790	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11791	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11792	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11793	acceptOnPointerLeave: true
6072 470d0fb1c937 * empty log message * Claus Gittinger <cg@exept.de> parents: 6064 diff changeset	11794	extent: (Point 408 24)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11795	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11796	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11797
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11798	)
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	11799	extent: (Point 607 35)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11800	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11801	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11802
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11803	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11804	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11805	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11806
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11807	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11808	)
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::ToolsSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11812
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11813	basicSaveSettings
5627 d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	11814	\| showClock launcher reopenLauncher newSystemBrowserClass transcript\|
5594 06aba5d1bb6e NewSystemBrowser -> Tools::NewSystemBrowser Claus Gittinger <cg@exept.de> parents: 5583 diff changeset	11815
06aba5d1bb6e NewSystemBrowser -> Tools::NewSystemBrowser Claus Gittinger <cg@exept.de> parents: 5583 diff changeset	11816	newSystemBrowserClass := Tools::NewSystemBrowser ? NewSystemBrowser.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11817
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11818	currentUserPrefs := UserPreferences current.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11819	currentUserPrefs useNewInspector:self useNewInspector value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11820	currentUserPrefs useNewChangesBrowser:self useNewChangesBrowser value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11821	currentUserPrefs useNewVersionDiffBrowser:self useNewVersionDiffBrowser value.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11822	currentUserPrefs useNewFileDialog:self useNewFileDialog value.
4464 997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	11823	currentUserPrefs useProcessMonitorV2:self useProcessMonitorV2 value.
6742 62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	11824	currentUserPrefs useSmalltalkDocumentViewer:self useSmalltalkDocumentViewer value.
62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	11825
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11826	currentUserPrefs useNewSettingsApplication ~= self useNewSettingsApplication value ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11827	currentUserPrefs useNewSettingsApplication:self useNewSettingsApplication value.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11828	].
5083 7fdf1e8c8f03 reopen launcher when systemBrowser setting changes Claus Gittinger <cg@exept.de> parents: 5080 diff changeset	11829
7fdf1e8c8f03 reopen launcher when systemBrowser setting changes Claus Gittinger <cg@exept.de> parents: 5080 diff changeset	11830	currentUserPrefs useNewSystemBrowser ~= self useNewSystemBrowser value ifTrue:[
7fdf1e8c8f03 reopen launcher when systemBrowser setting changes Claus Gittinger <cg@exept.de> parents: 5080 diff changeset	11831	currentUserPrefs useNewSystemBrowser:self useNewSystemBrowser value.
5594 06aba5d1bb6e NewSystemBrowser -> Tools::NewSystemBrowser Claus Gittinger <cg@exept.de> parents: 5583 diff changeset	11832	(self useNewSystemBrowser value and:[newSystemBrowserClass isLoaded]) ifTrue:[
06aba5d1bb6e NewSystemBrowser -> Tools::NewSystemBrowser Claus Gittinger <cg@exept.de> parents: 5583 diff changeset	11833	newSystemBrowserClass installInLauncher.
5083 7fdf1e8c8f03 reopen launcher when systemBrowser setting changes Claus Gittinger <cg@exept.de> parents: 5080 diff changeset	11834	] ifFalse:[
5594 06aba5d1bb6e NewSystemBrowser -> Tools::NewSystemBrowser Claus Gittinger <cg@exept.de> parents: 5583 diff changeset	11835	newSystemBrowserClass removeFromLauncher.
5083 7fdf1e8c8f03 reopen launcher when systemBrowser setting changes Claus Gittinger <cg@exept.de> parents: 5080 diff changeset	11836	].
7fdf1e8c8f03 reopen launcher when systemBrowser setting changes Claus Gittinger <cg@exept.de> parents: 5080 diff changeset	11837	reopenLauncher := true.
7fdf1e8c8f03 reopen launcher when systemBrowser setting changes Claus Gittinger <cg@exept.de> parents: 5080 diff changeset	11838	].
7fdf1e8c8f03 reopen launcher when systemBrowser setting changes Claus Gittinger <cg@exept.de> parents: 5080 diff changeset	11839
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11840	(Smalltalk at:#FileBrowserV2) isBehavior ifTrue:[
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11841	currentUserPrefs useNewFileBrowser ~= self useNewFileBrowser value ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11842	currentUserPrefs useNewFileBrowser:self useNewFileBrowser value.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11843	(self useNewFileBrowser value and:[FileBrowserV2 isLoaded]) ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11844	FileBrowserV2 installInLauncher.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11845	] ifFalse:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11846	FileBrowserV2 removeFromLauncher.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11847	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11848	reopenLauncher := true.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11849	]
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11850	].
5627 d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	11851
d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	11852	transcript := Transcript current.
d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	11853	(transcript notNil and:[transcript isExternalStream not]) ifTrue:[
d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	11854	launcher := transcript application.
d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	11855	].
d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	11856
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11857	showClock := self showClockInLauncher value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11858	currentUserPrefs showClockInLauncher ~= showClock ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11859	currentUserPrefs showClockInLauncher:showClock.
5627 d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	11860	launcher notNil ifTrue:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11861	showClock ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11862	launcher startClock
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11863	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11864	launcher stopClock
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11865	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11866	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11867	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11868	Inspector := currentUserPrefs inspectorClassSetting.
5627 d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	11869
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11870	reopenLauncher ifTrue:[
5627 d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	11871	launcher notNil ifTrue:[
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11872	launcher reopenLauncher.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11873	]
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11874	].
6757 fbce24177fdb transcript buffersize fix Claus Gittinger <cg@exept.de> parents: 6743 diff changeset	11875
fbce24177fdb transcript buffersize fix Claus Gittinger <cg@exept.de> parents: 6743 diff changeset	11876	transcript := Transcript current.
fbce24177fdb transcript buffersize fix Claus Gittinger <cg@exept.de> parents: 6743 diff changeset	11877	(transcript notNil and:[transcript isExternalStream not]) ifTrue:[
fbce24177fdb transcript buffersize fix Claus Gittinger <cg@exept.de> parents: 6743 diff changeset	11878	transcript lineLimit:self transcriptBufferSize value.
fbce24177fdb transcript buffersize fix Claus Gittinger <cg@exept.de> parents: 6743 diff changeset	11879	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11880	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11881
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	11882	helpFilename
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	11883	^ 'Launcher/toolSettings.html'
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11884	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11885
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11886	readSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11887	currentUserPrefs := UserPreferences current.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11888	self showClockInLauncher value:currentUserPrefs showClockInLauncher.
5627 d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	11889	Transcript current isExternalStream ifFalse:[
d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	11890	self transcriptBufferSize value:Transcript current lineLimit.
d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	11891	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11892	self useNewChangesBrowser value:currentUserPrefs useNewChangesBrowser.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11893	self useNewFileBrowser value:currentUserPrefs useNewFileBrowser.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11894	self useNewInspector value:currentUserPrefs useNewInspector.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11895	self useNewSystemBrowser value:currentUserPrefs useNewSystemBrowser.
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	11896	self useNewVersionDiffBrowser value:currentUserPrefs useNewVersionDiffBrowser.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11897	self useProcessMonitorV2 value:currentUserPrefs useProcessMonitorV2.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11898	self useNewFileDialog value:currentUserPrefs useNewFileDialog.
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	11899	self useNewSettingsApplication value:currentUserPrefs useNewSettingsApplication.
6742 62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	11900	self useSmalltalkDocumentViewer value:currentUserPrefs useSmalltalkDocumentViewer.
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	11901
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11902	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11903	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11904
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11905	!AbstractSettingsApplication::ToolsSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11906
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11907	showClockInLauncher
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11908	showClockInLauncher isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11909	showClockInLauncher := currentUserPrefs showClockInLauncher asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	11910	showClockInLauncher onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11911	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11912	^ showClockInLauncher.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11913	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11914
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11915	transcriptBufferSize
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11916	transcriptBufferSize isNil ifTrue:[
5627 d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	11917	transcriptBufferSize := 600 asValue. "/ Transcript current lineLimit asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	11918	transcriptBufferSize onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11919	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11920	^ transcriptBufferSize.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11921	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11922
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11923	useNewChangesBrowser
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11924	useNewChangesBrowser isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11925	useNewChangesBrowser := currentUserPrefs useNewChangesBrowser asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	11926	useNewChangesBrowser onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11927	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11928	^ useNewChangesBrowser.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11929	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11930
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11931	useNewFileBrowser
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11932	useNewFileBrowser isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11933	useNewFileBrowser := currentUserPrefs useNewFileBrowser asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	11934	useNewFileBrowser onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11935	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11936	^ useNewFileBrowser.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11937	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11938
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11939	useNewFileDialog
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11940	useNewFileDialog isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11941	useNewFileDialog := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	11942	useNewFileDialog onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11943	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11944	^ useNewFileDialog.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11945	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11946
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11947	useNewInspector
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11948	useNewInspector isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11949	useNewInspector := currentUserPrefs useNewInspector asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	11950	useNewInspector onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11951	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11952	^ useNewInspector.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11953	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11954
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11955	useNewSettingsApplication
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11956	useNewSettingsApplication isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11957	useNewSettingsApplication := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	11958	useNewSettingsApplication onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11959	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11960	^ useNewSettingsApplication.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11961	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11962
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11963	useNewSystemBrowser
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11964	useNewSystemBrowser isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11965	useNewSystemBrowser := currentUserPrefs useNewSystemBrowser asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	11966	useNewSystemBrowser onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11967	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11968	^ useNewSystemBrowser.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11969	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11970
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11971	useNewVersionDiffBrowser
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11972	useNewVersionDiffBrowser isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11973	useNewVersionDiffBrowser := currentUserPrefs useNewVersionDiffBrowser asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	11974	useNewVersionDiffBrowser onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11975	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11976	^ useNewVersionDiffBrowser.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11977	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11978
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11979	useProcessMonitorV2
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11980	useProcessMonitorV2 isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11981	useProcessMonitorV2 := currentUserPrefs useProcessMonitorV2 asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	11982	useProcessMonitorV2 onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11983	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	11984	^ useProcessMonitorV2.
6742 62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	11985	!
62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	11986
62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	11987	useSmalltalkDocumentViewer
62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	11988	useSmalltalkDocumentViewer isNil ifTrue:[
62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	11989	useSmalltalkDocumentViewer := currentUserPrefs useSmalltalkDocumentViewer asValue.
62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	11990	useSmalltalkDocumentViewer onChangeSend:#updateModifiedChannel to:self
62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	11991	].
62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	11992	^ useSmalltalkDocumentViewer.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11993	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11994
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11995	!AbstractSettingsApplication::ToolsSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11996
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11997	hasUnsavedChanges
6742 62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	11998	#(
62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	11999	useNewInspector
62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	12000	useNewChangesBrowser
62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	12001	useNewSystemBrowser
62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	12002	useNewVersionDiffBrowser
62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	12003	useNewFileBrowser
62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	12004	useNewFileDialog
62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	12005	useNewSettingsApplication
62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	12006	useProcessMonitorV2
62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	12007	useSmalltalkDocumentViewer
62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	12008	showClockInLauncher
62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	12009	)
62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	12010	do:[:aspect \|
62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	12011	(self perform:aspect) value ~= (currentUserPrefs perform:aspect) ifTrue:[^ true].
62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	12012	].
62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	12013
5627 d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	12014	Transcript current isExternalStream ifFalse:[
d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	12015	(self transcriptBufferSize value ~= Transcript current lineLimit) ifTrue:[^ true].
d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	12016	].
d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	12017	^ false.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12018	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12019
4226 44e2f83cc526 initial checkin penk parents: diff changeset	12020	!AbstractSettingsApplication class methodsFor:'documentation'!
44e2f83cc526 initial checkin penk parents: diff changeset	12021
44e2f83cc526 initial checkin penk parents: diff changeset	12022	version
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	12023	^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.223 2006-05-09 09:39:01 cg Exp $'
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	12024	! !

author	Claus Gittinger <cg@exept.de>
	Tue, 09 May 2006 11:39:01 +0200
changeset 6778	823c6c4a0d48
parent 6769	4decf38c7feb
child 6779	3e95d8048f6f
permissions	-rw-r--r--